Wolfram Computation Meets Knowledge

How Odd Was the Full Moon on Halloween 2020? Once in a Blue Moon and a Lifetime!

Halloween this year had a surprise up its sleeve. In rare celestial serendipity, the night of costume metamorphosis also featured a full moon, which helped to conjure the spooky mood. Because it might have been the first and last full-moon Halloween that some people witnessed in their lifetime (cue ominous music), I think it was significantly underrated. Moreover, it was the day of a blue moon (the second full moon within a month), but that is not a surprise, as any Halloween’s full moon is always a blue moon. The Moon’s color did not change, though, at least for those away from the smoke of volcanos and forest fires that are capable of turning it visibly blue. To appreciate the science and uniqueness of a full moon this Halloween, I built this visualization that tells the whole story in one picture. This is how I did it.

Halloween Moon

Let’s start by verifying that the Halloween 2020 Moon was indeed full. The recent Wolfram Function Repository contribution MoonPhaseDate computes the date of the next or previous full moon and confirms our assertion:

ResourceFunction
&#10005

ResourceFunction[
ResourceObject[
Association[
   "Name" -> "MoonPhaseDate", "ShortName" -> "MoonPhaseDate", 
    "UUID" -> "0f9a8401-8b54-4eae-910f-ad65e586bca8", 
    "ResourceType" -> "Function", "Version" -> "2.0.0", 
    "Description" -> "Compute the date of a specific phase of the \
Moon", "RepositoryLocation" -> URL[
     "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], 
    "SymbolName" -> "FunctionRepository`$\
b9a828d18bbe4b35a6422297046c2014`MoonPhaseDate", 
    "FunctionLocation" -> CloudObject[
     "https://www.wolframcloud.com/obj/df9d46c4-70e3-4a8d-b518-\
20453c212771"]], ResourceSystemBase -> Automatic]]["Full", 
 TimeDirection -> -1]

TimeDirection → –1 means we are looking into the past, as Halloween already happened. There is more going on under the hood, though. The Wolfram Language has automatically determined my time zone and its offset:

$TimeZone
&#10005

$TimeZone

This is the same offset as in New York City, and could be different in another location:

TimeZoneOffset /@ {Entity
&#10005

TimeZoneOffset /@ {Entity["City", {"NewYork", "NewYork", "UnitedStates"}], Entity["City", {"Sydney", "NewSouthWales", "Australia"}]}

It might be surprising to see that in Sydney the full moon occurred not on Halloween, but a day later:

ResourceFunction
&#10005

ResourceFunction[
ResourceObject[
Association[
   "Name" -> "MoonPhaseDate", "ShortName" -> "MoonPhaseDate", 
    "UUID" -> "0f9a8401-8b54-4eae-910f-ad65e586bca8", 
    "ResourceType" -> "Function", "Version" -> "2.0.0", 
    "Description" -> "Compute the date of a specific phase of the \
Moon", "RepositoryLocation" -> URL[
     "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], 
    "SymbolName" -> "FunctionRepository`$\
b9a828d18bbe4b35a6422297046c2014`MoonPhaseDate", 
    "FunctionLocation" -> CloudObject[
     "https://www.wolframcloud.com/obj/df9d46c4-70e3-4a8d-b518-\
20453c212771"]], ResourceSystemBase -> Automatic]]["Full", 
 TimeZone -> 11, TimeDirection -> -1]

To better understand this, we have to realize that while the news media may say that there will be a full moon on a particular date, its actual duration is just an instant when “the lunar hemisphere facing Earth… is completely sunlit and appears as a circular disk.” The exact event depends on observers’ locations on Earth, or less granularly, their time zones. This is why we see different dates and times for New York City and Sydney. Nevertheless, those who went out to celebrate Halloween at 8pm on October 31 in either city could witness the same full moon “phase”:

Values
&#10005

Values[MoonPhase[
  {DateObject[{2020, 10, 31, 20, 0, 0}, "Instant", "Gregorian", -5.`],
    DateObject[{2020, 10, 31, 20, 0, 0}, "Instant", "Gregorian", 
    11.`]}, "Name"]]

The named phases are discrete and separated by thresholds of illumination percentage, and a phase is still considered full even a bit earlier or later than the actual moment of a full moon. Moreover, the Moon still looks almost identically full to the naked eye during the either the next or previous day. It’s quite apparent from the Moon calendar for October 2020:

Grid
&#10005

Grid[Partition[
  Labeled[#2, DateValue[#, "Day"]] & @@@ 
   MoonPhase[
     DateRange[DateObject[{2020, 10, 1}, "Day", "Gregorian", -5.`], 
      DateObject[{2020, 10, 31}, "Day", "Gregorian", -5.`]], "Icon"][
    "Path"], 7, 7, 4, ""], Frame -> All]

So people celebrating Halloween around the world could still enjoy the spectacle of at least a very-close-to-fully-illuminated Moon independent of their location, and as far as all things spooky are concerned, that’s the only thing that matters. By the way, there is a neat way to get a realistic visual of Moon phases thanks to the PlanetaryMoon entity:

Manipulate
Moon phases
&#10005

Manipulate[
 Show[moon, ViewPoint -> Left, ViewAngle -> Pi/6, 
  Lighting -> {{"Directional", White, 
     ImageScaled[{Sin[t], 0, Cos[t]}]}}, Background -> Black], {t, 0, 
  2 Pi},
 Initialization :> (moon = 
    Entity["PlanetaryMoon", "Moon"]["TexturedSurface"])]

So how rare is a full moon on Halloween? Let’s take one thousand years spanning five hundred years in both the past and future. Astronomers often use JulianDate for calculations, which is a special continuous day count. For simplicity, we precomputed the Julian dates of all full moons in the chosen time period. They are stored in the form of Iconize in the attached notebook:

fullmoonJDs = CompressedData
&#10005

fullmoonJDs = CompressedData["
1:eJwU3Hc8VW8cB3B79LMSpTIrW5IioXTtkb33DJVSRKGoKESSmb33CpmFRJRV
kQqR7GRlj+L3uX+9X+ec7/Pcc+595jnPuTx2rnoXSElISHTESEgYJgt3yegQ
CAEqLgtqsN7ua4cJFNjJSnCCo1OR5p5w3zMGhgdQUHWxMhKKy/4yT4emo2bk
pcTj33nLG+DxRVXXLhj34o/UINQcSGeYgfKVKzOb0ET0axetLoFweTuriA0G
T4bf54dqVBZqknDOWZFMCXZyXizVhw+ellrYwXShTNrrMKtu7aUfnHdz8AiD
y8rlkkmQeqGOpBDavW7rqYXV8XFF72Fxx7OgbzCzQdBqEoaVCwqtEtMxas5Q
6BEIOqNkOXug/rFIy0OwwLuA+Th8UMr0Tg46vjX004IGxZ7SljBO1X3rMpx+
xd/kTYwfuR8eDFNPkdo+g6cVSMVz4Hx+DmklvPEuoqsZNttpxPbA15zpZiMw
yiKW7Q8MeFPWvQMfW2uEMOgTCDNcWooc8EB72LYwbE03qpWGZ03zb6nBqKv5
MiawcdqZ0gl+neb/4gHH78oUBMD9R5r8ImHSSTPtdLhXWpOtFHLmnBpogN0J
ZHFdMOhgte4gLKm3pZyB8ifeVmzC0ylbjrQGBMKvcE1ONvjMgnmYDx57m1Mk
ATM0ywIUIeuktY0+7D8XJ2MHrez4ma/DTffkYT94I98kMwwevuFmkQSvk/Xs
KoSvTEbKa+Fwn7Lle1gV/oDuGxxwnHk7AR33b4eswIYlWWsKQwJh7GDHmT2Q
17Xk0CGiOrWUx+HmQ7EhOVgY+CdbC844i9tYwiunf9G7QJI5/QpvyPDUxzwY
BnVNUTyD1tNUldmwSMfWvQLKfKs71wxVuDM4e6AyWTL1CDRx61xYgGnHbD/s
wN7SySQGI3yud6IFBzzn8YJBBLoOilZLQ4NMVUs1eDrsG5kJPOkYVOwINTgU
HD1gL7m3aACcyAqljoQMx8/MpMF85ns9z+Gr3bkvGmC1wGZwF3xbPK0zCCMu
FdPOQKV3m5WbMJ4l05LWGJ8r00zOBo+1BZXwwTKD/gsSRFsOCyrCRMq1dT24
xNzabQtveD0ouwbfnk+I8IMWJ2xdwuAr6mPSSfB15/JGAQyYWC2qhW94LM3f
Q763K9Tf4Oyr89UT8EHz+6srcKRNQYTChEDg8bD6wwznVabqeeC4hm2UGLQT
kLgqB8s5FZW1YEIR/T5LOBtsPXQZZq5ZJHlD6tdjRsHwBMkn+mdQ0p2mORuu
e3zxroCdtB9ONEOLsJ2FbphxaO+Ln5DqodKdBbiTTaWxA0le7hxgMEU9eiL0
mx0KRbDUCsN4J9mH0pDwelpTDR7ZpGUygf5HKDsdYS1PyUMPqHxLXC4A1q//
XYuAefo5pWnQtuafy3P4gm1BuAGacOz/0wl3PTpY/x1OR2w8/Q3vsiU7b8Kn
S0WytGaotw4PdrFB11NOn/igrT17hAT8Sn1QUxHmxZqT6cNUrq9ltnDsXavt
NXj1liaLHzQuK/vwGH5jlYpNhFUiNy8VwM45f6VayGwweug9fPHS999XmJVx
8tMEfPygPn4FniuXNKEwJxD4s+R37YGylg4veKAvgcxCDHp/JKGWg2XJ92s1
4eXn9N4WsJNUVOUy3KE/xeMNB87kUQRDUpkn07FQ6H7Z+2z4OTwmvoKYj/OQ
WTOc4Oeg74Ehi3aVP+G522wWC9DLjJ18By7nDZXQW6B+JnY7ssM1r3MiwnDP
ejSZNLTPuzWpCoeeSnQbw6S99FWOkLs55LEH1Pe9rh8AaXaWdkVCBdnNqjR4
PLfK6jmk3lNE3gDbhOkLO+ExrUzL78TPUWng+A2vyU7PbUAq17guGksCYTD0
dMU+yK8TH8cHz1On35CAXk5X5BVh1OllUn2Yu7vihS0c8vaxugZfMHVS+MGu
5YGix8S4bgnrRDgV6MxeAFdVjk7UwDvmnbXvoFUfS+xXaHMj0HMC/lJT1l+x
JLbXB/kprAgEkfGtWWZoqLmSwwPTP3wxEYNLT89QycHWNesKTaiS+/CiBSzr
nzx8GQ5sTIx5wWw6xaIgqGMecScWbsWpGmRDbZ8mkQr4o5CdtBlmDF/o7Ib9
fPuf/oR1Iae1FuAhvSjqHWL8Ka0GemsCIXA40ZMdrhqliArDN2Wsv07DZuNd
uaow+VutizGUv9gp6QhLOeMpPOCj98c/+8ODJYyZEfBT+xu3NFhuYX32OVwW
WqNogKnGDW874d1zGfe+w9tNWdK/oXJ+zuIGtAmqyaexIRDottPs98G6PBIu
Phgw++THSajTvZijADVLvt/Sg2Ge1dq2MLr7GP81GGq6veEL6xvD3j6GuZTj
wYmQvrhcpQAGi4ns1ECuvObn76CB9Burr1A9K59+Ap4X421ahiFdc/7ktgSC
c1KjLjP8G2QkxAOpfL1oxGA6o+nEWWhEv1avCQX5LcMsoP71Nt3LsLc5m8Yb
NshoVwTB+8kxFrGQXcydIhsm3s0pewFlK8suN0EbyhPi3fBjWArVT5h7tG9i
Hj4QutS5DYt5Ekrp7TA+6jJ5xA41dofoCUNG9Re7pKFzlnCVKjSxDbQ0hlE3
mcgd4ajQ5cIbcG/IqqU//F3Lyh4B3WTMplOhcR7d+xIYmnGjrB7yRT9I6CTm
d8DX6zvMSeZV+Q0XKzYpNmHA0RuVNPaoZ00t1vsgs60SJR90XCkvOAn3Bjw0
UYBbr01360FOFYV+G/gxWafcFVYXCcb6wnpy0juPoUVSkkUivFn9SqwA6hIO
rtXAL+KUz99BZRtuq6/w3/gBqglYOTBQtAyv0qibkzugHeCYYmaGrwZzv3BD
upHWrGPQmunNnbOQzZzcXBPW7K2QsoC+idNMl+FQpdWQF2xNXUgOgvfUIg1i
4Vs5NopsaCf9r+wFnOa7dKEJkrmqcHRD1/iV/mF4JWwoeR6O8y1f3IZJdQqy
9BfQv+Wx72GHCpmKv4Qgz86LmtPw1z/h+6owhclZwRgaTjfvXIABvGE1N2AZ
D4ubP9FETqEIWDe1OJIKb/JFJpfA/zLnrephE0/PkU6ozvJofgAqKjysm4ZS
zvKPN+DjAUdLGkeUl7jDIvtg9GGWNV5I81Xj1UlIVXvHRwEqFDBK6kG/Bvo5
G/g2hyHLFZqdYbXwhQXtviyPYQT7h48JxDgpkah8KNVbYVMD95uUS7yD3vXf
Gb5CJlKOiXFYeuZn5TLkiy32I3fC7y775xwzZNnFv8UNj0ukFx+D2l39Fmdh
fuwdWk1YY09Raw4PyjPfuARpLFRlvCDz5zuMQfD66+SZGPjydGxHFhQmfZj3
At7lSfZtgnzpWqrd8M2uAYqfkDBpXDEPd6peWm7D4ZAWcnpnDAOOJxUdhO4c
kTZC8DqFJvdpuDBrOKcCk/51vzeCRy7+LL4AT1yljbkBWWsLPfzhXiVp5QhY
zPCUMg3ea0ytLIEFJ3us6mFnyFfyTrj7cHn+AHRZ6jGehkLLDxg3YNr4l17q
ixhXM64U7oW1T5QjeGGE4uztk1CrV9xWAfZ97ZfUgzZ241s20O7KmzLXi8R5
Toi1L5wPj6R6DBm29AsT4J+ZHsN8KD8dQ1MDDXc9ed8KH3+djf8CE54ve43D
Y9QnrJfhibVfBPJL2H/F/yAzpKXxmeKGHlLzOcdgyrCR+Vn4SMeUShOSSagX
m0PfuwdNL8GlrJ3/vOAReYa2QLjrR2RkDGS7X+WYBfmnos+9gHFzthxN0Cto
1/onKCi+1DYMg4pORsxDrZp4zW1Y9C+chP4y6qWdyfOD0K2+xVYIekcW7DsN
L9TVdavAH9X0kUZQidLS9AIsPJ7FdwN2njiyeR+66wl9fAqZRR5kpMLw6qvX
SuDH13sk62Ga59JKB1y4qlI2AC/PxrlMw93MT3k3YFvq70FqF7TbLJqxe+Eb
n2l9XuK2rxfrSdhCa/FdHqoz1eToQtIv5zxt4Pd95cqu8NbvO/t84cwv0YlQ
SJND8zwBunJec8+H/XWNYjWwNrr1VysUPeiZ+gVWDJ0wGofXgs7TLcM7c3PN
ZFcwDpY2898NmX8Wq3NDJndy9mOwfPLD8hkomSP34Tys2CuQZQ7PK7K4X4I2
++9KecEVctLVQJioTlsYA48vBZlnQUsteeoXMIWS/cUbGDxG7/wJblwWFhiG
YqHeq3Pwh0v1x3/wbZt8Kd1V9LcmIU8PwkeJfZeFYOiDdzKnYZlEwrYKZM9h
e2EEg3/vtb4AzU93UNyA5T3uBfdhfhiJ6VPYy8fEnAr/eCj0FUOD7dniOuhg
lRbeAdvWPW8NQJbd2pbT8Fb1jMQGnEu1/EftSiC8u+HxYi9kY/ppzQurR30p
T0JDq9Z8efgq76KBLqT7kU1lAxWe5ry9Cg+R1UbdgQfOTbiHQn4SRcsEuCLZ
opQPQ7R+HqqBM/Hp863wrOCbwi+w9tO45TiMW3WgXoaLp+OKyK4RCE/S+A13
E9VWIOeG9pPH6kThicWUh2egBLe+9Xl4X26WYA6lbbd5L0Et9UFyL8hv8vZL
IPzaWJ0YA2Mk6Y2y4NUpFcoXcCF/uPgNtGG5Y/IJfpAsoR6GPErBr+cgtd2D
gH9wciZWj+466nGJrcBBKK0wQiYEFR/sGZKC8qPvXqjAwKcH7xvB4n/tChfg
/iCnLXd4js+g6D48zlxg9RRGNvLsSYWeLtwdxdBDIiO4DqYIbmh0wAZ2I5YB
OPnQafQX3E6wrVqHRvdGQqjd8Pt5aljshe7u0ny8cDJh49cJKOyvmycPpzYW
LujCNwZh3DZuxPGZT99V2BXY/vQOTGyK1AiFT1M4aBMg2cSH9jzYZFQbWQ03
n5DZtELmrohjXyCfKi/pOMxIje5egikn2lLJ3DHPerXmvBuqH2UX4oZ3Ugjj
ovCIjmviGbhx8o7uefieZJzSHP6MCX95ER7SCfS4BYN3O58KhAJVDeQxcDOR
vj8TdvG2V5S7E/tT7vA3UDgo1P4TZJEeOzoMjQV15+eg4ohH7j+Y68JsRncD
+bbyUB2EElG1zwUhf3S6tRS0+NfEpgLXFGiHDeGBfS4VDpCkPCHKHarrTXre
h7ZXKgyfwqPlpcKpUHmOf6UYToonP6+Di7SJ1h3wyoV7VAPwZ51xwS+ilW4G
6/BTiDw1tQfG4T1uraywMskz5giM2y/lfgJGH79lKg+LXpgTdOHegV08NnCx
kPzPVVjBcbHkDgxU9rEOhXQhv6kSYKt0ckEeJBkv0auGC8x3SFoh+8sDNb0w
XUvz7hg06980XoJ3SHXPkHmiPD914N8NKTNLd3HDYAetH6KwUvluxhmYsD5p
eh52MjVRmUPStWvFF+Egu5HhLUh38QxJIHzSqPsiGrrns3tmwm4bV5Vy2Djg
wPsGGpl9oPkEFWYCfv2AJ+4EN85B59q6x//g30QrTbqbaJ+/vSM9CG+YXCwW
hGlB502kYOfu3ZQqcN7Ar8YQDjKcvOUA146zE9yhGbcZ833i/kWfX+Hwb4NX
UwpRz72JxbCnReVqHRRYk5bsgEedHZf6oa9tQ+4vuCm133wdSjb0M1DfIhA4
fhu0sMK+4LZ7R2DX6z2EE7CdajelPPRhkvigA5OuP0yxhjmpsu5XYc1Im9Id
+MT70Z5QWLdlMBAPP/1lT86DSzneltXEdHv1DrTCezdefu6FxWt8j8dg2tuT
SkvQYcd0h9QL5bO6o44JlvSm3+OCVYpv1EVhuutVtjNQwiDrlwb8GlX8ygyG
HwwMuwh5K6PMb0HPekeeQEgt++VHNLz5KfRZJpz0LtIsh6I51KRvoJ+C64uP
cFo59tIP6G0nzj8HTwd3zP6FRjmdDf95Ewin7PPiD0ALN5JbgrAvqlFHCh6Y
yuFWgQJSTROGUKQ+P8MBLmgJmLhDiYgCyvvE41YXS8KhgmOMWQrcl3mBvhgG
/RPsfAVrtTkT2+EU48rNfsjlmGz2C3ZvD8uuQ6aKi2zUPrjOvMApVuhyID7/
CBzzarc6ASW5rWnkYRDlYKEOLG4r17OGD1hXdq5AUUf1mtvw7IjivRBYMU9j
Eg/Xrw5I58GTwV6Hq+GX/XdpWqGTTdFwLyS9p5QzBi1bnS2X4MO8/2jIbqP/
TFEqYoLWP0r0uKBP1PLfo9Ar+chzWXiJ4uA1DXiT7rOcGaxz2ct1ETY9HqG+
BUknTeYfwifDGu3RsP0/jthMeCKuUr8cPv87QPEGOv9YLP4Ie38rG/2AQh/U
dmaJ6cz6i//CraXui//dQf7Kt08cgNU9hv8JQovjfDOnoPgf2i5lSKigyDeE
rGI9Pg5wzK6I4A7bLPu27sG5H2mF4XeI91NPmKTA0bAR8mJietMfL17BFpqW
q+2QfS1VvB8GD53amYLMxte714jppjbyqHwxDujKvM8Kkw6QmByB95Q8eU/A
Iw+eTRGgadGddB24/I7R2Bp+VFnedRX2T9k33obUNmo+IZCMXFsqHjLxNa3n
wqF8sfoqGH91LrgFctixmPfCKBoW0TGYT1W6vQj19GzaSP3wPW5NhTNB/fDL
+lzw0vI4syicHrvyQRYOd88GacD8dJtzZpDS4791Z2j0I73sJjwnIur2EO4Z
v3UqGlpW6ZBlQkIleXcZ9K7SzmqE/nx5Xh9hI9dRjR9Q6iP/3jkoRzL77S/x
eIxy1H93UQ4vGqkfgLwUWv8EoE4NX8kp+J5Xy04ZWnyVOWAIWSMW++3h6UNm
OW6QPemg3z1obeNsGQ5JtDKlU2DmKWemYnipaH7gFexgl01qJ8bnCRv2Q6WY
FYpfsIJsd8ka9GGZM6a6h/bKLZSSFWay09Ufhu4Hwh+Iw7gwfgsC5PU4d0YH
stdH8lhD7es/Sa8S93c6fbsN1f86pYVAjvwq83iY1q5Nmwev+s4XV0H9gEG9
FnhZOHzrM1T8/KB4FNooWbkuwtEGWznS+6iPtyQ4mIgmKVFwwX/s12aOQr78
9nZZqFxKmqABpzvumJhBv7a31BchfWtT8U04eue+/kP4vJJ3Kwo23BrPy4Ds
B0Lsy2AA6z3hRrhabEv+EXaznpoagvxapz7NQjs1ufK/8Oq/9w//8ycQdEVM
1A/At08zSQShz4f1olNQULjYSBmOZpHtGMDPTjcL7GHQxR4bN1j+UPzwPcj1
nWH5CWxq9f6YDAtby0uLoNyVc+GvoGpno2M7NKG9Jt4P8+QjFqfghTSj3DXY
7fDDiCoA3xv5OBkrNBfILT0MpULvOonDjaRIPgKs5b83pw2vZNyvs4JzH4qf
XoHH1zqdb8MBqptyIVD+gPDueFhNz92fC2cpHOOqYFeps24LPDbnTdULWfse
vBqF/XKmHotwb2CPGOkDjOPDS+cYIf8nxueccCNtxvMoHD3PrigL3/+tYtWA
H6Y7Jk2hvmhTpTP0CqC7dxPOj68pP4Q/3J1oo2FV4tN3GbC5lyGgDE7Wc8k2
Qt9P9xc/wFueVPlDcLPs0oVZ2Bl7je8vFN6TO7vrIYGwk/ipdv9DYrux77EA
nIt6bHfqIfE+X+QpZejCVkBtCFVtYz7YwxH6N2FukHTus/I9Yrqm05tPYMgN
iYJkWJHPZVEEQwU5mV5BDhH59jaYf+La0z6YpaLnMAX/uZwnrEGGwqs8VIHo
xwKa/7LAihrVrsPwL3lVlDhk+vtahwCfxD0j14FG/GIlVvD6Cp/xFfj28xLJ
bbjBs172iLi9UOEWR3Q0UD4Xnj9Ayl0F6aviKVogm4P31GfosOtD82ggcd7b
ELUIAw79MCQNQr3SbKZhgkn72Uo5YSwh1+AonL66a1MGSp+2yVGHhklqtqbw
rp6okDPcPTpPehOOMz4cfwBDSVy6ouClk4LlGfAVX+qjMijaaqLTCCd+vaD8
CNtEBkuG4PwOo+EsfPZpbXMLZlsLZe8KJhAcmW6Z7YdeW9YHBaC+z4PfksT9
JDfblOBgr2yZAWzz03pmD5nmV9zc4NO7U2fuwQWSE5tP4JWFjIJkqGuRYlQE
O/Yb7byEtDObeW1wnZTBvA++6t/YOwX5EpOHV6EkqXoV5SOM7w7vRLPAfgk/
j8PwCtVDbXHYoa/LTYCnVlQmtGFNe2SaFVwQkDC4Akup/pHehoe7B0sewdjR
eLs4yGBozJEL7XRqhyvhVJxXwVv45+Kgz2c4X66tMwrbX93lWyTmS3ixSRKC
/ksl4R0jHFUIfMwJHzBSqB+F1c6XSWWhas1QlTpMLWS5Zgr79AKFnGEZRdGE
J/yxsJz5AL5rMHaKgt8Y+o9lwG3PS9ul0FlV6uNraMRqlPYBBsiSuQ5B5iBP
qVkYeYpnewtGNaq+3hWKdqz2ou9+KN7IKSUA07QuzklCsYNfMpTg771PzA2g
8N0TbPahxHbo5MB1eL5nNvMujNxL5vEEVlwTVE+GivQuPEUw89yB1ZfwtXp8
UxvMn8sM7CPGNw3IT8Gx1xFrq7Cn0iGX8jHKw/FOYxbYG1FOcxh+9J6vPw5X
Znp9z8FGiVgNbciruXTECgoZNlNegXOD2eM+xHghq7pH8Nyn3OA4SD/oq54L
Q/iZSKtgRDlzyVtinKS78Wd4aXx2ewQWjRQW/IGLgYv2JGEYB77fEWaEJu3f
yTmhnVfOhAi8Zh/WIQNj+T8WqUN/q8sBpjB8q+q8M0x3HqO8CS/mapc9gMXf
KIyj4I9pj810SC8gnFEKD/9MMnoNZXw12D7AzZNnfw3Cxr5PrTNhxOcMx0u2
YHs4e+yuJwTCGa8Wj/2QdPiAogAMKXpHcgp2WgaVKMGGpotGBpC9N2zLDh5c
Ysm8DiXFSA3uwkvUTQxPYNNbm69JRHUFSgrh0CBT5EuoYRbp3UaM82Q074On
am8cnYJkz24vrEI+rflsynCMy+8zG7KEE+dPAjuH4Irsqbzj8B3hgvE5uHCE
hkEbDmu9+2gJNyI+prrAliOKPj7w6M6s6SMYTsUlGQdt/3H+lwt1WL2/VMLf
C+6xb+F67arWZzh6483OCEx7wFf8B5Iwr1qRPMX3Kca8lxE2MIj3csBB6zcJ
IvDUp5POMjBT+NxpdfjyuD+9KbwaaTviBKt4+8s9YSg7u+8DYj6zjXJR8Ft8
8mY6XEn3LCuFBZJFl17DcqOYIx/guN6bH4NQdHshYQaS3nxqtgVF9E9w7opA
uXh0ZYoNet4WqOaHqnV/gyUh94SpmVIE8Xm/Er8BDCuxXbCD7tyfKq5D8la2
m3ehk7DViSewL7dtOgnG2eqlFEIfVSGDl/DraAJdG0yooW7/BkWMnoVPQuYC
X8tVuLpGfZwyEtu3qGlZ4LrByZ+HIGk934vj8N7ugTvnIF3GpTPaMGg2atkS
evRwZ7tAWbGPBj6wcOcm+SO4OyKt4hn0lM13zYFqb2olKmHOhzzat1C7u2aq
B5r4XmgfgTR3xnP/wH2hUT4kUShPDH8JjFBvfOcvRxTxvpp8sQgMaTlmIgM7
phu21aDFq9gcE8iqdsLUCXYyiO73hH6RM78CoG/1l3eR0Kl+rTgdus8vRpbC
iLq0a69hiv6hcx/gGWt1kiGYE8ZUNgMvrV433YILDNf+0kYTCDE91WlssFXV
VZsfMq6w7ZKEGjWjPYpwd6pjoT5UmjIMt4OVS9Re16HO272Wd2HzRvaJJzAl
J3g9CYrfMCwqhHTdhsYvIXfy8N/30cRxS3rGN8h/j05nEtIuxFOuQtmztq0U
MQTCjZ6M2D2wsvetxyEYk/LX/DhsTFA6dw5Wf/fdrw3jbcpGLeGTczspLrCv
XEDPB1409t4Ohmway7nPILW/p2EO7Lm+h6YSGu1taG6Gfsrrj3vgROeK3Qjx
uAW33B84b0TCThJLIFBksS4zQIeHe5s5IDvTg0ciMGrISEUG7hUW/qsG+85c
KDSB304FWzjBFp5JJk/48a1oRwAcEKoJi4Tlp9WM04n5CaUfKYWOLssrDVDm
w7v3XfAkK0PSIGRKK7k8A/2elopvwXgdykXaZ5in3nEoZINMS9YX+OESnRCX
JNzF3d+nCF94dUTpQ620PB07uJM2xngdqh0S6/WDGlEaaWEwi5bTLQnmypMp
FkKBiaU9L2FeQ+jwe6ju6J73DWpuCV6dhN0BCUdXoQvh6CRFHMZbjpSJe2Ck
Nb32ISg+95v8ODxzsKdODtIvtvtqEeM0XqhYQl7f62wu0O5O9rw3jCYdeh8M
lf6Fpz2D8xeVr+fA9DgJyUrY67220Aw5O4Qye+KI97WG9Ebg9z46kj/EeAPK
kh2YJfjbniEe33+47mEOyBeVsiAMmaST26Vhy/22YjVIs0r61ATur1e75AQv
xZCc8iSmcxVZC4CcTaaFkfDRpxqTdKhEkbbzPJ7YPlBnN8CgDXG9Lij21HvX
IFyrOdrzG56hJxRuQv76u+G0CRiv6abcZIPn/t4w5Yfm6YPHJKECp9maInxp
6V6iDxt0xszsoE3B6vY16Jshk+4HCx4TNMLg1waXnURiemeKNwWw0aw5shYe
Wq1zew+HsxZMv8HHbAKESVju3c+5CgdblWcoEgmEh+JGuXtgitaw0SH46j31
thhctlvJkIMu68WaWjDm19K2BRyseV97GYaMt/t7w0QFKvPgROL9B98zz2CN
NufhHMgZM01aCVnp1HqaoSw5W0wP/H5lj+YIjGR1/LsArwcK5u4Qt5k5DRiS
CIQTNpQUHNB+p+GlMByPDPaVht5s+ppqkIzSjdcEmi6akzrBKy0SAx5w/sF4
cUAS8T6CjHckNApxkE2HzKUrK8/h21bZvAaoMbrHrAt+Pt1HNwjZM9ebf8N9
j977b8KcphRV2mSU02NyzGyQjo1umA/2btwulYB31+sCFOFnLkUjfSg3LXTI
Du7S9J+4lkx8nn890w/mirFZh0Gac1r7k+CM72pPAdxQcw2rhcxtCarvoX2v
PsU3mDBe3zwBw8WPh65AD30jM4oUXC+Vgsge+IjXYpsHBsTydonBf7X+8XLw
zvd2O60U4n3IPl5L+H7GZ+QyXG6ZfOYN7cXsNIJh/XLEv1g4xaNWng1N+N1d
K2C7Rf2JZtgmX0nSA4t1ant/Qolq3ecLcDvdP2QHLraT2TKk4nfqPijCAQVE
yn4Lw1SRqjRpeO+iua4aPB46+M8YNsz65zvCWkkhcw94rs6ZJQD6xiT2R8D9
F2tL0mCu59fw5/CR1xePBuivKmTYBdn4cwQG4QeL+rnfUG8qNncTnhrWMKFN
w3VKvSRhg+76Qtl8sDPfRksCLvFM7SjAdmf713rQ0U0wwhbKyDq4XYMmVWWm
flDwlY5cGCyvmD6YBCV0q6cLYKzbYF4t8fjPArP3kPKRA+k3mLnvaOYEXB+r
U1uBqsNC6+Tp+H1835czQ6Ezt3x50onrALyNxeCIhJaMHPz5TuOwFtz1VpPK
EgpGfx24DNmek6Z6Q84/9w2C4cSfsu1YGKY8m5mdTnxe2nO+An6JT9tsgrqG
nqXd0OjFovtPyGBDqrgAna/Pce9Aw7NnKBky0C57hU2yQ3IjywZhOL6yHSQN
+5ijlNQgw/OmdWPYfaIs2xFemuLR94CH7keRBsDjQzkVEfD+y363NGj+0Ejm
OYzT1WVogIo6pZOd8OLhz43fobEBybPfsInB1mkTpjOHitJmYr6af3J2H3T0
f5DJB03kbIwlYHJxO60izPqa0qAHd5857GMLqee8ZK/BP08jyPxglWZDx2No
dHIzPhGeiUxyKYDRIVJytbD68yjDe2hop/TtKzG+PzV+Apa82DZegVw7Rnso
sjDOeW7dxQzvNU8G8WQRn2MayItBPfOMrbPwmm5blSZU8eD2toBFXVyKl+G/
R1os3jDE8sxkEKQNia+JJcZTmAZnQ8plPcMKqP9Vjb0ZWjXmf++GLtpN0T+z
iPV7TXUBirfEb2xD+zOdBfTZKO83Fe3ZodG3kEPCMFp7dvo01FcJeKUKdRx6
o41hS+yUmyP85Wyj6QE5+/5wBsB7epfHIuC1KY/kNKj1+D+d5zCUu+JvPTHO
bjSnE34LlTf8DmurxWh/w8FzV95twMzmuzE0ORjH9fK774OJDp4mfNCPPUZW
AtqxLuxVhAVFeaN6OcR5zJ90W1jJXWt0Da4zF5D6wec3ruc8hryHxTQTifEm
Uhv50LHxR2kN1NW/6PMObionGX4lpj+8KD0B2wxrD61AeutnFBS5mH88detn
hux0NGk8MOaipIkY5BbYIZODfYs92Zrw5A19dQvo+YBs+RKs3cOV5wU59ua6
BMHvH0jkYmHopzWObPjUxpeiAq6ejp5ugpT6bK3d0C8/PfInXFBS116AwaR/
/m1DnWO1WfR5aDejW86zQ3me1TUh6LlYnn8aNlM9dVKFYVSvxIyh420aakdY
fy9t8gYMZaRo94eGvxZyIuDW+vlbaXnE50ysMs+JLs8s1sNvEx8yOonHw+N1
v8MnEWU709D7u0PpBqzh3HeJJh/jBpYUkX0wWvHdBi/cyD/14SSk8OfLVYDe
D+L89KCpDaueLbw8nc1xDfY+Mf7pC/2FtZMeQyNuPf1EyG5SRlUAB7Z1XtbA
B5rCN97B7Fpt8a9wQfTAyji86Pvy5TK8wq35kLyAQJC2YzFkhnsCV/l44JD0
x/Vj8KZEUstZOEPd91gT6nf91rIgxsto0V2GbY5q77ygGJ+NfxDMfjQgGws/
LgwsZ8GjgoVFL+BCJMXlJsh/d/xYN2yMLvw7DAd6hrvmoYjpt/RtKHnkqQd9
IcrRQQEldigUz8UkDJXelnw+DQsmLjxVhezyicrG0LJ0ffUClPn6LPsGNGx/
Z+oPT3Ot7omApy4SvqbCD3L+mSXwhx6PTz1kqlI36YTLhtqS3+HabgqG31B6
ibN/A2aQu8TRFKEfdj2itQ9eu/V7ixd2FN7KPgk7Fzx0FaDh120SPWjk011j
Ax+xutx1hUMO74x8YSbtm9OPoW5YAXci1N/SIy2A8n+O9dbAj99q4t/Bff85
63+FzqfekE5Ah4T/8pbh/n2vNcmLCQS3nMqV3bBe1yOHG8osRjgfg7SKqjJn
YehHX3ZNyJLrS2FRTFwnoTB9CUaFurd4wQo6j6ggKEFZrRcLyau+kmUXE9f7
Kea9gGqekueb4KFO+8VPMED/TdowdOxxtJqHF372CG5DHv8NMvoSjAPJJSYO
wmwd8k4heORlVvFpWO62x18V/meXp2wM2S4d3boAb4/MZ92A14rOafoT4yIz
Vp/CDEbG7NQS4nOlY1Yl8JeZKE89bDdPX+iADIr97QNQZ6eraBqqNEw93oBt
4loONM8JhGP0z47ug5qWvdO88JOhV8pJSMd4UVsBjoUzb+vCSqWgYhv4Y2TG
3hXe/abD4wtL/kueCoWUoiI1CbB/2+9JPowuG3Csgau8qjLvnhPXyRnt+gq9
CxK7x58T79/djFyGK1+DNclL0b68PETODCMam6q4YdCpj1ePlRLns5JCZ+E2
Bdn0eTh3xrnIHAY0GN64BNOcguW84AWXI4xB8Po9zZ8xkNxMoSwLnj2o4PsC
3n/TrdAEFVVPU3TD752djcOwOfnTnXl4emzk1HYp8X54yDxdGdpzo2PZB+Gx
3WrWQlBKuIPzNBzdNzqhAuepCyqNoO+tkUcXICXZoPUNeC3ns7g/LBN9RxoB
m6Vr2lKhnXZRSAlkb91UqIdK7pYrHdAoKiFjAP6z1NSfhjk/kmk24B7j0Bbq
cswH2qvD9sK9/fa2vLBvelT2ZDnxuVA5uwJkW0rd0IV3Y3I6bGCUl1aEK7Tn
vKThC02ULLZC4SNt3uwEmB+Uop0PrSbrt6qhcSZNSSsx7j+jq1/gvTXCmXF4
W8P94DK8yvKMjPwFzotcZmo3XFtQbeKGU7HvnhyD+nc5tM7CPR0pJJpQMdYm
3xyuLxpqX4JOPfXLt2Cp4XRqICSv4zSLgaQ+949kwVccOTvl8PFY+fgb2Hi6
ovMTMX8N6ZJh+P6LVsA81JrZUNsmxn90JKGvwPVe6so/CBPlX2oJwQqfjkUp
+J7LNUkFnjySq28Ew0wPsl2Au3+2TbtDkyit9/fhZ9WC4qew4CwhMhXeEbp2
tQSqt4pL18PI5dqVDviJZihzAJ7+VqA5Dbd8hVfX4UUmygzqSoyvvOSM98In
JxdYeCHLz+HBE5Dk/tsyeVh/h/WpLlyUo3Czgcyb7JqusPFwFbsvLOv9+iMU
NufMPUuA8fFVGvlwe+r1VjVUNKItbIWMhx2sv8C71G/YxuHoTGb/Eow4+iGL
rAr17ILurd3w8hMJLW5ov8vi8DF43OL78hk41LP0+jzUOun90LyKOM87oHQJ
3vpv598tOCk/Vh5ITK8hcikG3uS8fjgLOt0NHy6HL3/vSnsDDzOFO3yCVTfn
hYdh/PLJ9TnIrrL67h/k5XVNoKvGeMbj6uWDMPJ5i4QQ1D/NuCkFBzNoa1Xg
4fM3bxrB3sBI8QvwF3PFtDt0SDJMvQ+n6c8aPYXfxcuZUmGxm35PMfzafTCl
rpq4HuHP9Q7o/ptGdQCuNb/jmK4mrl/xWViHI2ndddQ16Gf2efnvhWSiQ3K8
kHY0ZekE5GT9nCYP9W3ptXVhshE1iQ0c3npWfRWW85z1uQNrBWnUQqFElyFP
Qg1xPdIaST7s0Qr6WQ3jj+9+2Qr1nnUFfoG/+p4oj0O60LGNJZgYMpZFVov+
ibFaazecpLBa54IS6Tw5orDpzDfrM/D7Ci3/eVhjW7BtBhNF9EcvQpqz7e23
YPYZk6JAWOYmeS8G/nbbVMqCS9fd/5VDSYXo/DewImZT5xPUXFFb+QEduSyT
5uDz9Gztf3D4Z8Juupcop6Fy4wdgusmxVkEo2e9SIgWtwweiVKA+h9I1I+Lx
T0ZnLsBTRZ2b7nBL3S//PuxzW9N5ChuGry+nQNYDTxOK4fHqg+froGh8N20H
3KX4sbcfakVVFf+C54KHw9fhi/69ntSv8H3q8xrthXde3RPkhSRFDTMnYKNC
Ypo8nPbT0NSFhuOkq9bQX4ct7So8NHNc7w58/d7/v1A4l/26Kx6ee3E2KQ/u
F3D2rIZ9JW8NW+HbzagTX2CcWDbNOPwh0P5pifj5zctPyOpwPk0GyrthLd39
dS7IxhOYJwqlfmyZn4HDSQ+Zz8OCpM8fzKD206zoi1B1V4j9LZh6vEoyEDaY
6/4XAwc+cw5lwjfhTEXlcI2pyvMNFLLeJf0J2qQxrv2Am/XXS+agyKnDjv/g
baP9nHT1mJ+6kPYdgEVc8zGCkFnK21gKhh0UP6gCq+WfjhrCT6GupQ6w2cfb
3x0adlAZ3YfJe/qOPIXcr/JnU6Dw5NrzYijE7H2tDko/ZT7aAQMv6Uz0wxdk
ZIm/YOb0tvY6LL2sQEXdgP66UaOJFRKivgUfaSC+L/HA9ASspRY7Jg8jt9qo
dGFz85fv1nC+27v4agPxvR1qrztQ/qyEdCg0qrvzJx5e5CFPy4MeKiSa1XDi
kvdmC5RoIivuhXLKfy6Nwe6HR08sQcqs/6jJXmPceCt/jAk6sa60cMEXOstZ
ovCjJrn3GbjpeVfuPJQT8FszgzFXPmRdhLb141q34OuSrdWHsH7mbHo09CXV
MMyEhpv/WMrhgaLfY40wie9J80fIf+po0Q+okdUZOQe5vjK6/oNrDaQydI3o
N/87v34Auvvk5QnC/RyBelIwR2P3mjIU+e9poiGc5iCoOTQS19nIk7vDWJeH
XfeI+4+Y5odDhj/J4SlQX1D1VjFkNiUzrYOV97iOdkCxjKU//bDGdCLnFzF+
U0tvnXg8/eUq1RuUe55XCaxQZlesyhG44UCzIw5Zjc43E2D0MYpYHfimLeOG
Ndwf5mByFWrzCMjcgS//m2AJhf7v1n/Ew46vKQl5sIc8QqMaHrd9udICX3Ft
pvQSP+dasdYY5H98hWIJFqh1viFtQv16JB3CBANuWlhxwTe8jNKiUENaj+0M
NKcL/KMBeZduvTYjbl8RDbgInwt8O3sLzhcMLj2E9j7O2dGwNmfLJBP6Lk3Q
l8PDBwtbGyH3rcdBH+HceVvdH9BJoZ57DnqmPVr6C/dn+bX814z2tuJs7AF4
9byQgyBccusTloL3ohxnlSFDi0aeIVxIz7J1gEFBpvvdISVlafc9+LbzZlh4
M/F9tuvnU+C4dB9dMXQ/J/rpFay+eSyhHbJJMV3uh2seVmd/QclLFUzrMNdA
aojqLYFAFZqdxQoTS6mdj8DJvSl8J2Dm35s/CVA3fvczHfjLW0vDGl7YdN++
AhvolCpvw4y1ac8Q+KJmgRAP33E8Yc0jbmf3zFZB7x+PWlqgwoBgYi/8sS/m
8hgkYd05vgT//fowS9qC+VvEvxQmKC/Lcp4LPvywd+0oVP15JFsWqvx0tdSA
evZ1XGaw5pDSnDMcMtV6dxNO/ZLLfwg9v1M8joZdoktOmVBGbPFkOST9Mb/Y
CD+Xfc/8CNn45LV/wBXmotVZ6Mxnk/IX0sS/0fyvFfnH51MdgMcexXQJQIvz
NjmnWonnb/JYGTY3ffM0hDGsHSYO8KakuYg7dHyiunCPuD+8MjscSn5f0ksh
xld/Xy+C9D6iSa+I2wIVSu3wv4SG9T54/EH4yyl4hP7XkzXo03HIjeod2tnU
/WascOR209kj0EVaZP8JWFWpM06AL0eOpevAAylvda1h0oXs9SvQ8j1p0m34
V91MKQTq555ai4M+62sVuZBmXOV+FbT2DTJrgYwdAjK9kK7WkXMMRm6U/l2E
/W3UH0jfo/9nFIxgggyZVSpckHGoavko9HQUS5GFfq4y5zWg9wvWHVMYyu9W
4wzF3kfevgk5UzLVHsK6R+e5o6G0eOvfDKJZst/K4LFo3sJGOPThtsdH6D6y
ffIH7HcKmJ2Fr7vPpv+Fdy42Gv7XhvlKLteuA9C3JqhRAP64ZOZ7Cjb5qcor
Q3nxs/SGUNvz6KA9zO3jLnGD+zZC7t6DevtLtMMhrzTlwZQ24nu2zD+LYH6T
aNorKCZpYNEOQ+PGWfrhjNrNzinIbhQWuAaX4uwUqNrRnirskLBCJ4noxsNQ
LUAzUBx66ebpE+Brux5eHfgxXHTTCnpK/G2/AsWFDj67Dbnsxa1C4I3DNlzx
7cTxjdT33HbifMU4qgoOXJ9UaYF0RTIbn+Fb247CUfjzfJTTInyeNiRC2oH6
uqfmLyP8/YvpMyeUnnMqPgo1b3gGykKb9EfmGjD3lCG/GZTPtp1yhq8eX0q+
CRXtqc4/hBuToytR0ILvcloGdC+4r18Gv9xvY2yEL81Nv32ApRwPioZgmI/g
49kO4nq1jOt/oR+3ut5/nehPBv/yHYB8fEwzAnCYdiz9FDRiqdBWhpt/rdcM
oLCuS7I91P4oquYGG/xU/t4lHt8f9OoJLKRyfZwM7WWVrxbByshV41fwZi+v
XDs8dVLtQH8ncd1h0PgUlJbtSVuDLhUyelRdaI9yb2+ywIJr08mHYU1nu6I4
lGuSXjwHnemPFGlDUQ8JLyvY+OCa4RXosfxQ5jYcPeR6KAS+4d5LFg9Zx3l7
c+GXwLNxVbDVe1WrBdo+Kdv43EVc77CSPAp7DogrLcI47luLJB+I7ykJFDBC
s2P/XeeExkKOCkdhllgmlyzkTzAn1YCDWntGTKGn6MVaZ2inSf/gJjQtOIk2
EdcxaLUYBV2vnEvOgAZpd9TL4MsTXFuvIWmlXNkHKBe0eW0IjozckJqFfy0u
0v6FR+2lR3Z9RH172Fq3H45XKkYLQLWgQftTcEfdX0AZ9juzjBvA2ZLIRHv4
5Fi1rhtc2XuP6h78V1n36gncmgn3TIbmMvski2CBm9Hfl/CbyO13bZBGVO1Z
H1wPkb84BS+zPTy9Bh/RhVNTfcJ1+eR/YoEbTNoxh2H2lpShODyTPchIgMKN
Re+0oeHvqntWcOBrt8wV+JeBY82HGPfb6cUjeCWgzyMOPm/5diYX+v0nTF8F
ozfSf76F1q+jKz/DX7Z2gaPwqvpP3UX4bNtmL2k32uu22l5GKGj/+wknnPpU
q3gUvg18sCIDObvpstVh79gDc1No+DzigDM8+UJi3BOqSYzVPIAp5W5RUbBF
jPZaBjFuTE21DP7uttnfCOu7Dg1/gFni+xKG4L7KBI1ZuPdN+coWJBV7l7yr
h0BwK9Q4vx9GsleQCcAjzP+aJaHLtStRSlDWXfCaAdy3JGJgD0NpG6XcYNW7
HJZ7cLYq8ueTHuLz74zkZOhQKaxdBP9Ocq2/hI45jslt0DjDS7kPLnt3LU9C
ZWuR4lXI8GzFk/IzxjX+33RYPhP/h6Lv1GEY4bTOIw5jOifJCbBgfeiL9mfi
/2l8j7OCE3n62lcgr8HYpg/cT5eS+gimTasrxUFF22dzOdBiMDW9EqqGWTm+
hbfOy8l8hvuCzDlGoetKMMUi/NdLMkXSSyDoHBdrZIRfva+GckLJsQXVo3At
pGldBu5yvpqqDi/xUyibwmHhb/NOMM/1cIZnL/F/Vz7bPYBLl4SORcH0LmOq
DLgwRTFeCq29KFpewxZ63/QPMF5qyX0IDjjInZqFNmw9s1twzOZ64q4vOK+I
cdX9X4jvwe+s8cNV0ZBCSTit+cpJCT7yuyFkAA8deb9iB5NJq95f/0J8f1o6
4y7UDnO4/QSemNPSToaV+nv2F0FJMrH+l1Dg077oNmi2/PB8H8wLeUQ2BcNb
C6pXIS13wTXKr6jnEQUiLLCr9+rcIch7U6vyOKT4SOp/Dnq7uuppQ/KBkkNW
8Kan+qILLBKNb/CB49NJQY+glulvjTj48UkdbS7Us5luqoRNLDW3334l3vfN
kvgMC7WF5keghN+XvD8w2eCWE8k3nL/zFyFGaBdOtcoBp84lvROBBh83k2Xg
+12f3NUhQySHgilc2lvxn/M34jpr4S5PeNly9NED6PcwG1M5AuH0ebqldOgY
NZ5WCoee7dN/DTPiKOk+wFEKl4+D8I5CeeoMMd6rzWsLxn6rN9rVh9/vz0Px
/fBfYQ6NAAyv0OiV7CP2I7PRSlBm7Jm6Adz32nzVDj5P1Um+Dks6JVTvwiss
UhthkOvt0YokuNKr6lvYR2zHPxi8hLEqOpJt0Icqhb0Pxtz13p4k5qd7uWcV
ZkZ/jaXsR3+xeEOTBf4iTK0fgqQXXFKOw3bbNqVz/cTnbK4LWnDq2HyGJTQU
XXNwgWOfv0r6wJh/8WyPYEtFP1kcNJWmmc6BRWfTmishlT75k7eQ0GGv/hmW
+XBtjkBea8H0P7DX5ZcyyQDaB8WIWQYoX/JfIgd0m940FoF3c6uPyEDj2Q0S
9QHieZpMmMBOoZ12J5hop5jvSdx/XOb2A8i6/51cFKSJjFtJh0ciaNNK4ez2
bZXXUDFRZr4LelfuTh6EpxI3jGdgXoUi5xbMufxrnvY7+p83dm1skFTzdR4/
vJsgHyQJf86dtFaCKsGxggZwRilwwo64X1A27vp34n3ewyp34WBK9EoY0WyJ
3CQoI51gUwhrq65wvSTm5500/h7e2sv04hs8+uFN8CQM4bxntwq9PxtIUQ6i
vyttoWKBST/zOg5BryTvkONQ9d5rpXPQUDL3nxbU+Z70whJKfFy87ALlXH15
feDuL/qjwVBssSn7GeRxTXfNgRXKQbKVsM2j9r+3UI+7ZaAH+jucLBiB58WX
b/6BHZ875UiGUL7lnpMyQqGfzvUcMKeP7JYIDBt1EZOBPD7ZU2rE/WayaSZQ
71qkuRP03OV8wHOI+L81ZcMBMPlAVUkkVPxw70E61N3DblkKM/dzHn8N8794
bXfBUpLO5kH4bCMuYAYefTl5ZgsWXe5boP1BIGxbq6awQY73Tpr8sDbiA4kk
ZJJ8VK8IJ4rIgvXhia4hKzu4cKdM5jp8yLa9/y7kUopZDoNDKjstSTDge+fj
Qshv+UrlJbzcHrf6HtZlfU/+BtME1ZQnoQvzs8UVSC/umUsxjO8jfevSHviQ
z1XmEDTsbmA7Du3jbm/LQY5OuzEtGEja/toSlgmbPnYZJr5n6aLmAzNdq9aD
YceZkNRncOsHq3IOtF5Znq0g7m95ltgMj0xmGvXA+UgN7hFIU0G+tQCTP4WP
7MAqsroOhp8oN99OF3NAo8+X7opA42Oh8jJwq1BvTQ1yLMSkm8CDzkGqTlCs
bGLWA8YnSz0LIB6PM9CMhG4mw7vTYYfb8sRzGHzG510DvCrtUtwF5wPswgeh
iryi8wx0vNAgvgUXrI/N045gPNqbkMIGS7avqPJDp7HQeQk4FMiQoAj3J3Vp
68OaLXkmOxhAKf/92gix/Z0o9YNHvMXDwuBsfoFLEtS5oqBSCHPKSdhewr70
9oH30KO1M/IblLJ3U5yEYUMnllbglvX9TIpR1L/nxWZ7YFe8y95DcIJB95sY
PDTinSYHVb+auWmNEucRTaqW0DOiissF7iad+OMNHRM8XgVDBt1wv2dQ8q7I
mRy4b9FnrQIW/FwraYYWealOPZDjTD/XCNxvlte/AM/lb8XtwBjLIiuGMfTD
hbICHPCCtdWKMJx+Ud8sDSvkOKLVoFVDjoMJHBNvE3OCw0Xqax5Q+XVqVQA8
vYfLPRJ69PcKp8MVOr3R55C3+UJ8Aww6JKDXBafEtugGx4jrNSS6fkPrNo9n
m7DMpPwy7Tjm85TyimxwI1iSnR+mvUqdk4AFl+7VKMKM7/O39YnbUtKn7SC3
o+vcNRgrmp7kB0PbONTDIK2p0EYiPOYf+LwAFqUb3qiFhHAVpfeQwU6W+xtk
Xq7bmYBv/v0bXIFuXO8qKCYIhLlfw/f3QA/lbvlD0LCeblUMtm/tSZWD8iIO
ylqQvZhs3gKqNeukXIZm2srm3vD63AHeYEgXuPw3FpLeZxrOhh8jW1sriPk+
s89vJqYnPevXAy2HR+VHYHm89doCMb1aadoO/P7bRoVhEvl+dJplh1Iqss+E
J4nvkxucl4bmtKIMatCvb3jYeJK43vF0kyNkkE4o8oBds05RAXBtUP5qJPQw
bzmVDg/0XVh8Dr3eV6c1wDybAbUu2N0pM/8dkl6ZifkN/3ZEK29C2qxActop
AkGk7OXHffDs55RCPkj552O4BLze3ntDER7wC9LVh0rSVw/ZEeOzcsavwdLp
qQQ/2MN8RTUMxmdfXEiEEjq/4wrgVcdL6rVQeegK5Xu4/8rH9q/w9uL5xAko
uBZ+YwVK2qnqUvwiENSN/Y/ugRFvZcgPQanzpZ1i0JvjQ4gcbI28ck4LjlYm
L1hAm9t2aZdhs/8vQ2+4Q3eeMRhmJX7sjIW7xnQisiHZ/JZlBZx9eEesGVKf
C6PqgZZHdvp/wrfNaXkLkN+J7foOfEx7RZxhGvN4lqR5dvjmoFy+MLy+KWQv
Dc+tEQ6qwd/PBT4bw/Uh8nBH+EvEX8cDnhY8sjcAlphqDkdAxs2VojRYZ8Xk
+5wY3yWg3QANNN5ydkEHn+lf3+GRiqLi3/AK3akrm/DVfTl+2t8EQoJn2dA+
uEutJ4oPSlsVqEtAlUwxMkXoOJVbrwdHPJ/420IX93i9a1DN+J+gH0xmsaMI
g/o5wQOJsDHsTkHBb+J7DTLutZCunfHEe/jbUuT3V7g8wps4ATNfGqquwCR1
o2XyGfSXJ3dnM0PB1DE7HjjmFnJUbIb4Hm0zhRzsqOsZ1YRSAU+bLeCPdta0
y5BK0/KGNww5MiwdDIfl0pdi4as/E6nZsCrosUoFtDHMnm2C/fpccd0wsfOd
1k84HtiyewE+mFcf3SZu19C8oZ9F/qcE8thhUvLSE2EY/++OizQ0DboppQbH
HR4uGcPjZyvSHCHDuWxVD2Icf9OsP4w2bYyOgGQ7/xTT4P3bUzslsEDoels9
FP/VltUJnezvPP4OSbvP3PwN92iPG29Cx0lOQdo5AuGl1MXpfZD95PNkPtjZ
taomAe3VfRYUIKPWRIweXPwcIG8L/6fgvuOx+uI4gPerlIhISBRKVmTvTXZE
VooiZZSVmUq2bLJJ2UVmSojKilIkkb33yp4Zv8/z1/t17/2ec59x7jnfe+55
npDIjnU72Cx/+tNjmOnKGBUKu4efOybBfas9BjkwanCf6Af4zc+H/Bu0Vjfp
aIfijiQxY38J84E2SiuQPurT/L45ObnHu1kJR2FnzJoSMzS7eGqbB16Wpvsk
DbWdbgdqQKmw08ZGUNHpm/BdKHkl8+gDGNLqMB0AE1eKyuPglwuqni+hbtEB
8WLIlj43UwNdbjC9aIG0Z5O1B+cI/Y7Uofk5wvos6S870DBt149sXk6uI7L6
IgPMj3E7cQ4e726cFYPvFLOrVSC7q1q0AUzg7r9hTtjeFTzrDFsfloz6wP0B
/9IiYfDLTuNU6PfiB00hHMqYa/oEHW9dCGiEDExbF3rmCfMLHgemYZ0GeeMG
nPxHH0+8gHFYrNecdoGwLkxWlBXa3JEgEYJH4mI6FaBIjVD6ZZjT13jbFO7T
kD5tD1VC3bseE45LqkaEwkCZgQtJ8Pn1kY3XMFlCsqhsgfA74vf3vsJWutsS
7dCrJujIGJyVNZlahiQV+l/2LeK66Y9OPLpI+P3+FQtmeGLS4Bwv7LWbHJOG
X/fcT9SAdq4xykYw8dO/hTswoEY+2Q2a0NzTC4AH1JaPx0Hva8VTmZDS4379
O3gnVCm7BgqXPwtsgXK/Mm4OwnSuPp55eKti9e8OJB6vTyFbQn9Md0GVAb5U
kPzLCd+kz8WIwSndUUUVKODAstcAlim0/bgNyZVnMp2gn6l2kA+0X19yiIQR
Wc16qfDfmjhnIey8tznzCT5xu5vSCCNTe1R74C/bY3NTMCWRO2YDWtrEyhIv
I19xjl6hgTKnjEvPLhPy+4/BglDOUd5WAY4+FLxyGab10kubwsYvMzT2kIg1
pP8xfMyZmhAK5UUnVJKgGnX4wms4c34lroywvbkp+xUGqG4u/IFXNAcKRqEu
hYL7MvS9a3Bl3wrycI1B8aNw9uA0AzMk7Z1a44HPD3bVS8M/HAeDNVYIz6+o
5Y2g9QfS+TvQ7Ulfghuh/Ia2YgB0cvdYi4UX9VzeZsJDCulu72B76TOVGmiz
eeVUC7Q9JLQ+AHdtaFvmYPy37Jc7UJTK4h7ZKvKGkzu8DPCcYPs4J3xqEJso
BkNsmzRU4Hdm/v0G0LX52qfbUK5R4ZETIY6yXtoHLl10PBgJpR7n/kmB7WO0
rwtWCb83UHP/BFWeXrnYCLuacqh74L6ahs4pyOdJmbgBH2hYGxCvoXzNiaO0
8PPai4azkFUiwFsQjrzklFSAN0SyNrThvnGOChMYJNbmY0dQS1brMZQOLGIK
hUO38peewXOnFeterxF+V58bXQY1HE4afYVPqFkZ2mECg9KfUTjw1ytkGQ5q
uMjuW0d/tpG3RAkXMtOymKBrFJkZD2xtb2eVhhvn6FYvwl/0LD+vwThL2dw7
kP/GVX83mE6ZdCUARgk5M8fB+fEjg5nQg7k/7h0ktp5TqoF7zakWfsEJP+ln
A9ByLUl9jhDH8OvgDpQ3bGs5vIFx9INDDj3sDo4N4YT1nk52YvC28EMNFdh2
S5rZAC4GCo/fhowSn184wQ2RUDUfGNjVM/cUki1sRafAMt29sgVQp7Rp5eMG
Yd7jQdkPONdAHtINPW6t3p2CamM7OhuQ7dZZCeJNtDc9S1pauBWUNnQWeqZU
JwnC/iR6NQUYUBgyrw355F7FmMD4CRZpO1hoKvnXHWaT074OgQ7l+s7PYNWB
aa3XUIhCTLQMHnlJwfwVvqxL2tMO3Tp7m0chXU7g02X4jCNPcd8/5D3W1xco
YW3Ln3gmOHAhXpYHumRnzUrB08ycmRfhWOzSnWvQos1e5g7MorA75QbdVxP2
BBDKrX/si4UeWb1vM+HfSg33d1Dqtq94DVwOlZr9RYibsEgYgOpnTS/MQTe1
hKVt6GpNmXN4C3lp0kVreljs6inMCff++XtQDI7dT+9ThietK0v04X7732G3
oduJ39ed4ONjESw+sOqazcBTQj1d8zEp8BxntWoBPPLbevcjnLCXK/0BiciZ
nbrhy++6AlNwd+/1tXW4UVVXdXAb49MR6kgaWBJ29PZZmFj5SFgQhtM771OA
W8qG37Xhf+6rYSaQm0jwkh38/vfC4cfQOZSrLgTWqXW6P4MRTRZCr2He75tz
pYT69tXl1cP8//zu/YHPtarER+GSL9uhZZjxoqF77w7GcwXjQkr4UXjDmwmm
tiRd4oEO1KLHpOG6q/qvizuE/1VrDLgG929WSt6BF6h6/96HNi4qqU92COt9
TAxiYaGGMXUmXJUp7XsLdTdX3lbDG31sT39Bql9H7AYgifyE0hxM+ihKvQMX
XO06D+/KyVEvH4imh8bMHYqcUO3M6rwobBP3TFCGdxW0FfWhznzW5i0oWM/7
yZFQLnQxwhsO2/naPYX32C10UmDWoo1QAezgVzryCdYdVO35AfcwmCV2w+Rf
XWpTUDb2wOI6vEixFXNwj7ycteEZKRpI9YNmlgX+22zPFoCmE9bO8pAtOvyS
Npyp6RI0gbOuCyftoJlp7p7H8NyUa2sIPCV/LfYZjPi6pvIaGvh1LJRC+vyF
2Hp4hd9e6g9MeZIzOQLXZV8nL8HoLE2zvf+hXAKtCCU8zHyDjgkeU3XcywN9
vFnHpQjbH5s/XSQYnex/DXJYm8regTeCJubuQ9U/txOewFF2BrlYKDGXM50B
E3WPvngL2c1+GlXDn63HOH9Betr5fQNwPMhm5C+M6hCv3YZ2AW7PD++Vl1sp
irGmh7d/7PJwQhI3kQlR6D2zEacMi5cmFPQh54jtwi3oay+W6QgfTPWaesOs
pTtsT6FPjv1yMryhq1+fD4XtxV98hLUlA84/YOaJONVu+MJ159gUbKK792cd
2ki0hB/cJy8XoqesSAOjE6Y2WaAG61yRAOxK8bSRh+7Z5pza8H5LytQN+JmZ
t9AWnhcTfOQOA4r4NUKg+oQ94zM4pCE6l03YL/L6Qymsd/rkVQ+fhZ1W/APT
UimIRuH7cyJVS1Ah46fb3v3ycvEddryUUDz8zTgjfETDn3YeXt/4ZCoFs6O5
2C7CueOpi1fht7z8Giuo+7om/j7MUrO1fQLpvx6QjYU1R0YPZUKRveTf38Lh
omHfajimkyL2C5K3akz3Q4b8rWd/odefFM1tWKZicPAwkbzcmze3G07AD9r8
iRxwXIPOWRSSnp3VVYa/Uj7z6UM9pSmi23Bkx/qnI/wr5hjmDR11vyk8hRFR
W/PJhHJ9Wgn5cBVf3ke4w2+z8J3gPdO8LlgrvsdtEj7SJdZZhxQ0JMIHD8jL
LbxKO0EDnbaLN1jgpcdRjQJQLrUpUh5+DGNW1Ya/ubKXbsDPcXNxtjDyoKOk
O1Q4aTIeDP0vxj9PhEcHqW9mw/71V0KlkHzqHk09DNy7ttMGj28Qj43Artl3
VUuQ1owyZO9BebmKS5cVKeEenoOLjDB0Rib+PGy++VpKCsZOrI2pw888HPFX
Ya40hZ4VnC1fYLoPA5Rdtvzhg42FoRh4ZsqpIQO+G0jOegupUtpdq+GFrf2i
v+AjBpWZfliZXhb/F95gdpfbho0+PVOkxGgPTX4JJ6BcHfdlDtg3IXFcFPYc
a5tWgj5lI1/1oJJuVtYtaPgn29cR5op4XfGGxyfrmZ9CAdHR/mSoQn4pOh8+
CkmU/widXn6b+w7dbo6ndEGSLA/DSciomHViHUouWQ0fOIR+h0epiBoSdcz4
scAiDwMjAdhS1sUnD9Vz2/7ThpJ0m19vwAEGvie28Lqzs4w79HWbXQmGDkNp
eYlw1uOuRTbheEzv6VIYSKw8UAdPdD1KbYNONOmWI7BchVJ4CZJZ3Dy4l0Re
rsOsoYMCbh2++ooRyrat3TsP9bxrRaXgofXJf+rQr3nhw1X49IGrsxUsD7jC
dR8GD4wP+kOrjBMJMVCT0lM3AwrpvKV+C4/+seutgpN/v+U0w/uTUx79kGpc
0OAvjB8h4t6GFzbstkhJ0Q4oC6pPwBtDux4c0KnWRVgUMim5TChBM3uBeD1S
wvenrXILto2HbznAUh3XMi9oPtnoHQG3fRUNkwlxvB9F8+HAqjrdR7iXRHfp
O/zzuaa6Cx7x6fOfhM1nr8iuE84f/Xj+wGF5ucK23gRqyJcxKcsCDRTypvnh
8aHQFDnYEH71lhZsGmQXvQHVj145bgstNaa3H0HmKfbBYOjz+WZ5Ijz7dPpJ
NtzqX79QCnNpRZfroDm9fmIbNCFPkRqBcquJI4uQ9uto9H9kaIe8lpcp4GG5
uVOMUKd2eoMbCscW9ktCO/u3X9Xh0ZMdr6/CvuJ6dysYFNcsfR++/vFj3h+G
X3BIiIG1Vi3SGdBqiH6sCLZJP4qqIpxH7KVaM3wzSnOkHxbqrg3Nwm0d99ot
6PKZNZeUHP1ItHz4CfjWKOs2B7Rz+sElCnl6IsaUYFhabaweVJLwlbsFl48M
TTnAO4Hn47wgV9mOWgRsPWJKkgyjmc6150HfAKOCCrjgZRP6HZLHfbvTBZ1k
FeUn4ThpGcU6JJHObj1wRF6OxuZGGDWkoJWSZYEi6p5/+aFvGNcLOaiw/khH
C9q9fkpxAyZrnW+zgYzNa8mPoBbZH7tgOK73RiER5tCx0WXD3TusMyVwzt2h
tA6GdRx81AYzKQVFR+Ct+MD5RRihG5/1HwXa1S75TQr4o7uUgRFGvFDp4IbG
wv9iJOHh9zpX1GHDsfPMV2GHysScJVQ4ZVflCqeshCP94dG9h01ioGufEmcG
XFBsmS+CLLPn3lbBnayH9s3Q83gTez/UcOjrnYVKaWmRWzArV1yNlBLXEe2R
gydgz/mwBna4duRKjAg88J+YhRKk1/GU1oNRk/y0t6CeYcO0A2RuqS/xgqnk
FW4RkNKASCAZNkuyj+XBswoZMRXwkSvxhe9weLRwuRPSqhzKnYA0Vim2azCH
iF7mwFH0D0fa6Knhx7JzO2egOf/NXn5IT0X7Vg4WfVt8pAV7+oUkbkCHgiNz
NnB+KyjxEdTcry0XDJ0sOycSYHxyWlwWbJNP0imB69WbjHWQf8XkXythv9B2
/zB8ozv6ZREetInK/I8Kr2NY2I0C2gdESzFCymd1i9xwKVUxSRJeye+UUYeK
f5lHDOFpbZ1wS2j5XVzJFY4tJpH6w6LVnf5oeKJJqiqd4IeC7CJI5MAVUQVp
9mzdaYbPfB8L9sPfeoyzs5DXKTJhCx7b+k+W9BiunzqWMbpjhP7zaQQ7vB77
n4IIdEoc2qMEExKPN+rCoylHs8xghZZIqAOh3P39jl5wSS33UgQUaV89mQxL
9vztzSMc38yPrIDvCmVlv8PBL8lTnfCn+8+YCbh254TSGtzWrN4loka5wZov
x6B7HkX8Gcj/4JcDP8xpnL8kB8fvVnFoQf/7tlvX4Ypi4xcbeF6G3e8RHJxL
kgiGmTY6Mwnwxu/+Z1nwWnOXZgk8fvYKcR1MSif71gpT/ZbCh6GLxeS1RSjb
rs/1Hw3y/FiqPRTQQlK09RS8etI7gxvqMjnYSMIuKZPz6vDOzYxJQyhf0Jxm
CVWHbxu5wqX2Bhp/uMhl+SsaWpW/CUmH8b/H1YrggT/N5FUw70F4508ofMQz
uw8qk4o/nIWyJTnqW1C9VJCOlBbtPF1imA5qHj+bzQ71yjqsRKC2SRqLEgx3
s+7ShccG/4SawR0JNXkHaEY2vOkJZ5paysJhtNc1zxeQRHZKMw+e63jLUgFr
oyp3GgjxJTntnfDaYFL2BMxeP3dvDVKY3Tl/4Di+3/GU4WOQ7eDzqDPQ8AKV
HD8sC6Sbk4Xai9Wpl+Al817j6/CWjB2bDVQRUdl9COn5iQaDYNgvktoEaP5p
NjkLkqSdtC+BNf7NAnUw3Jx4phU+MQ5LHIZkLCbyi7CpU3RiDx3ac5ZS5BHY
u7pf+RS0+a1Dyg33OEkNSMBpyp4qNXh8pSLLEDKfLg2xhMvfZ8xd4em8On5/
qMje+DcaEnGQPE+HsS9s5YvgqqXNaCVcEYoP+QmHWj2l+qB07eC/GRgUI/vt
HzQLqc0gOYH2xxEaRAf9GA45skMHaU1dEVhUrcOqBN/OvxzThR/IlOPNoGTu
XjkHGHhuc8wT6jBqh4dDpj/bUi8gkbLOai6cCzErL4d8HgfDGyD/CXO7Tjig
rqk3AX/efCm8BnVrvpMeoMf3HGjfcgx+YH8UcgZGDeRI8UP+mI1JWTgWLRpz
CV6PvqpwHYpYeq1bw4oLyqUPYaIBn28Q5KjQuJoAzS+mCWXBpIu2FCVwb4fk
2BfIM6X6rhVaLDK4DUOltreCi7Dy6s7EHga8L8bahCNw5Ge0+in42kFoLzc8
7Gn0WQLeL3nhrQbpyDvUDGHE2UBaSxiXc2fCBX50mC73gy5lgWHR0N6A2igd
5sUfP11EiCeWGKyEKhb2ST9hie4H/T5YK6RBOQuNx/K+/4NRbIl+JCfl5TLu
pcvSQSe9tl02WG/46YswfPvOK1IR6sSlmOnC40dyhMygTCrFAQcYK+j+2xP6
c1E+D4c1vuGmL6D4XA5jHrwvdLO9HGqdzglqINRzf1SyE/ryv10Yh+1Gh3NX
4bfUSRuiU7hv+KUvegzWvdQgPQN58+dG+OA+q6xKWcL+HpL4S7B4+sft63DZ
go3dBjpyRA08hHlFy0+DoKWeqkwCdLuRMP0KCh17lvgeGtesaX2BDIGOVK2w
/FnXyBAhTtyhZgF68NNm7WHE9aStFngEhqpTmJyCL4X6Objh8me2cQnC9pp/
ghrUUPRQMIRRSkcmLWBEZXu4C2y4ZiHtB0nISjajoHDian0aTKdKyngD+b67
BlVC95OC937CipxD2n0wax8nyyxk3pcw/g9e5Wt4RsKEPJzb6wIdzN15O84G
TTeoQ4RhiV27iCK8mJMypwMb0uaKb8JmytWge7CMQ9vaE27HKeiGQ+GpJrEX
8FnRU6o8aFYs0VMOrSVvRzfAOMkO2U64ZP9jfByOMayGrcJDV2rEiZiRpybH
/KWCRf0WeaehlWyJGx/MZajWkYXXjE+JXIL7OPtOXIcvWPtXrAnxp7VqHsIW
QS2fIDgqNS6aAEV+rI6/gjz35aLfw349B7kvcCPXbOk3PD/XnzcEtVm9HBfg
2hbDhT2n0a+ZizMcgTM/g1ZPQo11viYu+OTXWLIE9Ex/baUGZbtjOQ3h+TdG
wxZQQehVrAs0Io1U8YPkybLbUfBZoUFJGpR/dsH1DbS9RiZZCZlY9xP9hOqe
qi29MH7eP30GvokNdPlHKDduokxyBuPKsM5ROtgdzPiHDbJ72kQLw1A/fi1F
+CbdglQXPiamqbsJmz2jPe7B8pRoUU9YQPR9KQzWzCa8ew6L1Ace5cKj3/LU
ywnbw8snGyCJxIP5Dvj8KWnVOMwqUgpbhbEa1fpELLiOvzUePwYbIz1/n4Zj
2XNP+CDZKr2YLKQLH5/ShPZCyynGUGdlzdga/hZ/eeYh7Dz7ZjEQRu5RaYiH
VmOkr17B1Zpf3u/hB+sR/S/wFa8eYyskp+bsGYJNLmvhC5Clf1dqz1n0EykO
k+SQhbc+5iS8p6apzAVLDP/bJwGbDpA3qsIXghovr0CmxKNBFvDHDqOdC9S/
eeOiH6yfHGOIhl5M6/1pUCZnOvYNZDTYVaiEA8WRU01Qck9ceC80/KkhNgM/
sor+3YTdJfxvD7FiHNDgCDxO8PLMXTaYOZupIwxtzEZEFOGxpTJKXchAX9Vz
E1Zw/o67B395qyh6EuJfKE6FQZ1pvdDn8O5XUqFcGDDbPfYBnnGWfvkNMuUb
O3XAFT1KrXHItW0gtAoXHWsYiNjQvlsatqjgk5kfjafhrydPQ/lgcA27jCzc
3Tab0ITSgTfCjaHHJWYxa5g8qjv5AFrM9aQFEiy5YhkPc7QMJF7Bd/qkJ97D
mPTP27WQ2Ju29zfcl7b3zRBs+nvbdQHSVtLy72HH+eJej5DDFdf+yJOQ2EdU
lgtyJUjOi0PH0diXqtCb0tn8CjS9zcRnAcV/tOx3gU7zIr2+MJ/5bnEUrK/O
DkyDY+eDDN7AmtDgk5UwKFiruwnSGipG9kKezdeKMzDGPWpjE94UvvTmEAfG
zcvitsfh7N1WHja4FKy8IgQLjYs/XYDEI2khOtAtUO36TagkXMJ7DwZuVO16
wAZd169hkOx7bdBzGBc2pZILyY9pE5XDfMsPld8g29TjBx1QKNaPfxxmDNVP
rcCKB70v93Oi3ZzataKCHbTEQqeh583/DvDBicjgThmo4vE6VxOuqmm5G0N7
hq+q1lBGiJHiITyvktcUCFPiHvnFQ0rVbuFX8Epd4lgxjO3ujK+FA6nk2r/h
SGgG5RAU/rbVPQ/tPM4X7sJdT5YQ8nPIv0gL75yELPEBF7jghnIhlQQ0tTjz
RxWWewSGXoEz8jxSFpDMPXjCGdreoozyhXfcP8tGwY8Fd1dToYXbbmkhrKM3
Cf4MKfXe3m2Cy9GGl3thgQSr0Aw8R5Z2+B/k8ub4c4iLMF9tFXkcqljdVWCD
Z6lPzQhBt/m6iAvwGssZER34Ru/LqCm8kZCcZg+XfL7aexCOr7tphsFm2nNC
z+GnZVGGXEI9mV/+fYDyXmxN36B2UG5EBzTypLkwDkdf35hZgRx/48P3c8vL
VTW4CVJBoWGGQWY4pL+QwAtv59GbysBjh5yENeFdQUtaY8hHc2nnLuzw8x16
AK16GcoD4Z9oGp94SL7BKPEKuv7dHi+GZib94bXwQLaZ6G/Y+ePz6CAMG55P
nIfXYh5e3YV23zxYyc/jflKWZZcBDp/SGTgH/X+1VInD1TKhZ6rnCfnhAcsr
BEdvs1vAt9IC/c6wYYY2whcqBwZLR8Fa0t+zqfC0vnZqITQuMjL6DFkaJZib
oP6v6rkeuHVrsXYayl69nLQJm0077x3ikZcTNf8ifxyeMJUgY4OfNKmbhaBQ
k3fwBXiO/pmcDowhnl8xhacXOXLt4Y5pgLkHdPFXPRsGV0pTxpMgPadVXg7U
XPB2/QD3lN9W+gYPtgQd74BeJUpTY5DHNapkBbKZPXq8n1de7mvihAwVtFA5
u8MM22Nef+CF/6VIOcvAa9GK3Jq8hHmgH8NGUNmfKOkunP9vyvABJAsmYgqE
x3cP/I2DD+vYq17CGL7VmGLouf7CqhZmv58X+w1D4kv2D0Ft0s/18/DsxkHv
XbhpPiVIzofzDrYMM8Drr+iizsEw2w4lcfi1WnSvKjRrvFRvAHdiiePMCcfJ
feydYYza/CVf2OJodD4KFvjI7U+DTB/lGwthNqVj4GdoNF8p0QTFH46N90AW
Gf+n05DrnbXkJtSsoZ8l5peXq97NyaKFt2+bObLCVbOjmkKQSfK9wAUY7eFw
Qgc+60hdN4Wuwizf7OGWmUmwB/QTOSIXBtnLemeSIMfy48gc+EifROQDDJ/5
MvAVZvGwxbZD6VOL18agWOIA/wpMW3Wm2S+AdsMcsXMURjxJGmKGmjfqy3lh
1NaMnww0dhSQ1YSMh8/PGsE2H8bIu1DoQaLQA5j1/XRfAEw5s+dpHAzZMNR+
Cb/3bzIWw7Am1381cObLj/4WuD31+8sgofzq44x52NgW47QLF0xIBMkF5eWk
rCZHGeCZ1tXwc5BtU0pUHKYKJQ6rQLP3N2IMYM2TjUvmsPh2HLUz3LIJG/eB
DwdFaiNhnY5rZipkflnhXQjniQL0PkNRgTH6JmjgFtbeAzNWO4KnYW6mpOQm
PLrSMU0shP4qr+I5LewiodNjhZcpyo4JQdXSql4FONJakn8Z5sbu9zWFXl4v
De2hoPkTLg9Yxx28GQrFyGmrk2BAtJF3DnxRel7yAwy2F138CkOjD2W1wxDv
JyZjkNagkWEFVmxZ9OwTlpczuTr94ih88+30bWZ4vUOflxdOpz/cIwMrPlL9
1oBXHGbTjWB0r7/dXWikdVDoAVSdXVkJgKES7O/i4NjgPvuXkKmolb0YGpd8
6auBx17JR7dAoXeWGoOQZ/0Q+Tx09HvZviNMGH8/Z5GJYJzS/OfOAPnsJnTO
wSjN92ziMLeufVUFLlgWfjKAb2v13c3h7/O7/M5w87LxkA90/1gSHgldslJl
UuHolz2rBdBEIr34E/To4PFsJJyn8bteD6SjpBechm4PVak3oVOV2AKxKPJd
H/0qWqh+3duHFbbdzxUTgmc4oscV4AA329PLsNVBRNwUZiVujtnBy343kh7D
H1eu3wiFjt96+JPgf0pNx3Kgjdbx7TI49Hxn4Cu87VNW2g61d/K8xiDP2G/J
FWi678XMPjGc59yV6KOw+8JDUWa4UdTUxwPFjdtDpeGSt7W6BjS5dP+EEWF/
/ML6HciSenDADY69mKsLgIP53ZlxMF3c2PUlNDI+LFYMc1Ymp2vgseJj0S2Q
8mO2yCDUbLrSOwfPmNMF70A3H0pFMnG8H7fdwwyQ/bjpECc8o+dXLQatGVdf
qUAh2qAgA5gg2mdqDvnmpTmc4T8zs0EfaPLpX1gkjG1nFE2FS1rqQwUwidjq
6SfIcHWvSiMMPM5I3AN3hAJ+T0EiEtPXG3Al8UAgsQTiySgsaeGvq79kWKFl
JddhIcg+INKoAAN3ov0uw6u2KaKmsNPcYdIO0vh1JT6Gbq8+XwqFR6sPkyZB
6pPfm15LEJ43TSeWwf0y+2y+EuIrXOXa4Y1yUuoxeLHTeXQZ/lf+t3CfJF7X
8K7zUbjOrCTIDH+LiMzywASftnRpmP1B95oGjLqTTm0EnQ3+ttyBTskFkW4w
d1dbLwBOH7BiiIPvr7JPZsKmkVcf3sFI7QehNZDLWdm4BfoV3mAbhHnKPdNz
cHjXOHcHsgaNWZFJoR+Qp2BhgEEPbLs44TKtY5gYVGhsUlCBI9z7d/XhE17x
mttwU6EwwgnuF+i/5QPJwikkI+Eese9HU+GHmX1jBbDyU2XRJxhYa+LSCD0c
/vL0wIO5DINT8PP+xtANyM3UIE4sLS8nlxY3QwO7Iz++PAsdHiTeFYStNhKS
CtCrO5n2Mjxp5bVhAlcrubvsoLm19ZvHULcy7kEo5Dk1JZQERxLej72G5ybO
PS2DpYcvi32FPQrCw3/gCRnnqFGonMlzaRnyhuad2CeD/H7+1SolZGH41ssE
0zLefuGBZFXGGdJQTCrSSQNaBk4KGcHAFdepO7BxTi3GDfYJGIgHwO2qhr5Y
6MQwFJAJ/1WvSr+D16VSiGoIcXoGvb9gtp5+1QDkD7uYPQcZrQpDduDb/slb
ZLL4fLbPnGeAbWXfxjnhMdG4aDG4/1u3mAphm/JMnz6sp2h9chuWH1iTcIKf
5zS3vSE7k8SPp1CDmPpVCjR3XAosgJIZZ2w/wc4YYfVG+E/0zoke+Kq1qXMK
rgzrh2xA++RUEWI5ebnDcdGDNLD52Y+ws7DfR0heEC64lm8jO5bz8j1bow3L
d9KjTCC9XruNHZSgNb74GCr3+7CFws9NhhvPoOqbfZWvIUv2fvcyqMF0S+Ar
zBASH/sDG+0F4kch206/+jIs69zet08e7cyduIYSlr2kD2KCXBKMV3hgg788
pzS8Ymi6fREyKh/6eQ1+ozV/fgcybVWYu8ET0VUcAYR6ZhLHYmF5nUZyJuyh
HdZ/B/+jHThSA2lKhb//gr+XngUMQCklBpU5GFTAQboDVS1qfx9WQD9G/zSN
Hg64+ztzwirVWypiMM+BnFYF1hr+7teHkmcd0m/DEoPzZk7Q+RArow8hjqb0
z1MFwjoE66AUOPbpnFQBpDB9uvQRfivffPMDbt5+8KAb3mNcV59SIDz3pTyz
AT/NtP47eAHviymrhQaWynJknIXfp8/aCMIHEpHnFKCk+1i/NvSxVQ41IWzT
2IrawdYbumPucD5F/FkIfEgpfvUZrNXiPPsaHm3g2yqF0aOve+ph9+DZyj9w
5N/X56OE88352S5DHgpJ3n2KaN+knKOUioT1CO5PmeCMc4QYDzQ44j0oBWUv
FIRehHVmFArXoNCZpAN34NocR/d9yC7u/OkJpLNefRULhff4hGTCk+Sst97B
A9smXDXQcuf+2C8o91A2ZgAGkWpLzsF3y8oD24T6eib9DyvhfqcxWZgeunpR
rXDAX9//1opCu8zedGW4fK4rSB8OHae/dxuyS5BdcoIPXWIYfaD0dvTAU3iy
UTQqBd62z5UogHuZiQY+QgP/Tv8f8FLNtFA3ob7WAwuTSoS80q1sHdZqO4Qd
VEY+RSRjQwMf8X7VOgvrt3z4BGHh/YyDCnA/6fsmbXhq0/iJCew+ckrYDmZ8
GRpwhxY/F0NC4OyVAalnyoR1YR9WsqH/DNX7UphX6uhZTzjucVzvD1Scn+Md
hb/o75EtE2TKH96rgvvK5d8FlPBnW+89Jvixn5mLB/IZPh+Ugiy/V6MvwvtZ
D1WuQdOpmB0raKLSUnYfnkg89ugJPHzPXzEW0luaHsuEZfMzo28heX5hSTVs
GWh98ouwPfdcdwDS9gszzEGLnqjebXhN3jHhsCraY4fkZXpYYFlMwgkXqiNq
ReGSMYmnMrx/ZldSH6oMOm3dgotK+ZWOsFwwPNgbnkv5bPQUrhzZ5U2BXAHh
+wpgYMFS80f4XOlu/A+YTjN7tRt+sD1ON0WIN3ZvWYeXlDf8D6ohb3dyEqWB
Fo9OTLPAetfJdAHo8TLcXB4eyKkX0IZvnEQOmRDi9/cM2aoR5oXDKtyhQIVN
ZAh8q/bN5BlUqcpneQ2fdqr3lsLzZ8pD6qEe02WRP/CDlsLQCBw4YxO5BM2H
M9X3qmPcbfOjoIStqeeHGCHTSefP5+EabVy6FPw4wuV/EbLtuX39GhQYsWG7
A3tiywfvQ4MrJE+fwFen18VioW7I+EAGZNh/IugtnGUSF6+GSZamq80wkK++
uh9S5m8m/4XJfRoB24T4zVX7wxfl5URECi7RwwvPNRk54bek/H5R6FgjGaUM
DZ8aSunDpkWOoVvQPGTQ3xG2dafxecPUkfiJCKiRTF+YDFc3rgTkw8+vL1l/
hMObmTo/YF8GkXA3/NTFRTYFUwri2tYJ56EeDTuoQZjvGJKggeoqHYMsMEtL
4okAHC5Q5peH2Ssl41rQR3oo+wacO1N13xZezA267A79b0UKhECNa8XUz2A+
3fmFbJjBlPW5FK7MynrUw43Nz/x/oKF+ZP8IdCC6G7wE95omiu/VRPvqjJ+j
gIV8v3MYoci/d/bnocANUxkpyOLURXMRvh0IXLwKF54nf7eCgtYFSfehVuaU
2RPYGxx1OhauHNbuztAkrAf6FvEWvpo5q1gNT0fYbzZDV/eton5o/5X03l9C
PT9+Cm3D+psFew5fQn7ilfPzBKTPcE3hgIo/he+JwpI2NVll+JLmC6k+rGOr
+3ULFqiXPHWEIclzF72hjO860VPYRkX2ORly3aRxy4cX3SgEP0LdS+Hz3+Hj
pszCLqhyecNlEhYOfL2wDpWc7hw/qIX+54DHLDW89kHxMwvkPMQTLAD3dwhp
y8N1dYaj2tBPt63xBrQpnvOx1SLMV5gIucPIHwGjwXBvr0tCIozo2tXLhgKh
xSdLYf3rtrk6mKIz+bUNeh90yRiBr59TP16CBtGJ2nu10T47dOkp4UcTwU5G
WGJGEnIeqnxwEJGCHdtRA+rwv+makKtQXyVc1gpqrKjsusLz+0Yb/GFiuEt6
DPwTtuOXAX/N2N99C/dRaqlVw8czkvS/YEWbQE8/lKlrDv8LVRMLxLfhieHA
QdLL8nK+vJ8DTkBrmUpBDiiq6DYlAm+Y1ucrQV57Y1892Cz/3vIWfJQ6f9mR
oH6KiDf8z6SJ/CmsLOH+kwxXhLXC82HfuKHUR3h7/NTId1iipxnQBcu+JvBM
wh+1UgNr8JlKRvIBHXm5zD52e2roTMZ7iQXmsjwTEoDX3zackIdUt3zXtOBJ
PZL6G9A0/vETW/g6n0PcHdbuFxwOhro3XwQkwr2uXbzZkHjSfLAE6iVlPq+D
fEH25m3wxb088REY7lxNuwTlio9u/KcrL9fF09BOAVlFS3MZ4dPqdMfz8PgB
Km4pOGSl1qsOVz78C7wKCxLYRK1gxN3VKVddQr61nO4Pi2kUbsXAJxyS3BmE
OCbd3SIoE3+mowquxlEUNesS7m+m/fuhECeTzl9428ODZhtmP9ptIdWTlyty
4gg+Aaf0mOQ4YDrDq1URKHCoKE8JrlzxtdSDB+9usN+C9VJhcw7w1n3uci9o
n7YWGAHHiTmuJkO1XHXOfCj5N229Qo8wbzBX/R2GvLv3pAuScLEpTeoRnjP3
71mH57j3fDigj/vtYQZHavjw2jMuFmiq8W2MH1ZOyqbLwXsaA7e04LVwtvM3
YLu+3K4NPHudqu0RXLnm/DoYtnZTP0yEWq76itlQNzrwUCnskt7ztQ5m8xl5
tkGyM138I3CJrG9wEUaeOBD5nwFeZ3uFCgWM9WMlYYSkby3aueGWw4V8SQPC
uj7TIHXoJzxkfhVuxB+TsYL7RF6S34d8pY4t/vB082RgDNz5EiuSAXN45AeK
YOr7h4FV0DrgrmgzDFBlXOiDhlqa72dh5xpN4Ba8G05jSXoF48qNY5onIJ0v
BT8HfDv4nUQUDm3c+a0E16xehehB7s1U8VtQJefqkAMUI3IP8IKuPHf5IuAD
tW+DL2CDYvSLvCuE+4C+uxXwTM8+te9QVf+wQBeksp6mn4TLS2qba5Cdm/3b
AUPCdfw8gBr6/70pwQJbxOlH+eHJE6RBctD41XUeLeikQ9l9HRIlHImyMSTk
EybXHsFW1z6BYHgo+CptIozgj93OgjpFMX0l8KOp37s6+F1S6FEbnA6+IzQC
LX/NDy3CZ52rgf9dRT+X9IOXAs6VOfSeukpYl3whmhtuTDAYSMLdAzFn1eGD
hNZtQyjpEN5jCeX2G1S4wtjGs7H+sKD12K0YaM4myZIBL78+1VkExS36n1TB
6ANTQs2wOYV3vA++/ZD/fBZ+OmVwdQv2kmieIr2G+6zFL1N0cE+C9Gd22E63
GycCzWlP2ClBFZkXMnqQrrXs4C0YcNj4qwPkHyj38YJDAhsSEbBSPn/xBXzr
dDM7Dz6uIL9ZcY2wnrDt1HdoGHN8sBPKa33LmoA1Le+c1qBSpYHCASPCOgQT
KmpIzWk6fAZ2EQu84Yf5GgYP5CDzoKWUFlRxO/jvOuy4LF9sA10en7J9BF/r
xLEGw1xPov4EmFcVGJ8Fs3ya9ErgjyiKE3WwMvfUeCv05npZPgwDKhijFuF/
6bSW/xkjTzpJJUIBD9Qq7Z6Ced17q7hhGQnXI0lYI/GcVx2G/KzrN4TG7z1D
LQlxSzIyrpD8r8ymH6RmelQVDRsaHKLT4fHMQLsiuOVXqlEFB/RaOZoh1c/1
nT6o7E3zbRa+MRb034KLpQEipNfRDn+eGaSDDxZCA9jhvhYLARHo7O8ypgjf
BPBm6sJcjch7ZrCeLULdAZ7Tb+XxghXL32kioJXVg9UX0DBdqz6PUC7N6UkF
FGnqEvsO5Zg8hzthg4N94AQcdJTkXYNbNEY9RDfk5bwSUyOPwdrOSoMz8Eyk
+Hl+WHFThUoOZmzXbV+Cp4Z5h67DJ/p5pTbwnfI5j0fQedpLJBh2ydCOJsCV
6YngLHjxdDZvCcwenOj4AvNfZAW1wmPee9SH4VPbefpFuJn2bHOPCe4TWWf6
j8Dm+4k1p+DJ4PEX3FDijLuNJBSSesOtDg0omgYM4Splf5AlHBes4HOF98RS
u/1gYGhZaDR8kbeklg7Pfi+lKjIhrKv6NFYJ/yy9qvoJNZOcU/oIRp50n4W6
SYe0t2A9M9txUlN8Pp9qWuigz+VmX3Y4Y14kIAKrkqlHFKG5UEG8LnxwIfiy
GUFhu6MOcD4rtdMT5qhPZoVD39aExy9gXsZB/TxCvSHFHBVQOV9+tQHaLyuX
d0LKhxoPJmB8jb7QGrTSXpwluon7IOfLmcdgq+Ku0RlY30pMyw9bbIzbZKGa
zEj8JfjJXs70OvQQt+K2gQ925LcewkzyNz+C4InyyaQE6J7EdycL6jlt8ZVA
KVa3pS9QgH2goPUmYR23utUw7PqszrwIGT3DO/aYoT8UHws/AoNNH6uegmFD
X4i5YfnXr80SkD6IOU0NepTWuxlCok80ly1hXE3fWVcY8ytz0Q++tDhXGg0v
mCCRI8SdS+cuItR39VhfJSxorA76CVPD3or2QbLI3NkZeJtEMP8f3Dxa85Dk
lrzcl5ucunS3CL9byuNnh/mFFZQi8HXqyLQinPW+WKELSV0rPMygoNS8kAM0
X5kc9IRK5Z0B4VC/IZn3BVS2T+3LhaXPaOLK4dpynVEDtHn3ibcT6nEaUk5A
8t3x9VXI82i8l+g2rrumH++PwXfsjY/PwCX2eWF+qEr1flgWah9wCboEb1Me
570OtQKPdlpDEu6VwIeEeNFw5SCYplpOnQBF6GOWX8E/DiO972Fh4eO6L/BA
N0dGK1R2YnYYhnFzVbyLkF5p7/Aec3zujEUhR2A8+Rn+U5DzhmUHF1RWUvKT
gNMJV6XVYK7JpYOGsOt5fr8FPFUoXO0C32j/fekH07/q+UfDA7lHr6XDrUXp
00XQQKywu5IQJ0kX9BOaej/m74N2bttdM7BN/1LgPziuai5HYoFxQuXlfjoY
s63fwgaJfAuzhGHx9pCvIpzXl7+pC5n7/cTNYE8CK7EDNNNm++YJr7OWeoTD
sUuZvC/g+0CiwVxYV3ojuhzqJ3BfbIDkfQvEnVCyP/n7ONysiIpZhYsz/eZE
lhgHNN5IHoM6/euUZ+B1E6EhPmib6psjC29QO9tegi+N3nFdhwUtjePW0HLz
c8pDaOcYfSUI5pruUiQQ6kll/vEKlt18FfweXrBh1PoCOfqZ6Fphdfvw6JAl
Yd41vHgB6vG2+u+xwv3PqqTBEajAnXjmFJz3yJ/kggnmFtkS0Pqy7S01mMNY
yGAIcw8a/raAUgV8gS6Q4va4jB8cUs3djIIF36U/pkHvi+OBbyBLZOyNSkg7
GCr2E9rcT6bsgzdaLYdnCMf3Wub9gy7RMXYkd7B/cISDDh7Uj+hhgz3v/QKF
4dWOQ0KKUDtqYkQH2iq/e3ET3qWovn0PrjlUinnCxNVhmnC4+Tds7Tn896mt
LRf2PuXPLYennfVdGgjSPuDvhLQSCkPjcDKdP2gVJp1i5yW6i36ce18XFWwe
Kgo5DX09P6nzEfarHaOThdqhzsuakLiUu8sYukzwV1vDGFb+tIfQJivWIQhe
OPKFLwEmfTs0/AoKpJcEv4fdYif5vsCKL1Ptv2EjSYjvEPx1OkNiAb6zyvpv
jzXO96CjgxyGrvB+Ogk/LdpkccGTvMwhEpA1/Y2pGpT4pMVmCH3XyPstIGW7
Z4gL/E/+g4AfbBA36YyCerut3mlwjPyn0Bto8oh47TMslDn9tQn+aCZ72QvL
u/oCZ+D5s3V3/8Ha7HBFEht5uQU/dSo6G8Jzf9ffbNCa79ITYThx6C2/Isyt
VezWgZbhe57chPIJ+eL3oOx89boH7CoQrwqDLf/yI5/Dtx00d3NhVC27cjmc
7y1kboC0HMXLHYTy7nIV4/BX57X7q7C+PpyLyBb5w+xwLxU83ZgUcRrmNswr
8cFME7v/ZOGe/qhKTfiWJs/PGPbbT2tbQ+NHd1kewl26exuB8EcNx494eDjH
MOEVFC7WNnkP7UjoTn+B96tODPyGV+8pPhuCU47SugtwIk7o8B47eTlHb5Yv
5PCzELvXSVgdkyrHBbczJg9I2BHmq941q9oR5ne8XlyB360f2VnAHwE1ci6w
6CrNUT+oOnOsNwo+PHMqNQ0Kpg1cfwPJeOWPV0LJ8pmmJmiTPuHTCxftAkRn
YFawx9wm3H+lJPeQPT4PsRLH47C99rEiGzSLoGAUhpcLFTcvQKtHpL90YBkr
RcpNaD8YYX4P7nkcy+IJf5qJd4XBPO/MgOfQpfS8QC6UzRbs/0A4Xv818huM
0Kq63AE/bLczjcNZrY7NFajKm9i9/x7uW04OVFDBg6GB8afh489XrfggzSgb
lyx8e5N0UBOukroFG0PqwW1eazjIUt7+AJpRyfoFQqKSP1LxkNlIcv8rQnlB
/c5i2PpTtLwWnm39nf4b0kerBw7BrsfrpgvwRYYIxx4Hebl1qWsD5LC7hT/k
JMxoMOTngrVBQ+3isIxMyUsVKm7N8l+Bsip3FszhXw6tSmeosvgw2RdeoAgP
iIL3qm3t0+DbzNMab6ASOc+JSnjLlb2jCQ7q8QX1wlNZgoIz0E7Kq2sTBvjv
9z7kiO/znDTvcSj913aKFd516XgrBEni3gdfgOdiG611oAVTxKWb0FGBnvse
dBlL2uMJv0c714dBrXw3r+fQ3omLLxe+MdDp/gA5Wev9vkHF3QmhDvitX2hu
DCb/l1C0Ak3jTnjsd8L7aWLUoYLkJY5cp+H5KYWDfPD+EfI+Gah1KyNHE4qu
9NsYQ2UFX1Zr6JD3t/MBfKvRGBII/2vgkY+HIc8p/r2EtWdiS4phPWPK/Vq4
dvenzG949GEH2RCsrG8cmIdTF53e7UJBlnxfcmeMIySPLp2EV59tHeOCceRK
f8ShbZBktCpk/SJz6Qoh7t/EQQvovlj52Rk6sv/n5kuIcyoSioIPPu6upsLh
G5IfC+FPaY2AzzB647tBEyQr9+HshQ8Vcren4akn+o2bUJ38euwhF3k5hrgt
g+Nw+I0fFRs8PTjeIORCWF8Z73EBytD38OvAnJTxMVN4p8882R4+YA428SCU
FybhDiN4mmz/czg18XQgB1oZvSz/AAf37oZ/g9LS9651wDit0pPj0KR98c8K
LAn68WS/K95f2ht+Ktg/r9LDDD+uZgTxQlKVZwoykISuhkQT2q6O9BvBylfr
n+5Cg5KfqQ+g3Nhvr0B4M2X3SjxMfTpy+hWcvrndWwzf+xuF1MLNV6P8v6GJ
x+f2Qfjcd81zHtr8iRbYhb/8GZbI7qOekutVDNBPbuT5OegzmOkrDp8WyNuo
wvBiMY0rkIfj0EmL+4T5A91uZ0KcZmGwL1SqKRaIghEdYx2phPouH/AshFS7
5tyfIf+07WgjTFhXyu2BLyNGfaah6vljVpuwfTvi8iE37N/PK3QcUkq9OcQG
6WoCm4TgGvWK3wXodCtNQAcaq2R1m0IBw1Bve7gs7sztAWWpPg6Gwj7Td+lJ
UE8wySkHUrGoan+APA5MAt+gkOji0Q64w805PQY7iKRLV+CUdeX9/Q/Q37LW
cFPBrdcDXcyQRdvBjxdeFmAUkIGStioTGg8Iv2sbf2kEGcnSbO/C7FvU0g+g
p0c+VSCkVpiZiYMjCo5fXsJTap1xxTDCTtCklrB9k/vUb2jS/ad1EOICCpiH
b8qapXZhpdurFbKHuL9dtSlkgA0X79meg6rdLHzi0DRJcFMF1qgGfDOAz0XV
kszhWKeyrTPMLTaV9IX82bFEUVBfx7ghFe5ncQouhErK9Kqf4S1S231NcMP5
SnkPJHnb6TANQ9n0uTbhjkLxJPEjvE+vvbm00EH/lSMrzLyYJysEY1w8jl6A
zOy045cJ2x2JH0zhzfzaAHvYvsx4yYNQfnKQLAwmCXfWJUHj+2MPc+C9MK/z
H2C0ru/A10eEdSsnY9phw50UrTHYc3+LZoVw/K7n5D535C+nzn45ChdJBNOZ
oXl76SNeaGf3TEMGumm9PaYJJW9RtBhB6evs/nehXHka/wPY5yvfHQBPVxb4
xcFLlsKiLyFJ1NTaOxhd/LauBmZQqaW1wIfhtH6DUDVAwnIebtnuU9yF75jm
qMkfy8vN8S63M0B+l/Dgc/A033NBcVgxu9GhAlfv/3tsAF9xX+Iyhz9fK4w6
wbMnH+X6wHbXLO9IQrzI09upUOtks2YhpFzUFvwMMzxdDzfBO8c7W3og9/6j
gdPw4WEhwU14OImqi9hDXs5VqceDFqZ8+sfB6kH4H4OMHkHITk6bpACZT0Tf
vQyzT5WqmUKqb9QC9vANZyOdB0z7rr4SCsP17lYlwbob849zoAILDd8HwnHZ
xu6vMPGRhk87tF28yDUG/c+sdy9Dq/fscfs88TmIl5ochb+OvRJhhmG6wzS8
8Hyq7Zo0TGw6+lsDuv/xyjSCdMmXre9CH3UFtgfQQTa6IwDGv6jwjfMk/M5A
ge8lnIvmGH4He/Qdn9fAD8spJi1Q0jr23CA8cm7v9hxcXTX8vQNNbDNzyLzQ
DwYzejHA4t0JzXPQXeLlUXGoWJjaqAJFKcp9DLwI88TsYuZQKc9l3gkKJ7G+
9oENwTTmkbBI9vzZVPgk32qyALpNsb/7RKjP2cS3Ed5feKHfAwd9T7FNQxat
90sb0FiRqILYG+NkqYsnLdR7LSLHCi2qiXcEIScNa4kCjDtIansZ8pKynTWF
ASZLfXbwuJb488eE+Pgdk1DIf/4jZxJMa7LefA0LxPqbyuAPmvGMr/Cyf4Nr
OxR84aEwBi+QJx9YgavdCtX7fJAvsT26fxSuzdKfY4Z0LePdPNAoPiJU2ofw
nIf1ggZUDBHdbwRJX7U134GtI5rZbnD7r25AABxy4zOPI2zXfJR8CQVYZA4V
Q9MXl77XwPxFTZ8WyKNqyj8IPQOsuuegymdTnx34bm80L5kv6tlPMkkPrauC
Cznh+bpJfzHIltNioQIvGz+5aAC/knRym0PvQDMiZ6gY96HJB7LU5AZEwn6z
UqFU+JuMrrsAOqjxeHyC8t3s7I2QqJyquxva3zJ6NgXXvJ7f2YBVa8dViP2Q
T0o/4KGFbZwcx1nhiZXMNUE4a5tRpwAnrcl8L8PQ/GIBUz/Cc0rLbjt4YbnB
8zEUefiCPRRKCR1qfwavHWCOeA3jZd4ZlMFVQVuer1Dz8QZVO6xWl90ahSni
Xr3LsJhttHCfv7ycc/NJ56PQfNuDixkKHazu4oEUi9M+0tBvXp9LA5JFd3Vc
gzef24Xd8Sf8/8mqlhucTDJgDiDEU9/aivUn/G/PfHcmdPD1KnsHH3mcjaiB
XbtFRi3wz4f6k4OwjEa6dQ7uDTHy2YHz51h4yZ4gLyrp7qeHY5b2sZzw16KZ
nhhhfz0VgwpkXhaf1IdavM3lt6FXDkukE0whL7H0gffrs8UjYYs89f5UeKVU
uLYACnvFuH96QphHUhRshPL+UdPd0CbzXcYUrHKxvbEB2Zu36IkDkOcEHu2h
gVHnx1LPwgUrTltByHprRFoBGtA7UFyGeger+k3glX7bHDuocvWy42PIx2kv
EgpTXK6sPYPt67lFr+HhSv47ZXDdm5TpawBhfc7qnz9w+7Hp01EoOrCptQy/
d9TT7AtE+/JRHaaEQ7On3jPBmU7qUB4o9b7ETBoqu7QLasDhbKHta3CyKa3i
TiAhn5pzcoMnOVTYA6D5eGJHLOyZkgnIhFbZjeLvoIDP3+VqKEYy8eEX5KpU
DxuABdu7d+fgn6PlF3cIpuaykwXhdVIT/6OHMXcMqzkJRvx6LAZNaC/zqUDJ
sT09+nD1y38+t6HshDCXE7zZQ93nDV8pdz9/Cl0e+NikQK+NZLUC+IWWk+cT
5Kt8Q9UIR5doF7ph9P7Kqil4qb7De4NQH62CEHEw8ope4V4a6Hrxp+dZuMbg
xyoIdSSOtMrD3s1XodowkalSzwQqq3zhsoOklZIUjyFRauhGCLy5ltz3DHb+
2/v+NbRxjHhYBhtvMvB9hSo8491/4CuFUa9RON2qxb4MaTrdfu8NQT9bp/6E
Em7QvVJmgq89nWh5oCM5/aoUbPtPrvcivJhsXX0NOosHJ92B9s9/WLhB3Wba
swHw3p/89lhImu7ikwmLBT253kExVYn2alig8j9F9x2PVRfAAbyhjGRkJCMz
kr0KpbIyi5IiIxm9Gdkhe1NWQhmREVHJSHb2HlkZGSESWdkj5f09f30/5957
zvM8955173PuOQ7BXdBL6InCGPR4updikZC+R/zEX1hj/aSKPAz1dFNUEhOs
UhZyOQWnspNUpCD7g0wqZejT+r3tBqRhFPc2gzaF7wUd4b2ZByO+UL3zWGQk
IZ4Oj3oyfGleTZEDDSzr+j8R0rFRzGiDmbIuD4eg1x9FjV+Ez1tN49yCRiOr
S8ThOP8noovooVHe2QcnoOD2GUFx6Pb29JQctNeSfXkVKhyx0jWC9O2WtDbw
wn9XujxgQKr701A4bbbvVgKsHM7keQPJw4o3i+GOYElzI6Rd1oztg73hMSY/
4HNfKb5VuPzr9cK+CDnZbFribGrYFK12lw0KlP5jEoKf6gY7ZaBSXUeQOtx4
LCOvBzOya4ksYOvb/9pdYDq9U2IQnH5R6/AMslIUqacTPFzNUQA1vOZ/18AX
ly587ILEzrm2Y3CqJ+jEIqx4RtL3l7Cd0dWf/AnK5cN/YkxwWPjPNC9k4FLL
lIQ36S49UIJ3SrU0bkDFnhZhM3j7qjC1IzzJ/nTGlxAWqy6MhHFHtVySCfHe
7gjmwCnR28OfoLtIq18brLD2PDUEO4em+2agF6NYxCYMPCdzkzgS/aznrYL0
kNHnIvUJSDl/e0MMZs8FfpWDZpLH8q7Ci3a1D41gAW2mqA08JJL6zQMS9Yr6
hcIV/UnuBHjn0HpHFny3ZulXDBN/Byk0wuhrqbR98FdC0fIkJLE+N7gC1cgf
1ex7Kieb1qGQQg1Piv9nwwYT/tDyC8FbpBpDMjD/AJGfOtS0mjupB9O9P3WZ
w8DTxj4u8LXm07NBUOpu0f5nkE1LdOgV/KqdVvEBNjxWSq+BKp9n/bug2k2h
m2Nw6vMW4yKkn3vd/Rd6WH73IY/CdTIO52eCDN11fbxRhHlO9gRIQqKF1rNK
kCYr+p82lM3/024KncUWMhyg4Ey/ny9UpSG5HQkXsk+LJ0PqufA9OfAkaVrN
J7jxdtu1DTZM2vAPwYcWcUMzUCvqWtgmzNmgUSSORv54tL6fHg5ICjVzwX7p
4igx+KWe20QO0iYln74KabodDhlFE/LbhRFrOO1PmekBr3x7ZREKOVpmuROg
2X2zsSxITdEbVwyL761qNcLlaUWKPkiif6R5Ei5s3AlcgRNUO8r7YlB/zmgf
oYbLSxfHWeEJ0uR8QajgYeYnA32l6q6qw535CWY9+LPw34Q5PJy8mO4CM3bm
7wTBO5UfGJ7BAcHktlew7cA37w8Eg+9J1sBsrsC1Tmgk0FIyCg3tWAIXoJyd
3K2/BBuaxMifoZ7TCTnM9IwwntdmnBe+SXJ+K/mM0D/kt1SCox2eHDfgnu9/
ekyh3GdqXwdofTBSyBfu7jMfewIfeAfFvYRklfa338P6Tz/FPsEGn0yaNtjF
27s+CK3Mur/MwGv9Mpmb8OeSkw3xc9QzBZOn6KEi9+AQFwwuWvYXe054Xzft
lBy0Wd3s1oQLs37+t+Hvv88VrAlhUzE6D3h4pWAlBIqfevM1Hrrnn6rMgkSt
bS+K4fLIilXjc8I4vyMCfbC+7N63Seg85RqwApnuPDu5Lxb5+Zb6Zyp4Veaa
Oytsdaw8LQhdZ6t3z0E7p4f9avD46qmyW5Avi/2VeSzh+bhZsAth/6cewyB4
qSac8xnMUYwfeAXfEGn7fYCl2o28NTBoi6erE3LcifMYhfs83osuwFr+4ZUd
aCGRU3soTk62aOJeCiMMdZ8K5IWxR85ZSMJtllk5JTjs63T4RhxhPFB/iylM
sr7o6RBHuK9w4vOFWvs0+55A8rGfvi/hgatJEu9h+sC95XJo7HSrrJVg7OmI
Qdjd8MJ8Braz7FHcjCO85/+GmTge9y0S1+fpYMXn8QIuaNGcZy8WT5g/T+6k
HKQNEPuqCdVZpB/fhj289hes4cjNjW13qL+QUR4CG/0c/OIh4/u5K1nwrcJB
1mJ4jcN7uQF2ae3U98J5crqYSdj9r0d/JZ4w3vcmy74ElJdrql+p4FRQfRQr
VL2vfkUQBo8/J5GBTjoaNWrwplu1+y2oW94tbQ4jfM/uOkONSxEtgZCYvTo+
Br6Qf2b1CtpqOsh8gJcKeg7VwLedKX2d8ICx74tRWJFIpb8A2Z8fpftLiEdx
ufnQC/QbtVvdGOFA1x5hXsirNDR9Bnp+9cu8BFk0bG21oUk2n6wpJDrgeswB
7l9WWfOBdNxnPj+BWRuOSS8ht324yXvo+t71+Cc4f+RzVyt8HC7nPQhjE+L5
Z+CVyZuDG5DMly38YCKOiyG+TAf1JeMYueD6iNy6KDx1ZfurLLx7+3G5Jtz4
pfnsNmzRbzGxhgWmyVweUIxi+msIIR2G8oB4KPmxnS8L1rE86SqCN26GejTA
zPt/JHqhy/mafxNQPcu/fxn+nLtStjcJ+TLTPpUKsr/b8GeFwYtC+oJQec8O
pwxMlh8YUoMZacuBt+D9kX185pCDOOezM9zbI+kSCHPfBfLHwB7b2IU0OPrC
rjIfnhdvTKyGATHz/p1JhPnjdK1GIWncftUFglpnj/6FNw10ew69xP28mbMv
Iyw8HnWKF/6autt1BjIaBLtdekmYPy+GXxuKbA38NIEm567n2kPd0JNBPrDK
h8z8CfS/mn/5JaxujuZ7D90omnbK4bSlXlUrJIpNcRmEJTQneGfgyI243g2Y
7dTsczAZ/cS5JhE6yFz4doYTUhc7vhOFXCThrrLJhH4c81VNyFd6hu82PGO2
h8gaaul097vDCjnuVyHwxczD/+KhNtE6exZkvL/VWwSH+VOCGqB36NWzvTCz
hHx1AhquROQvQ7X+PU57U+RkJ6XyZKigofQ4KStk3B86KAD3cbdkn4N3pXO9
1GCdg5D6LUJY3YPaHPLV93U6w2p9xrBA+O6Jm3IMXNyrtP8VIUwxUJ4PlRNS
H1TDqUNHhTvhh/tPFr9Bz9qzhfMphPcMXvntwAVvVu1DqSh3udE8jJDmVeXm
SXjHhLLxDGH7ud9PLqUS/q+Juq4NRZjHqUxTCfOSvWqwh83GT1x84CPxi6ee
QPdzIqNJqYRxEQLx2YT93DIG5ZCK6CVvK1RiENz9CiU4Tg9Nw9OCE0UbqYT3
3iXCD6bh9z8P1qWDl+rEj3FBlcNGHaLwquh+L9k0wnxXJHyaUPnSuz5DGBfG
FXgf8tA8Pe9OiBf1ligECvWqDMbBU5//lWXCFxbXU4qgMPe6dwPM7STV7oUb
eqNMk5D1MnffMizrywjY+wr3aV33BKhgRCBn9/FXhP7e7kMBKGETw3cO8pNK
zanCy2c6P+nCz6UuifcgI62RvzNcp1GzCITXDxQoxcAJB7ajryBNvkZfPizt
7Ayshns+GQt0QqJ/tp3f4KH2KKd52M1heWIHeoZ+GSNLR760ynxzDN7eX+h7
EkZmHr17Bjrf5r1yCVL8Jy+iDR8bZxw0hXqXi1rsIb17pJcP4biShFNP4JrH
eFcSpG4Mcs2GVuWOJ8uhkV7vtxb4N/tt8ld4PZ3fdhpqnAlW34AbVWtCBzOQ
D/PPUNPBvj2205yQ67R1vii0pRO0lYWDaTVcmtAlGw0wHNV5530fbvbJC7nD
TiGbicdQ/GxOchzksK67lwk1/FyliyB37SZ1A/T0DPn1hZCOyqWqCTjHrfdk
mRDvUq3O3tco76ERDFSQ0qKs8zh8E2boLwDzkt+fOQcvPNZcUH1NeP64naUL
P/HctrgHyUvTBZ1hfd7cegC8c2W+NhqeG5aKSYN6pkfv5UPScyqS1dD5g+O+
TsgZRNLwDZoG/fWfJxjaKbsD9fcE/yXLRP9rLKHoGNQ73GBzEqpVv+U5A9fk
8r4rwqd1Qq+uZxLex7C7bwLvTRPJ2GcS6tfvlD7QUe3kRATh+Ib3BUkwejjc
NxvmN6arlkOLYJpDrdCUJLr2KyEeB5vTNHSfPse9ARsov/QfyJKTjVrTCqeF
xtuG6pzww4HPNKJQYp/xj4vwR25DpQa8wmKeZAiPviFzvQ/p0inU3WHYcBJ1
CHTzbWqNyyL8H+LlkQlrbm/xFkFeR+sv9ZDDKt/7C8wReSE2AfX+mC4vwYv3
i6v2vEE7tbKeSAl3T+b4HYfhpXvvCUCfwU9y5+C5SwJUavCEEGenLnxAyeh/
D+7wJwo6Q4uN7J4A6L864RINtRk7udLgv7uvR/Jgr8G511Wwf3qfTwdMPFts
9g3Kf9C/PA/VAjuEdmCWq8PBQ29xvgTvth+Df4/a+p+EUY1/BM9A4s7JbkU4
ETPqdB02HeBiN4Gkd6367OB5k3tx3jA4pcoiAvqdmFdOgg+zLwhlw39FNnTl
8FzOj6UWKJ6uXPEVUr+ic52GgVMWvBvwe75C94F36F9vX3WlhRf4/pzghIV1
vgMikIqkIvoi5PshZ6ABe0n3iBlCWtHhI/ehTrPwmhtslxDvegylkpxS4mBD
O7tZJmTkNj9eBP2mkzvr4fSCmNcXaMYWKjABh+VURpfg+DZJ7J5snDdG61uU
8J9cI/dxGCQWvc0PWTvyus5C1Z9MmapQz7XVVRc2fnZSugeT8m3JnaFIiXlz
ANTcK+wdTTheVVc8jRDe6pjJgzyn+dKqIJ37T6MOmGEqw/ENvhtfmJrLJjyX
n835A3vvbnqQvUe91zOtcQyShZzhOAn3a+f8Pg2ZRmeLFSHblpXbdUiUYSJt
AinSHTfsYNJEZL43dDtz2DIC/mZ5yZ4EjbX4vr6DyWcTY8pgSEq7bgtcD189
8RUqc3Vs/IQpbcJt69D3r2bygRz0ny722dHCmM3r5znhYTaD/aJQUz658iLs
6j/mqAHP9YxxGsK1B2Q9VlBjb2SAG7zd+/H8Y+i37+eeOGgflN7+Gn6s7XpV
CI/Y3PGrh3ulmo2/wJdmwmcnYPeNu8TLhHj6Hxv25CK92TA3Ski9q897HLaU
BvTw5xLms0n2OAuFO5n4VWGA/ulJHTjbWP3mP0gS+sLHiRAvnsksAB6wOase
TQhrUQikwfjH9/bmw4EnrxqroK5IjXcHtJ1dF/wGiz9l9M7BQ4xlD//A97sW
7GR5qEeM1HsYIOe71GgeWK3G/99pWMhZpaQI66ykhK5Dsbcn6UxgifvhZTvI
Ep5W5Q3nr617RkCLun7BJLh6QLj3HZwpc3cpgxEt11hboPpd4Y4BuEXzJuQn
fPta4sY6/CarIXggX05W9v0aFS3sm/i4wQGvGuh/FYGcy6nZF6FMpYCdBvSu
ZuU2hCbFX7qsoHGgiqsbnOvy4noMA35RfomFlMsfQl7DoJjNy4XwomIDcz3s
1r6x0QO3qQ0HvkNDRfOiJajueyFszwfUb9O/b1BCEu97dMehr6dfKz98Ih/m
fhaqtBbxqcJSe+VhHcib8CHyP6i/n1rDCV6kmKYLgE49Aj+i4EB+ZkkqNK33
isiD17Z8TKpgWIyqWAe8KTCwMwINX45XzEEGop6HfyCNvZAwWQHab9/XPxhg
TblVIg8Mk/+ucxrmUb07qgh18i981YJHkq4lGUPtVr17dpD6av4Zb6jCJUoW
AVP0KoYSIV14WOY76Hz0qk0ZTHaXFWmBTOlSvwdg8HT7u5/wA7/m3XVYqfqG
+cBHpFf0q4vmI+F+bOsRB6yVa1IWgT5yqlQXYURn9OgV+Me59oPBR8JzvLhH
VjBD5KKhG2x02hR8DKmcJjdj4d7ghpLXcMjOyq6QcFzdSY56GN660tEDlQYF
vL5DKd1CsSX45szT37vwKs1kEUUhwhohj1lgQAXpf/xQqEpB+Sz8qSTCrQod
fPy2dKD4kZOV/8FrtLdcnKDufceTAfCGDldPFBwlIXZPhWeFhXny4Bjxs6+V
cOVNYOxnSHmr7L8RmFzlcmkO6u9OCvyBkldCaMiKcH/3rGOBATppTZfxwKfm
311Pw9A/iQKK8MfDQ/1aRYT/Ie67GcPcOls2O1iSl9rmBWtaOAPDYWroS81E
uHtIme8d/HU0hKoM8uQLbzbDbl6GwQEYYzWY8xMWBUw8WCeEh+X4DxTLyS7Z
hvfRQCW5D64c8HuICasI1Kksa7kAR+bEfa7AxSVGRQMo9fwDvRVMpLi06grP
zMt9fQS/nO38FAv90idjX8OKzADTQrgRrsBWD0++FujsgZfoeVy/Q7X1as4l
+HmQp2sXfloUCaAoQT8zQFqOBWpVPSDjhz2nC79Jw8EjEuUqUIaD5IUOrOQW
cvoPBlO9VXSCB/TySAPgQVqluijo4O3mkgpZ6Yx586Cp6PrXSthQqx/2Gb6z
rbo0Akv/2ZPMwSmVyu5tSJkfk0ZainBRijMDtBMqUuOB+j/vspyG83UvfylA
jR6fPC0YtnHazhhe3J45ZQcjO+PGvaDuv7zYcGj0/N61RNg1T0X5DpomUn8u
heOf3kU0Q2YXH+0B6Fx3lP0nIV7bytIafMg6X0dUhnr4b3wMDVQXWDDigCpT
sdwicHqWfvoCZJoMzLgCXx2Nv2MAbURKGKwgO+dmmyusH//g8wjOfzc8Gwv/
VVn8zYBDI+lNH2EoJUdCHWQ4GWnXA7nIkpS/Q4/7XCxLMDhyZnYX/t6zmkdR
Lid77Mq3+yzw/ugMGz80/h3/WRrqlbm4qRD2q8/w6cCC6xETdyFpMm/6A8J+
nvv2/pCB/IxaFHQa5ORPLSf837B+OA/+K6WaroSPJboLPpcT5nUOcxiBT/eR
8czBqR2enm04+6fYjfQTyr1OGhcDvCXv2s0NpaNDH0vACeuCqwrQLKOOVwtq
3G6jMIZnnlzasIXhne0DXpCmgCw7HLZIuNknwo06p1PvYHZVbH8ptNSN9GiG
ci8s2AfgpUO6zVNw9daQ2xohXV/y80QV+B5jVtQ0sIfj0TI7HAg+MCgMuwWt
Ky/A3nrHhCtQ/QC7uQHMqazjtoKx7w37XKGxxLT7I6hdNMIWC0neVjZlQMPJ
/ocfYSmx0Zk6uONnsq8H7smnHxyHv2U8yn7Di++8k3fhrpmfN0WlnOxXtUot
Frj54+BRfvhx3KpNGh4rFXioAncETnLqQFFS/o67kHv0gfcDOFarIOUPRx/k
/3kKuSTNm1Og/kBdSi6kzaHzroQ0EvX6n6HOOUWREZjhPro9C3e/GZVuw+w1
Q3vSKvSjVVtOMFQR5gk26+eGB4w2H0lAFguPiwpw8mL232vwjuhszR2oN2gT
YQvPlRcYeVUR5tWtEwuHezt4DybC0hc/et9CwYTF5FLI8CncrBlmawRwDsAF
kezhKTi7cyp6DZ5IbFAnqkb/jjuLmAYG5gTXscNGZVk/Yfgo7YTiBej24w75
FUirRTSoD2MP2b+zhJTkyV6u8NifSxqPoEeg2rFYOEbB/C0D6iyvJn2EfvcO
69fB1z9yaXug5i2a5nGYfPmj229CvG9bwruwIVV3/nAN+jF79D8wwz8akb58
cNJRREca3l1NFVaBTLo3SXTgmkLh0F2Y/0bw9QNItXX2nj98cK7veBR0zS1q
TyEc/079YS5UczLmroRa56W/tsOXAXwxw4Ttr6L1Z+Gj/+4Jb8NDkWsUpLVy
snGt0ctH4f58p25uONqalSEB3a4ctVKoJbxfzc+lBf1DP3TfgfP/tbrZQroU
S04v+Jp+oD0Mdr6g9X4B67RtLryF9LGxlKXwX0bWYhNMyzIb6Icy/75XTMFW
DcX4NfiR+PNdojrcdwy3cdHArA9efeyQ4+UpL2EoJyHDeaGO8P+gRdNluOh6
6oE+/G7iJGQJnVWrtx/Cb53rvcEE9VXLnsPupAepGbD5ko/fRyirelWnDt4o
jWfpgeZUST3j0OvRAc/fkGi4gmMXiihaNx2uR//2E8kDZjg1WMzPBwf7DZak
oI/BtxplSN5u+vIm/M2Q4nsXyl9SNnsAE1l+n/evJzxX3iSNgoV71upT4ORi
m1NuPeH9xAscldCu4X17Ozzye919GCrLu4nOwmXeY7+34PW27CKSBpRj84OP
j0K2yTZTbqjTPy8rAbcrZRgV4NoK78w1GL4ymX0H1jIIW9hCrdxyNi8osiL4
JQxK3twf9AIqb46dfUvYXhmyVgL1mY4XNsHijj2e/fBaWa7aFGzayWVeg4cr
0hf2N6JfH5dZeQQ6WnaEsUOB6JUbwpB3NvXYBcjuqtV3GboG3Y3Qh513O5Us
YfGK+15XOH2xqDwYFs0KP3wOC40Lz2TACy2h2wUwjmKutpYQZt2K6obfZUf+
G4cy4yvSv6GfpgvpLtS1k+8+3IT8tED/jBlWLcZo88GDI6pU0tA2pqteGYow
vnG+CQst3vLehaoDdWOOsG9zKdkPxqcHWz6FnrPfz6fAb1kBR3Nh5rjvUgWc
sPne1A4DXJLihqFOhqrRLBTXf8S0DVlzN9tImlEOeaJcjjYT2mMNTm7oIbTR
JQ5Vxz2C5aGb3KjKNThJNX/0DiRutly2geHpkb2ekK3zQUkYzJLvin4BhxdL
77yFJh2ZrKVwMKy6qwkaqN9w74cc1PGcU/Debk7rKiSSvvBwfwvKd8NTkSMt
hHVdHm6xwVD2rG4heOfSTPF5WFKimnoZUpse89eH131Xb1rC6W+PmV1hBnNg
TzBMzOz3eg7F6CxOZECfNN3mAji82WZXCynVWU90Q+lg8ekxeOG1fPkiLFR7
mvgPRtxO9z/cinxWwG3ODHlo6RX4oLhXN5U0vJUx364MOSj9PG7COKEwrrtQ
eJ9rsyNM/Jlp7wdln7GdeAr3f8+bSIZT4Zvvc6DL918BFfD53jdm7TBvPEF5
GIr6dXPPwpIwqq0tyOVwpZykDfXQK3f7o1DF+RUbN3xzxKFNHOaIObjKwywj
J4Fr0LL03E+jNsJzV5csG0jbkPPAE954560WBnXWl7hfwDp5rb1vYVRW4ZcS
qBAWltTURugHOdzuh9Olr45NQYePaR2r8CxXod/+dnzfYTbJI1A4wHqRDdaj
GygEW/fdsTkP/Xv/SF6GTK00xPrQL/VRvwWM/R6Z+RBm0/i5BMNPFoqKz6EH
02vyDKjZV9BeAJ8QxzyqhTO6o3LdMPnk7p8xyLC683ERJu35ZPsPlpdH8h/+
jPbxwr1ZJkh5nib3FLw6quQuBWmVfl5RhtnT85w3ocLjkHUzGHS0rdYR5nmq
h/jB3IHcy0/hfadfZClQtMGgJgeONCc7VsAVj/dc7fBQqFH/EBTgzor89Znw
P03kjS042ELOTdKB8tCm85cevpO+P3ACkkj+yxeHqqOpwfIdhHUbxLSvQZ9U
Evo7hOMojVptCPFKzFw84YT9OnsYbCu+0J4Ayey7PN/Aq7rnpUugbDPxviYo
cYy1vw8+DI0u+gH9DKUSV+En0mee+ztRb9roah2B7dqXGdghO5l0hxC0PX/N
/TyUbmHiugy/9fe16EH1hClHC+jip87zEJIVKf4MgtS094qfQU+DZ3Hp0HpW
0q8AHpGltqiFilu8it0wQXGGapyQ7vvp9kXY1Fru+Q9azS1wH+5C/+wBeSsT
HOSpsj0F32gaHJeCftfTvyrB5QcV6Tdgs7m8jxncFyZ11xH2zVir+3UR1pWQ
4X8KxYwWdpNhJ0tQXQ78zHvftQL+s1Y70Q7bVndahiBx5QH7X3DiFyvbFhR+
R/uVuBvhR+pJ9JC5+obNCfjCWE9VHFq2WPPJw38qa4euQREpkUkjqN7x5b0N
LLAxsfSEskyPWMLg0+mWlgRoeOOyyxvY3hzKWwJtBm3GGuH7lwZJfYR4Gb9N
f0DjVnKJVUj9/Af5/h6c53jln9TwtuTXT2wwRMssVAhGUxy5dh56S2pRXe4h
jPuwadaDksahXhbw7rsE8Ydw5FP9ryA4/p/jq2eQkT7FJB2S1s2cLIDLMyYr
NfBg+N3qLviXRT9yDHYVj95ZhPNRvCL/4Ae6+h3yL7h+ZjE1TPC+h6rvKUiT
mSQjBVP20m0owUA109wb8ArnnLkZTO+r5HSEc1znRn2/EO7L5V9GQmLr3LvJ
MPW91OkcmFOidqgCvu1fH2uDlb35+UNQpczZ8xcky7umsAVtxXyISHrR/n8K
rKCHWg6X7U9Ar+FWdnH477N6lxyMduQLvArPFfcpGEFlOVpKGxh82HHCAzrt
V6wIhWItu/EJsPXNuOMbeFZUSKkEZnLzUDTBjubQpj74O9vU5Qc8ycfEsQqj
wklb9/URxnkpuVDDQy7EgmyQZ+H+oiA8KXqrQga+ZbKNV4dPL/t46cELf0nN
LGAfn7TsQ9gj8u9wMKyg3215RtieXueWDo2MSU4UwE97r7XWQAfpZfsuuEUf
zTYG9Yetvi70EZ6H8KX+hQdHddzJ+1HOPexNmGDtotTlU/DZrQFBKdgrT7xP
GR53LKi/0U9YX6bfzQwGpGTxOMIb0efafeFEyDu7SCjSucuYDFv/6XS8h1N9
V6I+wbXymv/a4JeD1cpDMOvqV8FfME2P6MgWVN/KmSUeQH/p2PMievjr/EPH
E3CQ15FLHIZIW7XJQfZHOfZXobyXFYsR1PK40WUNbdNannjA8wZbeqFwViNf
JAGm0ulQvoFiOouLxZB3WLWtEXLb5iX2wXZNoTs/YJutJ8MqpKEwbdr3FeWg
W92JGnJ52XCzwQl2niFBGKdSECMDt+utb6pDorQ2dj34OLpx1RzuvSnY7gKD
OmTSg+DOrQznZzA3eEs2HX5mfUZUAA+PqlbXQA4XBtcuOO/2QXgMshb2TS3A
q4zpSX+h1iW9W+SD6E8wWzMxwQ97Z8d54UuflneS8IVetasSpKrPUL0BU3+y
MJnBqLDFGQdI5nCrwBeWX0xyiYSP09nPJMM8srWl95DcSObtJ0hxfJ9pG3TW
tGcegm5kJr0zcItcO3IT3gnL1SIeQn0TXHmcHg7ydy5xQeXpwSYxWL3fI0kO
xuh8t74K+z/3SRrBAB3HHWs4QeNT4gFne2NsQiHL22LWBKj1Wq89C26TVnkU
w5Ar5083EtJ7fGW7l3D8DemWSbg0J5O2AnlujnnvG0Y9lMdgSA3PP/4owQaV
mg/tFxom/G9uUSsDe/VNndUhc1UChx78UH2zxRw29DI6usB7NR+5guCxd1Oj
MXBx8GLmq2HCOlSvPD/AMZchoxq4Eyiq3AUfu6eeGoPycuG7C/CgYV/t32HC
OgPPH5KPIB8n3jvBBG8S87fxjhDmHde3l4QmEpbMSjCwQ6FDG8rI7EaYQmHi
fcYO8N6ZVXlfODK7LRAJD67l0SbD0k/ii+8ht9Px0k+E9KzVnNrgUG8U9xB8
+iT38wzcviXtsAmbTeuOEX/DeQuwaaKDXfoF/lxw7eOdq2LwP/8mfjn4MW6M
6iocViteuw2j6I59sYZzz0oyPOBg3TeLUHiTf4ctAVItZbZlwZmIlw7FkGhC
krkR/nabbu2FQ6TkgZPwcmS02gq8vd3ItG8U54thapUKsn/w72GFBzna8gQh
lWFusAxMesuvpQ7NpVKp9GBHiE2d+ShhPa/PDi7w9OWnnEGQ60NLXww0zB0K
fwUDTlSpf4Cjo1PUNZBY8r/RTjgewlAwCo39ikIWRgnrW300+gvvkkoIkY8R
xo1KrzNCe8u+Ql4YudxsLwnJMl7zKUE78c/ftaG/ylKcKbx9WkrLAXYVJlH5
Qk9emp4ncJ+cVvzLMcJzQD+z92OE8Sx1Yp/gbt9xojY4STryZRCe0eVPmxkj
rPclYbUJH37tFyQeR7+mjneODkbu18jgglkSU4Zi44R1RXzo5WDLndftmvDZ
G9nA21AwpFLeGua3BZN6wMsufQMhsJdDPSeecJxdRlAW1NuK1C+GybPsfI3Q
8OHH5V7I0in5YXKcsB6PgtXKOGG83Ynj+76jfiHWaKWC5JRuLqzQa8eUTxA+
FR+fPgdV3Gg/qEGn/PzgW/BRfp2Z+XfC/HOsii6QeUGSPQj+cytYjYGqB16U
vYKbtguOHyDPcQ7Omu+EcYk0rZ1QIdbJfhTKxaQfX4Apvbs9OzDvU1nMoQlc
9513ZozwuKSCPC88QjfPKwmTwlKolKClovi8NnwpElJiCpdlIx44QAVarhO+
MHrFoP0JvLNE4vASvhp/yvieEO96fFM5zBYW8G2Fur+b1AZhqUs59wxc81Gk
2ITWUlsbBydxnWVJv9JBeQPjt1xQgEbUWgyyyuZyysFnBaodmrAthO/BbWhV
bMxoDfnLWuvcYeM3BdcQ+Of3oQvx0NIgkyYLKqZtrRRNEtZXLhxogAwqiqW9
8M7FqKeTcH9nicEKHAhNYNz3A9dhQKmVCiqwejiywl0/PWZBOL3U1XQOviYX
9VSDrmEG52/Bg15spOaQ57D0iDNcabEsDoRWlxyexUC2uCXbV/BmYo7sByhR
VXGgBnIPh1V0QubFYNtRqEjbxLYAxRuZe3agRaXJo0NTaLeS7iowQspE6QO8
8MdHs/Yz8AmpTuIlWPSlwF4bWpi/VDaFppPXGR2gdKfjDx9oaED95gksZ/U0
fwk1NE+deA+vbAh/K4dbRo0xrYTjqcovD8LhTnGSGdhy8WvDBvR7cvbxwZ+o
3xOor9HB32c6WLhgreHgnChUXaWrkIVTbzkjNOG82Fv92z8J44/puazh2HWS
H+5QP4kmJQQGfuS7FQ95vttRZ8FxygeNRVDU9KlHw0/CvMi9p3vhxTa+jYmf
hHnIzaqXoQqJYMzeabTvWRbWVDDkEYMSK9xlcmcUhJNBMVPnYOs2yVs1OPEy
4r9bMDKbmtkcfvKjbnGGnuMPHgTCWZIRzhj4Xnd9MA1y6kYl5cPTqZI21fBn
BKlqJ8FBqlOj8CXPE9IF+ONJ1vcdSLOinXtoBvlIf9uGEd74HsrBC1/RsrWd
getfdewvwfLT/xi14VQTRasJbFgxCLSHS1EPNXzgFwlWnifQmqOV7CW0/6y7
kg0nb+n3lcOmXzRvW+HHxhDrQcJ+JxHOmRnCep9r7RtwsXq/48FfaJfb9zHS
QVkrszpOuBa64iwKVUpCpWThgqoeuSacHKhfMIQvqaoG7kOZmh8V7vD06cDY
EHj+vY9xPCEdtTWWLOjo8ru9CB6pUnNqgK9fJTD1wt559doJQrrrMg7L8Alj
mPDeWdTPaq/+UkLTgLCB41Dy3uUyAbg7oZt0Dn5II3dTg2z3nqvfgmE33ajM
4YVQnkZnuDZD4hgIT5a/Yo6BhZt0jWmQWM7FJR+SXMkXq4ZPuy5udcwS1keQ
aPoGvQZJXs5DlxOLrjtwPfbHjUNzcrLPvz7hZ4TDd3k2TsIfpr0fz8Brw3GW
lyBd/TUWbRhW5NhhAmk+P/O3h4tWiTI+hLAI758IKNDyvCIJksmrP8qGxRTt
t8rhrbdVQq2QVkN3/yDseb6vexquLMfFb8B7OdUGB+flZNV23jLTQcMClQFO
GKhwJ1J0nvAenLSKLFxz7dqrCQOsJD4ZQgOTcvf70CK57aL7PGH+wSukIZDc
jLwvDk48cMrIhEUjYy5F0NaNUrUBsp43ou+Fwh59QxMwb3MqfhlK7THX3ruA
+j7+HzkVvPYzoOY4fPVyv7MAPCD7i/8c5F/gnlaFNGeS3unCrNFNt3tQon1X
yxkORh8WCoSTnX8PxsAmkYMDaTCJfD45f4EwLtvyTjVMHlM91gn/bqs0f4O1
ItqO8zDW3p91B8qwjXWSLRL6MyFhx6CM8MrNk/C07ojgGSjWd5DiErT7m7l4
HQroBLebwN7sphR7uP+P/j0fqJAcxvYEym6db0+CzVW5DtnQX3zsWDn02bxV
3wJZ6hJcv8KGoq/npuEFrc+HN2B0TO7cgd9I71D4F1pY2LBVxgnHh8NjRX8T
1lVQMpWFTfqarJpQmfV7uyHcOW/44D7sKGxgdIfnbjyvefybsG75Vbs4uPm0
iS8T+h+SWC+Efx6ndNVDPTOGki9w2YQ/dQKq3FbyXYYLfWlae5cI97G5dFTw
hFtvy3EY8DTFSQBybF9kOQcPUb+qVYX8B81tdKG6wVHue/BjasCsE6wp+l4Z
AH8e/psUDb/zjfukwf7uR3fyofXlB5LV0ECHZn8n3MtwreobzCdlsJ+H9hXT
zDtQ51dGA9ky6mHfVcdjsJi3iO8k9A3XnjsNT3krFypCYQH94Ovw3ofPRiYw
TJD3nD3B1hFaHxivLvAjAmr2sLxJgh1F1abZkOUl07FyqBo32toCraytvL9C
wz3MktOEz+FWW1mHxBXj+QdWcN1HQ11oYaGrgiIndBAJPioKjcSNZy/CO59j
yzXgKm9XsCHcT1KjcR9WHhc84r5CqHeGOh/D9+fOh8bBC/lkipkrhPfmOncK
oZNk6cd6yPWp1O4LNBRZE5mAskaD60uwVDeqas8qvqcBWQQlZInUvnMcEht8
ExeA6mQpB87BXAWOTlXo91s+ShfyyQpo3oNqGhUkzvBgjEZFAFSeGrOLhss3
tE+krRLWwxEdzoOjY/3xVZBNJ8i0A9IePCv1Dd5QK6Wdh+yN+r//QIVanway
NTlZ7wWL6GPQ6Lqh7kk4X8RBdwZ2z+xpUoSnNDcdrhO2W+iwmECFY+QtdlBW
ltTbG25bWcpHQBm7H7RJkDrSdekd9DUs7imDl1NEP7ZAISb7iK/whaGAwTQU
r1th2oDB65ztB9blZN9tnX1AC0crxBg54eVvZDUiMIxozO4i7Mh6LKABuTe8
NgzgM3a1TitYNnLsoxu06LJIerxOmFcgwidunfA8s007ExY6mDEUwdh7tG31
UGaLxunLOuE5TivTBPx1f6d6CSo3ktzfs4HyIejDTgl35P5MsEDT2ptF/PCI
R13cWdi3j9dPFfITX7+nC3sbpy/eg5lWFGTOG4RxglT1AXCS7PiDaEimwHA8
DWZd8KrLg29CQu9XQXbFzuMdsOvIgZERWOkn/GYORjnw+v+BjmzcZmSbcrKp
Q9yXjsH5Fi72k3DQonHpNFyOKPmoCBccNe5fhyqSJUwm8GKqVIMd/OKfau8N
ZQqyT0TAraeN44lwLn7f63dw4IeWYxnc9gtQboGa297sX2FOHsefn5DvVWXH
OjQcrYg/sIX8ffCAHi18xcVMwwk7tewaReBPbmL3i9DTYUVUA57dmzpnAK/c
tc2ygmGRTRZuUNLWXvQxnIjL2xMHRQ2O9ryGNgrh6YUwxL3csR7OCCpc+AL3
lMgfmIDcSYqNS7DLLSRgzzbOr4XyRUpIdMV2kwU2rC3l8EM6dhrzs/A3VcoJ
VThf82ZKBybEtr77D+oEGbk4wbY1IZUAeF0smCUafn39cSl1m/D+98XqPFgf
feVRFfxgWaPSAVW2LhJ9g5SmoaVzMERu4v4fGJvYxkr2B/ni2ZkeBuh43SOU
Bz4WXdA4Df2zo1kV4VEHrS0taGl4rN8Y1gXN5tlBmyjuAG8oK0mqEQGDL4lR
Jv0hvCdcWP8O7oh9diiDAxrDzC1/COOSLjcMQAEDK6efsMwnQXQdTr53/0u0
g/a3rbuXBpLJ7BZyQO/8pHgReFF44OFFGOlpf0UD/quzoDWEzgXGrVaE7VNv
nNwg9dgQ02OoYS1cHQuVC29ZvYYu5N/YC6Ge0eBkHVzmGCjsgWLJzc++Q6kL
Fl5L8OgH8v/2/EU6fvLylFDA4zTFcUgfd7OJH96eZ3c6C208RVlUYZdubo0O
pP2P3vI/qJlayugECzlO9vnDOmGllCjYFDDingpXafpM8gjbb/9Uq4JC0V9O
dUDvCOE/I9CNPrV8DsYn5dv9gZUa/1jI/uE8DafXM8DCF9b3eeDw1HvG0/B+
ZVi3AuykfBCrBX/wyFoZwxT7OhW7f4T7To9T3rB4kIokAlZFPB9JhH31va/f
wdWLJWZlkDxrnqEFcotl1Q/AoR0vu59QYKSIfR3etqz+SrSL+4eM0HgaKJCh
ZcKxS3jf45CYCPygHERyEb4W5Rm/Ajc7hYoN4IW8q8FWkFPQ5YobXDuqeOgx
VFg4VxMLnagSnV/vEtqXS4KFkFuf9mcdzP54OLUHkgoeNvoOAyb3cy7B/rPe
c7vQ5/jXMoo98rJkLnNhLLBJas2QH/Y1hfOfhbwHSddVoNrxx2U6cH8ml8d/
sMX3lbQTnC28vOoPJS1C3kZBUoos41R4ZH6dKY8Q5jr1tRKO8homfIZiQXom
I1A6wltkDpaeOnzgDwyM4Bsi3YvwEFcOA7xNGuXOAxsDE2RPw2qSw7sK0Mig
vVALPhv0tTCGSiOZTHbw4Je0Ni94KtzMJxy2P885nwj9PLhI3sGMd9sjpTBZ
pqWsGUpfPxs/AMd12u1/wkS1Y3LrkOs6N/GBffKy6tJT1TRQ+8kRBw54cj8P
iwi8HttZdwF6U0jaXoEu34JOGMAo+cMzlvDeobAyV/juRW/cI2jMtu4RC6dz
Z41eQz/bjrOF8Pyv86T10HA/aWMP9PVadvoOr93uZVkipPPqV/Uu4fPUdM0p
9svLskteOcYCE2Qie/mg8wGrZGlY9ZrfVQXeMC++rQPXWC+r/EfYbnGS32k/
4frk7/rDU29sqqNgnJCOYypckRpjySOEpeJrK2GyxnWLz4TtYVfpR2CdxEjr
LPTPlojYhpKJM8akRPKyXYUrCgzQYU5VgAdy/XeU+jQ0fGc5rQBNXD7lasFx
Nm9LY3iRdonJDu7vmqn3gn27NffD4RNNO4ZEyO7D3foWbj4WeFwKvxlw32wm
2FcvNACvK0dT/IQ0T87Nr8E5UYsGogPystT655/RwExW/1sc0GrHiEYEph/P
q70AVaJv216BZToTxw2g52BwjyXcOCL/xBX6bLddfwQ9vrGwxcL2HuulDJj9
zKrxI/xD351UB+mF4+x74BE/1fPfoQCZ454lqHiMuWwXOgoL21MclJetsRHn
ZYEHF0rH+eDURF2CNGSRCLqpAl8uRNLrwOrvrEN3YZWQUMYDmE4n6OQPhzzy
laKgwuNnR1Ohffu5yVyYHXYmuxJK1OnZf4ZROcJiIwRv6S7OQj/54NfbUPxm
sQEpsbzsB4mHtAywp5n+MzfUvCsbKgHN1CU1FaBd3SijFrygpDp3Bw5wFNXY
wsnwhTgvOEL13Cocho1vnU6Er/ucN9/CxN2k/FJ4U97qv2a42xzOMAAtX1E2
TcETspcfrsHC89vCRCTysouJFStH4LLNUi073GBwfykMM3P7vS7A+UJJgyuw
+Z6UqAFcqs7dsYROIfLlrlCWxtDuESRPK2SJhUQ99PUZcGCR//5H2M5ow1wH
9WasBroh3ezPtHH4p+qpx2+oyP3AaBdSdacoUpDKy/K9rznBAt00TLf5YOx6
aqU0rPj28IEKDHGMZdWBU+dHa+/Cg+uF9x4Q9i9O0fjDb1d+NT+FZ0uKw1Jg
gVqiUS708lKUrYRHHAVOfYYkq6HUI4TjHtHOz0KtRr6ibehC729LSiYvG/qv
nYUBirzoquOGSnStFhJQnZqTVgGeOrBUdw3Wfjf1uQPtpEgv28I71EYnvSAb
ryZFOLzJOrH6Ap7ea9D9Fq5oFKaUwr+Z9cbNMLGJjWEAjufcqp+CZC/srNcg
Y/fsUaJD8rKD0w0NR+D4w09e7HArtFVRGL6lCGO4AAPY/q1chk8KT3frQ6dL
idmW8EvohI8r3D97RP0RfEex91AsTOUkrsqArWp/rD/C2TxaljpYkSba0Q3p
gq8Ej8NGhQXl37CukIdqFyqGS4wcJkf86xE5zNBH3D6AD575vXhLGo6YsPGp
wKf+Tcs3oZczWf5dGEU+ZPkAShUucvrDUraU4adw4cbVZynQOKBeMxeu0f0g
r4QOmptt7XBJjC9qGEorZ92ehREFx4W34TrF6b2kh+VlizRcOo/C9uCKF9xQ
lMjdTAJKM+7wKkBFW6OZazD8WkTaHfjbbl7XFjob7qP0gtGuofVhsHu6x+sF
PC8edeEt7JfnOFgKrxsrfGmCLjTXs/rhZBSf7xTME7imuwaNzjjyElHge7uS
/T4CGUZeZ7PDJ7bapsKQIpqJ/gJUjV2tuwz3a5U46MOdCx+4LaFhwe/vDyHv
hMm7YPgi1t7vOcx95mWSAa/9DVD4CK8qirLWQaOSx4vd8Cy/bcE4TB6htv4N
5/e8ZNmF70YONhymlJeV26doxQy9KnLp+eDfv3GtUvBPok2EMiWhnd82vglT
l9rk7sLyo14nH8Cgj4/J/eGSc+HPp7COMaUgBZo4mNrlQqI7PGyV8F8QbUM7
HC6PMx+GYV2bVLMwisigegv+ErXwJKFCObE6pXoUnjB6xcUNo+s8ySTg4suB
FXnIUkbSdw1S5hRn3oGrm+/MbeHhc5TMXjBw5mF9GFRoibV8AcOXxWnewhJG
o6oSOPOSwrkJ+j5jOtsP/W7WUUzBFebpxVUY1VTat58a/Q/t6eIjsDxiTwQ7
FIgouyEMNa68oL4A00j7ay4T7DtprQ/PBRYctYQXbY7XPYRnK0RcguEPq6Yz
z2EXES9RBiHctG+oAC4pXC2qhU4BnlHdULH3l8U4rAvgkf4NXzhQ7f6DV8ge
lxw+gnbs4CErZijy+igTH3RqrmyVgg7Kwz7K8GfV3PmbcM7JfN9dOHbyv1ZH
OO6UGucHNY5HWz2FRd96ZVNgQf5eulzo6Fg0XgFrdpkz2mFhQ5LJMEwOiWaZ
hVHfV/u24KhOxxMSGrQzPR2qR6FADccBbsh2KaFaHBpmbvjKw4aTy6rXYFNF
K8Md+IOycMYGhoVnl3pC567qR2GwLHlS+wUUZec6/hZGkquOl0ClPLekJsLx
l1Rv9MOtuGGyKXj2E3vlKuxQmnmwn1ZeNkvMReQIJJqLX2GDpVKvPwnBOrK5
iPOQOD383mUonNEipw///LzDYAl/TDZPPoThMpsZwTDb3NPoObTXzKLJgO2+
KTUFkIJ5zqYWigcrsXZD5rj3vWNQy4kqdhHevLLX/B/MlTC9dJgO59dCgpcZ
ZpOMkPDBl68VRqVgvcJaljLs4c67dxN+eX2Z+S6cVfvb4AjDtaet/CCr0grN
Uxg4WlCTDIP1+z1z4OIMl1oFbGs4yd0OpzeDyIbhWemvv3/BhmHLri14NbIk
nYQe5/cQvcVR2OkzcJwbNlTtbxKH42F5lvLQ6poF1TWol7RdZgS1jlTb28Bc
BucznjDpOdOhMGgkxTiXABVjWr+8gXLLD8tKCNtDjj1rggkpt273Q7ZKVoYp
KDMgVb9K2B/3yGr/UbRn4ldpjkBP06+f2GCI8IKNEEz0vCVwHproK2+pw8b8
PV/0IFO1T7EFXBVTTXwIpbNFHwZDUoE4peewe8iFJAOuPzOtKICO7P1WtfC/
u0lHu6Ft/mrNGHxxxNFhEWbRmwn8gyrVuivkDOjnXKuoY4I5ll2JpyDRAd2H
UrDNI+CaMrzunnriJrwRubVoBm9SyuQ6Qj4h4//84LJ+K8NT2PftYnMyZG0X
8siBXxyZzlRATQXRjTZo9tm/fAhWdL0P/AXzJAe1t+Bc7HFekmOoxzM0/9JD
Y9bx9hOwasfguThULL+pKw+/t7LTX4ODgsOdRlBwQzvEBvqdeqToCbVkju2G
wgJKxpIESE933ukNIb3PV6RK4J5H0vubYHaOcXcfrDn4Oe0HDA2ddlyFzn4U
CvsZEf6+RXkEbnPy9bPBnG8csUJQo8372nkoy1BBfBlWVuWX6sFu0afWFtDD
SZD7ITRpaZsIgnsCzmc9g6edE5zT4dtLV64UwJuig7y1kO3BXqJuwudoBveN
QdEp9aRF+Opopd4/2HKYg/owE/KNzEIVE1wiTbp/Cla1ODJKQeZOojYlKDv9
POgG5Mq7ddUM/tFu4XWEVDl7yf3ggOmVxUgoMZfcmgxrZ568yIHXVLeNKmDG
rsGxdvgry6RxCHYamVj/giXmz2m24LnDDz4RM6PeyDSwp4czfo2nT0BPFdND
4jDf2ntODupWq/RchcYJ34qM4Bfj709t4PoC7W1PyOs4yhgGZS+XNSXAuO8U
1m/gwV4L6hJYQ8Fc0giZqc5a9BGOJ5Y4+QMWPapfXYGct7M69rHgdxHf+kgN
9z3dSWSDB/15vYTgodYxzfNweZeT+jIkdpOp1YN/BEesLOABixKah9C4N6g8
CApkH7N8BiVC/nGkwy2R9J8f4NWD26U1hHgvOuO7oEtLsdcYjLXZa7RI+FzP
RvF/8PfPAzvkx9HupioWMcGy9ynmp2D6rdf0UjCRS6hGCQ5HuNregE+Gx0+Y
wduCbT8c4LaqeJ4vjOwfC4iET68a3U6GfAWLkjlwNjqTogJ2GAWOtEGRgf/S
hqBc79DtX3DNbIR2C56KcmogZkX+GpN7SA9F5dOFT0DJsaJ5MVh8uz1HDv63
/4zTVXiD95KsESQ2OU9tA38Ihkx6wMQbN4tCIb/IlYAEuMvOpf4GDkmnkJdA
zxi35kb48hhdQB8UeL334g+Yqvp+awXmnb+Vv48N9fCGgBU1THW6f4oNcpX7
LgrCbHWbMhnYILcSog4dY3kM9WAdXb2QBVwpp9t1gfWbN1qCoPH5qIhnMD7L
+3I6lEp8TVQAx9dsi2qgj94Z8y74kPsyyxis1fLuW4BPvRif/yWkE9VjRM6O
89dzUpwJfqU5SnmKndCvkJ2ThOWN/nVK8NLHqKc3oKgpnbYZrOYpPewIHxcL
V/qyE8rLcatI2HLA/WgyvNB1vf49O6H/MeD6CSa/PyHTBt3JNimG4DMVpoUZ
6B1I2bNJ+Nz0oAJiDnnZlEvjIfTwutbDGydgTZo8rTg8UebdIAfbWLptrhJc
e0NrBHeXj5RZcxDKYY65B9zWEeEOhW7VN1fiYfNr944suNU3V1AM2fPGExoh
60Nn9z4oTiKu+QPqNr+lWYUrj4Ia93GiPIccsqWGTV6uNGzwwaJ1sSDkV39n
KgOb3U2Y1WHv/t3xWwRP8Raaw1sbNM9doIcItVcQpAjIMH0GFc7ynU+Hg9+T
DhbAGSnSyhrCfi5Vqy54bVmFdgyu1F4oX4DXj8ne+wtLyMqYyLnwfS8eGGSE
dm+n0nnhr2IvL0l4+NBhYyXo5pijcAOW684fN4MS7cFzDrCF80m2L7z/xM00
Ek6cjKFNhtn2ptXvoWVBvfUnGNg0wdYG+Tmihgah8BBxygzk+5BguwlJs1cv
EZ9AOfZMZqWHXdlJ61xQ705LkxhsXk+IkoMOaeHaV+FEFBulEYwzFa61hrcC
Djl5wCXpTL5QyJPINBUPEzeupWfBI9MP7hXDjpfRQo3Q/1zEn1744fbVtkn4
eMX85Qp8ZBFvu48b9XWz0DlqbsLzJ8a9bPAI/U6VIFTO0PSUgZf19aXVYcXT
6tVb8LcUS7Y5ZLBpNHWBS/9NHw+CYRlT32Jg/4xlxisYyBno+AFS/gy/VAPv
+Dce64KOljuzo/BtGmPZArQS6vD/C/OGDyqR8+A+5oXkXiZ4lJjqIy+srG8y
k4RhD6iOKsGdaek2bbgbSBxsCg/NZKs7wCm9YCZfGJe0d/UJZDsj1f0Shl7k
zXkP1WLK/D7Br6Ya6m0wOP4K6RDUC1T9NAPFKEUtN2GH8QYd8Un0231PV9NB
r7JCOy7okfiLXwxGf+PZkIWitWudmpD4F+fH21AozTDeGjqsrzh7QMrDvCqh
8Ne/afIEGPnhcF0W9KnLsy2GnkyP6BsJ6Wz/K+2FLTrxppMwwrrq2Aq8dfbb
t728uB6nvQqoCLKnP2OFY7c5PQUh591BYxlYWGYhow7L25tI9KDRs+xac5jG
89XWBX5/PkoXBCl//VcSAwemy++8gjYx3TQfYGdCS3c1bEnfl9wJU1IWXEeh
7K+V2wuwqc1c6S/h+MdaPOSnkG/f0G0ywssW34t4YTgfhYUkLGRWoVUiyCRX
rg23NR7fNYXdpKn0DqcI7Xxmhw+kIUmKfgKdVPj/ewnfSJ1TfA/Lf0zwfIKR
3kIH2+AB/savg9CIqzd5Bga/79TfhBKRGVTEfLjeZK8q6eCfIdX7XNBW245F
DK7L/emRhWfIpqI04eGv6wa3YYQAr7A17Fv6cNADJn15OxICY52H8+L/p+i+
47H64jiA23tLpGzJKoUkq8wkkr139krDplSUkRWRnS17r5CMSIWiJSkRChnx
I6Pf5/nr/brPPefc57n33HO+59zxwMLW7BslULKm/0wTtAq7RfEcfm6Xbx+F
Za1XLk8Rlqm1Dq2KEfqrigliccT/844ZTOKE8UqLJQ/U+K3PewQqLfDOKkAf
H8n6c5CLviPCHDI2Bpi5QhEdWhF/6H8+dyUCvr1xriEZErFS++YT0tXnSdVC
niDV353Q94ZM8ZA4IX7+bT0BBdb+sS3CQxkyw9tw6nj+fdrDqsqcMZtWnPCK
nM8REfiu+zCJLCRfvf5OA0rzbxcbQeJUar+LsObOP8Ur8DCTynYYHCD1qYmH
ewd1HLIhbXchSwVcItLqfgLZfgQFDcAe6nm5T9DUIptsDqaMH/v4H/yY6tlA
cQTHdczsARv03Fi/JAh1a86dloJpqQMkKvB0oXnLBWh5idXNBsp6sLN5EZbd
e9qD4VSym3s0nDaz4E2DCwMfJovhbE51fSPka45+0AujrzuHjMI2f33bKeg0
KC+7Cn+2XiIhkcD+e3uogwk+3c90iQdGZUpyHIE3RpSfKMDjJ63sz8GPzmLM
5tDF8MJrFxiY5ZThB50cbwdEQMOkXJtkmBf6RCMfJvnOCNXCPuYPm50ShHl+
zydD0Ks62XsCzi13sS9CBTv91m0oSTFhS3sU9Zx/DwMnDCae7BWG/CsG907A
Kr9WOw04SManYgRXuf4IX4R03Tz0V+Apt2vTYbC5Rqk8HtKk33fMhgEBOqwV
cP6/c0+eQE2jCscBeIboHOsnWP5ZqG8W3p4SuPMfPFZYrk9xDPU0b1CUDWrq
8tIKQjdL/1+SsFaWuVsZvuqkTrgAhXL89G0gd/ljGi/C5xPlT4Lh2dla92j4
TP/I/jTo/3r4dTH87kIc1QhfsOWe74UHGlgPjBLS7Qb+/g45DWR7ViCxPGca
sSTGVaYR7kxQKmf/CR6YU864dRh+4DRqVICuRJJe5yDTMzcBc+hBGfLJBebf
5E72g4k0+wwioIT6AGsynD768n0eTKCsyamBXsJHvTvhREqo8hC8zZDFOgHT
oqO+LcDV8xEl25BS86oHrRTarW0RcU7Iwe0xJwyFEx/lnSBYFWauAaOcOhiN
YGH3Tq8DXNGSvn0ZzntUnQ2DZu9Y2OPhQOzaXBYUIXfqKIdP5jKSnkDW+man
Acjkkyn5CWZ/qV+bhW+oPCr/gxXdNXYU0qgfdyWZ2KAqM1OHAHy4y3pZEvL2
OIorw+Rb8Uu68I4371NrGPX8cponvCggFxQMM70fm0dD3Ybpo2nQbGt2sxiq
lxxraITWBypceqHwl949o9Dn05e277B/Ydx5BQa5VbMTH0f/KTL5hhHSFL7L
5IY/TCgCDkODtFlrBThGlqp+DsoSzwmYw3T5zT8u0PfWeKMfPJr42jMCRhnp
7kuG9RJW7XnwmcZN+xpY6K1B1wnNP+x2DkKXlPU7XyD79xDrBXj8i5byNqwm
XRWmlcF5wq5Jzwlr6lhmhKEYR2z1CRhZ1OyuAe0swzmMoK9iZpsDDMyssLss
Q5iP+0MTBgstJdrj4FPZQ6FZcExg9Fw5LF50F3oCGUOMaAYgyW2lpY+wg6bm
9Sz0Xw3L+g++96e0pjiB8Y14PBMbrNr7pFUAhpULOEpCX2ZBZmX4OWv8mS5U
PLMWbA1F7+4oe8Iz9C6swdDs5LnfUVC113bwIdR+eqe0GLKq/g1phKZH6NV7
4ejxfSSjsNa/v/E7pFLe47oCT7Qw7COWRb8RwDbACOPDk29yQ68zR1QOw/ar
d2kU4KGOlY9a0EjTrtwM7kT0hLnAoZwUQz/4mSNcIAIGX9ScT4I2/QnlefBn
vYRLDexnpuPplCXM73aNDsLxq+OxX2CM33etBdhoepx6G956PN1Pc1JVeZ/9
3dh90Hj/rKkwpBlYEz4B08+Mb6nD1+nyrwwhh1/NQwd4STLa9jLc+UcnEAbv
x7lOxkGjm15ZWdApytG4HDosUtM+gbpy1h0vYHBTrd9HGLmn9sQszH9URvQf
LMnQGiaXw/GOqincA53Ve0ME4NgRSwNJGFNILKgM4wQc53Wh27eqx9bQ3a/O
xlOOMO+RyhAMoy9nt0bB0xp07g+hnEA0bzE0O8430QANmBlLemAbzW7oCDyh
62v9HY7smTi9AvmIPLmI5RFHraYvMMJrwi8ruWGtvrDTYbjfQX6PAuyQS2vT
gn8d/zqaQcOeUWYXOH4wsdcXZhcGRYbDyV4bqyR4sL/mVB60JSIRroH5h8do
O2GU8c/vg1CaK7L8C1Q8fsJ1AeZ1U+zbhkq9Bk9pFFB/0rcc9kF1uoM0wgqE
+M6lWQZe/6Htpw6DqmU1DCGt77aAAzQ016O5DF389i3fgDvLd4bioEZSUm4W
zExwulgO96XxsT+B5Jv6HS+gv4yVw0foEztCPQv5tuSa1glekLhMroj29qre
yT1wiCKdXgB6aOzOH4Mfw8TfnIaBnzPqdCFNQ1W0NUxi3NT3hOPeMbTB0CZH
uCUKHuuNv/gQXhBvYiyGct/4OhrgiQCLaz2Ecl++kh6Bq6FJ/ybhr7nO0WV4
nd+zlkgJx4H/TAIjLKjVcOGG3zzGpQ9Dzbes/8kTJN2s0oKCDacdzaCHYt1e
FyjDrtPnC/VvnwkJh8akObJJ8E4O2XYuwZWt3mqo7qWa8hTyp7O5DcI1ISrF
LzDw5zb9AlwYLfm0BRfVFnNoTuE8nuOx3Qf5h8b3CcN5acthGaj8Kj9SHa6K
8qoZQufncUQOcHR/TrsPvGXke/0GvDdtqh4H6UebmbPgr5Er38sg7d+nDa0w
1Ur5zgt4/Zmf/kd4NsOPYxaKNDh/WofZ/Smp5KdxnHV09PfAmoRrlALwHdmR
lmMwfDrZ6/RpwrztERHd04TrqOPzVvBBxkCzB+y167sXBOP4Mh2jYBf/uOJD
eDxzkKUYPmVI+NoAdyPF8nugYC2n1QiU9amg/w5Pr5O0LEMHuQonImXsv84v
7IzQKZ9pmAuelGZIFod1Grcc5eFYeLWyFvTR/CBoBqe5vClc4A2d+XFfWBNK
WxQOV0qv2CfBD2J+rHmQ+8dyWzXhc/Jix6fw2FALwyDMaxdvH4eU2fcC5iFX
vIb6FrSSbeCjUUH9qPtHtQ+a1XUuHYLNh30HZaAvjXiOOiQbErM3hHOXqdkd
YD1JfqcPrPoq5XQDttw1oomDW/QRdZnQ2X7brQyS/hk61gov09NTv4Cn+3nn
P8AXzaFvZ1QIcRxD4zoUt5mII1dVVf5vb7DZHjhnyscqoEq4rjHecQxmJts7
nob6C8Y0uvB++2idFfzrbebqAa/cOyUaREivzrERCQU7poZTYX2ITF0RjOKR
S22AQTe4r/XAUk4BtRFo2ldL+h0++bzTsAwjrgU5EKnh/B3KYGCEIieDnnDB
rbwBb3HYHNIoKg/LZL1/n4X7Xmp0mEL3p/mpzpCbk9TXFzbe5rwQDmeDSviS
oL0z51wuXOhMLKqG2RWuNk/VCONhCdZBuEc+rGccrjWfCpiH1fSux7bUCOeb
3hK1Or5X8qMGDvhVgfnWIWgobW4gA7nM1Q+qw5BLi+sGMK9Cp9cezmpuxPsQ
1qvtMboBB02esMTBROHjLzNhzGLq7TJ4VY9FqRUWGNBt9kOnmH31H+BKUd/l
Gbj1SVd6HWZnH94m00D91yYZYIWeYc5Z/PB22xefY5BbyAV9CtZz+tLqwgTS
mCEr2N14PsEDuiaf1wmCM5Z/SKOgIqNVQypcukTqUgRL1uq4GuAx20dj3XDE
JzfvLUxOab06Sci3TqK9DL0UvxwkOoN6pGq7ywDzytSGuaD/1OM0cRhJUmAq
D9/ePUenRVgekmk2hQpf9l90hkHGj5h9obR2X89tuNb77tZ9aD4icz4X9nIl
HqyGb8yEKZ/CRzXdv17DdNKp/nHo5JOUNg9PxshZbsH3L/SZaTRVlTdUPrRx
QIP3LxwPwc/CovQymoTr1nFNanCuxcHTAJqNzR+1hy/+fSf3gbpS1+euwyCl
r29iIemsVGMmzJWhiiuDWWSfTVqht+51lhfw9gvbzg+Q6z2fywxsvvqEdh2e
VdarITuL/n3S3J4VPpkS4+OHL49PLh2FJCpEg6dg5ypL/XkY+pIu3QpqsLgG
eEB6kkCtILioXUYbBaM+qrWnwmPmo05FcMO3gbYBGiQ41HbD2QEhh7fw2aFT
3JPw8MOx6SUoL13c/A+e2EpPYdBCvz70KpALXlu1tBCHwt9PH5OHFNJqG2fh
lQ6nalPY23nCzhka/jtP7wt5Xju13IZdU3nu9yFrCodALmF5qHWyCiY/dyvr
gFvTRjdew4uGIhbj8KSin8w8rMhbpt2CWqLGH6jPYXwfnpLOAet1/UwOQfmZ
0wwy0FJX5ZkajPmzdM0AfvrEJG4PzzWqz1yCzMPcJdfhB2IHn1h4+7SvUiZU
vOnOUAZNR1MmWuAIsX5VPwzWsA79QCi3V+bMDPylf516HZY/5uol00acMFN5
nRVmTL2T5YeBUv0rR+GEsH35KfhBst7lPHyUEShkBd9lZ8y5Q9t7J+oC4dFH
teGRcDDmsnkqIZ9l6eEiKELFsV0PlZ5sdHdDFqpXd9/CC30RZybhiJkb0TKM
JKuv/Qe7Bv9zYNDB733Qy8YFk25xvBaD25RG8XKwQ3iv1VkdwnzNBUlTuGoV
TucMQ4VzZ65B8ucHOm7Dwmjr2PvQ9vch/Vz4l5Sbpho239po6oDdZhoOr+Gm
JDnDOMwtbWn7RdjO6kHfv1A/U1GO+jza05UWWo7zhPigfk4I/vq89vo4dA1Q
r1GDFG/iowzg5H9XDOyhQOQbeh94c9Wp7Tqksw50ioVkYwfpMyHfv7r6Uthj
fMSxBRoqsPL1wz9G9QvvYeMz1YEf0EMqpnYNLrO9SSfTRVyS6xzICgusr2rx
w88bN2mPQd+yoI5TMDomwvU8VNckZrCCqXN3atzhu9Ygq0BIlzS5JxK2v4j9
nAKTTU7WFcKtXs6UekjlWxLSDSneMtq+hYVO7Scm4dPOJKJlKH3nb/M/mNFP
6sxwAcdv0JieC44R3awVg79brtjIQTIXfbazUKqQ6r0JtLPtzHeC4ulWIdeg
48Nqq9uwODz81H2okd/GmQuNn1LPVcFXZBPFHXBGT97qNVyjs6cdhzWOkU2/
4DuXqy5/4SCNDRe1Hsbndmsf2GG+GHOmEPTy23E7DuNJI5XV9AjzQkQHDKDg
YaI/dvDDSH/3Jcgh8iHmOmSuY9KJhRbLdpSZcJ1zvK0UVg0nXW4hlB/x41A/
HI3y+PoeLuiczfpB2I61sv0apM+LFyPTx3mq2LrBApsVTPv4YIrjvodH4YyB
tOspaBBOK3MeKv0V3bGEh1R/trlDrfWvAYGQS7dMKpLwudvRhRTYEvWusBDa
Woba1kMfG7n93ZDl0fuPb/QJ801Xs78R8hloey5B9RuWyv8I2/lDzs5ggO/B
nj93ANLVvGoQgzPhyqFy0MKb//RZmOz6acsECj2jqnaCb56csLsGZ4+ZMN2G
sp/zuhJh6n9d1x/BuBqaM1WEcnz6ODrg6a2t5Vewtuju68/w6UhryS9Y8+tu
6F/IMJ+iSW2oqiyhuEvOAQvzjzQJQe2A4w7H4Zd6STo1+LX+YJM+5Jk0cLeD
C8+OilyCkmZyf0JhyR7KV/dgz4NbVRnQwHP2QSkMHz3g2wKDnv7U6IdUkaOU
H+C+t9WtP+BThe9Oa5AkvpuezEhV+VRCdB0LvFb12YYPepAysR2Fw/9d+KgE
HWykK3WgUmzNfUvIQZkV4g53hJbtAuFrCpWTkTAgQ4U4Fc4l0LYWwtQ8Q9d6
aJG+yNgNE5vHa9/Atq7DFt/g12fidEvQN+TnwC7koZHMoDdGPD5/KvAA9NdN
tBGDnwP01eTg6UVbvrPQcuDqsgk0PiJb4wR1Kf9dvAa3G7QZbsMkFdu6RJi1
FWP1CDKqjDBUQTdbioF2+PLMeOIrSCPX7fgZ2vS9Uf4FH34o4v8LSfWEiKlN
0H9mTY+yQ67qbxlCcJd72fg4TJC2oVKD3S03G/ThCeXnjnbwltA3jkuE5WK7
4VC4Evkh/h7UidoxzYDFF0+LlsI/I0QkLXDP46ef+qD/qdmK9/B82qWgH4Tt
7PKdXoMWqea7pKboJxtnGlng4O8oLz54OFpC8CjcKyQ6pgRlcsaSdaC74Bsj
S+gQJLHfHQbYU00HQCeX0zV34WjoeFgK1MzM0i+E9ivn+Ovh+dHFhS74J82t
9g0k+T1x+RukXDc6sgTVj7PM7kK758ce0Zuhv5TsMjsAncZ0WMRgTeK+Vyfh
1Ymie5owKLbW2ASqXBYVdoIkT2J3r8J6y7yRW7D0vVZhIqTlm/V5BNOOmJ6o
gkkk6uvtsPAWY8UraG9vbvMZ3v4nQf8LhhclPtmEPSenLlOZox39uivFDtOy
x4mEYKR81HtpaMwjXqcK+b8QJ+qbE7Zb524H9V8zK1yCjkq1/0JhlU1Ywz3Y
ylPgkAFvVeynK4WWCor1zVD2yIhDHwyYe7X/PdzjKPt1Gg7X99f8gWJMLomk
FuhfGlwDWKDpVXJrPvi1sFPmKBQJP/5PCd6xjmzSga49H50s4abPIIM7fHHp
eV0AfMZ4yOouZMifo0uBOuxX+gugl/LSgzpo/NfiWhd8Yq1g/QaG8aZpfIO0
Up2CSzDYg/TPLlzkPlJHb4n+J/2K8wHoWSfDLEYwbb7+JCQvFrTQhKMm7JQm
8M3tyA5H2Eu2cecqTGN5bnPLknBdlkolEf7Ya3HoEbRT0KGqgqfCe760w/iU
9cJXMHX/RdvPkDJlD8MveIc4vn4TOq8rWlFZqSqrXXxNww6P8ZI+OwiNy7Rv
S0OqqiA9VWhv6CWsD5357CnsYM3Ip2lvOG8b3BEKOzPM7t2DAgPvdTLgVEwZ
aSm89XaothlGxR116IOeZWJs7+FTurCBaRjd43rnDySOuqFFao348rDQXhYY
u1o2xwtPaJzulIAvTxqlKMGNpUfOOlCbIfuoJdxZn1xxg9ZuU5UB0DflkOtd
+GVXjDcFegwPvSuAr0us4upgq/Hnc13QT0mT/g3UXPB4+xUav0nK/A2zzTnc
d2GdvLQ8vQ3iYhV9ugOQ/+aDMVGYMvqt4CR0Cmx01YSpgVuHTKAex4dJR9j0
kDTjKqx9TGZ4C4ow8NImwuSfK89yYIX+x9BKaDl6U6XdhnDfbzPjK2hs9mJq
DNoFTT75CTfbCxI3oeTZHnsqW/RbLsri7DA99O3iQShqPVkiDSd7cDTgp00j
Wn1YIMzbZAvrVK1dvaHYHQ7BULj8neRXDPwrlteWDgtph1Mfw3qxWb9m+HLJ
z6gPStg/E3sP9cc51qdh0lRlzR+YImXrQGqH/aVfRMcC1xbJ6nhhiF2ntQS8
zWzIrARNRLQGtWHJGH+6BZzxMrzmBkONfM0DYECEospdKOqxnz8FvouuXymA
5xXaa+rgppeDYxeUtnVjfAM/2YfWf4WPO/5Z/IY1BgmUu9Az362Nzh77my/y
5n54n1vLTBSWfLBTOgkP3XMW1oQCR87RmdgTrre9nnSEXGlTJVehXuiC/S14
8fdnpkT4NiyvMQfy5Z+2rIQazBlk7VDNoafhJRRcveY3Bue592n+hO5Xyw9u
wqSGLmoqB4wzFn7M74XfzgX1HYQf2PNTpGHSOzlTVejeGEWrDzl2VuptIVPZ
XStvOMjmShUKzZ6fao2B3pzO/umw8K7o6cfwoM8L5mZY1Jbx6zlcZprsfwe7
XpwrnIZ2YbSBf6Bm0Cll0ouqyj/jbm8zwwNxbyt54Svi47YSsHOhiVkJXriQ
3qsNAymWrlvATeMlJTeo3q9OHgAHX9S+vQNnVYyLH8BJ77TQAsjY/ECvDv7Y
9ufugqoWH6aG4XRnXsFXeL6dw/43NG222L8L16/3vaFzRD2U1I3aD99cP6gm
CkMH/xCfhF3sut1n4I/KnShjuL5RYuQI7yxuC1yFlGHMazeh56fC3gRYTq2e
nAMXxHesKqFrEx9vO1zdIzr+Epo9Zk8ZI5STwKD7k7C+35N8E564oNhK6YTx
grDOlb1QgzX32EEYWhe8KQWV950cUIHGEq55evAHj2GwLVQwJtfzhnJStDyh
kFundjoGWjMF56dDtuwd88eQq0+bphlmpc/VP4fRwTIO72DVvnn2aUghe/rD
Kow6419A4oxx12peCDO8HH/PkhfKOw4oSMDzqdocStAvyHZOG1pful9mAemz
eezd4DH+bPoA6Pv4Wt0dyLiuZfkANrLy0RTAyGWSZ7XwPT3xnWfw1WiT+TB8
EzUk/xVyvz0q+Bsen0mj3oXfCswn6VzQjzzmfbwfpv+ysxeFIt0PGE/C+gOt
DWdgiJGdpTFssdogc4Sf71vVX4EKw08v34TJkSzKCVA6j443BxYy7FJVQm+W
qaU2yOwn8/olIZ1xdMYYjPZbtvgJI2XeMmzCv/4NTZSuqJ8uLNZ7oYWHKdlB
qJh1t1oK3qVnd1eBe7h5pPUga3AtrS0cu/pp3gv2d9wYCoGGd59UxkCOV+u3
02FIaoX2YzjhdomiGUqc5a1/DjeI2K3fwcmYO5TTMEj5XcMqnNE19iZxQ38n
tXuMGaoa6+/ywM0JtbdHYKHo/QpF2PomOlobDiinOljAfhXxY27wR0TSij8M
rDz6+A40ocmyfACd+twYCuChgzef1cJbijyBzyDtR2aZYRhUMfDfBCz58vnp
IvwgKpGwAzujRxzp3BFv5HPK7YerJwRpRCGLpvWILLyZR/TwDJQI/GNqDM/E
crI5wrEOg9dX4N9Vyoib7oTneFSUEmCzPOtmNiRN622sgO7ZXYFtcMmEVeUl
jO1uox+DoSIB43PwSPdo5QaMjK4Io/TA+E5YQnevB+E67j+2g9DZRv+dFOzI
+Z2gAs8EBmjpwQSBCiJbOPZLrd4LXjWzdQuBpWEfBWLgw5DP02mQO6uipgSG
NH272wT5jdwcnkNJfmmFd1BjgZ5xmrC8qPppFZrHnMwk8cS44IqrCTMc7Bel
5oVHerbrjkC2lmIbRWj8kZdRG3rIdvaZw33DsXGusGpL2sEfXqAyPX3HkzDv
95zvATzeZEFcAA3OdnyohXuZ6PKewVKJMuthGE4/Rf8VyjFl1C/CEMpiix24
RyuanM4LceCRL42ccN8pSV8ReHjvsoos5DCz5T4DNwW6yIzhyiOnhYtw5uu1
V1dgoEdq5k24V6LVMgHOJVsy5EDP3wmNFZBij6pVG5QWmCF9CZm/01V9ggYG
zU5zUO9CqfgGvMhFREbpjeP7QHqODSYkvnwjCC2jP9dLwUs67tEqcFy7Uk8P
5gQo0NhClqDDTV6wZzrUJgQObO0nj4GVga0VafB8G599CVQnLxJogstRxn96
Ib0U6fAofDzsUzsFp5grk1ahc3qtF8klVeWY/YyKzPA4XfsOD6y+uFR9BFZp
D1opQvGM45TakFnzb605lPdwcHGFFk06Qv6wrSZrIQKKRN1uS4ZcPrVJ+XBC
XPRS7SXC88H+Ws+gpo8L1zAkyhafnoCK75hzF+EYbZHJDuT/F0dD54N6keTZ
zgnHBzevikDGrTdHZOHDhNV5DWjwma3ayIdwn4dn8EV49+x3nSvw/tPXfDeh
UdmP1Xh4uiewMxsOzI5HVkB5qRCdNrjAvEb3EjYPPOv7BCdvNIbNQceYyyc3
COn3c65QXEY7YH6vnA2OL332EISB328elYL7Pb5sKEMxL7HeC5CobSTFBm7b
Rrh7wRuHFRRDYPe8CHUMrLYeepUGXdX5Ykqgt/Nv9SaYORe63QvtqBKqRqHg
sWqHKXja9ci+VahsfnuU+Ari2xmvDCYoaFThxQPbp95rHoEO20WCivDf1zPb
52BF6ZWX5vCE9/Z9VzhFpq/vD9forSjvwKOdFXXJsPSVrHU+HGuuoa6FfB3c
bZ3QZ2IneAj+qhrQmoDGglGCi1CuLY18Bz59uThDexXjzZE33Zzw+iH5ByJQ
RbjXVBa+9aKlPwP1rZgbjWDacJLlRaiaEEx6BT5Z+10VBvW8SV3jCeVcbDiS
DSnKrpNWQKXb3dNPoH0iy+AAXKIaq/sE+ewN781BNWFTww0oGJ1LS3kN4yXy
zUY2+CMkzVoQSpSeIpOCXXcMypVhvepd6wvwbe7LAzaQ6sjAL084p/XvRTDs
LEqpjYZXPB+npcHdvHXfErg9Z6XWBB1zhUmfw8y2n/WjkGWfku0UbL8SS7EK
X9/mryD2Rb+/WGvJBO8dMmHngZJsbV8Pw9COikYFGPdPNeUcFPaY8DeHH2+d
NHaFNxU0RP1hDuPz5Qh4jkehLBleZ71gmQ+XtfZR1kJ+r/CaTnifOcthCHL8
VuKagG/bfk4sQD7qlcfbMPtISAitH+KJ/FkjTpjab31UBOb8o6GUhd+MKkY0
oMJthxQjKNPFpXcR7vGnp7gCfz83agmDoZVOl+Lhls+ucDa0d3g4VQ5d4zLz
n8DY+im3AT/C/Zs7Jz4RyhX7TD3nR5hnSPn8H6G8obIyCn8c9xFvfzZoT1F2
ShByRleQSMHa2eJOZSi4/Dn4AmRcPXvcBp5cfT/vCWW16wuCCcstiXbR0JH/
Gl8avMnB+aMY6oeIVzXCKq4313uhUFaDwShsabAQniKkkxLcXIEBg4PPiANQ
f0N/3GaCn9S+n+aBf3ivbByGJvOFZQpw+Fq99TnIyaPKbA659j/sc4GxRy9E
+sHe0r3GEfCnVcXhZCgR006TD9lZvH/UwPfq1a2dMLBb6u4QHFc/eG4ClvdL
kS1C7yuiddvw/gaxNW0gypWYoOCE4if/qxOG1XLTnidgx+8f0hpQK6uB2ghm
bzbNOsCAWqmXl+HDFpvyMJhs4R0eD2+4OOlmQ+r6P9QVkESjr/EJPPFT2HoA
Xlo5SvoJbv+ML5uFcb9WrP+Dc7fHuCiCUG8W7/3aA71V2PoE4Mqbi5WS8Jlp
YKpyEOE5BWv/CzCgbvSMDfybSEfhBcMXXjQEw9JpN5toyHaDnDyN8LkIV1kx
XKTnMWuE9f+9ZOqFLe+S3o8EEebDNCq/Q8ETEkkrkCd9Ipg4GL/7/BOE6KrK
Vp7iUjywTrts4zBUltusUoCqJCo252B7ZTClOVxP9a5wgXxZ8WZ+sFfrLEME
ZBm+PZQEz39bzMkj5LdWC64JJozf8yw7oWlXq/wQzDklumeCsD3LH98WoN71
7dxtQrp8V1PaEJy/rPQUnPDMX/9qYRgeLGl7AjJase7VgIavQ0cMYVIWZbpD
CGH+YdrlMqQPVFYMgy5Vk2zxMLJccjELttBFPS2Hs+f4Ip/A5JnZMwPwOunm
v49Q9OCt+llCeZwV7v/BENJqAYpQVWWvkmfjeyBRS0OaALQR9raUhKaXMgSV
oQfzyoounH1S3G0Nf1xgfOAJI1oSLgbDEmUZiWiosfFh7SFsLLBrKobW99N8
G2HpvaGjvfDEiMvsCFz/+iD7O9RfvmO6AvfdG91DfB3bV8sbZYQL7mvp3HBZ
IsrlMOwvoZdXgOUr1MznYNvOxLQZrOUcr3OBB9zrg/ygB8VPuQjCejbFP0lw
35JESR5k5//PvAZ6tmTTdkLLPz/aB+HaSFHAF1h6mOj0Asw9tcOyDZnthX/T
3EA/0lD1at8Nwn6fLRK+QYj/BwNOwNdU75Q14I+P/v8MofLUvxoHKOzqZ30Z
/qKQoQiDZ2hkq+Kg5stG+yyYOuXJXw53+/5baoXds/IvX8D3+pKVH2GLjcz9
Wagjz+jzH/xC46dCEYbfNSFJxgZpTsg1CsDYlHUbSWi97EOmDAeVex/rQp01
SVNraHS6m8kTphrqvw+CJ7j2lUdBw7zj8Q8hM9tCQDF8YX3PphEaezie6IXU
v6J3RmCn/b/a71Dq0TObFXh7Qp2C+Cbi7EbjMkZIyq1lzA0Tc+9THYbxe149
l4fNMedStGD4J21fM/jx7Y6VC3S48VTVD646dXFHQFnPU7+SYGn745I8eEyn
1LIGnmd6R9kJub75Vg7CSZY00y+wTKKQagG+FjjTvQX1Yrvu0dzCOOVRqcM+
eIpfU1kY+l2P5z0Bo84ubanDaLeZ14Zw3Mf7gQNUyfqpdxn22zWShsHKgw+r
4qDzioh1FuT0oWcuh6REBQOt0OQOTewLWPTtkslHqPFB+9AsDB8o2l6H3xzu
jZDfVlX+z3G+ZA+85DbsJwDH3x9QkIR5Puobp2Hb7c1KXRg0NOZkDdUCRrg9
YSir6IcgKBK4/34UJIvj1nsIeZg89hTDPwqnvzRARRWv8h4oZPoqdAQ6vTii
+x0qCT09sALXzYd/EIVjv9j/K2OErqRtXtww3aRC7DD8pxI6JQ/5njOka4UT
xp/9embwq/QwjQsksX/+3Be+CKSNCoeSDKP6SVA3tYg/D5K+VNyohpHsTYNP
YS91Wd4g9DP54/0lnBCvB0stwPvLkb+3YIzOQgFNBOrtnX2m+6B9ZjelMGSL
o2iSge+uhXuqQ6cB6cOGcIOB6689vEsm9NaH4FhBzQ0420eaEAdvmNm4ZEFH
qfHj5ZCdK3ajFRrdu1j1IoJw3TXP+iM0uVhPMQsprOgr1qF3zF4L8juI4zcz
WPdAjyjyMX7ozUNZfQzav21NOA273ad8dSGd6TEza3hv7NYxT/hVZ+5vEDwZ
bl8XBd1m/tk+hJ++mFEUw6clnY8b4OhHMsMeGLwzQDECk7X9eyfhwTCW5OU7
hHGPw2WiuzifWw6YM0KRR+yq3FBw14P/MHxazLEsDyuMwiu04KfzVdZmkLiI
j9IFNlkwlPtCG6tlw3BIn0ZOmnSX8Fx+a2supH536FY1Yb3QsPlTGCo2rzQI
d53UhL7AqKFqigVYzEvxaQvmbW5k0USi/B+WJvtgj4MNhTCsjhyvlIGXBl1N
1eHhCHFyQ3jfVLTVHo4SfQnxgZLsWTo34FEW8UNxUF2EhzwLlmh9+1YGrYla
m1qhjT9VxAvoLPLxzEdCurvfd2cgOV1xxTo0TrO0JI9CvOMmQL8H7j616eaH
HIX/bh6DGjOmmqeh+8gLVl1oackwbQVb0ztbPGCflXhCEAw6f8QhCl51WBd/
CNVESBaLoCf7WHEDXFsSteuBMXsT9o3A45Q9bybhO4mymGUYcIRVkyhaVVnA
hZeSEb5aYX7JBQ93OaWIRxP6AzFneShTLy2rBRcoNynNYNAg36gz4fPgn1m+
kNw/4GI4dPGaFkyCgomUX3Oh0hmhlGrY8TxD+ymsovuPZBDedzZ9Mg5Pfr4R
OA8ZsqhObcHrHAK0NDHop9/UfeGAehsHGg9B7um9cTLwCimJnTr8umdAxBDq
3Eues4d3U8VyfeB3YlujG/CZ0yRZHLTwka/NhB5jkRfLoLnvFlcrJNIgm+qH
QULLjR/g6qLEgxmoNG7ktw7TLb8YkN9TVR5K4Tm0B7J9OvObH2q3bpUegwHq
K1anoaZMNaUurLs2W24F/b+/MPaAxwNaqYLg0vsHfZGw7xZ5aiohX+rTq0Xw
8DlDswZ4LTpVqQc6F68eGIGh6bSLk5DF7mvFMjwp+9yWKBbjre8hVIzwYsHZ
Mi5o6OukLw691TmJ5GHLhHHzWcj3qe2GaSyhnz9r4gwb6T/J+UIS37uC4VDw
chF1Ekz81/Q1F/62YCmshnE8Pyyewl0yB8pB6Cm6v2IcMl3+bjgPN+IW/v2F
Qul2tdRxaJekA69wQHM6adVD0PtsOp8MVGHdpFSHUUtc8wawobmlxx4WJtkk
+MD1+ALdG7BU/DhpHKEcudjKTMj/8aVpGVT1qCVthWIHz9T3wy3yZz4fYMwU
ifwMTJy4xrgOHzs3/CSLV1WWXvR6zgrvR73M4YcO1z9ePgbDBpvlThPWH8z4
7zyULwkqtYIHKerNPaA/2XWaILgmy9ARCQPO6ASmwtNpJApF0NvtImkDPLqu
N9QNyxMTct9C/kBG/0l42dNbexnG6/7hJEpQVZ6qOPKNAZY8osjhgv1ND83F
YeQg0R55KHs269VZqFdncMcU1v0+pewM1QTJdq5BRYkzbbfhPaflW/chRUbh
hdwEwvh6kbcangz+utwBJ7KDOl/DTIa7seNQPmLKZB6u/1Y4sAVn/2V/ok5U
Vb5wM+g+B5S816t5KJHw3O3JneOQ+cbVWjXYyVjqaQDPfh46bA/T/6avXYJz
OpM91+FWnW1mLPx7tccvExYqvThfBjf2OXK1Qt2ejW/9hPw09Zkf4NJAif4M
LD/TTrIODUVFqsjuI47KdbNmhSd6rrLwQ1XHm8NHoWnPRNYpeFTqVsB5GH7B
zsIKigbwKXjAC+yH2IKgwr8j3yOhu4VOQSrk/fnKoghKMnlRNcDqyzsV3VDs
t7jRW0iuFE08CaO/E7UsQT0T0pv/YP6clBlDEupPqLU8F9S9/ZpPHL6IGCCT
h9M3qcfPwuK/9QWmUPCtoLUz/GnaRu0L71ObV9yGQbS++vdhlPDvrUfw116r
yir41GveuwNeVLM69ZqwzCHJNQ7D/H+RzcODNFYLfyHngZEB6mTst6YHDzlg
ZL6W8SHIu76XQgY65udXqEETYVkjAzjHc2LXDkr9fVh+CVY7ejtfhy6HHCVi
CeXYNVJkwqa7D+ZK4Vb04cEWWEv5q7wfLjfsu/EBJu8pVpuBwme9dtbgQvjt
crIH2M9i6aas0IbpHwk/PHo6uPoo3BQqcTkF++rjxc5DPUH1v5bwZ3HpsDt0
KF4tC4RyKnp3IiHjRKNlKqGca2MiRZDKqnW+Hi6I1hZ0w1+5b03eQu/sOcpJ
KBBY1rIEkzxorvyDX27EHGNIQbun4bx2APLQyreLQZVz5jFyBOmP25yFjStT
UqZQ+GYvuXMK4TmmjaFrUPBKUNJtGLyrpH8/hTB/YEyfC5WT3zyvgoeoVsM6
4GtRB/nX0ESadO0z7L+qW/0LRqeyXfkLmWOT5KlT0T80ZlJzwLd3bn4Sgtf/
tJUeh2Ff7gepQcZD8ZoGsJWMmtkeXhSze3sJ/vjJHHcdauXZqsdCXt9fGxnQ
i6K8rBQ6sug7tMAbK4d4+qFKl9rke8g5Il/xA+a0sd9ag+R3dqzIHiK9xl9Z
Vlg9c4ueH04Fjrw/CpvfDKacgu+HLuqehzOjL4isINmsRIU7zHsRbR4Ib5qd
pYmE31mHn6VAp/SRu4Ww4OSAVT0c27+j2A2vf/Tgewuplt/9+wbTz1OOLMF/
8+QZ/2DARpUJQxrGIzMSVFww7pNvlRh0lLluJAfnufJ2NCEXi3WlCVz8meHt
BFmu7J66BsnaSbhvw372YdL7kKT6w9wjWM2g3lcFdxn6UjvgiGax6WvoUZhA
PQ4jOu5U/YI3kncM/kK9AbW/VOmqyislacXsUJ7xmb0QzE9gFDsOY0YOk6jB
R5zPpvWhXPvYazsYXkNSewkeaWGOvA517+brxMJ26T2kmZD1aFFFKUws2DFq
gTn3vu70weotrcfv4eOnlDY/4LGuaZ41aBVy5zdpBtqhrQ8vWeApBudqPugc
kX7/KDSS7XA/BSntG2TOQ/sh0TVLWJVVWeIOx1NTTQKhlHMHSSTk8oytTIGG
NI/sC+G0dAdPPZy/7zHbBTkpaVvfQKcH+fe/QauPhZ5LsKKXRP0fnDHT3MuQ
iXZJv/3LAcguY5ApBsdEYg3kYG2wAflZGDTg3GgCD/tHejpBnU1JkWtwWHd+
7hZkzaWqTIR/8r75P4LxM9tnqiBjMf/+DkjJX7z4ChrLk7V/hq2clyJ+weUv
0pp/4cPafnLqLPyugdJOdmjdWR8sBA16fGWOQ7YJ2t+qsJPBslgfbg5GOtrB
Y98PiVyCMieyVkPhkjRb1z3Id+lLUgZc1XjiVAqdQr/JtECH37ak/bCX+8CL
9zDgSXrkDzhPeVhljeDVjTXSbLTvORzFLFC18bEFHzyw7sp6lCBH77ASDI7/
nKoDGSa7XS2h3ai0qjus4XbiDYQvn8n/vQsHX42+SIHd2YLxhfDMXtNz9XAm
e3C3C27u/1n2BuYoG5l+gz2es2RLsIl4qHEXip8P8aXPUVWOvXhJ7QCccs3l
FYMPP+aTycHsdvcZzRzC86UNnSbw48RanBMc1zXSuwbjt8MobsPXQhXViTBQ
jMTkEYxkttmuhPcy3IrboeCrfXavYIjDuMhn2E52mOQX3Ft9Y3oTZl54+pLq
EeLitKVKdrj2sfOOEDyl8lD3ONTVOECpBs+NblTrw8Z2WWM7aEty6a831FoI
zA+F/FUDpvdgQps6Zwbsumz48zHMDZLra4YP9B0r+6Dl5siD94T8XVJXf8A/
L/crr8GfwVY7pLno78uOlrPAgn2axnywXm5qRwJm0aoVK8GvXQxmOrCfcpbV
Eh5IZP/sBt8pZdUEQJPq/vt34ZkHWn4pcOWkvGEh1Ai1OlgPO9/0zXVB10Nn
895A+rXXht/ghUsviZcI+f7JVuxCt6P+1vR5iLO2y/YegC8q/T+KQs5PbYUn
4e5cbpAmfEhGaWgCNxVXxJxgxF4SomuQdVX+1S24lnozIRHeu9ul/SiP8Lsj
iavg9oRgXTucoB1xeQUn7zDxf4ZLgUxff8JfdylyN2Fe07IzVb6qMunH15Ls
sPTQdxIhuNLN+k4aKsSJF6vCoLlD1/QhM4uvvB2ciTDc9oaXrI+1hML/gqN9
78FBJoVjGfDXxbdzj6Go4sVHzXBk74h5H/QruLXvPRQecZqYJmz3F1HZHyhm
Tx9CWkB439mOLgu8uZjLzwev1A6tSMDOEcp2JUg/S3RTB0rcWFC0hKU3xVfd
YKJ6dX4APKj00+guzNInp0mBc6Svugpg5Uh3eB2k4Hmr1wV/hXELv4GDe+6S
f4Nyrs7ff8OttXMtu7Av4XU4fSH2P2+Z+gHIUUK/LQol69NKT8LWj7vGmrCO
KIXYBKb10Fc5wqNEf52vwkZFhSO3CgnPmTmQJcLgQ2E/cuDq9u5AJVyK+lna
DjtX8m+8gkGXJDQ/w3Pa9SS/4PjJ4epNKOM7ZkpVpKp8foRyZy/cvtGXfxDG
XckxloYMXn7sqvDyyVezenAkcuK5LXzeG1LhDQW5h5JCYa7g0uV7sOpGo0oG
/K+2gbgUnvH/Vt0MpUM8TfugyJGfW+9g7fXK3OkiwnzcN70/sHeLjJ60mPB8
Pds7Zrird7mct5jQfqTFS8B0z0Z/JfhhqchCB351KTtqCS/1Zv5xKyZcz/1Z
EgD1z341ugsZhPl2H8CgMKuiAtjtpG1UB4U/6dJ2QSaa3pfD8KDpTvpXKNHw
zu83nKVVMd+FdA4WcvQliGd+UzMfgLcmQ8dEob+sS9pJWJghfUET6t3c+mcM
mzhVyx1hKBeD5dUSwnjmNtOtEsLzdFuvEmBOXHlyDjz+H5NTJbwf2y7fDg3X
N1hewUcYcI9Ba9pTzT9LCM8Rlt7chGd5DVSpHuP4Wkhu74VNUvlVByEVz/JF
aXjGzv6AKgw7yPpBD/4+6JFiCz937ph5w4icCt5Q6Pipaz4GfrEfaUuHJ0+8
jX8Mu3JN7Jphp4KUeB/ktCVdfge1GeOqp+Hy3XrvP7Cb5Z0YaSm2d0Fzmhna
Fahl8EL7GBoDCVj9Q45eCRb5Ub7Whsv5kQ8sYFVTgKMbzCAxkQ2A3wyy6O7C
Ic/JiQew3diusgCq5kv718HF15dlu6Bg8sWl4VLCfe9BuV+heIOS/m/486gW
6S488Hakia4M54Vb67X98NmnywqicJxTjeEkfDg6MHcGmhu19xtDri8ChY7w
8QFT/6swgWJT8RZsEDTaSIBmZyUe58CMEgfjSkjryEjUDm2j9EpfQh2uUKsx
SL/n0IGfUNh05ucG1OMp6KMsR317cbdiLzy2O514EFa67HhKw2wudgVV+J4h
dlsP8upcq7KFFWmu5t7w9dtPuyGQla0/LwY63vyqmw6zyBmpH0MSntI3TVC/
60/p83LC83ds8e/gj4IKv2m4fqHI/A/8GjdwjLQC7VTMsw1muJscWMkLRRI/
mElA1w+Uu4rwwYXHudqQ9lusjgXcbl4hcYNUjLY9/tBGYCr5DnTpibjyAHJn
NJsVQPd3A6fq4MzQ1/1dUFZpcWYYKqr9yPsKu7VIDX/DfKk/OzuwdHimkK4S
5+29H/r74Z7s4+Si0FGHuFMWhrwSjjwDT3iGWhtD6QPRio7Q276E+yqc1Kzf
vAkNvs32J8CdXr/YHNhCzXC2Eua8st5ug7zCUaUvYSs5v/kYvHiEg+4nXBw+
0LMBKYyu3aGsQj9c8Ft/LxzKZD54EJYUBv2Vgif6qIdUoL/eRq4eDP8Se8kW
OlXdkvGGNPEaf0JgzPHB0hhCOb4/bNOh+XM99sdwe5l3uAlmGlyIfQ4VF8TP
v4PpHILM0/BGyccPqzBlxbSQpFpV2XdbxZ8ZBgT2a/HCkOtt+yTgUf71SUV4
oOpPoTZ0lvBztoAz5zwOusHpHdOv/jAt5XXKHSipIqLzAEo8eEpaAP8u3eyo
hXLNNLeewQ97Qs4Pwy6uVZ6v8KtX/59FuEps9GIHrtx5lElXg3rnZeK+HzLI
Jh0VhaLmNvOycJv+fM4ZGLrbomtcQ7hfKWb3Iiwada26Aov3RbjchHbXWkQS
4JCq8Ho2Id2d3VcVkIVzsLwN+leein0JrxUyOo9B3moTqZ8w5+TAygZMM5ko
oqxFvVWtMtoLLxlY/xOEtXkPi6XgVNgJYxV4b+4HvV4tYR4ne8QGGiT9KfWC
hyab4kKgC/Gwbwxc531qkg6Fih6JP4anLkSsNsH733+WPYeyL9+av4P1DxaI
pmsJ761LyV+tJdyfr6tNUodxgHXCLhPMZRV/ylNHeC+ZR+IRaHRZ47IifHJS
2Uwbzm/bnbKAaS4fDrjBmrvtv/zhI9/fJXcg998Uswcw5CEDUQFcYl/Oq4W+
tvHnnsEPbT+2hqD5Q4GmCWivNha2CIeTOc12YI+9njxdPfpl8V98+2GdrQ6p
KBwvOv5eFlJl16WdgQ1/T1wwhqe2drYvQuqh+4VXoP5aiN7NesL1Wy7iBEij
YNuUDdUijwVWQN7EFM02+PHNLf6X8FOAF8kYZO5V/joH1ZUj6zfg4YnG65QN
qMetHqf2Quf4z+uCDYT3B74uloJ//ziYqsBKliPUevAozUS7DQzPdwr2glp+
/SohDYT7ISuYYuB+Z53vadDmSUdjCbyU7R/dBIUZ1y2eQ860VKF3sKMjeW4K
ei/oFqzCvZx3LEkasf7iNgszHLIOH+CBtl8XI47A81qZaorw7IurZNrQLHrp
uTk8osSU4AoLMo/Z+kOyjxOSd2DKzEuyB9CA1uRNPpyUtkqrhS1nvls9g6LV
/NzD8Hgs7dgEvJ3z6f4iVHQiPrsD89NEdmibcPxor9VxNhHu63l8WQReunrr
pCzcEjpOdQYKT1h+NoLUmQdrL8J234DIK/D7pw6Lm3A53FgoAT56t/UjG+rP
MWZVQIlm6/Nt0OPX960BKLpa8fgT9C+xtZ6DNzfFODdgnPfzrxTNOL+5MmvZ
4MH9wgmCsKbs4RUpyC13VF8FKt/NOqgH1fZo/bKB5xMr870I+WY3DENgT5v/
v2i4t668KA0+8PitVwJdcktJm2A4X8SzXkimJJg4Cu/naftMQZ/Ap6arhPLs
zyqRtKDfffFiHzM0eHdjhgdm05EUHYFj1d1mirCWootEGx5XLig0hzW5Iedc
4e+M5f/84ADTu+oIKEKtF5zcQvj/CgvjfDj56p1cLXTjUOJ/RkhvE002DBly
XnyagObDizmLkN2U12QHNp5wIKZrVVUe/bxYwAnFjO3OicAWGbf/TsDh4t1y
DZhkruxjBJdeflW+CCP127ivwP0bV0hvQoqVwZl4mB5951k23MiduVcBKUkX
zrZBpf9a/g7A79YzBZ9gEFfohTl4aF159z/Y9522huIJyhOI92KDLOR6MoJw
bZiGRgqGLDz6oQyF3KV6LjwhvN/IPssGfsz74OkFu6PeS4ZA+fdji9EwfPls
fhrMXB03KoG+++spmp4Q/h/gTEsvoZy6d1dGIdWuxfEpeOpd6e4KbHze84q4
DXE7674cJpgkYnKFBy6NGqsfgU8rH7IqQj3ntLFzUNBPOsMcUl2uM3aFI/Hn
GPzhf5IqvRGw21n7RjKMNzyrkA/Hf3ds1sB789nNnZBXRTZ0CP7oNjg7AaVI
VDkXIeWXmIVt2FbY007bTrgewhHNCb0o5fRFCJpJs8lC88JLIxrQ74x8nBHc
0dRQvwjLbmpvXIbqbFxlYdChXMwxHpZ8KxLKhhxGasvlkEXIqesJHH2qmTZA
MKbl8icYwbKjOQebVn5wbMDjAkwTFB1ovzh90tigdf+stiB0bz71VxIykAwV
KkNyvVLjCwRb7ehtYA/dnteecL6AJT2YkE868mo0zL5eaZwGm3j8TpbASbUv
rE1wOTj1ay+s4XPJHoVDqfsNpqDnttq/FWgi5FNE/BTfkzlFlwnaBT7e5oYm
Yo51h58SttsdpAA//adleI6Qjj3spDkc4Bjkc4UnyXVJ/aFB7/b7CCiTwpyV
DEuS7Izz4QqZHmkt1L44WNwJr+sZaw/BD+Q2f77A9TntogV4y+eZ6zbBj/0K
tJ3oB7kZuThhtOU8qQh8/cdj7gSMz/jbowHzGnbuG8H0xgS9i3CtnIL4Cnx1
taMojJC/xVQ7HiZTMq5lwcr0/MJyQj67OYcn8Pw9yiMDnYT/M+kn+wRf5JZM
z0JrZf8X/xGWBY4/pniGeKOEM4QNHpa2Py0I5yqd1yVh/KJWvjLkveOvewH2
t8hvW0MHlfvlnvCz0LJjMKT+8OZQNJQ4QbH2kJCPr/hlMRT+OlLS+Iww/2wQ
3gujDQ3MRmGafYjAFDRKN5hagQFr7ZnEXTiuHPz6TPBPjjAZD+QUnm443EX4
/5ZkTwX4JmFQ9Bxs67v+2wy276S3uMA6LuYoP1gROGwRAUkvkB9JJuQ7Hrub
B+2ln72ogYYD1vGd8H4Oh+4QFL9BTT1BSCfs3rnQRXgffHngNrzq636ctpvw
vxQHl/fBKiWxCmHIJh/rdQIquW5La8ANqwgSI5hQITfqALNsRoovdxPuez8W
EAZ10l3U4qGjShNNNlyUePKyHMY9oot6Avfen1MegBe6Wdc+Qs3cgsJZ2Jgi
Z/EfXPfiYafoQbvcnfF5D7x+wbhUAC5nbt2QhFkW5ubK0Mq5ROoCfHjNj8oG
cjpeG/GETFZCycE9hOdbD5yLhrT9sZsPoe/d+fxi+OZ1jV4jpEn5QtoLuWdm
20eg0WBj+Hd4uuSZ2Qqk6tQ9SdyL+LeMlJsJfrey3eWGe5IT3xyGDjW/UhSg
MdvhC+eg9sPFXTPCss9qkQtkPEmv6wcpVps3wiGVmufjJDgs3OuaB40ELeVq
4I+mHs5OyCTkQDoEbx56MPcFXmdn7lmAXv4Cidvw16GSC7TPVZUH3a6QcMIE
nb7HwnDr97XzJ+B/ugmr6tDB53GOIbRn87BwgHHWrUKX4UM7NeKw54T4uGY6
Dv4iCXqZBSlaXpWXw9EGmltPYOeOt+YAIX2R3u7H54T3WDwrnoUGzRs6/0F9
2tt/yPvQ7uTNPNoDr0V0mgnAYadOLsk+wv+CyCyehq/F5vp14W5nW5k1LDDe
H+cJW69buwTDP0ViUtEwIiXk90OY36n7qBgyXWI43wgV/RP+9kBKXbXHI/BY
a4TNd2j0I/HACiwTefidqB/9W6VxPSMseikcxw2TX1G4H4Yl6g4qClBsXpf5
HGRaon9vBiss3iW5wMeWJdp+MNHsJVEE/Bn1uTYJkpB/dMmDJrM5/DXQZnJr
8ilMc58sGYSj579d+wJvm8uoL0ADMou92/DUQNUMzQucN1enG/ZBsSaxMGHY
8V+b2gm4v0qSRANq/l/Rfcdj9cVxADcy0kBEKEIlpaKISPaeITOiUNmr6Fck
lJUV2XtklpUihSKbMlPJFsnK3n6f+9f7de5z7rmPe8+995zHOd/ziOO9DvyQ
pXfnBkweVTzjBOm72v54wket9ekhUCsp1SwRqjKpcr+EfHnik+Vwl6HV+0ao
W5oZ+r2RaLcomo9D5ZSP55bhuMz8JkUT+mEf+aoZm4h5INe8ueH1P6XiZwlb
eOYk4fubHaka8JkwqY5JEzE/M5HGFtp6mTTeh4/1HSICoMXInZsxMD35gWQW
JHP4yPYW1p4rXfgMn1g61XbC3S0cQcNQoahBYQ4+bc9bIWlGfTKlSKeFIQWx
6uyQKuXHBh9MehNbJAZp5nmdlWFOxbSkAeRV2ma7BX98FCRxhQdk+kYew9wM
k6oI6FJ2IigNcpTyqhTBjVe+m1Ww95Zs1hc4QqGk0Qclj1UtTUKSPdlp6/At
WYkRTQv6rwwd3CzwzjfzTR6YuZk7fB7W0hY2y7UQ8cM1XunAwgc+Xjeg19x7
BSco1Xho2xOynTTKDYFG1yM1E4m025WFvBZi/h9pQnkL8XtFl2YjpLcWZPwO
u1q7x8ZgjQ5X/RKRP8DkFUUrvldQ7TNGeKuZy44bCh0QFTsL73eYrkhCZ5el
TA3IdkBXw4TI10GzaAOtPPiS7sP3z85qBcBQiwd0MVA+tPpHJvTVji14A9Wl
00M+wzNG4k6dxP7sXJrDsL6QkWsO/uq0GiX5gv1idONp4QXjKhV2GDv0a4UP
Gk6+zBSDdKmVhspE+h41owHMmEjrugmlPSRS7sLci1J3H8O/FF6aETBw+RVv
GtwmD98ohGmjpHVVRP4YDf8vsDyDUq4P0ojt25iEbx5EF6xDZwteC5qvuA77
Iw+ywEEBge88cIB+LO48NPClN5eDBcpX+HUgtfqd7evwqLv8V0eoMkWT4gkj
/9DYh8C0Ok/hRLhPyXQ1Dxb/2fWmHP7UEXBohOc5xni/wzf78ofHoNCqVMIS
lLK21KNoQzu2qJqREQ40Z/dwQSnJtnQByOBR4yoJKT9JqGnAUZPwwyZtxPp9
29M2bUScj9m399uI8Yw29wNgC2ezSAws3eM0kwkntX2S38A0ygiNz1Ct+RVp
J9xWiCofgic2aD3/wQTH/Rok7XjvXTI4RgupPkmTsUMd7it9fDBNTKtEDC65
6XkpQ7YnjdIG8I2Oz/JNOHKfN/0uLCuLVnsMOwryVsIhB0VudirMSbxkXkh8
3mp1sgpqWWSSfIElcmRDv9qJ/8ck1E8S5VcY5qzDichtD5oO9Mep+2RYoG4a
yToPzHltmXUervEIa8rBgte+S9rw8tGZpOsdRLzMH5cdoUtWB70nTFW/MhwM
mR3f1yRABRHGV3lw8otbRDlRfn+YfSPM9/su9p04jrDL6hikyPXKWYL2gz5a
FJ04nwPGSwzw4SJTPFcnMZ+HTVmA2E7+nUISPng92KYOsyJC84zhVqVdqA00
zWG+e7+TWGePVTcADvvJnIiBtC9ZZjLh7meUGW+g4SF6zc8wmclgqQOyrqgm
DkH6qrNq/2BZuAwlSRfqUVVZ414Y+Tgi9hDc1Zziwge/BwheEYMPX9sIKUPr
Xu09BpBf5tu3m11EPKeeiLsw7xyD4mP4Jb50KRzmuBllpELOPjK9QmjaELan
Ck7faG9sJZwsDf0FA9Q5TCeJct7Mn1+HZTL0dDTdeN5klYwegBRtl1/zwOxt
tvvn4c2rG6JyUOD0g0Vt6DRwJe86fLUcbeYIj6g3MXtCpnK3tmDY8E0jNAFq
PvfTyYN/Y9QOlRPbBfP+NMAm4f7SHnj0dpP/GDx7UcpwCTo+YeOh+Ibn9kjv
FANcZ7/8igvS+1hZCUBb6bAjkvB4GWWf+jcinlJDpPE3Ik4li4YN/Km4RH0f
2sWO1PlDc5/14Gh42qDCJBPGrosLvoHS3PdoPsPZ35y/OmCX8MWcIVhBYun4
jyhv9fRZkh6cp+t1f/fCPcKOiYd6iPkn9ap80LrSe10Uvp9eyVeC/L5qdvrw
6DEWkZtQhJFv911o1Xt1zIfIT6f9ORz215clp0LjXTPOhbB1uVO0qoeIlxq3
0AqDyn+n/YKfb15Xm4R+NSJLa7Db4ljazu84D/ki+gegjGH/AR64zu8/JgRr
756okYWnFIRztOGu/Zah16HvqTgbR/jyHN8FT2jgJ7wUDOt5lDMTYFpCo2Ye
ke77t/QOPpSiS2yAP29yqfTAoLIq8jHYsre0eRFmcIhk7viB+mJ1IZgBtpZ7
uHJBTt4v+gLwHIsKnyRMKk6eVYcLiRKZxrDQj1XbhvCyw8p/0NvwY7w/FHG7
Ih8NPzDzr7+AY6wWlSXQLVk3vIZIZ5137oCvra/pD8GzNWZi/+D76nv7SX4S
8UsbB/fC7onWxEMwpLdPnQ86lYsti8Jt/cuJSvDnAIWyPqypvbdlCS/0RX64
A48U5Pv6QGfB81fDiXJYGS+kwqC7SiyFsG5Id7HyJ9Ee8ahthb23jwb8glve
stKTkMvl4fwaPFdam7qzF9f/9AftA1ArzpWaB27vd/gkBJ3m7bxl4a9cFjVt
aOJxgeM6/PTTZckBLo6YtjyE4brGScHE/n+NrBKgZLjL6Ty4nFU1+a6XiP+X
+KIB2q8lGfdARtdWhjE4eyy+aRFePyPgu+MXyl+JVWCAH8wKdnPBtsnOLn54
1OVZqgR0dTFwUofDMaUyxr+IuM5dDDbQ6r1O/3/wl5phuj+crw++EQ0rJTg4
MqFRy2BPCdT7dC2sBvadSFfsgFwKS9uDsH7L990slKARebANk2ovK+ztk5Ha
a9jAegiy02jMnYR9+xLqRWHvEHOsEvy8w8xCH0auLPPehDdb943dgf8la8b7
QC1GRZVw6Me5uZwCDZaGMgugPCmXaSW8NzXK3QpPX3WZ7+0jxkM6N/+Fbd4/
ctagZquz/85+tOMeSlw/ADmVhs/w9BPz+upmhOCD9kNpstC6fVtNG1Jff71o
BiNWbiU5QD/KBI2HsDWZlSYYFu+cbIuHY0zOWbmwrPxO4Dvo+CrKuQGOD57X
7YFSNv0nxqD2GunMIrz0cCN9xwCuN6/AZQZYYHlohRNeU92ZyD9AxOMOU5CA
335QrKnBcPOGd1ehqNSRIGvIYHXe/j/I09es70/sJzBxKRqSy2qxZEJTq3cj
JVCfLTClBrJdOqLVAY8m8a0NQu7MwMRZOHFAQG4bDqtcWdgziHZDEEvhwUGi
X1jkfhLSrZ7WFx0k4uLSiSnB9w4XOPRhVXDxpiXknan6egdO3Trx3AcOcpmp
hMNes8vLKbDl6nJiAXw8EK5YCds+Hl5tgQ1MFsW90EKEy+0v1FinV1iDfaXs
HDuHUD/ecm8yw5GyvT+PDRHr3iYWCsGUjh0PZIeIuNQbF7ThGfu5aTNIX16f
5ABv33qn+RBW6RnuCIY/PGnex8MXNvz3cqG/d5z4O6gnZ0LTALO49/Z9I47D
6vT69xDx/AryW4SPtjn1dgzjez1S4WCA00+DBzmhscxEIj9MpXmoLwElqJpo
1aH7hd+1V2EWNaenNbQNPy3+H2QbS9jyg578F2ui4ELHt6AXw8R6kgZGJTCX
iYWvBo5WkW61Q85/wS2DcEe0V9QsfFvWbbgNC6d7D+wdQfvHPrXjIKw10H16
Ej7e4JcRhXfoRlYUR4j1Jhbz9eCzXFsbS2h1aEbgDqyT8yT1gY8GLXqewbAw
ucIUGNNK5VsA351q062Eaf3POVrhn9XYgV7Id+lMzF8oUbihtAbbCw4sUY+i
f6ySnMoMqZzlrxyD6u3B+4Sglr15rwyUtSos1ILSfFQhZvByhrO9A/QuG1F9
CCMPcHEGw8Ka4bF4+DYgJjkX8nvoqL+DqQp8S/VQPiU54Rt8LJCj9BuKRN7d
WoAuv+5Xkv9G//4PS8g+OHOD2ZYTKpx/qsMPr0eXiklA0wz+A+rQTEx55Cp8
HGiWbA1PiBpp/gfn8xZW/GDGl/TEKLhT6KvcCzhddW3+NczJr8qrhvHGgXfb
oXNP8eVByHt7SWQWdnMuc25DFeoIsr1jOA9jx7sOwp9SL6JPwgvFZeqisGbG
a02RSGurJ+tBU2l/OUvIdktt1gV+eXHlhTf8fVTX+hlcFNKWSIFXfuqxF8BT
aXOkldAxgn+4Bcrm/CzvhfV193z/wimlJNk1GDbju0g9jutjIJ/EDN2KGBWP
wSX554uC8M97z1wZeNFXxloL7otrEzSDp4cjqByg0uivQQ9om2JfGQTzDyfH
xMMENn6rXHjOzfP0O6icJzpeDz/LZcR9gyLOumq/YfVvH5JFaPfp8xvyP8R8
DS7HffBePY8AJ6F0yMoZmLQSV3cJZg01xKnBqtUQh6vQuP6blDX82vNiz3/Q
zqO1w+8PEV9tPCIKGqa/vvwC8hhw7yqBzmPln6ph44HU/9ph+qEpwUGYOjA0
NwN/vBx4vQWLnUju75nA8Zu95Q7CJjlbxpOEF57/vgBrOTZKFWFQYLqvHhyu
79CwhFbfbOnvwFCGo63ekMYt3fcZrGqIvpQCe867zOdDpyPkWRXw6Y+Vay0w
yfI1Ry+0rqGYmID6deIVq8TxJRaiqP/iOqhKOTL/JdYleiF3DMo2be0TguSV
ej0ysJFzKEILSl59pmgGz2nfW7T/S6wDtzPZA7pV7FYPggfEtnfEQ+5PxvU5
sEIgOboM3jyt41wPHWO3tL/BAIcqwd+QrXhu7yIUOjncSz6J+26DPn4fTHOl
V+eEZK8tls/A+YWChEuw4cgNeTX4u4h7yQjS8DQUWBHbmbTv3YO6rGSX/aDf
DV2hKNg/GsD+ApY1JpOWwPqxnd3VkKLPNKYdtldoqg/CKLuw1Rko/d940has
pKyW2zOF97PBmxk2OJQwkXoCVvL6mV+AlqNRworQ0HaNRQ82suiSW8ITKR/G
XWB1+7lP3tBB4M3TZzDq/YRiCtS5dG01Hx5OaUmpgE5H6RRaYIrQ1PRPmBxm
kDQB/1izGK/CXatrvNTTMlI+n1rImaHmP77Ro1Dih32dIAxuEE6XgYrjsne1
oFJ/uKgZlDzo9c9+mhgfWpvoAS20jyoGQavi5Pk42BbXk5ED1z0PmpVBT83K
o/XQ7rrmfDestlypH4VPLginL8DD2p0PyWfQv5m5eGUflHLs4uCEVXvY+89A
JT/uyEtQN/qmkhp0tK3YMIIvmsSLrKDD5yare9CI3p3HD/rpMk9Ewsu0W8UZ
UHrons9raH1OVL8atuRsnGiHjyabVgeg6NPE6hkoaOPvtwXPFE4r7pmVkVK7
J01xEE7pW1ecgI8d2O9egPM2fqcVZ4l+tvsf3VliPc/VTAt4W97FygVSOt8V
8IZpbAGbYdBX3aE1GT7yOpSaDwvl4lwq4FpQt1QLJHk9SdULTUSe103ATYYY
r1X4/rigKPU/XI+h+WkmmLuTJvUoLBxx1xWEIZPNdDL/iPc+Q9dlqNtTk24K
3X7Kutv/I8YLtel7wJ0NTwSC4Mm4QvJ42F9b2JIDxTMSg8ugHf22XD2cZppd
6IY6HuuJo5CDPEZpAQ4x162RzeF9R6X7lh6+43d8dBgOf9itfwYeV7cVvgSj
b9GwqsHntMdWjaCe2N5WK2heax1xD37vXFPxg9yGIiuR8L/ohMQMGJe8IPsa
2n+ynP1ElO8glNEGD1K1Wg7AlEUH4RmY9SiHaQsufTy/vXse73m/pd9sMERY
u/oEPK1aGXwBPtjoVVKE7MFDK7qQhKYn2QKePWMu7wJF9v+b8oI2kzLxYXCp
8qlu8jwxH+0QZz7hrhcbHyAfaclwM7xQvdz0Ezp4BOVOEPkFuN1X4QHnCQnq
BeT3rFhkgq1i3SlH4S4yV0VBOKs0MS0NXcJ2x12G9T7SWqZwkPM7s/0CEbfw
4V93+PSRcMNTyB72JycOJj67EJCzQKxH6mNWBgv8Mvnq4VfZixPdUH5bPX4U
7uErUViAu/mt58gWcfzM6hR6uP6EyuAwTJ3gZTkDdz7vGBSH5F2PilThjbvk
AUZE/p/j5lbwYpqB+D1oYOW/xw8uXmtoj4SCtyyDM4jySMVlX8O3kfdWPkHT
5J6XbXCpw9piAF6m6uGYgR5GT/o2YYbZtbTdS2iHvBO0Z4MPv5hInoBTQvwM
F6DsQ9oRBRgXRlmoCw8nBN+zgLNzeeIu8OILx00vyPeNuywM1te0OybD8E4b
3nz48gPT0AdovHE7oRnePqp39SfMKM/imIA26vLjK9BUKf8N1TKeF/dn/Zng
MHO7yVH4hTWLXxBqaneuS8MbLJ6Vl+FRt9UHpjCu4peQPWzVPfDXHY5RhyY8
hWYmYRpxsKdPgiIHjnJaVpcuE+vfyQbVQb8Vl+vd0KvN6tIosb9vJOsCvGUZ
/49sBX9PXXIV/QoRL9jwyWF4eBed9BnYQ8W2IA6XJiiTVCHLaLaCESSlYF24
vUKsI8qc4wa98q/Z+sK64MBLkcR+yVusGVC1+dNmMUzV0Bn4BKcKPcrb4BtX
I/8BaL2coDAD9/JLrmxCKr5TybtXcT881pNjgyVV5lO80FCAMUEE/qk4p68A
1Y4nc+quEvG2zdfMoUXum35n+G+HR4MX9D71NC8M+gdf90yG1eXd0vlQwb53
6QP0XXRKaYZjHpEKP6HBn9qpP3DH74fRKzDuzUtVqjUZKWatU7RMa8T4kfdD
RyDFVYrP52DS/uyX0tDh2nLY5TVi3KKalSksEJg/Z79GzA+tnHGHu3MNk5/C
a4aPlOJgTtHcTDZkspeIKYVXBXer1EH/rJKd3fB9ZGr3CDRaccyfh4Fji8Fk
66gfJxjt6deJ9R8YlQ9D64/n2M6sE+OKYvvFIUeaT5QqvEVrKW8EexQ//LsN
F9Qkk9xghhOPti8sE5KljYT95N4d6bAi0DipGAZ6aTt9gqJmCcptkPPXb+4B
orwYlZVp+NTZoHoTUprI++zeQHtgMEecDao7PZ/nhUVBZtkisPtYsqkCJHOt
YdGFITXZXebw1RRPpDPUmNtp7AWr23ROhEHtwNj1JBgTINfyaoOYBx8d/wG+
LtS91QzFDfbz/9wgfv8KnP9DHC/rXtEKjGg6b0u1KSP1a/LEUaZN4vfU+71H
YDjz+efnYP/Jr5rSMEHGjO4yzHrI1HUNupdTJtvBXj41R3dY4TEg/3STWI9Q
62ActDtSMpkN59RUS0rhlqr03TpYVXdWoBsGST8cG4FJKqyx85DUtESZbAv1
Sa5pgw6mfBYv4YDlc2Fup2HZjVhFcVhP8YVLFVJobJEYbRHjvZx6b0O7HbkF
bnBCyPe+L7x6es/FSEgnxjCXDr8VCSQVEwqYKXyC4i03Z79COWrP5H749XvR
1WmYqqrNswn5diht79qWkWqOejTAClUpxmp4oYXxqQwRWDZw+T8FeGhxj6Qu
VNzjsmQO97RbpDjD0Il8eS/IL647GQoFE5OikiD5jUbVV/BsMhftB5hE82ag
Ce6tbq/6AU9XTGf/gUN+ZWErcP+uZFsqElkp3lBZESZY+8t37ghUD+tPPgeD
UwMVpSHtVa1pTTj3LiLyGpQMHpWzg0nux0nd4UTw1eZAWHZpMjMWep/SCM6G
u9fN75RC/c4C7TqYcFT8SDec/3Dn9wgU5dKOn4ej1vRKZKSyUl9N+2fpoPLP
zmgOKKbqLX8abs5ObF2EHN/HalRgZGxPlCEs2tPifBtuT53UdoPWFur8vsTn
joKUkXArjrYtHT40sAsphjsSGGU+wfse3rNf4YMFi4R+SFH7Sn0aTiecptqE
pZoWdbvIcB5saoNZ4b7P21d5YcFONwER2NEev1MBLntYDVyBexQ9Csxh2gEq
V2doy9Qv6AX7bW9MhcJuarn0JCJN+8HoFexzMWX8AEXZnrQ2QeuQ0MAfkGdf
vtof6DuhzLQCzzmHjVCSy0rFDKeU7Idu+3SeHIGn3F/pnIPHChs4pOGNxzvH
NOE9ocrsa5CP/slNOzjHR8bpDoMid/QEwp10PcGx8F+pm0I2PORwm7wUdr9j
rqmFkT5kgV1Qa/aQwQh8PPTi1DyMO3mMgmyHrNSLU4I/6CD7ZZksDvi9t9r2
NOzQLzwpDvNLS4ZVYM71fVGGsOY7n8JteKi7eckV6tW65TyBh8n0bj6HU66U
AulQ9Z8hVTF0+PBs9CM06XSs+Qrf7q9L6IeBt5nspqGOX++5TWhLGTK9i0JW
qjd6JZEV8lCwKfLC2LvcM8IwUPV6rDyMu1CvcQW+qhNnMIff2M1HneALQ+vq
R5Dk70RmKOxK7wpMggHdITdfQameQ0IfINWS/VwTVP3Rl/IDHhTNU/wDzVZo
ppbh1su6CEpKWSndkRzZ/VCB0YrkCBzNK2g8Cw92qqVLQa11oQBNqGJ70OUa
vH++SdcOFgtO8rrDvs6Qv4Ew6+xIYiyM5uBQyoYXvc1n3sIqatHIWijCuijV
BWUFRZaHYe7Ek3dzcN1SNZiUSlbqpu8OBzpI7eagxwFpGhVET8Mi3qv04vDO
CZkfKtAoceG5IfSXY1e4DWm1bv5zha/DTWOeQFJnHdnn0O2K/3Ia/NX0900R
LPPy9P4I94Z8MfwKST5Ri/TDQulP+6dh6X+r0xuQmcGyche1rNSQsbwPK3zm
HiPOC0/sdJ0WhmysFPHycDkwSeUKoSMdqTn0PVz0wQnO6HA9egQFO0aVQ+Hj
8GnWJLiLXHT2Jex5qFP3Hq67rMU2Qa70dssf0EillPcP1HxQObpMHIfdOZFy
J+qhbLbufpipbEt7BB4t+FJ/Fh7kDPKWgqpPs6U0oe75mxTX4Lm9/l9sYdqu
+4kPYJalsn0gfJ1xWyIWRp433pMNK6hP9ryFh581JNZClnYR0y74WVju4Aj8
aH+4cw6KDO0IIKVBPQjUkqSD1Dzkq+zQ3rm55BTclHZxuwhleUOlVSC33BNG
QyK9X3zyFpFWeVfjCh1IT0Y/gaETa9efQw23X0fSoXOjSX8RpKnkjPhI5GMN
lv0KmRo65/ogT9231CnY/qXJYAMWeAcc3LUL9f3BmSkW+CzsbMNxyH57PFsY
Suxv85WHzSzFxlegX+JuXnOYEj817gS95/wTHsHx1DnFUFhw2GsmEfZNiUe9
hD8/Bsu/h9/iMsmaiPL+zLV8h+0nL2WOw/gptoBlaEUzb0+5G/fpTfLL+yHZ
woFjR+DgD/q/ZyFHp36yFIy2OKGsCS3mY6ZN4J7P38NtifRZGYkH8NKNHYsB
8IeJSGkMpNqXG5AF+bksrd/CwwovdGrhsYLdF7ugXhQ/8wicVVgemINjcu6x
pHtQX97dVqSDkgxHZtkhXcKjyFPwuEuDxEX4g0llVhk2GQbnGcAxbyG3W1DK
30rbFY5nZos8gdSHzrA/h3MJpOtpsP1taGMRDLjt+vQj/PX8jfRXyD7mNtsH
E49Vx0xBTTEbmQ2o8/rVHM1e3Gekh/NYYJcFv9NxeF15h6ww9KLtPSQPo46W
runAUaaCrhvwRoJJjhNkPi165xFc7S8WDCXSccITiZBtdiTmJUwK26n0Hh5U
PbPRCJ/pvSr5DpW4Uu+Mw3H3G2LLsLjlDyUlLZ6n2ZI9jPBtatFLbvi+ndr7
LGQ4K6ktBaczDNk0oahy0U8TaObKGGULBbIyNB/A4Nx9NIGww+Z+dQx0kSdx
z4JPVVlE3sLdFlrLnyFTb8n7TpjdK+U3DDvpu/XmYO7vvOOkdLgOP0tXaOF/
Tkm17LDYnS7sFLRQDte9CN+sHWJSgdm+pF8NoPlduie3IMNQt6grrL5bPfsY
nlaZyI6AgQsqt9KgsfT4qSK4EkW/UQUf2Rxu/wLLv6nl9UH7J/Y+UzCWge7K
BjSS2mTbRS8rFfFq8zsLVCMdDj0OJfJ0pIXhHYPzs3JQMvd9gg7k21OhcQPy
38zZ5QQF1Oy6PGGiMeXLEHj4lFNQIrx3q97uJdz9gE75PezwUmBrgm66zQPf
4WsG/dhxqCV2UmkZ0oSVzFLsw/X7axvJCBlI2yW54XTT4qIAnOf6USYJzz/e
H6QB9ecibExgSsEDLVt44YGy8AMoysLJEAj3NjEMxMBmbdP4LHjV953yW2i+
/nL2M1R7lBTRCaseOV8chuG/xyf/QdodT7JJGPDc08p3oYWuypPq7FDz4arg
KUjOc4/9IpwpMiZRgSGD0e0GsIrnXvgteLZYX94VSj8OnX0Mm3gMoiLg7s6T
Emnwi9CxyUIo1RKWWgULyUIsvxDpHmHRPjgrP8s6BQc/VJBsQE6JkUEaRtTD
7MK3LPBiJ6nncei49UtMGCZzj03JwedayTE6kN7LROYGdM9nmXWEr5wL0j1h
k3W8eQj89sqfPxFWUZJQvoS1yi8GymGoYEd5I7T9eyn8Ozzpc+DGOOSLe3l8
GSoKFw9T7Ed9suuMZITqh1vluaH/x2crArAk8E6+JGyIM7HRgC9+FJw2gVGO
+5dsYLAkefV9mOYr+zwAvpSXt4qBHr2m4lmQe0yJ5i1smXT88hkudOoEd8Kh
pt9Kw1B8zWbHHJQhc6ogYUK7z/CdKy0kNyMTYIdNdOGTfLDmjMBLMUh2Sd9F
GSoJiEsZwLt33elvEfux5A3dhcKRZMWP4fWwv54R8D+XCOU0WCIlsbeI2G4o
1VQFE4WKvL5Acdb1830w7mnvxCQ8+7MteZ3YLnXQiIYZz59psoMs8KyL3ygP
9DmrU3oeOksKP5OD3/dm2erAgtwpmRtwZkcmnRN8knykwxOyD649DYG3jQ9L
JsKhq67TeZDsYGZsORxmH1dshGkNBVs9sGaC/eMYFLru+2wJ5q3qOFAcwH0i
bqzNCPnPmJzjhgEVD2jOQsOl+S5JuKC1EqEBdSZ5FE3ghXnqORto164cdR/q
HeC+FADHeZinomE9i212JmycCrzzBr4hY9D8DJ0GLgh2QnWJTdZhyHVCZ+Mf
/HeHvI2EBe16Ka7ntDCp0k6JHfKu283xwY98VpFi0PpAvpgylLeIHNOHz92P
J96EFj5i1+9C+wINocfwf6paW9I=
"];

To find all days on which full moons occur in at least one time zone, we need to form a band covering all time zones without gaps:

fullMoonDatesP14 = FromJulianDate
&#10005

fullMoonDatesP14 = 
  FromJulianDate[#, TimeZone -> 14] & /@ fullmoonJDs;
fullMmoonDatesP12 = FromJulianDate[#, TimeZone -> 12] & /@ fullmoonJDs;
fullMoonDatesM12 = 
  FromJulianDate[#, TimeZone -> -12] & /@ fullmoonJDs;

We should join these lists and remove all duplicates, preliminarily reducing all TimeObjects to the granularity of a day and removing time zone information with TimeZoneNone to simplify comparison of dates:

fullmoonDates = Union
&#10005

fullmoonDates = 
  Union[DateObject[#, "Day", TimeZone -> None] & /@ 
    Join[fullMoonDatesP14, fullMmoonDatesP12, fullMoonDatesM12]];

Because a single Julian date of a full moon can convert to different dates in different time zones, we obtained more standard calendar days than the original Julian dates:

Length /@ {fullmoonJDs, fullmoonDates}
&#10005

Length /@ {fullmoonJDs, fullmoonDates}

Using function DateSelect (which is new in the upcoming Version 12.2), it is easy to get only those full moons that happen on Halloween in at least one time zone:

alltimezones = DateSelect
&#10005

alltimezones = DateSelect[fullmoonDates, #Month == 10 && #Day == 31 &];
Length[alltimezones]

There are just 65 of those out of all 25,795 full-moon days within a span of one thousand years! The years when these rare events occur can be concisely summarized with a timeline:

TimelinePlot
TimelinePlot
&#10005

TimelinePlot[
 AssociationThread[
  DateValue[#, "Year"] & /@
    alltimezones -> 
   alltimezones], Sequence[
 PlotTheme -> "Business", 
  PlotLabel -> "65 OUT OF 1,000 YEARS OF FULL MOONS ON HALLOWEEN"]]

If one considers a specific location and time zone, these events become even more seldom. Let’s define a function that finds all full moon dates for a given TimeZoneOffset:

singleTimezone
&#10005

singleTimezone[offset_] := 
 DateSelect[
  DateObject[#, "Day", 
     TimeZone -> None] & /@ (FromJulianDate[#, TimeZone -> offset] & /@
      fullmoonJDs), #Month == 10 && #Day == 31 &]

For instance, in New York City, we now have only 40 incidences of a full moon on Halloween and a big gap of 35 years in the past where no incidences happened:

TimelinePlot
&#10005

TimelinePlot[AssociationThread[DateValue[#, "Year"] & /@ # -> #], 
   Sequence[
   PlotTheme -> "Business", PlotLayout -> "Grouped", 
    PlotLabel -> StringJoin[
ToString[
Length[
Slot[
RowBox[{"CloudGet", "[", "$Failed", "]"}]]]], 
      " OUT OF 1,000 YEARS OF FULL MOONS ON HALLOWEEN IN NYC"]]] &@
 singleTimezone[
  TimeZoneOffset[
   Entity["City", {"NewYork", "NewYork", "UnitedStates"}]]]

For Sydney’s time zone, there are even fewer: just 25 such events:

TimelinePlot
&#10005

TimelinePlot[AssociationThread[DateValue[#, "Year"] & /@ # -> #], 
   Sequence[
   PlotTheme -> "Business", PlotLayout -> "Grouped", 
    PlotLabel -> StringJoin[
ToString[
Length[
Slot[
RowBox[{"CloudGet", "[", "$Failed", "]"}]]]], 
      " OUT OF 1,000 YEARS OF FULL MOONS ON HALLOWEEN IN SYDNEY"]]] &@
 singleTimezone[
  TimeZoneOffset[
   Entity["City", {"Sydney", "NewSouthWales", "Australia"}]]]

For someone born right after 1955 in New York City who had never traveled (at least not on Halloween), the 2020 full moon on Halloween was the first such event in their life, and the next one will happen in 2039. The time span between 1955 and 2039 is 84 years and is on the order of the average human lifespan:

WolframAlphaQueryResults
&#10005

\!\(\*
NamespaceBox["WolframAlphaQueryResults",
DynamicModuleBox[{Typeset`q$$ = "average human lifespan in USA", 
    Typeset`opts$$ = {
    AppearanceElements -> {
      "Extrusion", "Warnings", "Assumptions", "Pods"}, 
     Asynchronous -> All, 
     Method -> {"ExtrusionChosen" -> {
        "Result", "Result", 1, 1, "Output", 
         "Quantity[86.81, \"Years\"]"}, 
       "Formats" -> {
        "cell", "minput", "moutput", "msound", "dataformats"}}}, 
    Typeset`elements$$ = {
    "Extrusion", "Warnings", "Assumptions", "Pods"}, Typeset`pod1$$ = 
    XMLElement[
    "pod", {"error" -> "false", "id" -> "Input", "numsubpods" -> "1", 
      "position" -> "100", "scanner" -> "Identity", 
      "title" -> "Input interpretation"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> True, "string" -> False}, {
Cell[
BoxData[
FormBox[
TagBox[
FormBox[
TagBox[
GridBox[{{
PaneBox[
StyleBox[
TagBox[
GridBox[{{
StyleBox[
StyleBox["\"life expectancy\"", {
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}], {
                    LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], 
                    "\[SpanFromLeft]"}}, 
                    GridBoxBackground -> {"Columns" -> {
GrayLevel[0.949], None}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, ColumnsEqual -> False, 
                    RowsEqual -> False, 
                    GridBoxDividers -> {"Columns" -> {
GrayLevel[0.84], 
GrayLevel[0.84], 
GrayLevel[0.84]}, "Rows" -> {{
GrayLevel[0.84]}}, 
                    "RowsIndexed" -> {
                    1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                    AllowScriptLevelChange -> False, 
                    BaselinePosition -> 1], 
$CellContext`TagBoxWrapper["Separator" -> " | "]], 
                    LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], 
                    BaselinePosition -> Center], 
PaneBox[
StyleBox[
TagBox[
GridBox[{{
StyleBox["\"age\"", {
GrayLevel[0.6]}], 
FormBox[
TagBox[
GridBox[{{
PaneBox[
StyleBox[
TagBox[
GridBox[{{
StyleBox[
TagBox[
TagBox["\"human\"", 
$CellContext`TagBoxWrapper[
                    "Entity" -> {
                    SpeciesData, "Species:HomoSapiens"}]], 
                    Identity], {
                    LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], 
                    "\"lifespan\""}}, 
                    GridBoxBackground -> {"Columns" -> {
GrayLevel[0.949], None}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, ColumnsEqual -> False, 
                    RowsEqual -> False, 
                    GridBoxDividers -> {"Columns" -> {
GrayLevel[0.84], 
GrayLevel[0.84], 
GrayLevel[0.84]}, "Rows" -> {{
GrayLevel[0.84]}}, 
                    "RowsIndexed" -> {
                    1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {1, 1, 1}, "Rows" -> {{0.3}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                    AllowScriptLevelChange -> False, 
                    BaselinePosition -> 1], 
$CellContext`TagBoxWrapper["Separator" -> " | "]], 
                    LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], 
                    BaselinePosition -> Center]}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, ColumnsEqual -> False, 
                    RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{
AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, 
                    AllowScriptLevelChange -> False], 
$CellContext`TagBoxWrapper["Separator" -> " | "]], TraditionalForm]}, {
StyleBox["\"country\"", {
GrayLevel[0.6]}], "\"United States\""}}, 
                    GridBoxBackground -> {
                    "Columns" -> {None, None}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, ColumnsEqual -> False, 
                    RowsEqual -> False, 
                    GridBoxDividers -> {"Columns" -> {
GrayLevel[0.84], 
GrayLevel[0.84], 
GrayLevel[0.84]}, "Rows" -> {{
GrayLevel[0.84]}}, 
                    "RowsIndexed" -> {
                    1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, 
                    AllowScriptLevelChange -> False, 
                    BaselinePosition -> Automatic], 
$CellContext`TagBoxWrapper["Separator" -> " | "]], 
                    LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], 
                    BaselinePosition -> Center]}}, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, 
                   "Rows" -> {{Automatic}}}, ColumnsEqual -> False, 
                 RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{
AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, 
                 AllowScriptLevelChange -> False], 
$CellContext`TagBoxWrapper["Separator" -> " | "]], TraditionalForm], 
              PolynomialForm[#, TraditionalOrder -> False]& ], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Grid"}, {}], "\n  "}]}], 
    Typeset`pod2$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "Result", "numsubpods" -> "1",
       "position" -> "200", "primary" -> "true", "scanner" -> "Data", 
      "title" -> "Result"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["microsources", {}, {"\n    ", 
XMLElement["microsource", {}, {"MortalityData"}], "\n    ", 
XMLElement["microsource", {}, {"SpeciesData"}], "\n   "}], 
XMLElement["datasources", {}, {"\n    ", 
XMLElement["datasource", {}, {"AmazingNumbers"}], "\n    ", 
XMLElement["datasource", {}, {"TheWikimediaFoundationIncWikipedia"}], 
          "\n   "}], 
XMLElement["moutput", {}, {"Quantity[86.81, \"Years\"]"}], 
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox["86.81", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "86.81", "SRString" -> "86.81"]],
                    " ", " ", 
StyleBox["\"years\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
              LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0, ZeroWidthTimes -> False], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,moutput,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
    Typeset`pod3$$ = XMLElement[
    "pod", {"title" -> "Survival probability", "scanner" -> "Data", 
      "id" -> "SurvivalTable:MortalityData", "position" -> "300", 
      "error" -> "false", "numsubpods" -> "1"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["microsources", {}, {"\n   ", 
XMLElement["microsource", {}, {"MortalityData"}], "\n  "}], 
XMLElement["cell", {"compressed" -> True, "string" -> False}, {
Cell[
BoxData[
FormBox[
TagBox[
GridBox[{{
TemplateBox[{
TemplateBox[{2}, "Spacer1"], 
StyleBox[
TagBox[
GridBox[{{
TagBox[
PaneBox["\"living past age 75\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"94.1281905965361289645`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"living past age 80\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"78.7355028350312835528`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"living past age 85\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"58.4306590125793476886`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"living past age 90\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"35.1877411674742859304`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"living past age 95\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"14.9317070657494070929`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"living past age 100\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"3.7163179031344100167`2.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"living past age 105\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"0.4569132190281948169`2.", "\"%\""}, "RowDefault"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Left, {Right}}, 
                    "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                    GridBoxBackground -> {"Columns" -> {None, None}}, 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{1.5}, 2}, "Rows" -> {{1}}}, 
                    FrameStyle -> GrayLevel[0.84], 
                    BaselinePosition -> Automatic, 
                    AllowScriptLevelChange -> False], "Grid"], 
                    LineSpacing -> {0.9, 0, 1.5}, LineIndent -> 0, 
                    StripOnInput -> False], 
StyleBox[
TagBox[
GridBox[{{
TagBox[
PaneBox["\"dying before age 75\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"5.8718094034638674827`2.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"dying before age 80\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"21.2644971649687199999`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"dying before age 85\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"41.5693409874206523114`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"dying before age 90\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"64.8122588325257140696`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"dying before age 95\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"85.0682929342505929071`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"dying before age 100\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"96.2836820968655899833`3.", "\"%\""}, "RowDefault"]}, {
TagBox[
PaneBox["\"dying before age 105\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], 
TemplateBox[{"99.5430867809718051831`3.", "\"%\""}, "RowDefault"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Left, {Right}}, 
                    "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                    GridBoxBackground -> {"Columns" -> {None, None}}, 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{1.5}, 2}, "Rows" -> {{1}}}, 
                    FrameStyle -> GrayLevel[0.84], 
                    BaselinePosition -> Automatic, 
                    AllowScriptLevelChange -> False], "Grid"], 
                    LineSpacing -> {0.9, 0, 1.5}, LineIndent -> 0, 
                    StripOnInput -> False]}, "RowWithSeparator"]}, {
TemplateBox[{"\" \"", 
StyleBox[
RowBox[{"\"(\"", "", "\"based on death rates in 2017\"", "", 
                    "\")\""}], {
                    FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}, "RowDefault"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}}, 
               DefaultBaseStyle -> "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
               "Column"], TraditionalForm]], "Output", {
           
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n  ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n "}]}], 
    Typeset`pod4$$ = XMLElement[
    "pod", {"title" -> "Survival analysis", "scanner" -> "Data", 
      "id" -> "SurvivalCurves:MortalityData", "position" -> "400", 
      "error" -> "false", "numsubpods" -> "1"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["microsources", {}, {"\n   ", 
XMLElement["microsource", {}, {"MortalityData"}], "\n  "}], 
XMLElement["cell", {"compressed" -> True, "string" -> False}, {
Cell[
BoxData[
FormBox[
TagBox[
GridBox[{{
GraphicsBox[{{}, 
GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQnQYCakEODGDwwR7MTwtymMP9qMfE8T2EvyzIwbAy
+Hdb8TsI/1mQw4I8fQ+tmW8hfLVgh69nHp25v+kNVH+wQ8bbBJuqfa+h+oMd
imRePJPe9QqqP9ihS2baKtUlL6H6Qxwe7jCOeVj7Aqo/xEHx0KaNZR7PofpD
HBaoiH1yYHwG1R/iMGG12qfOlU+g+kMd7POWr77v/BiqP9ThSGHtFcfLD6H6
Qx02sp8puhTxAKo/1CFk2WbV1WvvQvWHOczIubu+c8UtqP4wB453y+OmbLwO
1R/mcOLtcb22C1eg+sMcBMzZvq5guwTVH+7gk895+86Kc1D94Q4LHP7bHZt2
Eqo/3OHAuifqPK+PQPWHO0j4aj8NOHgAqj/CoULuEd8Bn11Q/REOGql3c021
t0D1Rzg0iFi7q+utg+qPcEhoNmr7+G8pVH+kw4PlF6ueGcyH6o90UND2f/mm
dipUf6TDAZVjlyz39kD1Rzo4CLJ+qZ3bBNUf5dCwkWn1nOhyqP4oB4bUr/w/
Y3Og+oF8/dAffCsToPqB/IZvt6t+BEH1RzswmKyw6nroAtUP5D+o0HHgNLNH
TV/Q9AaSR+aPpr/R9Eej9AcAkQIasw==
"], {{{}, {
EdgeForm[], 
Hue[0.67, 0.6, 0.6, 0.05], 
GraphicsGroupBox[{
PolygonBox[{{1, 39, 40, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 
                    27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 
                    15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 
                    2}}]}]}, {}, {}}, {{}, {}, {
Hue[0.67, 0.6, 0.6], 
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]], 
LineBox[{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, 32, 33, 34, 35, 36, 37, 38}]}}, {{
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}}, {{
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}, {}}, {{
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}, {}}}], {{}, {}}}, {GridLines -> Dynamic[
Map[{{#, 
GrayLevel[0.7]}}& , 
MousePosition[{"Graphics", Graphics}, None]]], 
                   DisplayFunction -> Identity, 
                   DisplayFunction -> Identity, 
                   AspectRatio -> NCache[
                    GoldenRatio^(-1), 0.6180339887498948], 
                   Axes -> {True, True}, AxesLabel -> {None, None}, 
                   AxesOrigin -> {72.6, 0.}, AxesStyle -> Directive[
AbsoluteThickness[0.2]], BaseStyle -> Automatic, 
                   DisplayFunction :> Identity, 
                   Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
FormBox[
StyleBox["\"survival probability\"", {
                    FontFamily -> "Verdana", FontSize -> 10, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}], TraditionalForm], None}, {
FormBox[
StyleBox["\"age\"", {
                    FontFamily -> "Verdana", FontSize -> 10, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}], TraditionalForm], None}}, 
                   FrameStyle -> Directive[
AbsoluteThickness[0.2]], 
                   FrameTicks -> {{Automatic, Automatic}, {
                    Automatic, Automatic}}, 
                   FrameTicksStyle -> Directive[
                    FontFamily -> "Times", FontSize -> 10], 
                   GridLines -> {None, None}, 
                   GridLinesStyle -> Automatic, ImageSize -> 300, 
                   LabelStyle -> {
                    FontSize -> 10, FontFamily -> "Verdana"}, 
                   Method -> {
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]], 
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]], 
(Identity[#]& )[
Part[#, 2]]}& )}}, PlotRange -> {{72.6, 110}, {0., 1.}}, 
                   PlotRangeClipping -> True, 
                   PlotRangePadding -> {{None, None}, {None, None}}, 
                   Prolog -> {
Opacity[0], 
TagBox[
RectangleBox[
Scaled[{0, 0}], 
Scaled[{1, 1}]], Annotation[#, "Plot", "Frame"]& ]}, 
                   Ticks -> {Automatic, Automatic}, 
                   TicksStyle -> Directive[
                    FontFamily -> "Times", FontSize -> 10]}]}, {
TemplateBox[{"\" \"", 
StyleBox[
RowBox[{"\"(\"", "", "\"based on death rates in 2017\"", "", 
                    "\")\""}], {
                    FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}, "RowDefault"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}}, 
               DefaultBaseStyle -> "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
               "Column"], TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n  ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n "}], 
XMLElement["states", {"count" -> "1"}, {
XMLElement[
        "state", {
         "name" -> "Show hazard rate function", 
          "input" -> "SurvivalCurves:MortalityData__Show hazard rate \
function"}, {}]}]}], Typeset`pod5$$ = XMLElement[
    "pod", {"title" -> "Lifespan expectations", "scanner" -> "Data", 
      "id" -> "LifespanTable:MortalityData", "position" -> "500", 
      "error" -> "false", "numsubpods" -> "1"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["microsources", {}, {"\n   ", 
XMLElement["microsource", {}, {"MortalityData"}], "\n  "}], 
XMLElement["cell", {"compressed" -> True, "string" -> False}, {
Cell[
BoxData[
FormBox[
TemplateBox[{
TemplateBox[{8}, "Spacer1"], 
TagBox[
GridBox[{{
StyleBox[
TagBox[
GridBox[{{
TagBox[
PaneBox["\"bottom 1%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "73.0392198438256770032`3."}, {
TagBox[
PaneBox["\"bottom 5%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "74.6617876758547112104`3."}, {
TagBox[
PaneBox["\"bottom 10%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "76.4902205840636071343`3."}, {
TagBox[
PaneBox["\"bottom 25%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "81.0132034883117597701`3."}, {
TagBox[
PaneBox["\"top 50%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "86.8312305071490868613`3."}, {
TagBox[
PaneBox["\"top 25%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "92.3465502163439992955`3."}, {
TagBox[
PaneBox["\"top 10%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "96.7052515260593992252`3."}, {
TagBox[
PaneBox["\"top 5%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "99.1280372790996295862`3."}, {
TagBox[
PaneBox["\"top 1%\"", 
                    BaseStyle -> {{
                    BaselinePosition -> Baseline, 
                    FontColor -> GrayLevel[0.3]}, 
                    LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, 
                    BaselinePosition -> Baseline], 
$CellContext`TagBoxWrapper["Label"]], "103.3982802717079039212`4."}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Left, "."}, "Rows" -> {{Baseline}}},
                     AutoDelete -> False, 
                    GridBoxBackground -> {"Columns" -> {None, None}}, 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{1.5}, 2}, "Rows" -> {{1}}}, 
                    FrameStyle -> GrayLevel[0.84], 
                    BaselinePosition -> Automatic, 
                    AllowScriptLevelChange -> False], "Grid"], 
                    LineSpacing -> {0.9, 0, 1.5}, LineIndent -> 0, 
                    StripOnInput -> False]}, {
StyleBox[
RowBox[{"\"(\"", "", "\"based on death rates in 2017\"", "", 
                    "\")\""}], {
                    FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}}, 
                 GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                 DefaultBaseStyle -> "Column", 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, 
                   "Rows" -> {{Automatic}}}], "Column"], 
GraphicsBox[{{}, 
GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQnQYCakEODT37kvNuTrcH89PQ+MuCHBJ8Lxlu2joT
wn8W5KAQ1JgyzXs2hK8W7JBgOiXT/+QcqP5ghwUfrQU29cyD6gfK8/eGP3Vd
ANUf7NDwT/5ocvxCqP4QhwlWas9cUhZB9Yc4MOTwr1gVthiqP8RB4MbJn9HF
S6D6gfITv//Lr14K1R/qIHD1c/qSqGVQ/aEOG47PL7rLuRyqP9TBYKGY9Ldl
UP6zUIcKD+X/Z+VXQPWHOVw4u3EdtyaUnxbm0PFldeeq7TD9YQ4/GBnqCzlg
+oHqt/Kee+kHtU8t3MHjN7fNlYlQ96SFO6zYpVEQ5QF177Jwhw73rJgX66D+
exbusKTtKdfbZdDwUItwOPPu4tu267Dwi3AIeCrUotU2A6o/wmFR9n+N9oAp
UP0RDl5Kgk3ZcROg+iMd2vaqKf+c2QnVH+mw5SeL8ufUZqj+SIdDSRv+29fW
QPVHOtxSa9pbbl8C1R/l0PeIr2rfvmyo/igHtX/8bg6RSVD9UQ77shz0r2SG
Q/VHOSzbk67pttkHqj/aQeyMS202vyNUf7TDr+7rHld2GtvD0hcDFMDkUfij
6W80/dEo/QEAlvEV8Q==
"], {{{}, {
EdgeForm[], 
Hue[0.67, 0.6, 0.6, 0.05], 
GraphicsGroupBox[{
PolygonBox[{{1, 39, 40, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 
                    27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 
                    15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 
                    2}}]}]}, {}, {}}, {{}, {}, {
Hue[0.67, 0.6, 0.6], 
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]], 
LineBox[{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, 32, 33, 34, 35, 36, 37, 38}]}}, {{
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}}, {{
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}, {}}, {{
Directive[
PointSize[0.012833333333333334`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}, {}}}], {{}, {}}}, {GridLines -> Dynamic[
Map[{{#, 
GrayLevel[0.7]}}& , 
MousePosition[{"Graphics", Graphics}, None]]], 
                 DisplayFunction -> Identity, 
                 DisplayFunction -> Identity, 
                 AspectRatio -> NCache[
                  GoldenRatio^(-1), 0.6180339887498948], 
                 Axes -> {True, True}, AxesLabel -> {None, None}, 
                 AxesOrigin -> {72.6, 0.}, AxesStyle -> Directive[
AbsoluteThickness[0.2]], BaseStyle -> Automatic, 
                 DisplayFunction :> Identity, 
                 Frame -> {{True, True}, {True, True}}, 
                 FrameLabel -> {{None, None}, {
FormBox[
StyleBox["\"age of death\"", {
                    FontFamily -> "Verdana", FontSize -> 10, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}], TraditionalForm], None}}, 
                 FrameStyle -> Directive[
AbsoluteThickness[0.2]], 
                 FrameTicks -> {{Automatic, Automatic}, {
                   Automatic, Automatic}}, 
                 FrameTicksStyle -> Directive[
                  FontFamily -> "Times", FontSize -> 10], 
                 GridLines -> {None, None}, 
                 GridLinesStyle -> Automatic, 
                 ImagePadding -> {{Automatic, Automatic}, {
                   Automatic, 10}}, ImageSize -> 250, 
                 LabelStyle -> {
                  FontSize -> 10, FontFamily -> "Verdana"}, 
                 Method -> {"OptimizePlotMarkers" -> True, 
                   "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]], 
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]], 
(Identity[#]& )[
Part[#, 2]]}& )}}, PlotLabel -> FormBox[
StyleBox["\"probability of death at a particular age\"", {
                    FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}], TraditionalForm], 
                 PlotRange -> {{72.6, 109.6}, {
                   0, 0.051906968672294336`}}, 
                 PlotRangeClipping -> True, 
                 PlotRangePadding -> {{None, None}, {None, None}}, 
                 Prolog -> {
Opacity[0], 
TagBox[
RectangleBox[
Scaled[{0, 0}], 
Scaled[{1, 1}]], Annotation[#, "Plot", "Frame"]& ]}, 
                 Ticks -> {Automatic, Automatic}, 
                 TicksStyle -> Directive[
                  FontFamily -> "Times", FontSize -> 10]}]}, 
              "RowWithSeparator"], TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n  ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n "}]}], 
    Typeset`pod6$$ = XMLElement[
    "pod", {"title" -> "Life expectancy history", "scanner" -> "Data",
       "id" -> "ExpectancyCurve:MortalityData", "position" -> "600", 
      "error" -> "false", "numsubpods" -> "1"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["microsources", {}, {"\n   ", 
XMLElement["microsource", {}, {"MortalityData"}], "\n  "}], 
XMLElement["cell", {"compressed" -> True, "string" -> False}, {
Cell[
BoxData[
FormBox[
TagBox[
GridBox[{{
GraphicsBox[{{}, 
GraphicsComplexBox[CompressedData["
1:eJztVGlMlFcUnRKbKNJKsKlCioHWjRqjjaVKTasnKpSiAcWPIjFKDDamNUJB
rEHcQNsY4zK0RiMYNrdWxMGlNUqRksa0Jg7DIiMyODMMw8yAEzXGUBeM773z
0ej//pwvmUzO98537n33nnuj12QvWxtkMBhqxE/+i6dx3KhmbJ0Xu+rKiuXz
Bd5R96QZ4zrNg6mpCldMyrfg8oTdA0vTeZ7rt8Bteb/ryecKN479ugXRptx1
xiXkZ95tQWRG1lz7avLPprVi2o/vdpq/UjjzqbkVs/cg051CfmlCGz4aWfNe
Rhb53mtteNG+2Tf5O/Jj57Tj8Iaw4sYMhecXmdqRt87oL8wm/4OYW7j496aG
8gLycypvQWQrUib/j/AOrDzQ9HhqocJRwSUdmCWfYvLPBFuh6HvJ/7fIivQ4
obif/EXPrHAWvFObYFTYUJJ3G1sEdB4lf9a921Dpl5K/I6uT9z9H/k1bJ64k
hgRNO6WwI1y7g0W/PRpqP03+1Zt3UClfHCd/ZHwX66Xzlzd0IUi+qGW9Kz+x
Md8z5C84Z0OSLOgl8g9M6YYMn3yWfFt5Nx62LlkTyngVMePvovSvKFPuZfJv
HHwNCz/YsfPQgr3rfyc/a6cdwh2JIU3D/rBj+zf1G38iPzMmzoGTUoDnluR8
B/M1sz6b6hysd5vCpjK/A/bkfYc3tCqc4o9xYvr5Y/dPdQz7yQlpP5db4Zmf
VjnhLxQGfTrsLye+byiPmDFE/bqIHvY3RFP61rQeSLhyjMJRL0p6MCLt7enn
IxU+OLG5B9J+ljCFZ+aPdmGuTGiCpvvRxfiTFA5tKnZhnzRglKb708V+TaR+
3HMXpD1vRFN/9ZxeiNtcT5qisOGHjb3074cK59SYetlfnocO3etlvFhN97Mb
/wg7R8xT+EHiWjek3QoWarq/3bzvYur/2e2GvN4x8nM84X0Q3Rk/Il5hx1tp
r+GUj0v6IOn3E6i/y9yHFjHO277U9HnwvIotLfEeVMn7Mr6YDw+kfTcnUv+L
ax7I8YtIpn72Mw+e/yIct0zhxkOzvQi2Vud8lsF61+d5mf966oeYvJDtv/6t
ps+Tl/UqYD9XTPVBlrdyt6bPl4/57KK+pcKHMunfI9QftPn4/VH2MzK8H3I9
+ctY74VaP8Q0pMcdp/7Pxn7W/4Smz2M/jNJwteync9QA9X7V9PkcYPyL1E8v
GoBs5+AFTZ+fZlS/Uf9mWH3qf+ev4MC+DezbwL4N7NvAvv0f9u1LqZcsxg==

"], {{{}, {
EdgeForm[], 
Hue[0.67, 0.6, 0.6, 0.05], 
GraphicsGroupBox[{
PolygonBox[{{1, 86, 87, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 
                    74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 
                    62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 
                    50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 
                    38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 
                    26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 
                    14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 
                    2}}]}]}, {}, {}}, {{}, {}, {
Hue[0.67, 0.6, 0.6], 
Directive[
PointSize[0.011000000000000001`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]], 
LineBox[{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, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 
                    42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 
                    54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 
                    66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 
                    78, 79, 80, 81, 82, 83, 84, 85}]}}, {{
Directive[
PointSize[0.011000000000000001`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}}, {{
Directive[
PointSize[0.011000000000000001`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}, {}}, {{
Directive[
PointSize[0.011000000000000001`], 
RGBColor[0.24720000000000014`, 0.24, 0.6], 
AbsoluteThickness[1]]}, {}}}], {{}, {}}}, {GridLines -> Dynamic[
Join[{{{6.310656*^8, 
Directive[
GrayLevel[0.9]]}, {1.2622176*^9, 
Directive[
GrayLevel[0.9]]}, {1.8933696*^9, 
Directive[
GrayLevel[0.9]]}, {2.5245216*^9, 
Directive[
GrayLevel[0.9]]}, {3.1556736*^9, 
Directive[
GrayLevel[0.9]]}, {3.7868256*^9, 
Directive[
GrayLevel[0.9]]}}, {78, 80, 82, 84, 86, 88}}, 
Replace[
MousePosition[{"Graphics", Graphics}, None], {None -> {{}, {}}, {
Pattern[CalculateUtilities`GraphicsUtilities`Private`x$, 
Blank[]], 
Pattern[CalculateUtilities`GraphicsUtilities`Private`y$, 
Blank[]]} :> {{{CalculateUtilities`GraphicsUtilities`Private`x$, 
GrayLevel[0.7]}}, {{CalculateUtilities`GraphicsUtilities`Private`y$, 
GrayLevel[0.7]}}}}], 2]], DisplayFunction -> Identity, 
                   DisplayFunction -> Identity, 
                   DisplayFunction -> Identity, 
                   AspectRatio -> NCache[
                    GoldenRatio^(-1), 0.6180339887498948], 
                   Axes -> {False, False}, AxesLabel -> {None, None}, 
                   AxesOrigin -> {1.0413792*^9, 78.9386}, 
                   AxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1], 
                   BaseStyle -> AbsoluteThickness[1], 
                   DisplayFunction :> Identity, Epilog -> {
CapForm[None], {
GrayLevel[1], 
PolygonBox[{
Offset[{-4.6, -4.25}, 
Scaled[{0, 0.08}]], 
Offset[{-4.6, -0.34999999999999987`}, 
Scaled[{0, 0.08}]], 
Offset[{4.6, 4.25}, 
Scaled[{0, 0.08}]], 
Offset[{4.6, 0.34999999999999987`}, 
Scaled[{0, 0.08}]]}]}, {
Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1], 
LineBox[{{
Offset[{-4.6, -4.25}, 
Scaled[{0, 0.08}]], 
Offset[{4.6, 0.34999999999999987`}, 
Scaled[{0, 0.08}]]}, {
Offset[{-4.6, -0.34999999999999987`}, 
Scaled[{0, 0.08}]], 
Offset[{4.6, 4.25}, 
Scaled[{0, 0.08}]]}}]}}, Frame -> {{True, True}, {True, True}}, 
                   FrameLabel -> {{None, None}, {None, None}}, 
                   FrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1], 
                   FrameTicks -> {{{{82., 
FormBox["82", TraditionalForm], {0.00625, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.25]}}, {84., 
FormBox["84", TraditionalForm], {0.00625, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.25]}}, {86., 
FormBox["86", TraditionalForm], {0.00625, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.25]}}, {80.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {81., 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {81.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {82.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {83., 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {83.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {84.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {85., 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {85.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {86.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {87., 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}, {87.5, 
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
GrayLevel[0.], 
AbsoluteThickness[0.125]}}}, None}, {{{6.310656*^8, 
FormBox[
StyleBox["\"1920\"", 
Directive[], {}, StripOnInput -> False], TraditionalForm], 
NCache[{
Rational[1, 72], 0}, {0.013888888888888888`, 0}], 
Directive[]}, {1.2622176*^9, 
FormBox[
StyleBox["\"1940\"", 
Directive[], {}, StripOnInput -> False], TraditionalForm], 
NCache[{
Rational[1, 72], 0}, {0.013888888888888888`, 0}], 
Directive[]}, {1.8933696*^9, 
FormBox[
StyleBox["\"1960\"", 
Directive[], {}, StripOnInput -> False], TraditionalForm], 
NCache[{
Rational[1, 72], 0}, {0.013888888888888888`, 0}], 
Directive[]}, {2.5245216*^9, 
FormBox[
StyleBox["\"1980\"", 
Directive[], {}, StripOnInput -> False], TraditionalForm], 
NCache[{
Rational[1, 72], 0}, {0.013888888888888888`, 0}], 
Directive[]}, {3.1556736*^9, 
FormBox[
StyleBox["\"2000\"", 
Directive[], {}, StripOnInput -> False], TraditionalForm], 
NCache[{
Rational[1, 72], 0}, {0.013888888888888888`, 0}], 
Directive[]}, {3.7868256*^9, 
FormBox[
StyleBox["\"2020\"", 
Directive[], {}, StripOnInput -> False], TraditionalForm], 
NCache[{
Rational[1, 72], 0}, {0.013888888888888888`, 0}], 
Directive[]}, {6.310656*^8, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {7.889184*^8, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {9.466848*^8, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.1044512*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.2622176*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.2622176*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.4200704*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.5778368*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.7356032*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.8933696*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {1.8933696*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.0512224*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.2089888*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.3667552*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.5245216*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.5245216*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.6823744*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.8401408*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {2.9979072*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {3.1556736*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {3.1556736*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {3.3135264*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {3.4712928*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {3.6290592*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}, {3.7868256*^9, 
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {
                    0.009722222222222222, 0.}, 
Directive[]}}, None}}, GridLines -> {{{6.310656*^8, 
Directive[
GrayLevel[0.9]]}, {1.2622176*^9, 
Directive[
GrayLevel[0.9]]}, {1.8933696*^9, 
Directive[
GrayLevel[0.9]]}, {2.5245216*^9, 
Directive[
GrayLevel[0.9]]}, {3.1556736*^9, 
Directive[
GrayLevel[0.9]]}, {3.7868256*^9, 
Directive[
GrayLevel[0.9]]}}, Automatic}, GridLinesStyle -> GrayLevel[0.9], 
                   ImageSize -> 350, 
                   LabelStyle -> {
                    FontSize -> 10, FontFamily -> "Verdana"}, 
                   Method -> {
                    "NoShowPlotTheme" -> "Classic", 
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]], 
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]], 
(Identity[#]& )[
Part[#, 2]]}& )}}, 
                   PlotRange -> {{1.0413792*^9, 3.6922176*^9}, {
                    78.9386, 87.99680000000001}}, 
                   PlotRangeClipping -> True, 
                   PlotRangePadding -> {{None, None}, {None, None}}, 
                   Prolog -> {
Opacity[0], 
TagBox[
RectangleBox[
Scaled[{0, 0}], 
Scaled[{1, 1}]], Annotation[#, "DatePlot", "Frame"]& ]}, 
                   Ticks -> {{}, Automatic}, 
                   
                   TicksStyle -> Directive[
                    FontFamily -> "Times", FontSize -> 10]}]}, {
TemplateBox[{"\" \"", 
StyleBox[
RowBox[{"\"(\"", "", "\"based on deaths in specified years\"", "", 
                    "\")\""}], {
                    FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}, "RowDefault"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}}, 
               DefaultBaseStyle -> "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
               "Column"], TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n  ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n "}]}], 
    Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
    True, False, {False}, True}, Typeset`aux3$$ = {
    True, False, {False}, True}, Typeset`aux4$$ = {
    True, False, {False}, True}, Typeset`aux5$$ = {
    True, False, {False}, True}, Typeset`aux6$$ = {
    True, False, {False}, True}, Typeset`asyncpods$$ = {}, 
    Typeset`nonpods$$ = {
XMLElement["assumptions", {"count" -> "2"}, {
XMLElement[
       "assumption", {
        "type" -> "Clash", "word" -> "lifespan", 
         "template" -> "Assuming \"lifespan\" is referring to life \
expectancy data${separator}Use as ${desc} instead", "count" -> "2", 
         "pulldown" -> "false", 
         "default" -> "{\"C\", \"lifespan\"} -> \
{\"MortalityDataPhrase\", \"dflt\"}"}, {
XMLElement[
         "value", {
          "name" -> "MortalityDataPhrase", 
           "desc" -> " referring to life expectancy data", 
           "input" -> "{\"C\", \"lifespan\"} -> \
{\"MortalityDataPhrase\"}"}, {}], 
XMLElement[
         "value", {
          "name" -> "EnglishWord", "desc" -> "a word", 
           "input" -> "{\"C\", \"lifespan\"} -> {\"EnglishWord\"}"}, \
{}]}], 
XMLElement[
       "assumption", {
        "type" -> "SubCategory", "word" -> "lifespan", 
         "template" -> "Assuming lifespan${separator}Use ${desc} \
instead", "count" -> "2", "pulldown" -> "false", 
         "default" -> "{\"DPClash\", \"SpeciesDataExtrasPropertyP\", \
\"lifespan\"} -> {\"TypicalAge\", \"dflt\"}"}, {
XMLElement[
         "value", {
          "name" -> "TypicalAge", "desc" -> "lifespan", 
           "input" -> "{\"DPClash\", \"SpeciesDataExtrasPropertyP\", \
\"lifespan\"} -> {\"TypicalAge\"}"}, {}], 
XMLElement[
         "value", {
          "name" -> "MaximumAge", 
           "desc" -> "maximum recorded lifespan", 
           "input" -> "{\"DPClash\", \"SpeciesDataExtrasPropertyP\", \
\"lifespan\"} -> {\"MaximumAge\"}"}, {}]}]}], 
XMLElement["sources", {"count" -> "2"}, {
XMLElement[
       "source", {
        "url" -> "https://www4c.wolframalpha.com/sources/\
MortalityDataSourceInformationNotes.html", 
         "text" -> "Mortality data"}, {}], 
XMLElement[
       "source", {
        "url" -> "https://www4c.wolframalpha.com/sources/\
SpeciesDataSourceInformationNotes.html", 
         "text" -> "Species data"}, {}]}]}, Typeset`initdone$$ = 
    FrontEnd`SuppressEvaluationHash[True], Typeset`queryinfo$$ = {
    "success" -> "true", "error" -> "false", "numpods" -> "6", 
     "datatypes" -> "Mortality,Species", "timedout" -> "", 
     "timedoutpods" -> "", "timing" -> "1.795", 
     "parsetiming" -> "0.9", "parsetimedout" -> "false", 
     "recalculate" -> "", 
     "id" -> "MSP183121cc64dfg1g4033b0000425h412f4eicif2h", 
     "host" -> "https://www4c.wolframalpha.com", "server" -> "35", 
     "related" -> "https://www4c.wolframalpha.com/api/v1/\
relatedQueries.jsp?id=\
MSPa183221cc64dfg1g4033b00005i15a759i9eid9684523241320702490697", 
     "version" -> "2.6"}, Typeset`sessioninfo$$ = {
    "TimeZone" -> -5., 
     "Date" -> {2020, 11, 2, 0, 4, 55.742556`8.498761852982277}, 
     "Line" -> 328, "SessionID" -> 24727371218687455153}, 
    Typeset`showpods$$ = {1, 2, 3, 4, 5, 6}, 
    Typeset`failedpods$$ = {}, Typeset`chosen$$ = {
    "Result", "Result", 1, 1, "Output", "Quantity[86.81, \"Years\"]"},
     Typeset`open$$ = False, Typeset`newq$$ = 
    "average human lifespan in USA"}, 
DynamicBox[ToBoxes[
AlphaIntegration`FormatAlphaResults[
Dynamic[{1, {
         Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, 
          Typeset`pod4$$, Typeset`pod5$$, Typeset`pod6$$}, {
         Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, 
          Typeset`aux4$$, Typeset`aux5$$, Typeset`aux6$$}, 
         Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, 
         Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, 
         Typeset`queryinfo$$, Typeset`sessioninfo$$, 
         Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], 
      StandardForm],
ImageSizeCache->{224., {51., 17.}},
TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
DynamicModuleValues:>{},
Initialization:>If[
And[
Not[Typeset`initdone$$ === True], 
Not[Typeset`initdone$$ === FrontEnd`SuppressEvaluationHash[True]]], 
      Null; WolframAlphaClient`Private`doAsyncUpdates[
Hold[{Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
          Typeset`pod5$$, Typeset`pod6$$}], Typeset`asyncpods$$, 
Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\
initdone$$ = FrontEnd`SuppressEvaluationHash[True]],
SynchronousInitialization->False],
BaseStyle->{Deployed -> True},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)

It is probable for a considerable number of people born right after 1955 in New York City that they will never see a full moon on Halloween again: the one in 2020 may be the last as well as the first in their lives. This would especially be the case if they were to relocate to Sydney (or somewhere else with a similar time zone), where after 2020 the next event is even later—in 2058—making the needed lifespan to witness the second event about one hundred years.

To build the visualization shown at the beginning of the post, we first need to focus on a single time zone, say New York City’s, and zoom in from a one thousand–year span to a one hundred–year span (plus or minus 50 years from today). This helps avoid overcrowded plots while still including enough data to yield an informative visual:

fullmoonDatesNYC = DateObject
&#10005

fullmoonDatesNYC = 
  DateObject[#, "Day", 
     TimeZone -> 
      None] & /@ (FromJulianDate[#, 
       TimeZone -> 
        TimeZoneOffset[
         Entity["City", {"NewYork", "NewYork", "UnitedStates"}]]] & /@
      fullmoonJDs);

I will separate the visualization into past and future parts placed one above the other. It is a good idea to use vertical space for a long time series. For each part (past and future), I will introduce four variables: all full-moon days, full moons that happen in October, full moons that happen on the 31st of a month and their intersections, which are the dates of each full-moon Halloween:

past = NumericalSort@DateSelect
&#10005

past = NumericalSort@
   DateSelect[fullmoonDatesNYC, 1970 < #Year <= 2020 &];
pastOCT = DateSelect[past, #Month == 10 &];
past31 = DateSelect[past, #Day == 31 &];
pastOCT31 = Intersection[pastOCT, past31]

The key detail is associating each full-moon date with its day number in the month. This will help us see the uneven but steady change of this date with the passage of time, only sometimes taking value 31 and even more rarely doing so in October. Let’s do this for the future part now:

future = NumericalSort@DateSelect
&#10005

future = NumericalSort@
   DateSelect[fullmoonDatesNYC, 2020 < #Year < 2070 &];
futureOCT = DateSelect[future, #Month == 10 &];
future31 = DateSelect[future, #Day == 31 &];
futureOCT31 = Intersection[futureOCT, future31]

To do a casual correctness check, one can easily verify that the intersection dates here are the same as shown on the timeline plot for New York City. We will also need special markers for the various datasets we have, which are quite easy to build:

markers = Graphics
&#10005

markers = 
 Graphics[{#, Thick, Circle[]}, ImageSize -> 15] & /@ {Darker@Green, 
   Blue, Red}

Here is what each label represents, with a black dot being the default marker for every data point automatically generated by the plotting function (hence it does not need to be created beforehand):

Key

Finally, we can get everything together in a single image that demonstrates visually the infrequency of a full moon on Halloween among all days, full-moon days, October full moons and blue moons. The thickness of the gray dashed lines covers approximately the duration of October every year. The red dashed line represents the 31st day of a month. For a full moon (black dot) to fall on Halloween, it needs to appear in the intersection of a gray and a red line (all such intersections representing Halloween every year):

DateListPlot
&#10005

DateListPlot[
 Tooltip /@ Transpose[{#, DateValue[#, "Day"]}] & /@ {past, pastOCT, 
   past31, pastOCT31}, Sequence[PlotStyle -> Directive[Black, 
PointSize[0.005]], PlotMarkers -> {Automatic, 
Apply[Sequence, markers]}, PlotRange -> {Automatic, 35}, 
  Joined -> {False, False, False, False}, AspectRatio -> 1/3, 
  ImageSize -> Full, GridLines -> {
Join[
Table[
DateObject[{y, 10, 31}], {y, 1970, 2020}], 
Table[
DateObject[{y, 10, 1}], {y, 1970, 2020}]], {{31, 
Directive[Red, Thick, 
Opacity[1]]}}}, GridLinesStyle -> Directive[Gray, Dashed, 
Opacity[1], 
Thickness[0.001]]]]

After similarly building the future part, with a little work, everything can be combined into the final top image. I mentioned earlier that a Halloween Moon is always a blue moon (the second full moon within a month). That follows from the so-called synodic period of the Moon phase, which is shorter than the 31-day length of October:

WolframAlphaQueryResults
&#10005

\!\(\*
NamespaceBox["WolframAlphaQueryResults",
DynamicModuleBox[{Typeset`q$$ = " synodic month in days", 
    Typeset`opts$$ = {
    AppearanceElements -> {
      "Extrusion", "Warnings", "Assumptions", "Pods"}, 
     Asynchronous -> All, 
     Method -> {"ExtrusionChosen" -> {
        "Result", "Results", 1, 2, "Output", 
         "Quantity[29.530588, \"Days\"]"}, 
       "Formats" -> {
        "cell", "minput", "moutput", "msound", "dataformats"}, 
       "ExtrusionOpen" -> False}}, Typeset`elements$$ = {
    "Extrusion", "Warnings", "Assumptions", "Pods"}, Typeset`pod1$$ = 
    XMLElement[
    "pod", {"error" -> "false", "id" -> "Input", "numsubpods" -> "1", 
      "position" -> "100", "scanner" -> "Identity", 
      "title" -> "Input interpretation"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement[
        "minput", {}, {
         "UnitConvert[Quantity[1, \"SynodicMonths\"], \"Days\"]"}], 
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
TagBox[
TagBox[
RowBox[{"\"convert \"", " ", 
TagBox[
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{"\"1\"", " ", " ", 
StyleBox["\"synodic month\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                    SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
                   LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                   LineIndent -> 0, ZeroWidthTimes -> False], 
                  HoldForm], " ", "\" to \"", " ", 
TagBox[
StyleBox["\"days\"", FontFamily -> "Helvetica", FontSize -> Smaller, 
                   StripOnInput -> False], HoldForm]}], #& , 
               SyntaxForm -> Plus], 
              PolynomialForm[#, TraditionalOrder -> False]& ], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement["dataformats", {}, {"plaintext,minput"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
    Typeset`pod2$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "Result", "numsubpods" -> "2",
       "position" -> "200", "primary" -> "true", 
      "scanner" -> "Identity", "title" -> "Results"}, {
XMLElement["subpod", {"title" -> "", "primary" -> "true"}, {
XMLElement["moutput", {}, {"Quantity[29.530588, \"Days\"]"}], 
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox["29.530588", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "29.530588", 
                    "SRString" -> "29.530588"]], " ", " ", 
StyleBox["\"days\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
              LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0, ZeroWidthTimes -> False], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,moutput,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["subpod", {"title" -> "", "primary" -> "true"}, {
XMLElement[
        "moutput", {}, {
         "Quantity[MixedMagnitude[{29, 12, 44, 2.8}], \
MixedUnit[{\"Days\", \"Hours\", \"Minutes\", \"Seconds\"}]]"}], 
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
RowBox[{
RowBox[{"\"29\"", " ", " ", 
StyleBox["\"days\"", {
                   FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], " ", 
TagBox["  ", 
$CellContext`TagBoxWrapper["StringBoxes" -> " "]], 
RowBox[{"\"12\"", " ", " ", 
StyleBox["\"hours\"", {
                   FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], " ", 
TagBox["  ", 
$CellContext`TagBoxWrapper["StringBoxes" -> " "]], 
RowBox[{"\"44\"", " ", " ", 
StyleBox["\"minutes\"", {
                   FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], " ", 
TagBox["  ", 
$CellContext`TagBoxWrapper["StringBoxes" -> " "]], 
RowBox[{
TagBox["2.8", 
$CellContext`TagBoxWrapper[
                   "StringBoxes" -> "2.8", "SRString" -> "2.8"]], " ",
                   " ", 
StyleBox["\"seconds\"", {
                   FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}]}], AutoSpacing -> False], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,moutput,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["expressiontypes", {"count" -> "2"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
    Typeset`pod3$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "AdditionalConversion", 
      "numsubpods" -> "5", "position" -> "300", "scanner" -> "Unit", 
      "title" -> "Additional conversions"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
RowBox[{
RowBox[{"\"708\"", " ", " ", 
StyleBox["\"hours\"", {
                   FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], " ", 
TagBox["  ", 
$CellContext`TagBoxWrapper["StringBoxes" -> " "]], 
RowBox[{"\"44\"", " ", " ", 
StyleBox["\"minutes\"", {
                   FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], " ", 
TagBox["  ", 
$CellContext`TagBoxWrapper["StringBoxes" -> " "]], 
RowBox[{
TagBox["2.8", 
$CellContext`TagBoxWrapper[
                   "StringBoxes" -> "2.8", "SRString" -> "2.8"]], " ",
                   " ", 
StyleBox["\"seconds\"", {
                   FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}]}], AutoSpacing -> False], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox[
RowBox[{"2.5514428", 
StyleBox["*", 
GrayLevel[0.5]], 
SuperscriptBox["10", "6"]}], 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> RowBox[{"2.5514428", "*", 
SuperscriptBox["10", "6"]}], 
                    "SRString" -> "2.5514428 times 10 to the 6"], 
                    SyntaxForm -> CenterDot], " ", " ", 
StyleBox["\"seconds\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
              LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0, ZeroWidthTimes -> False], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox["42524.047", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "42524.047", 
                    "SRString" -> "42524.047"]], " ", " ", 
StyleBox["\"minutes\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
              LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0, ZeroWidthTimes -> False], 
             TraditionalForm]], "Output", {
           
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox["708.73411", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "708.73411", 
                    "SRString" -> "708.73411"]], " ", " ", 
StyleBox["\"hours\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
              LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0, ZeroWidthTimes -> False], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox["4.2186554", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "4.2186554", 
                    "SRString" -> "4.2186554"]], " ", " ", 
StyleBox["\"weeks\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
              LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0, ZeroWidthTimes -> False], 
             TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["expressiontypes", {"count" -> "5"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}], 
XMLElement["states", {"count" -> "1"}, {
XMLElement[
        "state", {
         "name" -> "More", 
          "input" -> "AdditionalConversion__More"}, {}]}]}], 
    Typeset`pod4$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "ComparisonAsTime", 
      "numsubpods" -> "1", "position" -> "400", "scanner" -> "Unit", 
      "title" -> "Comparison as time"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
FormBox[
TemplateBox[{"\" \[TildeTilde] \"", "18", "\" \"", 
StyleBox["\"*\"", 
GrayLevel[0.3], FontSize -> 10.219999999999999`, 
                 StripOnInput -> False], "\"\[MediumSpace]\"", 
StyleBox["\"traditional American workweek\"", 
                 FontFamily -> "Helvetica", FontSize -> Smaller, 
                 StripOnInput -> False], "\" \"", 
StyleBox[
RowBox[{"\"(\"", "", 
TemplateBox[{"\"\[MediumSpace]\"", 
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox["40", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "40", "SRString" -> "40"]], "", 
StyleBox[
RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], " ", 
                    "\[ThickSpace]", " ", 
StyleBox["\"h\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], 
                    Identity], #& , SyntaxForm -> Dot], "Unit", 
                    SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False], 
                    "\"\[MediumSpace]\""}, "RowDefault"], "", 
                   "\")\""}], {
                 FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}]}, "RowDefault"], TraditionalForm],
              TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement["dataformats", {}, {"plaintext"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
    Typeset`pod5$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "ComparisonAsPeriod", 
      "numsubpods" -> "1", "position" -> "500", "scanner" -> "Unit", 
      "title" -> "Comparison as period"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
FormBox[
TemplateBox[{"\" \[TildeTilde] \"", 
TemplateBox[{"\"\"", "0", "\".\"", "3", "4"}, "RowDefault"], "\" \"", 
                
StyleBox["\"*\"", 
GrayLevel[0.3], FontSize -> 10.219999999999999`, 
                 StripOnInput -> False], "\"\[MediumSpace]\"", 
StyleBox["\"orbital period of Mercury\"", FontFamily -> "Helvetica", 
                 FontSize -> Smaller, StripOnInput -> False], "\" \"", 
StyleBox[
RowBox[{"\"(\"", "", 
TemplateBox[{"\"\[MediumSpace]\[TildeTilde]\[ThinSpace]\"", 
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox["0.24", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "0.24", "SRString" -> "0.24"]], 
                    "", 
StyleBox[
RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], " ", 
                    "\[ThickSpace]", " ", 
StyleBox["\"a\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], 
                    Identity], #& , SyntaxForm -> Dot], "Unit", 
                    SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False], 
                    "\"\[MediumSpace]\""}, "RowDefault"], "", 
                   "\")\""}], {
                 FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}]}, "RowDefault"], TraditionalForm],
              TraditionalForm]], "Output", {
           
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement["dataformats", {}, {"plaintext"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
    Typeset`pod6$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "ComparisonAsHalfLife", 
      "numsubpods" -> "2", "position" -> "600", "scanner" -> "Unit", 
      "title" -> "Comparisons as half-life"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
FormBox[
TemplateBox[{"\" \[TildeTilde] \"", 
StyleBox["\"( \"", {
GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}], 
TemplateBox[{"\"\"", "0", "\".\"", "0", "1", "5"}, "RowDefault"], 
StyleBox[
TemplateBox[{
                  "\" \[TildeTilde] \"", "\"1\"", "\"/\"", "65", 
                   "\" ) \""}, "RowDefault"], {
GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}], 
StyleBox["\"*\"", 
GrayLevel[0.3], FontSize -> 10.219999999999999`, 
                 StripOnInput -> False], "\"\[MediumSpace]\"", 
StyleBox["\"half-life of cobalt-60\"", FontFamily -> "Helvetica", 
                 FontSize -> Smaller, StripOnInput -> False], "\" \"", 
StyleBox[
RowBox[{"\"(\"", "", 
TemplateBox[{"\"\[MediumSpace]\"", 
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox[
RowBox[{"1.6635", 
StyleBox["*", 
GrayLevel[0.5]], 
SuperscriptBox["10", "8"]}], 
$CellContext`TagBoxWrapper["StringBoxes" -> RowBox[{"1.6635", "*", 
SuperscriptBox["10", "8"]}], 
                    "SRString" -> "1.6635 times 10 to the 8"], 
                    SyntaxForm -> CenterDot], "", 
StyleBox[
RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], " ", 
                    "\[ThickSpace]", " ", 
StyleBox["\"s\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], 
                    Identity], #& , SyntaxForm -> Dot], "Unit", 
                    SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False], 
                    "\"\[MediumSpace]\""}, "RowDefault"], "", 
                   "\")\""}], {
                 FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}]}, "RowDefault"], TraditionalForm],
              TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement["dataformats", {}, {"plaintext"}]}], 
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
FormBox[
TemplateBox[{"\" \[TildeTilde] \"", 
StyleBox["\"( \"", {
GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}], 
TemplateBox[{"\"\"", "0", "\".\"", "0", "3", "1"}, "RowDefault"], 
StyleBox[
TemplateBox[{
                  "\" \[TildeTilde] \"", "\"1\"", "\"/\"", "32", 
                   "\" ) \""}, "RowDefault"], {
GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}], 
StyleBox["\"*\"", 
GrayLevel[0.3], FontSize -> 10.219999999999999`, 
                 StripOnInput -> False], "\"\[MediumSpace]\"", 
StyleBox["\"half-life of sodium-22\"", FontFamily -> "Helvetica", 
                 FontSize -> Smaller, StripOnInput -> False], "\" \"", 
StyleBox[
RowBox[{"\"(\"", "", 
TemplateBox[{"\"\[MediumSpace]\"", 
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox[
RowBox[{"8.2108", 
StyleBox["*", 
GrayLevel[0.5]], 
SuperscriptBox["10", "7"]}], 
$CellContext`TagBoxWrapper["StringBoxes" -> RowBox[{"8.2108", "*", 
SuperscriptBox["10", "7"]}], 
                    "SRString" -> "8.2108 times 10 to the 7"], 
                    SyntaxForm -> CenterDot], "", 
StyleBox[
RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], " ", 
                    "\[ThickSpace]", " ", 
StyleBox["\"s\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], 
                    Identity], #& , SyntaxForm -> Dot], "Unit", 
                    SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False], 
                    "\"\[MediumSpace]\""}, "RowDefault"], "", 
                   "\")\""}], {
                 FontFamily -> "Verdana", FontSize -> 10, 
GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                  LineIndent -> 0}]}, "RowDefault"], TraditionalForm],
              TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement["dataformats", {}, {"plaintext"}]}], 
XMLElement["expressiontypes", {"count" -> "2"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
    Typeset`pod7$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "Interpretation", 
      "numsubpods" -> "2", "position" -> "700", "scanner" -> "Unit", 
      "title" -> "Interpretations"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
FormBox[
TagBox["\"time\"", Identity], TraditionalForm], TraditionalForm]], 
           "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement["dataformats", {}, {"plaintext"}]}], 
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> False, "string" -> True}, {
Cell[
BoxData[
FormBox[
FormBox[
TagBox["\"period\"", Identity], TraditionalForm], TraditionalForm]], 
           "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement["dataformats", {}, {"plaintext"}]}], 
XMLElement["expressiontypes", {"count" -> "2"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}], 
XMLElement["states", {"count" -> "1"}, {
XMLElement[
        "state", {
         "name" -> "More", 
          "input" -> "Interpretation__More"}, {}]}]}], 
    Typeset`pod8$$ = XMLElement[
    "pod", {"error" -> "false", "id" -> "CorrespondingQuantity", 
      "numsubpods" -> "1", "position" -> "800", "scanner" -> "Unit", 
      "title" -> "Corresponding quantity"}, {
XMLElement["subpod", {"title" -> ""}, {
XMLElement["cell", {"compressed" -> True, "string" -> False}, {
Cell[
BoxData[
FormBox[
TagBox[
GridBox[{{
InterpretationBox[
Cell[
TextData[{"Distance ", 
Cell[
BoxData[
FormBox["x", TraditionalForm]]], 
                    " traveled by light in a vacuum from ", 
Cell[
BoxData[
FormBox[
FormBox[
TemplateBox[{
TagBox[
RowBox[{"x", "==", 
RowBox[{"c", " ", "t"}]}], 
                    PolynomialForm[#, TraditionalOrder -> False]& ]}, 
                    "RowDefault"], TraditionalForm], 
                    TraditionalForm]]], ":"}]], 
TextCell[
Row[{"Distance ", 
$CellContext`CalculateSymbol["x"], 
                    " traveled by light in a vacuum from ", 
$CellContext`InlineForm["x == c t"], ":"}]]]}, {
TagBox[
GridBox[{{"", 
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
RowBox[{
TagBox["475.3", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "475.3", "SRString" -> "475.3"]],
                     "\[ThickSpace]", 
TagBox[
StyleBox["\"billion\"", {
                    ShowStringCharacters -> False, 
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}], 1000000000& , 
                    AutoDelete -> True]}], " ", " ", 
StyleBox["\"miles\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                    SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False]}, {"", 
StyleBox[
TagBox[
RowBox[{
TagBox[
TagBox[
RowBox[{
TagBox[
RowBox[{"7.649", 
StyleBox["*", 
GrayLevel[0.5]], 
SuperscriptBox["10", "11"]}], 
$CellContext`TagBoxWrapper["StringBoxes" -> RowBox[{"7.649", "*", 
SuperscriptBox["10", "11"]}], 
                    "SRString" -> "7.649 times 10 to the 11"], 
                    SyntaxForm -> CenterDot], "", 
StyleBox[
RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], " ", 
                    "\[ThickSpace]", " ", 
StyleBox["\"km\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], 
                    Identity], #& , SyntaxForm -> Dot], "  ", 
StyleBox[
RowBox[{"\"(\"", "", "\"kilometers\"", "", "\")\""}], {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], "Unit", SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False]}, {"", 
StyleBox[
TagBox[
TagBox[
TagBox[
RowBox[{
TagBox[
RowBox[{"7.649", 
StyleBox["*", 
GrayLevel[0.5]], 
SuperscriptBox["10", "14"]}], 
$CellContext`TagBoxWrapper["StringBoxes" -> RowBox[{"7.649", "*", 
SuperscriptBox["10", "14"]}], 
                    "SRString" -> "7.649 times 10 to the 14"], 
                    SyntaxForm -> CenterDot], " ", " ", 
StyleBox["\"meters\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], Identity], #& , 
                    SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False]}, {"", 
StyleBox[
TagBox[
RowBox[{
TagBox[
TagBox[
RowBox[{
TagBox["5113", 
$CellContext`TagBoxWrapper[
                    "StringBoxes" -> "5113", "SRString" -> "5113"]], 
                    "", 
StyleBox[
RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], " ", 
                    "\[ThickSpace]", " ", 
StyleBox["\"au\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], 
                    Identity], #& , SyntaxForm -> Dot], "  ", 
StyleBox[
RowBox[{"\"(\"", "", "\"astronomical units\"", "", "\")\""}], {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0}]}], "Unit", SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                    LineIndent -> 0, ZeroWidthTimes -> False]}}, 
                   GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                   AutoDelete -> False, 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                   
                   GridBoxSpacings -> {
                    "Columns" -> {{1}}, "Rows" -> {{Automatic}}}], 
                  "Grid"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}}, 
               DefaultBaseStyle -> "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
               "Column"], TraditionalForm]], "Output", {
           Background -> None, 
            GraphicsBoxOptions -> {
             DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
              DefaultAxesStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsAxes"], DefaultFrameStyle -> Directive[
GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 1, 
                "GraphicsFrame"], 
              DefaultFrameTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsFrameTicks"], 
              DefaultTicksStyle -> Directive[
               FontFamily -> "Times", FontSize -> 10, 
                "GraphicsTicks"]}, 
            Graphics3DBoxOptions -> {
             DefaultBaseStyle -> {
               FontFamily -> "Times", "Graphics3D"}}}, 
           NumberPoint -> ".", CellSize -> {550, Automatic}, 
           AutoStyleOptions -> {"HighlightFormattingErrors" -> False},
            RenderingOptions -> {
            "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
XMLElement[
        "dataformats", {}, {
         "plaintext,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
    Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
    True, False, {False, False}, True}, Typeset`aux3$$ = {
    True, False, {False, False, False, False, False}, True}, 
    Typeset`aux4$$ = {True, False, {False}, True}, Typeset`aux5$$ = {
    True, False, {False}, True}, Typeset`aux6$$ = {
    True, False, {False, False}, True}, Typeset`aux7$$ = {
    True, False, {False, False}, True}, Typeset`aux8$$ = {
    True, False, {False}, True}, Typeset`asyncpods$$ = {}, 
    Typeset`nonpods$$ = {
XMLElement["assumptions", {"count" -> "1"}, {
XMLElement[
       "assumption", {
        "type" -> "FormulaVariable", "desc" -> "amount", 
         "current" -> "1", "count" -> "1"}, {
XMLElement[
         "value", {
          "name" -> "UnitsConversion2.fromValue", "desc" -> "1", 
           "valid" -> "false", 
           "input" -> "*F.UnitsConversion2.fromValue-_1"}, {}]}]}]}, 
    Typeset`initdone$$ = FrontEnd`SuppressEvaluationHash[True], 
    Typeset`queryinfo$$ = {
    "success" -> "true", "error" -> "false", "numpods" -> "8", 
     "datatypes" -> "", "timedout" -> "", "timedoutpods" -> "", 
     "timing" -> "3.609", "parsetiming" -> "2.404", 
     "parsetimedout" -> "false", "recalculate" -> "", 
     "id" -> "MSP2809144gid69c5ae662g000011347gbaaa9077ad", 
     "host" -> "https://www5a.wolframalpha.com", "server" -> "19", 
     "related" -> "https://www5a.wolframalpha.com/api/v1/\
relatedQueries.jsp?id=\
MSPa2810144gid69c5ae662g0000276i8bhd5eb0b3a63329258001990633326", 
     "version" -> "2.6"}, Typeset`sessioninfo$$ = {
    "TimeZone" -> -5., 
     "Date" -> {2020, 10, 28, 15, 17, 50.432358`8.455284249896934}, 
     "Line" -> 775, "SessionID" -> 24724699824702504994}, 
    Typeset`showpods$$ = {1, 2, 3, 4, 5, 6, 7, 8}, 
    Typeset`failedpods$$ = {}, Typeset`chosen$$ = {
    "Result", "Results", 1, 2, "Output", 
     "Quantity[29.530588, \"Days\"]"}, Typeset`open$$ = False, 
    Typeset`newq$$ = " synodic month in days"}, 
DynamicBox[ToBoxes[
AlphaIntegration`FormatAlphaResults[
Dynamic[{1, {
         Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, 
          Typeset`pod4$$, Typeset`pod5$$, Typeset`pod6$$, 
          Typeset`pod7$$, Typeset`pod8$$}, {
         Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, 
          Typeset`aux4$$, Typeset`aux5$$, Typeset`aux6$$, 
          Typeset`aux7$$, Typeset`aux8$$}, Typeset`chosen$$, 
         Typeset`open$$, Typeset`elements$$, Typeset`q$$, 
         Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, 
         Typeset`sessioninfo$$, Typeset`showpods$$, 
         Typeset`failedpods$$, Typeset`newq$$}]], StandardForm],
ImageSizeCache->{179., {51., 17.}},
TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
DynamicModuleValues:>{},
Initialization:>If[
And[
Not[Typeset`initdone$$ === True], 
Not[Typeset`initdone$$ === FrontEnd`SuppressEvaluationHash[True]]], 
      Null; WolframAlphaClient`Private`doAsyncUpdates[
Hold[{Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
          Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$, 
          Typeset`pod8$$}], Typeset`asyncpods$$, 
Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\
initdone$$ = FrontEnd`SuppressEvaluationHash[True]],
SynchronousInitialization->False],
BaseStyle->{Deployed -> True},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)

This can also be clearly seen in the top visualization, as every red circle marking Halloween’s full moon also has a corresponding green circle below on the same gray line, which is the first full moon in that month of October. The same logic goes for all blue circles, except they are not Halloween’s but other months’ blue moons.

In old times, superstition often led people to believe that rare celestial events were bad omens. Halley’s comet was said to foretell the defeat of King Harold II by William the Conqueror in 1066. The June 17, 1135, eclipse precipitated civil war after the death of King Henry I. How great is it to live in an age of knowledge where comets do not dictate human affairs? Let’s celebrate that—and Halloween—with adventures in computational exploration and make the choice to interpret this oddity of celestial dynamics as a sign of things taking a turn for the better.

I would like to express special thanks to José Martín-García, Jeffrey Bryant, Nick Lariviere and Christopher Carlson, who have transformed my understanding of astronomy and been a kind, indispensable help.

Visit Wolfram Community or the Wolfram Function Repository to embark on your own computational adventures!

Comments

Join the discussion

!Please enter your comment (at least 5 characters).

!Please enter your name.

!Please enter a valid email address.

1 comment

  1. Thanks, Vitaliy, for this really fascinating explanation and visualization!

    Reply