Integración con Wolfram|Alpha

Cálculo y funciones especiales

(Ctrl+

) anida entradas de forma libre en cualquier expresión de Mathematica.

In[1]:=

Plot[{\!\(\*

NamespaceBox["LinguisticAssistant",

DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "sin integral",

WolframAlphaClient`Private`boxes$$ =

RowBox[{"SinIntegral", "[", "x", "]"}],

WolframAlphaClient`Private`allassumptions$$ = {{

"type" -> "MultiClash", "word" -> "", "count" -> "2",

"Values" -> {{

"name" -> "Function", "word" -> "the input",

"desc" -> "a math function",

"input" -> "*MC.%7E-_*Function-"}, {

"name" -> "MathWorld", "word" -> "sin",

"desc" -> "referring to a definition",

"input" -> "*MC.%7E-_*MathWorld-"}}}},

WolframAlphaClient`Private`assumptions$$ = {},

WolframAlphaClient`Private`open$$ = {1}},

DynamicBox[ToBoxes[

AlphaIntegration`LinguisticAssistantBoxes["", 1,

Dynamic[WolframAlphaClient`Private`query$$],

Dynamic[WolframAlphaClient`Private`boxes$$],

Dynamic[WolframAlphaClient`Private`allassumptions$$],

Dynamic[WolframAlphaClient`Private`assumptions$$],

Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],

ImageSizeCache->{113., {12., 17.}}],

DynamicModuleValues:>{}],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\), \!\(\*

NamespaceBox["LinguisticAssistant",

DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "sin integral",

WolframAlphaClient`Private`boxes$$ =

RowBox[{"SinIntegral", "[", "x", "]"}],

WolframAlphaClient`Private`allassumptions$$ = {{

"type" -> "MultiClash", "word" -> "", "count" -> "2",

"Values" -> {{

"name" -> "Function", "word" -> "the input",

"desc" -> "a math function",

"input" -> "*MC.%7E-_*Function-"}, {

"name" -> "MathWorld", "word" -> "sin",

"desc" -> "referring to a definition",

"input" -> "*MC.%7E-_*MathWorld-"}}}},

WolframAlphaClient`Private`assumptions$$ = {},

WolframAlphaClient`Private`open$$ = {1}},

DynamicBox[ToBoxes[

AlphaIntegration`LinguisticAssistantBoxes["", 1,

Dynamic[WolframAlphaClient`Private`query$$],

Dynamic[WolframAlphaClient`Private`boxes$$],

Dynamic[WolframAlphaClient`Private`allassumptions$$],

Dynamic[WolframAlphaClient`Private`assumptions$$],

Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],

ImageSizeCache->{113., {12., 17.}}],

DynamicModuleValues:>{}],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\)/\!\(\*

NamespaceBox["LinguisticAssistant",

DynamicModuleBox[{WolframAlphaClient`Private`query$$ =

"gamma function", WolframAlphaClient`Private`boxes$$ =

RowBox[{"Gamma", "[", "x", "]"}],

WolframAlphaClient`Private`allassumptions$$ = {{

"type" -> "MultiClash", "word" -> "", "count" -> "4",

"Values" -> {{

"name" -> "Function", "word" -> "the input",

"desc" -> "a math function",

"input" -> "*MC.%7E-_*Function-"}, {

"name" -> "MathWorld", "word" -> "the input",

"desc" -> "referring to a definition",

"input" -> "*MC.%7E-_*MathWorld-"}, {

"name" -> "ExamplePage", "word" -> "the input",

"desc" -> "a general topic",

"input" -> "*MC.%7E-_*ExamplePage-"}, {

"name" -> "DistributionNoFluff", "word" -> "gamma",

"desc" -> "a probability distribution",

"input" -> "*MC.%7E-_*DistributionNoFluff-"}}}},

WolframAlphaClient`Private`assumptions$$ = {

"*MC.%7E-_*Function-"}, WolframAlphaClient`Private`open$$ = {

1}},

DynamicBox[ToBoxes[

AlphaIntegration`LinguisticAssistantBoxes["", 1,

Dynamic[WolframAlphaClient`Private`query$$],

Dynamic[WolframAlphaClient`Private`boxes$$],

Dynamic[WolframAlphaClient`Private`allassumptions$$],

Dynamic[WolframAlphaClient`Private`assumptions$$],

Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],

ImageSizeCache->{142., {12., 17.}}],

DynamicModuleValues:>{}],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\)}, {x, 0, 10}, Filling -> Axis]

Out[1]=

In[2]:=

Plot[\!\(\*

NamespaceBox["LinguisticAssistant",

DynamicModuleBox[{WolframAlphaClient`Private`query$$ =

"integrate sin(e^x) from 0 to T",

WolframAlphaClient`Private`boxes$$ = RowBox[{"Integrate", "[",

RowBox[{

RowBox[{"Sin", "[",

RowBox[{"E", "^", "x"}], "]"}], ",", " ",

RowBox[{"{",

RowBox[{"x", ",", " ", "0", ",", " ", "T"}], "}"}]}], "]"}],

WolframAlphaClient`Private`allassumptions$$ = {},

WolframAlphaClient`Private`assumptions$$ = {},

WolframAlphaClient`Private`open$$ = {1}},

DynamicBox[ToBoxes[

AlphaIntegration`LinguisticAssistantBoxes["", 1,

Dynamic[WolframAlphaClient`Private`query$$],

Dynamic[WolframAlphaClient`Private`boxes$$],

Dynamic[WolframAlphaClient`Private`allassumptions$$],

Dynamic[WolframAlphaClient`Private`assumptions$$],

Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],

ImageSizeCache->{211., {11., 17.}}],

DynamicModuleValues:>{}],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\), {T, 1, 5}, Filling -> 0.625]

Out[2]=

In[3]:=

\!\(\*

NamespaceBox["WolframAlphaQueryResults",

DynamicModuleBox[{Typeset`q$$ = "series gamma function order 1",

Typeset`opts$$ = {

AppearanceElements -> {

"Extrusion", "Warnings", "Assumptions", "Pods"},

Asynchronous -> All,

Method -> {"ExtrusionChosen" -> {

"SeriesExpansionAtX = 0", "Series expansion at x=0", 1, 1,

"Input", "Series[Gamma[x], {x, 0, 1}]"},

"Formats" -> {

"cell", "minput", "moutput", "msound", "dataformats"}}},

Typeset`elements$$ = {

"Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ =

XMLElement[

"pod", {"title" -> "Input interpretation",

"scanner" -> "Identity", "id" -> "Input", "position" -> "100",

"error" -> "false", "numsubpods" -> "1"}, {

XMLElement["subpod", {"title" -> ""}, {

XMLElement["minput", {}, {}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

TagBox[

GridBox[{{

StyleBox[

TagBox[

GridBox[{{

StyleBox["\"series\"", {

LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}],

StyleBox[

TemplateBox[{"x"}, "Gamma"], ScriptLevel -> 0, StripOnInput -> False],

StyleBox["\"order\"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], StripOnInput -> False],

SuperscriptBox["x", "1"]}}, GridBoxBackground -> {"Columns" -> {

GrayLevel[0.949], None, None, None}, "Rows" -> {{None}}},

GridBoxItemSize -> {

"Columns" -> {{Automatic}},

"Rows" -> {{Automatic}}}, ColumnsEqual -> False,

RowsEqual -> False, GridBoxDividers -> {"Columns" -> {

GrayLevel[0.84],

GrayLevel[0.84]}, "Rows" -> {{

GrayLevel[0.84]}},

"RowsIndexed" -> {

1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}},

GridBoxSpacings -> {

"Columns" -> {2, 2, 2, 2, 2}, "Rows" -> {{1}}},

GridBoxAlignment -> {

"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},

AllowScriptLevelChange -> False],

TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5},

LineIndent -> 0]}},

GridBoxItemSize -> {

"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},

ColumnsEqual -> False, RowsEqual -> False,

GridBoxSpacings -> {"Columns" -> {{

AbsoluteThickness[-1]}}, "Rows" -> {{0}}},

AllowScriptLevelChange -> False],

TagBoxWrapper["Separator" -> " | "]],

PolynomialForm[#, TraditionalOrder -> False]& ],

TraditionalForm]], "Output"]}],

XMLElement["dataformats", {}, {}]}],

XMLElement["infos", {"count" -> "1"}, {

XMLElement[

"info", {

"text" -> "\[CapitalGamma](x) is the gamma function"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

Gamma.html", "text" -> "Documentation",

"title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/GammaBetaErf/Gamma",

"text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/GammaFunction.html",

"text" -> "Definition",

"title" -> "MathWorld"}, {}]}]}]}], pod2$$ = XMLElement[

"pod", {"title" -> "Series expansion at x=0",

"scanner" -> "Series", "id" -> "SeriesExpansionAtX = 0",

"position" -> "200", "error" -> "false", "numsubpods" -> "1"}, {

XMLElement["subpod", {"title" -> ""}, {

XMLElement["minput", {}, {"Series[Gamma[x], {x, 0, 1}]"}],

XMLElement[

"moutput", {}, {

"SeriesData[x, 0, {1, -EulerGamma, (6 EulerGamma^2 + \

Pi^2)/12}, -1, 2, 1]"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

InterpretationBox[

RowBox[{

FractionBox["1", "x"], "-",

TagBox["\[DoubledGamma]",

Function[{}, EulerGamma]], "+",

RowBox[{

FractionBox["1", "12"], " ",

RowBox[{"(",

RowBox[{

RowBox[{"6", " ",

SuperscriptBox[

TagBox["\[DoubledGamma]",

Function[{}, EulerGamma]], "2"]}], "+",

SuperscriptBox["\[Pi]", "2"]}], ")"}], " ", "x"}], "+",

InterpretationBox[

RowBox[{

StyleBox["O", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "(",

SuperscriptBox["x", "2"], ")"}],

SeriesData[x, 0, {}, -1, 2, 1], Editable -> False]}],

SeriesData[

x, 0, {1, -EulerGamma,

Rational[1, 12] (6 EulerGamma^2 + Pi^2)}, -1, 2, 1],

Editable -> False], TraditionalForm]], "Output"]}],

XMLElement["dataformats", {}, {}]}],

XMLElement["states", {"count" -> "1"}, {

XMLElement[

"state", {

"name" -> "More terms",

"input" -> "Series expansion at x=0_More terms"}, {}]}],

XMLElement["infos", {"count" -> "1"}, {

XMLElement[

"info", {

"text" -> "\[Gamma] is the Euler-Mascheroni constant"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

EulerGamma.html", "text" -> "Documentation",

"title" -> "Documentation"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/Euler-\

MascheroniConstant.html", "text" -> "Definition",

"title" -> "MathWorld"}, {}]}]}]}], pod3$$ = XMLElement[

"pod", {"title" -> "Approximations about x = 0 up to order 3",

"scanner" -> "Series", "id" -> "PlotOfSeriesExpansionAtX = 0",

"position" -> "300", "error" -> "false", "numsubpods" -> "1"}, {

XMLElement["subpod", {"title" -> ""}, {

XMLElement["cell", {"compressed" -> True, "string" -> False}, {

Cell[

BoxData[

FormBox[

TagBox[

GridBox[{{

GraphicsBox[

GraphicsComplexBox[CompressedData["

1:eJx8vHk0VdH7wG24hmvKPGWeMqWSZIh9i1KU0CwkIaGihCJCxkqSmSSZMxSS

iH0ks5CZzPPsou41xXu+a/2c+13fd71v/7TO2vece+45ez/Ps30+6xG3umti

Q0NFRTWAp6L6z/85+y9q5NiToWO2MD8uiw45fVg65JI3CSYoGFa23KFDdqdf

Oav65C901XieL6tChxgV0ej9e/UHniZGJBrQ0iFKGU6BThkrsKTIdFdJDw7R

otXV4v+wDIsdmUWbCnFI/r9n0hnlS7CpMmW/VjwOuXRd3c+xnAi3HVd9pkNw

iMHZS+dK/Bfh+5ixVP8gHFIgKE3n+HEeXhWL/NQbgUMeF5e9CyiYhXOOIV9u

f8YhnJHgvXP3NEw6OPOxfRqHrKsaqH6mn4KTDL512ap0iM4H8cLrrBOwiPVZ

8kgOHXLJYjhq4NAYNH3wEYqfpEd+jjpY/1AdgUVcsqeV9zIgUUpPKmmODsE1

mc4KmhuMyDmnDTbJ3j7ocfhG0oEFPKIl+9yRc7Qbet2/0fpYlwX5Zr74Onlf

ByyYciu1vLkLoVKbCsPt/QXhQWmi6wlO5Jf69PV9j+ph1K68iTlXXqRpK+1Q

tHglfO7xqT09UxhJERS7dfxCEZQkCbZ8IMgiC/lR3jLbi/Cr89aekkDc/+uY

6n/+fQ7UF/PIKwC2SM2ra9uyhP89nhHx2RaMKQe7qATCbJNFCUdHdml1GNSA

e80SdRE3uAmVomqFGjLNoI07aNBPiY3A+qnfIO9IG2jsvtekYclIeJCDt7t7

qAso9tK9XDqLI+gp3igJnekF7SqeXtdLqQkuYpnTm88HQOyMvte+zm2w8CX7

3WkwDHplvw40rG+CrqT4W/q8o8DP9eP+/Qwb4NoXeGKQexzY32KMon20BoRe

rpe/X5oAg6brL0Rur4KAdx9Sd1VNgYF2TyGFPDIIHX71jhOZAQshYjWiEmTQ

MBKqdjx2Dlh5X1pxaiaBdI6KMba4BSB7syWX8R0JxJYVbsOTRHBndITrWjQJ

rJpEmIYdXAIWrgYetJkkIOPNRlBUXgbFDrxO0e0ksMjMvTIougLyeqYutrGT

AVvRefNJxj8g3syXGH+VDP6R9pmU0P0FIzfqa7dKySAgJoo7dekvsFgY0Lsl

sQr+b70AJLnhoMfvVbBZoGVF85cEB6+dGOt6RoeAPPVJVeE/kO2+vVb2PA4p

umBq9UNuBQZF2uLFqnGIO5XdgSGVZRjB9IKlPw2HPM2zOh+ivQRnvnqdevgK

h3g9vdeZQiBCaFnlNIi+/20VbUWu+AVYEZ3P8uM5Dom55Xxu7dMcXBs/NGaT

jENq07wkNqtm4JZrxtu8RhxCb1vl+HpxCs69wB1CWOgQEWfVB8xMkzBrQ2GK

5TYd8vOpj3SS+DhcFpm4vvsvHcL5Lu2xseooVJHMYr/ziR5RxpNej2oOQx0O

CY8fpQwIMvFPnzt3ALbvq2S3EsAjJxsry+IGeuHj+eQ/77eYkM3vWk9M8V2w

jX27ZOMjKzJQ7xB+TqkNRoXovjvXxY5MtfcdFbJvggUPfJkADzdiJFRrMPqz

GoaoUa2ruAkgYiyHZ9RPl8O/aU23Yk5JIN8MC055/dd8/t9j8idw40rEPPDX

MHiVVUAC/3u8FZD8z/i/Ph/tSx+dp/oFXCsitX7llib8VrOzWDKoBLu8mD/x

tvITaKhTVhnUG8DRZ5MCopc4CG5DmyYTN3+Bb0S+VL4VJsLRvJUru9Q7QEE0

H1ewOD1hwFGVY3tXD9hTNJg1NkVDsJChb60q7QObjsntMwgVgTuF8Gz82BBw

eXuNC9HfAlaKKf4N8iPgTNRF3XsLG2B39t7uCJ4xEC5eOOO+fx1oS/b7HqWd

AJ36bPfGplaBMf+5/Cu/J8GbVON9vPSrIKQiUfLV92kwkRRWIHydDBSt2Oc/

ZM+CrKDseK8VElBfT2fLip0HNTy7Q+XQ3+94gudeTeQiQDYDDPbGkMDJIKm9

suVE8DhTopvwhgR23TI+M5C/BPiig/2HSkkg5PgrAfrMZZBE5PINIqLPz1Il

40bECqj3u29lp0IGcdaue+RySeCUYWf8uMcqOL98qqlrHxmKHCy4Vx9Hh9Qq

i/DFXfoDXXQjeE6u4pBlr3EXwVsrkH4grS2tGYf0Ul88vHl3GYoc3aMWmoND

4i+Sj8R6LUHJRE3RtUgcMrPckR3kTYQlf2yKVtD4L/29HtqyL0LLzpc6+9D8

IHPMIFv5wDz8KXAzdy0OhyTvE7GqODILU8f+TVxFcMjzxzRBNNbT0Kv9opnr

Og5haUcuWAZNQtrjZQffG9EhjDG/5p5Ej0Njd0934RY6pHBbh4m/aBTeeN/f

nPqIHnlC2r957uswvJFfeDXdmQEhiW9PscQMQu4vm1PFJYyIYeK1CYu+37Dl

1oljLk5MSMJfa1dVUhe8U/a649UyC3ImYi/XhlI71GvcjXukxY5oGM9exh9o

gdnRILRLhAth/9B9EZ9SC6s+D2mY9vAhd49d5+mVrIAD2f6hk6ZiiKfozWWH

N/lwhF34YtRPReR/56+sNffdbYMK0HmnKz6ibTcheakn7s6xOqD6K1GvpYyT

oOj+vNPncQuwUj1koe7OQtjzccpkUKMdTPEfiD5ygIEgz5p05ItEN5gYBtU2

EbQEk0yVE/Jtv4FwMtdvEXVqgqEKD5V18CDQ/5ncd4FxG8jey+Bi+TwMQl2O

Jr+9uwkepo0lLUaOgvxA/YePo9eB4e0ma/bn40BohPl1gtIaKGpLK/aynQRD

jnOB7odXQdCBVOsWnWng6DMtIRNABv3ixnrXVGdBrIycnwOeDHzvxL93E5gH

9SM8H8iQBJgUHRRm+RaB/GUq0RfxJEBMduR18SMC5VJG3PNYEsANLJ87fH8J

qD1xrcz9RAKXR5oVY28vg6y/o4+3h0nAVTXlp7jpCvBeu0OSRvNFmBe9yORZ

EjCppk4yNVwFjxSbz96ZWYaeJ0wPKpThEJ7thwo/1pbgZdYTQkgSDrnD2OTg

sUWE6/xPTKtfoPUF7y6qCmoirEjX5/qCxt+e9E8xUHoBfT+rJYZhOITpVfQ6

VJ6D49p6S/s/4JB54cER1bMz0ML4Y4NHLw55YhhkLOUxBR9tqg3WidEh+9my

I4qeTcCysZd8XM/pkHDnAxbwwxi04jN5yyxMjzgdwy+FFI3A7OrtiV9z9MjY

7lKF++VDsHfgegMjCyMS8mEze/ePfvjiZSdfsjceOba+J7JzqAeW0Y6/FI1j

RszCeEO8hDqh5bTRw1ofNuQudRZH9t5WaKKo9GzcjwMxYxj9JX2vEe73+WM4

vY8HefniC6GM/APyvvv9QdByN2L1+kMmNCqBqbHbK9YtUgjSomNgM1kC7gKe

0Gc8EoRQ1m9nRg2qgBtCs4fHmpdgxX7n4rt9PwF1V/OHagl2wveTt5v1TVoB

zk1yFUbjCVdztyzB4U6g8IJRbkGRjhDe2Dh+4l8PkC/i6ysyoCHcet9lfj2l

H+Qpv8/oNqYiUOe68gpUDAG9zzpRW/H/QMLEW3JI0ghATMpUA1w3QNkn110a

kWNAsCyJ3ufXGtjbM5t079EECE+ybniSsQrmzLY/qBhNAfUDsQwl3WTw3Dhm

xPjoDPhm8p2jG5CBZ3Jz+KrEHPgyvkGrOoTOL//Ch30CC6C4utpvLIME7D5e

6/uFJwLDx2w3WqJIIOl2n07fKhHEnKzIuZ1MAoJ/8k74Ly+BqyszAUE1JJCi

P7HfgYUMViNSYklZq+AJh9HTY2fIcNJk/1OLZDrkuQt7XoPLHxj122132T8c

Esal4FUVtALnsgrU3raj8YrmjEbIi2X4/Nv9TKFPaHzLOvopKXEJOh0CMn4x

OEQsiyFmPZEIld87MbcF45BixlfB7AaLkN/nTaEWeuyoVHy52Wkecrr3R1VE

4xD2P/PUUu6z8If5KvhagkPO4t/xaCROQ/qcezNLSzjEj46+OqRmEk6Jq9Cb

6dAhae8eGjm3jkOtQE23rHI6hD4v3Gjj7yhcOR5jOWRJj8jcNtzPsjoMrcMu

qkNDBqR2cDv+Kf0QNLK6uMoYyogYBeasE672wUs5h0ym9zIhc6HuzimO3bD/

YlZDXCwLgnsY2maY1w6jlmfEnOd3IW9+TP+hz2uBbpUdDpp5nIjTsqWZ0Ms6

yJBv1usrzockij1NLZb4Dv901beMCIgi7G8qcy4/LITmYE5hylgeaXpo70Z/

GgGsTbMfYxOECcvTf2bF9WqB9pjSyd+BXAQG3fMxZxlbwL+PIj/yT7MS4vbf

OFtT2gb4D7DXBfxgIBj1nzfhyu4Cx/krlViItITGGYMnfRa/QclQgsmCOzXh

uvygy37mQWCX9MVW/PY2YI7MMlV8NAxiyUd0pws2QYYkgU744igg8zgaqzat

g4ucNR1uRuNg/d6vYxHn1sCtTy2aHIqTIIYVzwqNV0HgLVk6J9w08H0/qysd

RwZFPs5/1DZmABJb42TPQwZpsjx3LHrmQJxe9EczdD51i/Ay/uteAPo9D1rp

EklA9yM7s6AtEfR03Q7SQfO3V4xO141zS+D6AzmdPTkkAPffLRo5uwymZswz

ZH6TgLK42RCV1gqIjfojZSFABs+eGQpUi5GAdtYZ971qq4C/gvuKANMKVHvX

gntdgUOqt52UTPiWocy3ffml73HI2lX+IV+RJRjKZZPq/xKHnPxJmFUWJ8Lq

2Of8OWj8c1xws7pluQAr9YT/3grFIcaPcelm9+ZgNm/yrUS0fjUdyfWNDZmB

xh+tHWzacIhOr8zg1c9T8I7B0afPeOmQdLCEG66fgOJ/q7+qe6Lx0KOnIm9i

DO7zvsufz0iPVCxdOnyHNAIvFv0qCmiiR56Fd19T+DcEr1DfURMYZUCkT/3b

4FMfgOQYgspTAzxyfPRBZvG1XuhEI3cySZ8ZyZaT958L74T72MnhS7xsiMwE

U+t2Tit81pZnwqPAgUgsDOLF7/yEGwW0N6PfcCPEdnCiZaQKtskbK/NfF0Qq

zi7VeRp+g3fD3rKsPpBEryftzLTrK6C+QiC8dZckqEhyXpwx+AGibbxHrz3j

I+QzBqefV2kEK2fFaI2+sBMSuA+94u//Bf4NfTSLJTARmpQemu8p7gBGv7Wo

uFPoCMUJPhvJAT3gEanWOCGGhjA2thDNtb8fZHFlyxoEURGYMn8bbfsMgTQV

Ota4pX/AG5+s/cFmBNB/blW69mkDzCm13r95YQykeXf14ajWgarXGEev9gQY

otKwZ61dBYkacvtqeKaAqr3/1swC+v6Dd/stUc+A9HsNq3RGZHCehghaJ2eB

L+HOYOA0CXATlHQre+ZBEFF36Qs6nxLP2Ud+bl8ENfVZZIDun/48eqLm+5sI

pL7pqGW+JYGIXKr6T61LYLB0tjigggTeXlJS1O9H8/bDP4Har1cBO21O7SuL

JZhQcUg66TUOKdRMqeC1JEIvXWfkNFrPhXvgSN86FiCOejbu6jMcMnhhYDty

aQ6y7Xmxyz8Rh0TlNZqk57bBy4UKoVpB7Ehuac9DPttmmKJvzUWM5EI+3jAy

JhXXQO+ibb5/b/kRgrW2/4YUAnVy99BWHBNHfH9Pfjtv8RkwfNRmebcqQ/A1

LLddNfgOdH6fMLXUEiSYrJWfKtWqB8sumfVutJwE3Pf9cf7Os+DckxYrkS0S

sCgU7wm7Mg+cFvNstb6SgKY6YthzcRFI68icj0frj4TIWvGmJCJQoqd6oIrW

JyGSyS1Mr5eA/pW7A9FFJDBS6Ee+P0CEvW5b4UfQ/VlxWYlc4o9FeHm3Ts0W

un5OXJ9t4pmdhzc52Fruh+MQpRP7NLNYfsCxf9Kmkm5CCG2XTTDNuWKIkHjP

KlnLIB1uVtII/Aa8Q2g6/IbECFNkm+N9BtVg0PHGsc1LPITGBo28v1cWwLcR

x6sfUkiA6jDTwkk5IuA4opH3G81fpy3VzqryLgGqjV0Wz1NJIEMr8dBzTTKw

9+l/wVy5CnjFzw2Sr5JhiuWG+L40OuROJN7D2u8PjHVUVPGhokMG+3/SxMes

wOrPOpayXThkzLdW0zhhGR63kWRbyschc222Dim5S1D/zHnN3lgc8s0/6UVB

LhHyTFO5XkLrdRpFlzs2doswkM38VS/6/sNSFnLfhM1D9t58Ed0o9Hl0dhh3

RM7Cvg7+UsZiHLL/rFPfhdJpaO/mGN6J7pe1E2W3RCcnYYA0/vPSETrEJe2M

7/TiOOw79fzxgSI6JJe+ZGWOZwye5eNpszxPjzySNde34xuBjwUbtJq0GJB9

DEhepeQQ9PouVGPszoi0erTj8uP6YAzC4vCZlQmJuEpz93d6N3w3R+cfcYcF

sZwtL3BfbIe2DBJ7/TJ3IYZbU9/pFlqgUfjlKoZHnIgYr/RgKq4enr8Suyet

nhcpehk5vyf5O+znpjsMzUSQ3t/OzGdvfoZ3X18L/aIlh+jgFchcMRDcat/7

WClahCBo6xvhUVcDrpgcV762wkWYOue07BjfDJbUvvzsL2UltDslndH0bAM3

fTT1TnEwEqyO7zOvcOoCjndurN4TxRFCnl1681nqNzBLlT73K5aaYC+tm8fb

OADGcJO9Qu+2gWeagtc3s2GQV/auga5rExBGbn85qDoKSM5lxbdm1kGvtU7o

B+VxEHVx40CC7Ro4lmTzuJdtEozpB8oaXFsFAXT2HXBsCtC7xfUFpJBB8ifq

htT+GRBQ/JI2dzcZFNOZtBl/nQOPtzaTjBpIgBDjQPL/ugCYgt2qH6DxYaHI

iu72JSJ45BX14QcaP0r/zvI/0lkC3CaFVYwfSGC5S9uD4egyYKwS/N7RRQJh

vMW3nJRWgNFjcRYONB8yhi9HHcKTQOQCD5/23lVw89mX/gWBFXhkU2+uvRKH

iD6Z2ycgswy3OC/n66XikHJ/rbgApSVIYxW95Y7W46MZPUOz+4mQO+VoSzm6

3oo4ruqVP16AvC6Tmi/Ret5lReOffPgcVOZTY3FLwSGvfkS16mfMwFbm0/Fb

6P5USoyU6tY6BUskKnOiOegQq24uLdeZCei97x1/qAsdsuWds7IHNw4VjofV

NW3RIfanvHuv8Y7CBtWB1nZIjwycmXwYKDQMP+x2jD3SzIAsRz+WjLo/AA/+

OsJ/SBmPVHclFMi97YW/gtVHVaSYkfOkAl/Jpk6Yum59/NooK+J7WTNfbqEV

vqjx5o2l4kD8rw+kisz9hPYLZ2o0L3MjSau0dVcuV8MF+Y1L2dMCCHEvt+nV

M2VwVlSmNqFXApHo5MH1SxSDjbochxJtKQKjklbvfEMlmJ8TivOR5yf0PuU1

yi1qAEI5mtmldByEkHX+e97Jv8Bm+vpgdAwTgfFu0dV49w4gGvb03b9hOkID

zoze2KAHHA9+uscYoSG8818vnPvbB3g/JX4+l0JFeCnDduee1RBotn2z76vw

FiAKSlppnhwBTq2ZwknNG+Dp/La016ExcEFuA43Y66CkxbKeVXwCqIUqrht2

rwJ3uXKnsNVJ4Np5rt9ynQxCpM3PHR2ZBmkm5vtdLpMBQfkJL6ifBYfo06/d

WSABGWGHzKKv8+COUMtXs48kQPcT+ml/XgSn08ZL0tD5lujTqtzRSARMN8xv

3kLrp1bmTOba70sg7Y8oa0Y5CQhZtGZ+rSIBwwt6jAGBq6BTsdU38s4StNzI

v1sdgdbLfFpfmu+i+z8Lo92xaLzqS5zs5VhZgFKyp6nL/xPPGrkvWnPMQ4XW

2LbCBByyLP5P+ddCG3TKKsm7aMWOcOzr5uEZa4YuL6/svXWFC7EM5G73VqqF

Cikmx75o8COX287+tE9B4EbOz6AzDWLIamD32T33CoGIJ9/jCGZZwoUr0zMb

DRVg6qiIQybNbsKjB6eXuZE64Jc97FxvwUkgLqEl87lZYObrSZ1HSwZOryy0

n6rPg3C1VVf/bySQnM+jZXV4EYQZeb30iyOBEwmCQuLhRLDlfF3kAnpc80Sf

U9xvCUQ2D2rzFaL5YCDjk9sCEeY2XypYR/PVgsscN/vYIrxFPi3ahq6fsKdN

BfaMCzBxN5vUlVc4ZODWStlB3x9Q1TAyzn5qN6L8OUhg2PgrHBZbe348XBrR

lzpXHN5WCrJpr1d0PxAnlNK8qhtsqAJbic5XB3p5CAMZbtzT6gvg+f3TY4Vp

JFC4omLzQoAIQl9y9laj+YpkG3IqmGEJPLf58nvpPfq+dY8VbEiSQT6Yivtb

tAr8m+4kH31JhDdTBG+ZofufO+M5KaV7F+FJh+rDeehxwKd75qfeV8AJqesO

c8OiyAkLHiOrZwVwSOEm/bMnCohzKiLgsroAyAlH7YoTSCAus5y9xoUIRPh+

2v5G62sV5RVpb7YlqBNhbvUWrW9zltL/PuQgwmI9+wdZ6POQaIh4zK2zAFMV

/GzOo/VxuHOTeuLZUli6XpDbICSFqD5WGTi88RVE/HpGLEIkCDQ3lgaa1+ZB

HhVDoQYa/w73cqcr/kHnKzL6fhX9vQKWzI3mRkR41GeziQ2dbycvi3PYFS/A

UvlNDUb0fbRDe0sj10VQbLDG2I7e33Ko6x6PPCK4ZbVUsw+9f6FnFlpOTWh9

jhcVe47WU770wdqKqYtwgfezugZ6vdOPBl1x6kSgWKMQwoauD/nD61+EzpFB

Gc+6olrzKhjJaH9ucoMMY2qfcgpkoPlemn74Y8gfGP2VOmmcGt0P6ohW+Set

QM5kWVmnbnR/qRPwrfD9MtSyNfUdKMAhzXYPT6YVLUEXj1XNkDgcErLiyBhW

RIQL2ofrE9H1klY2PrTLbRE60UpdykXvJ3kQ3/s0aR7+U2mYeR6JQ6xq6tZy

UmahrY7ni+IiHCK+3AVH66ah401t99ZZHJIwox43Q5qE6S1N8fXqdEhfxuH4

1K1x6FhR34nLp0N8889UjUuPQaP6U2fUDekRqQDrS7x7RuBuxZPwwSEGZEQw

Sf2G8hC0WwZWb24zIpykyWD7kj5oOMnV0P8Pj0wdrZl3reqGfnxRKQ5XWJBQ

qa73L3Z1wFHagBD1oF3InvgpOX/WX/BIdo4EiyUnsronMMke1EMjzyelN5N4

kWN6ia8Gh7/DgQO9n7eoRRCwcVJDf+AzbD/aY+D5TRbh5b7owccPgVm6690E

QVGCklSdXUZIDfgpFMgzKM9N6FQ/39Zm2Qxyz8fRwT+sBCI7PP3ArA2EPc/+

9UiNkeD4MMGK/1wXOOOZ/iP0MI4wdbVfIZkB3a9+TXjsl0VNWEx2bQzOHgBt

azS/fUu3waF9cy9xhsNgwej97bapTfC84ik7kBkFr6XyrEtW14FQqI99leQ4

IC/K9+k4rYE8vv0igGoS3NnFOKxgi+b/tpCyyfYpEKISHt2SSQYxdadU+5pm

wCjHJ55hETI45kL0N8icAwEP3qhc/YnuD85H3a7PXAAZ1691aCSh+9WSZ768

RkSQtd6eH4rON1MpRN1fcwmQbSr+0mSRwPMPaf2x6stgs/arjkonWj9w2CrJ

7lkBLrJDx4icZKAX+ePC7X9/wVTK6KWWPasglMiY1CO+Aks0wy6s/UDnMyHr

o+feZag0/uYQB7rffCdo5BakugT1PHmDyGj+/8ibdrVWjQjLDERP/ETXq+n7

xq92zxfgAY6ez3vQ/B+gdFGWM3kOMsjJFzmg+93szyGPJL/MwPMLI3vON+EQ

nkrzYLrhKVi/POYgu4sOQaSkewjrEzD5FUGr1okOsfWNZhnjHIfM5BvSi2t0

iPZfzuzLMqNwZJNZOqaYHgn6sBBwSHEY4jNjhVyqGJArUOtwR9gAjDnuov1N

Go8wmHxUGynvhbxfT3sZczAjGX3u1HC2E9q9d9FgrGdFPr46l6zN1gZZ0tT0

WmbZEdX4/vvCCk3wpHzlzfuq3Ig7k22IyOtq+PFD3WJnngDC+EY6ub6xDNpL

9RgNhUkgZoqhZ6qzv4D+ZaOBt+lShHsFJgmLzyqBH/3LKwcf8xMWjplL/XZr

AE+u9AwwK3EQnsyHjCj7/wJldxUYA6qYCFK7Okw7LneABxG7DodS0xPa1eqY

M/b2AMM/op+82mkIVBef6PR09wF6lo0jL/KpCCY26ZsfTIZAh9PVC6IqWyDz

/eh9P/UREJnANEAa2AAtjbzewdJjYC5RxFJRah1sriWm7eGcAK00I5Ivh1bB

WFIQx9/pSdB0xDr4INUqCFl5rHmrdRoM0Aw8qjAjA1X9Wp8HpbPAbahLa4lI

Ah+f4c0+Zs4D3hpLwfJPJFAcPLPum7oI5GE87QQ631aebuR5VRHBVNnXg61v

SMBJ47FiW8kScBObtjxaRgJXr6fYLaH7Oh/utfp8n1VQXDF2Ldp1CVK5kY9Y

oPFIyB+vnO1GhGn3rr//gcarJ/uvnPlGvQg9LSPqXNB4xs2w38dAfB5mvH+Y

3B6PQ8Su8khOsLVDrUSNgpqz7Mj1wtmlYI4WaDljJz2qyYWoxbpG6t6qhcob

FxVf4vmRsZDLzhJjCKzBf+o4Fi6GHBwwimXfLAAK30Rvvk+UJZQPbGX/e1YB

/sU974y7tZsQevB19VGfOrC8Sv287QUnYQKP75M9PguS99CXBdKTwdr2JvGx

3DxAbvbrqKP1zcW7hMK0PYtA8Zq9DA7dn8a/1YmtDyEC5dMp/vPo/tU2T+Sg

oscSEHwWuDqYTwLP7peGPiQR4S0Ot24LdH0EG/kz1a0swtCcXNlKdP2o8BJk

ePgW4J0vIjO/0PVV5HHBe/XbD3i7ov6y5/vdaL6Pu2706yuMes015bxPGvF/

1EDtaV4KuA/zp174IU6QCkp7NvysClz16BXOEOEl3OTjrRmRWwATZW+na9JJ

gM2kPimPgwjsVtR+1qD50MC+oFqZagkU14aTFNH8b6PHfe8gPxmse2YfXvm4

CkyOaAqLRBNhnH3DViSa77ncRPlsjyzCC5vZ6S7oMectD2rq0QpoNvLH0NNT

FPnweM7LnKYQ0rS0XP44Lo9IWc2GFU8tAOWir62m6PxYzJ584XSbCE7WJlx9

juZX3ho6Wh/eJdh/onmAHc3vj665OF0UIMJMhbThTPR51JjRE8uNF2CKc9jB

frQ+yBoa9GFtLoVcSeTdgzWSiHNb9h5x/6+AOUXX8p+gJOHZr5ev6qbnwa21

vbdcsklgJgqIOI8tApdHmTb86Hyd+Nl1QuMyEfbIEskK6Hybnw7346xZgDmr

Dxg+ovk8yDOyK8J2EcxmlUQdRN+fXvjbFKkMIvhdPibxEX2/26LOgvc60XqV

++67EfTzwiPiKuOFi5B76shTQfR6ad0u+TIHiKCW7Hx9CX2+tzQaXc/rkUGl

vwqLaN0qMI+j2Sy5sghfV/lfYUKfX2yBelClBRGEi775S/Wf56HJartLjgiV

6CO5C9Hfb8IeybL+YxEQT/vZ3EXv3zfT6cjKTSLUcteXdEa/b+HvTJWw3iIQ

uhl1hhmtN8/FnhO91L4Ix83HNyf+E48j38o5iBOBafJdr5/o/Qz5/X70Bk+E

p8459uSi49/Z/vL9oSaCkl/taUP/+fvFsraxz0kiDC7u0P+LjovREqaZAxbB

D4+kRE/0/ibkiSfvRy5CufzYeXP0+5d362uOEIhgoPyVyEH0/uYOyq6NWZDB

obiMyYsdq6DWMXJ025YM1RLhPbZMOoT/Do77UugfePcm2+0YGjok7q+ejEfK

CnTipe7m7sEhMpLjnrbpy/Dbx0bmi4U4hFBAczi9ZAlaJLNeHkXrHSf5tuNe

JUTYO7v8tRKND+4BIoI2XovQRKTwxX/2D/KPo++6Z8zDPjHTfQfR+EKElWcE

s2ehdCSfOyda78RVPvsk/2saft83Vt86g0Mawo5NNW9Nwiu1iyEaanQIe1Z2

Oi39BGxUyrq7nEeHOAbxKY3sHYMWMR3BCgb0yKrKlPm80ghU6si/aXyAAfkm

FbaVrz4EW6519Z+2Y0SUC5wbT9T3weQBFiMaEh7h/CyXo9veDQcMp23nDVkQ

6aOju2NEO+CEQ64sdNuFRNyy69cV/gWvhpYPqJzjRMb2q1H/NKuHi12L+8Kf

8SKM75NvlFJXwpfmjyMDO4SR5ZDCXzUCRdDw+pri3GNZpORgiU2+cZ72Dq98

EuugJdBdDk4Vh0cum4sS1PzmWrUdaoBVw/1YTj1uQqNitU6gTjN4a2eU+5SD

jbBlaXg6/HQbKOZv7Dh5mpHgxHVuXEe3C8SY7lb/ooMj8OuK3edf6wWpcjfW

5/KpCfnDu65WJgyAz6Q4/ZbabRB+vzEm48QweM754Hj90iZQPsBepisyCrjf

DiQRt9dBeXLSZROhcaDW8adA7MEasD2H7v5WJ4AofTMp+RZa/2jEf9ponAJS

56rLPbLJ4HXHvINbzQww29Rf8xIjg4AP4NrJd3MAajjkWDeh+8gChcy5dwug

j24hPQmtfxY0xY46nCaC4u8xfK7o/MvUlK8PObwEhAz1b/tmksCVyF620UPL

gIX+kK5NBwnEsJWxP5VcATrZf4yGOchgImrvoWDyX6D75OzabulVIPH+AHWz

9Ar0FLlk+7wKrZfF8M5KB5bhcubPTle0/uG06bEJ1liCnDo8NGro/iz6DEts

0REijL+1b7wDXS+KjnQrZa8X4Mlqatu/6H5iV+NoGV3WHDz8BQhPJeMQjdyn

TS/LZ+B2+D8Zn584JDSCw+P01BS88Kr37gorHbJYv3ePDM0kzPbS05m+g64P

PxaBY4LjcN5EuM6PTIfINvRxX1AahaKOEfVUn+kRc9N7L1hUhmHW+ieVWIQB

YWkTrnB5OwAXRqIuPRPFI7K7NDzKm3qhyBUapj8MzEjr2d/I8/VOyN57utS9

jBXRy70meEqkDQY0MQUGDbMju9T6exP0m6CmathytTQ3Ys3FN/vkYzV8HTO5

2/K1ABJxXumEL0s5DHggBBcdJZBHl/SXS5y/gH2Vn84m90sRZFzNHxMdKsHr

0Utu5un8hNV3T0KdLzeAlATDGs9jHITNicq4566/QNCbRBWNPiaC8jVr0+WT

HeAH3l/bi4Oe0NPqHdom0gNkCjxfZw3QEPZpV4acre8DXmJL3l++UhEKcH8q

a/WHQLvLp4t2YAvQT1V67lEeASUnxkh5ExvA9UiywkvhMWB65nGKofw6eMNW

HlHINAFmz5VKfhlbBXF989fTRyZBr6n+bwlatP4xDd33uH4a6LYUf5lH49aB

i45f2AtnAW05Eq+6jNbb3y8fynk3D3wPtoXdQ/M355S3auobdL9fNJvGiMbD

RPqwO20VRDDT4FwfhOY3xHjyW3fREvDa9U4t7BsJrFuxnmRF9/1N9szODV6r

QJ7ljmHMoyVYaFpm8AGNT7Tf7t6N8yDCFMvO0t9o/DJZexXAgV+Efl55YcZo

fHuTUsYL5OZhXP0lH1u0/ilyE48nirTD9yNPq2JOsCNNvg6pp8RboHj3SzXD

vVyIVPIeUlpALUx8ffLbxSU+JGvCTGeLtgI+kg+4b+kqhhjhWbXpKgrAEpP/

ye8zsoT77/ChWw4VQJl8IlolcTchJrxof/f1OnAs5yWuIJWTMMKTw/FDaxbo

1qdorTKQgfbh0/WPxOdB+HE+ST6I1oc/OxZrRReByffCSD00P54Q774kGkgE

9QFO1N/Q/Pm5OqjygNsSCHY2jj+BPr/NMt3Hj9aJ0OaxvFI4Wv9cLDf2T91Y

hMkL+5O/oeuHftD9mr3IAtxXHfbrJVr/JD+lHzLt/QH1vfQq4nx2I52/k+kY

OUqgiA8bm+u2FJKcGpjmJFEKLETlCdFz4oQe/U+OIw5VoCapzFDuKC8h29Am

aVB8AWQfkqK9kEECmtSR5QgrEeRrCUo2/OfvH7N6/oGbRKBvqJDYmEwCuFOP

jc+i+6Kj8S77/uSsAvX770xZ4onQ+mAobyGaryfAZaNSnUUYbdZRchk97v7h

3dZH8x26f2dP7NQXRSxYL/P+1iqE17/kly3FySNeyJPG3qEFwGAhDPLQ+RGn

5Hm66hYRWH30lr+Jzp8gjpdLPoJL8GGUaI8+Wv9cj+rN0RVG64teIdwH9HnE

SQM57isLMO3VMd73aP2jGjMlXcX2DUoMxbi+SJREQrfsGnn0v4InypVL105J

EloYB+2rh+cBMWJgiTsH3R/+bb/yum8RZHtPH1RA4+NPnPZTWTP0+rHhU5ro

fEPyG77dbFqA+23TL/uj9cxIrzzXF4tFYC9adMcWfX/LXCo3HqYQgafUy+f3

0PfrZL/OeL+XCLeOP1bchca3mbMLuRXfFmFEEtseFvR6bYGg5fBeIthK7YoZ

R58v45FDF52OksGmgnIMd/Uq2H9D8xD7dbRe+nKDdhn9vO6hphP8V4mA7fAa

/Qh6f5vO99//U0SvT2haL0Z/f/Yd+ZNCZYvgnmIgZwg6bjfU+XDYgQjDZNez

n/7n7zfnn1ATwCJoVCmwPoHWP2IMYnEH+xYhi3t/WB96fqCuvZ6nMBGsh9Bo

1KH3U11ytPgZKxHi5vB7s9HxAQ9vB6bNRRDV45kzi44ry6WG3j1NhMLSG9HU

6PUfXe+QUvJaBCFkCaN09H0VxnyrPPtmEdo+efTaAB0XbeC+snIErZ/qIydF

0ft7duhVN9UVMuiciO860boK6geBSK8KEd4RPRpRhX6fhcIFaJmzCLjy+S2r

0M9/Gyl+OTe7CG+2PEqvR8eHk7d9E3mIoEmQ1vI/f5+LkGU7aMdDhF4rPZ/+

Uw+HqWWNGM4tAp9tt2cM6PlU0c740+eJ8Mnc/kUh9H4eymVF8BwiguWH2Qzb

6Pn7cOmy4tJEKJ+jK/IRPX/103ZLV+Mi2B9wPf8ien6AQmDKo0Y03jiIWC+j

43sn2plNpYnAoIqc2oaev3b6gVYeHRE+TzrukY+OR16TXx+hI4KhKK/QLnTc

prSb67UuESrDQ1PT6Pj/1SPliyTyTQ+GvUi1o7fwL10iOKFQu/ck+n2nlaFA

nTUZZMlzmtl1Yz4nPFjAkO4cz4n5z/8O4lmTxzgw/zlskkdLUpYD859xCkwJ

MT7smP88P+lnua95F+Y/R/kP7Z6KYsP8Zxp8iPj+YFbMf95tVfyQ4MWC+c9O

n/3V114zY/5zEM5MIKWdCfOfoZP/2B4ZJsx/HuiJIR1Mw2P+s3+o5co1Qzzm

P1v9EhD2EcNj/rPgO+1B9714zH+ePjHZeyYQj/nPt8P/hvocY8L851gtX/zU

TWbMf753wumSvzkr5j9zqtz++1SAHfOfw25IfrEOpvjPD+4L9+clUvxnf6ck

Lvtyiv88EtTGekhX9v/lN+/4ywcv+K+IRVL85fLC1O+NuhR/ue+NYdh9hBXz

l482H99jXMyA+ctz9p5rwVdpMX95j9D7a+n3qDB/uaVL6siBwE3MX/ZM8BGk

rVzF/GX6YSN+pO8v5i+f//5a74fiCuYvJ7sy5QESEfOXz77caBZbncf85Rtt

GUIn1qYxf7ksKYdH/vYE5i/nJQdluxSMYP6yyVW6qz4qA5i/rHwwa7+6Xxfm

L7MdHFcZVGnB/GVP184Nh/DvmL/ckuoq9YuYjPnL7g+OIsfOfIY7/vIPYsbq

W/s6uOMvt+peG2JZ64Y7/rKX2OyxTW1OzC8uSjP80OfOhPnFEZrphtnDeMwv

fj0punryAR7zi7cMZsWd9+Mxvzj+yZj4c7T+2/GLX92+e/PyWTzmF4td6b3b

1onH/OL+0sAw9x9MmF/sxmZornGCBfOLJ5MnLlS/Y8P84pFnmWcb5Dkwv3jL

XPVC0SmKXxzv4PKpIILiF/vcVHEVNJJAdnzg829BwyQ7xQeuVjstufqN4gOf

+uQxyLuX4gN/drqjkHSL4gO/5XsTKH+BDvOBq+7FrI80UGM+cG5Zdlx8xBbY

8YHNbn8cHQ1Zx3xg95V8ZTsCxa9Ny7WxG6lshTt+LeebJME/jpyY/+o8iKNL

T2XC/NcyXRuTNhomzH8FdK90Qp7jMf/15NU7sEwLj/mvbnTe4cdE8Jj/qki3

WN+qicf8V9ZciV0/P+Ax/zWZISYo2ZsJ81/d68MCM1qYMf9VfubrAz4yK+a/

KoKZ6vFYiv96gZm/1diU4r9OWNEK1G9Q/Nf+4smrR25Q/FeVrRuAuUUR2fFd

JbWTohO+U3xX2XgTkaRYiu+6LC/T27nJjPmue/0iaZ650WO+awlj6zz3cxrM

d+0VuWSWVrANdnxXNc4Y93qfDcx3fdT9uOnRP4o/6tkblN1ztxnu+J5m3N5Z

Fw2ZMN8zy9e5suo7HvM9HYWfFQda4jHfM0gg1uC9DB7zPSMutzO/kMJjvqdS

dqbAdTs85numkLaFhxiZMN/TKcfZP52DGfM9W/RlbmzWsWC+51V0E5p4bRfm

ex7jez/e30TxPUfY/OWbzCm+548obSWmhxTfs/qAb8uZDorvKWzv0nuLneJ7

dnd1zl/Vp/ieIu8mR+fGdmG+56lkwVqnbUbM94z6of3m32kc5nueZKSBRwSo

CTu+ZAl1jLp3Twfc8SVHEQ5NiaecmM9Yc+r38aFvTJjPWKD0lFmdmwnzGb9a

JzzkisVjPiOLh0t02nE85jMeVypIWkHn947PaEsafkyngsd8xqtfekiVMXjM

Z/Tn2ZqTsmTCfEbqQj+x73HMmM+o02HoezKDFfMZlfekSddfYsd8xt2LVJbX

Fyg+43K4M33YCYrPmMNjcSVEkeIz5nBFrA2dp/iMwsvfrYNfUHzGxdPcSrdt

KT5jI/PrfI5uFsxn1Ji/0tjBRfEZBbhtZ2qXaDCfUWP2hC2tNBXmM54/2MUY

SbOJ+YzHRvCJktdWMT/w/A1iP9G+Ee74fOEDkWtnbzBhPp+mvmj54i885vMt

nN/bEGWPx3y+G98l0/kU8JjPp9E88CJcHI/5fH8O+z2TuYrHfL7PiL87cQGP

+XzilRrTa9NMmM9XFqxmrhXAgvl8x6+IALktis93LJEVaj+i+HzDteN2X5oo

Pt8bPjyHjifF57OOIRqmeVB8PlYDxzAFF4rP52F54imNC8Xna3Gqrj4QQvH5

kkyI15ry8JjPV/G9jgffhMN8vmHhr+ZkJ2rCjg9HKtY56HamHdYt3Vivl5uG

Tl9GxOKf4JHIZI/xQ6cmYQBTNchSxSP2oXLBYWbj0IP5qsd9dL7eMPpbqeI6

CpfvvBqZ0cUjPd5ctfGPhqHpcbsyNwSP+XGMOkW5YkMUPy7AxL6u9yfFj6P1

jpaaghQ/TtZpSktan+LHOcE/RtZ/KX6csHJQ5A15ih9H7RUddauPg1DSZyv1

/PQEfCccXycgiUf+3Axeb3IagyL0pP2+smi+f12Sle46AuNtyN7cbnjMZ0s2

iN9cfEHx2Zpvcshb2lF8tivC4xXpvRSfje1xg0y9Jg9hx09zZQ4MpLXrgjt+

2vnzOXVVLzkxf+wQN+PWx1omzB9bn1R2ExVmwvwxpzW6jbC3eMwf4y5WfTJ9

Co/5YwPaV/e8ReuRHX+sw9v7czRar+z4Yy4ODA5dL/GYPyY6Gc4nYMyE+WNN

8cFjf58wY/7Y8vnhWTtfVswfy9y3RX9AjR3zx56qvhFhK6X4Y+0chnLMSxR/

jD6h0MfJieKPMTbG0pAJFH/s4ecBOYZgij+W8M/hnV4bxR8b+mV68Jk+xR9L

MY8UprVhwPyx4j6+WkkZWswfM64mNjw1oML8McfKAxk2upuYPxbKMjhYH7aK

+VibvEPlqjP1cMefKtL4xIy7w4T5U7+stn+X9uAxf8p0z5+Pv+/iMX+KZPlT

IAPdb+z4U9n9nEec0f3Ijj91iC8mm/MCHvOnZHUWSzJG8Jg/FVuhJPG3kwnz

p6qV+71rbFgwf6pvz+IB02Y2zJ/6bNX/b9yY4k95jJ6cpn1G8adIRk+5tugE

MX+Kq3RVomCI4k+FHLDYHatB8af2z+Xp6nFT/KnW8wZEhV52zJ9qqGko8WSm

+FOwuputhZ3iT+m/p+LEJVITdvyjAUWedYugNph1+GDFxIlpOJxFd8w7AI8Y

aSYKN9hNQqlsLToBDTyi/vpfCeOjcVgWK3xbG40PLBlCN2WiRuGFcr9OFQIe

UdSUGCHHDsMQ3/qj85/xmI9kaXnD49E3io9UWLkqzf+a4iPx/5XIGL5K8ZE6

DC4SZNsoPlLk/uSqN4wUH8n5YX56PlEQ85FOCqZ+V1LnJDx4EGwm7jgBFYW0

fyFoPVPpaK6oFzoGBZLU+2+i9U7NzPCZ2KgROOGqNRaCzocdf4ghwOXNcSoh

zB+y7FMS+hVF8Ye8+9xuXXWi+ENHukRM5iAPYccHkv9Tcso5qRN2JaSKrBWO

w5zYHBVv9PmYX3LIwXeOQlnmibuVh/GYDxSutXHj1QrFB6p8ZWdE8FNA5tKa

Gg0+TEDXQSMPBI1n113pwg7XjcH9fAyjRAk85vfkUkc680hQ/B4qU736+VIJ

QkLwhUv8YBzamW+7jaDfv6WjO0dSnIC57MdIuWj+k7nxufbiuTGo9eDLeJ88

Htnxb3ivSOMP7++GO/4NAD9y4yI5MT9meeOCTloTE+bHGLpvOr8VZ8L8GKOW

+ab+ZDzmx0zbfDMWOY3H/JjsF3MWeHR97fgxbAXHvbeU8JgfI/eF5VrAMzzm

x1RfW5wrP8WE+TGKt9vuX3JhxvwYtvF6lu67rJgfw3n812CZLDvmx/RzlRrT

JVP8GPqW3JVHNRQ/xorZJuIwL8WPqZJ9QBiCFD/mNXPd4AQLxY+RCSiWc2Km

+DH2i0a8u/wpfkxq54UC61AGzI9pH58gFhJoMT9m+KZSFvU1KsyPMWmeSv9g

s4n5MYK9NBntmauYb3KEaLFbT74e7vghK613mxzuM2F+CFvap5d5/XjMD/nk

GmX44h4e80OUfwtH0e3DY34Ik3W0ChnNLzt+yPB+gzvyJnjMD8mT85rO68Nj

foiknMp26k8mzA85VmCjNnaBBfNDyMp3nG4Vs2F+SBh1bMYBbQ7MD4mMotfi

tKf4IZXCNjbljRQ/ZEv0HIdiNMUPeS+gEJn2nuKHJGYfaQm8SfFDnIYDKwm0

FD/keh1BW1uD4oe4G+1arlOmw/yQpFPW/d2F1IQdv6LpHv1ZVpk2GN8bl+Jy

YRpW/gyc8w5G821g3tdI90k4eKE+ZwzdbyZFTrb9CBqHxbSD1uro+hk691FN

NG0UWp/qs1lD96udMXKLqZnDUMqWZ6v5Ix7zLZbA3zC2DxTf4k9p2IirK8W3

QMDtkKsKFN/ijiJO2jSO4lsk6m0GNcVTfAv/yS1TqcsU32LgUJz3gh0nobUi

bnXWYwLSadNmZ0mj6/eu3nHaN2PwgPrfV/fQ44SoB6LhaSPQInpBZMYBj/kR

BW+CuoZKKX6E2LOfWQoqFD/i8pf9vvSQ4kecnBuwPofjJez4DoYEvzNjRzqh

9tuXhz9XjsNyvLdnPvp8lGm3vWgmRiEua9q89xAe8x1o5PQy34VSfAfLBT2q

wCl5RH9l0I63dAKuN0v0j8mh+x33xYyVrjEIH4owa6DxbcdfOPrgzgfTnxR/

oWGQ5/I1XkkC7XPg1H5mHFo/ZP74Hv1+s7ALQRVHJuAfXfGfZuj5L2zeDnNa

jUEWIr9zOnr9Hb/A/koqG76xC7Km3Li1d3gcMhj5PDuGrofox5W9Dn/H4Dku

a+N1ND61hnEln3YYh1fYVL4bo9fnl3NHLppNwHBR3rZxtN50iiul00obhy9G

jw1eQcdVAh20zfaPw8vflGf3oddLIisbKQpPwEXQb86Oxtsd3s90Uzj2RUQ3

3OH9n14FTfnHcGI83lLqu1DKLyaMx2/FtyaMSDJhPN6fhVQcmILHeLxLcV6w

1hk8xuPLlL1DddD73+HxuiG92upofN3h8S9sbXfdROf7Do8P/fslQ+gEE8bj

54O7JwTuMGM8nt9AcD3NlhXj8fklvAcFxdkxHu9xxVs8I5LC43fbHOf9l0/h

8R8UMmdwMxQe76bNkmPl8//N47UY/NQfGFF4/Jrg8cvkPRQev2x2l5iSzIrx

eIWlUJtT7xkwHn+klTDFa0iL8fjRROnrzXZUGI8nfWl2tnXdxHg8UUPs+M2i

VYxvm+kYeNvX18EdHu0lqCQo6cqE8ejk0utN2YN4jEcbdrwfmb6Px3h0Xc7d

+K9ovN3h0Zok5Sb4H778fzz6T3hnWrkRHuPRchzL0uVofbrDo1l0W3mZ65gw

Hr3VQJBjNGTBeHRf1BkCWw4bxqMJhBftLiocGI9eHDxR/+sKhUcHJrhSv/5I

4dG4msqgi/cpPDo3ax1+66HwaB36odTVVxQePbb75nkufgqPrp5T+dNrTOHR

s9caT87r0GE8OrHo+KFLCDVhh+ey5fnRrfxphdzZhlGlZtPwtM7BUVo0v/fv

LWbweDIJcye/hDQfwSPtUWZDEmHjkN/EUvUIup7q5R692507Ch12n3kyio5/

0Mv56/lpGA75NQODXDzGd4/uv/XbOZnCd2XX66ku2FH4bpeWY6YLFz/GdzUP

8dtEeVH47rbVGMvWJIXvWrs9ePXvOYXv/u3Ofifrw0mgtnt/4pffBEwCuVLS

aP1o4fTN+HrKGGQ+uNL1D60vAxxBUGjuCMTz+adL2OMxHpvGPximG0fhsVZH

xgh6OGmMx7qffzNvMUnhsapdJS8l9vASdvhq/e+vtYrMnfBeEk6Xq2EcWuXb

n/+FPh+hntrJrflRmLUsZT+vgsf4qr/DcscRcwpfxf+Sv9bzRh5xj50q2vg+

AZtuB7p6ovXe5kPrz8aDY5D1cZ3VGBqfMF56rPCYRAqFlzLIPVTq0pUkqL4o

9FS+MA5N/tX8CEa//5mqRWea7gQU4lO1+4rGW8SWe8Hp1hg07tNu5ETj7Q7P

bOVu0qaO64KE1O4Hz6bG4bzje6m76Hqo91KbrNtE9+v7bo8WoPGKPjwoN+ve

OHRvjD99Ar3+ieYnbEesJ6AUF98DY/T5psTv54zPGYcPWk7W26PjdkFD+iWH

xyHpe64pA3q95jeaiRzSE9AhLg8xR3/PDl8MzTh3xNyqG2akfw/VI4/DahzV

q1b0844R92psfcbh7uvtYhro9ZgSBRUufRuH22Ifdkejxy0h9TdcT4xDqgYR

QgV63Ju8YNbcMw7NwDsLAfT8xJeJkQs30Pfh3NxiiY4fiT2xNpA4Dtm/2rie

Ro//l+/t8Dz5zBLJ2uruHb4BG614fIdnRDCeV/pa8NXpZiGM5yVnRnm+yRPE

eF5k4MfIrh5+jOcdtTVvod/Ph/G8mmvT+dpBPBjPU2j16ZkV5cZ4XujlMwRt

yInxPBrzGc2FEA6M510a1v+g8IId43khOZ8Jd7V3YTyv8KlNztM6VozniXhQ

e1q8Y8F4XtZeKmW/fGaM55FkCi5s7WHGeJ6WheYetnUmjOcJeMe7b55ixnie

lidLq7AYC8bzGNV/qpa3UXheUFfUq00tCs+jM+Lc25ZA4Xk3t/59ikyn8Dxx

lbOXqyooPC9ascYz5P+H5x0iOR/ujqLwvFPvBU/26VN43laF+83b/RSe9/zG

wvDMAoXnzXK5ZjuUUnjesOTzgMOMlH5EVKlUq1FHtjCeR+8w8iZebQPjecfo

bD7yKK9R+hG9czgYmEXGeN7p7QHkLkLCeN46R9hL2uMkjOfFLA/XpcuRMJ63

KaPpuepI6UfUy8RQ+4iXjPG8seGm5WtCqxjPm/rLqf/UZg3jeUMrZ/mL92xg

PI9w14BKQ/ofxvM8VQ6r2NzZxnhezCXaeToZasIOz/tsasVyIJuGsMPzYl13

CZZ70xF2eF5MuyNw6xbG+J1TtAKvhgcbxu+Uqy+cSVFkxfjdUE3dcLMIC8bv

mCXfWvtZMWP8zppVWvQBDTPG75ya7QTG2Zkxfpck6iHw9x0zxu+SyYrxtL8p

/K6ocPhb8DaF323amav/Pk7hdy5aClPKlyj87pz+wLpVHIXfQd7vVYv/xe9U

S+9/0+Og8LuTsjJjtxAKv1O/8+D1d1UKv4u68XYPZziF370fyTjqkUjhd24X

hmKSdCn9fJ5m6lwnUFH6+QQAMbVXcZsYv1O2dzJTFVvH+vkk5zw8eNd0Fevn

U6va8Hlehoz18wlLePrqmisJ6+eTweznzi5Pwvr5zOziOe5IoPTz+fauQ9ns

M6Wfz5BitcyHF2Ssn4/gv8+mH9H6aqefj6e9XbC1xjrWz0e3qm4gYvcmxhcT

WmTjdelxhB2+2HZ1Ls/XUgTjiX0n2N5m9rJhPFEv6k/NlDsrxhN7JNQvWpiz

YDzx/O52v8lAZownMgtFeHzjYMZ4onyFl+9tamaMJyrJZzb5OjNjPDFV9l5t

gCsLxhO/V52rSrBkw3hiXyCov/2VwhNzgqclYu0pPFFlOHgXiYYf44kfAl+Z

OFtTeOLZJeviI//FE8P1apL5qig8MauKf/TKOwpPTGDluqgpSumfc/nlUAXT

FwpPNKANuD9DpvBE/mUZTVZvKqx/zlSVS/eM1T+MJxKFIN/PtHWsf06n6N9H

DBWrlP45de+1/qB5a6d/TlbV5pzmf3ys/+ufMxNL3bpHhYT1zylMWhc5pUzC

+udMbbxlYQul9M8Z491rLX6WjPXPCTXlIq/armL9c4JseiOnG9ew/jkSxe/i

lxI3MN7ZFHmG0+wCLWGHZ+5F2mirx1gwnkkz8G+jZZwZ45mTC7eHPY8xYzzz

kqLe/H00/+zwTCped9KULDPGMy0+XFFf+E3hmfm8rJmThqwYz+z56giD8ik8

82D59eOT4xSeGVnWWdtpR+GZ+0o0HB88pvBM1Q/ekT3/xTM5reYObf8XzwwT

OKv6z5DCMzX8fuZ+36TwTObeWfkEJUr/Gt3V2y087yg8k/hCWXjoLTXWv0Zs

2F2gl2cb7PSvmXGoFz0wsoH1r3HsEz6kmLKG9a8pt7P++v0fGetfE8H5SEOR

SML612jonBPNMyVh/WtCaZ+lx8mQsP41px/tr6M6T+lfY8b526d7hNK/xmhf

XQpPKxnrT3NELdidHuIIO7zV38HO5WaqCMZXuSXZ1GhYdmF8Ndd2PiM7iRXj

q2mpkQufvFgo/WJU19+FJTBjfLVM08STRogZ46svztj4VWwyYXw1zEmK/4MZ

M8ZX4QqT8PtTLBhfVbsY18zIz4bx1cq2gLSShxS+GhQRY7afigvjqzd8cP/C

DCl8VU1N47ztPgpfdWQvb5S4QOGrwROFzxNeUviqaeVV1VO3KXxVicuMI4dM

4auVGtyjVYYUvnrORiAi4BKlX4z5Hj91ve8UvirxeOmQ989/GF8NSno8cXRh

HesXI080eam6uor1i3GS/2xTE0DG+sUoBnlsBX4gYf1ijjH01JZokrB+MSnM

u3fr7SVh/WKe9qneL/Wk9Iu52FD7iEOZjPWLcXed/MF4dBXrF/PdYyTJJWYN

6xcTFvtHNMNqA+O/sT9DIlu2aQg7fLf3UIr1HkZWjO9eeRrqkUDNgvHd25Ec

47+MmTG+u+smZ1bAPyaM706f7/nwczczxnepXZ6bFpUxY3w3qPfcgyVOVozv

Frdv2dy4uAvju6pVdWFaryl8V+fyMd/FXgrfzZfyDj7lQ+G7IozSuuc9KXxX

NFqTkPJffDe771EYzp3CdycGWDlXIih8V/HgKnXgbwrfLUjjxSUKUfq13GVc

CQskUmP9WqwVnh+ZDtoGO/1akHfmbQ+ObGL9WlRt/5++7jwcqj/sH7iEaMa+

71vZ04akck5KkiUJ2ZeQNVuSIiTZkpAiFVoUKaUiSc6EyFIqiSxZyzZkmcUS

fuf7u575fOaf5/nTdTRzxpnOfZ/rfl3ve8OTsf4FkNcy/9U9ZkhtHuS1sFyZ

jylcTwd5Lf2Xsj3rvGggr0VJ4rXrRWUayGvhMXcwSTKGeS2s+ps2WjfDvBaV

z2WeG57RQR6LmH/PrUI3NpQxX14eWtqZEkoA82Ub6/vzWlwEMF/eHejiIMtJ

IDnErdzkU+zDhN781rueSCCZlPF/i3Tqxl79cyidekgkmToeifgY3YGJC0+o

vnzKA+bRD4ZMhZyX4Tw6q9cwsbQHzqODRl29zOvhPNrBbjZA2QTOo0+uzVF6

xjSPXgiMRY5ugvNo3dnvawV/86MHPrbPFTb8RqqXg/nYDOkIGy1Sm5w/ggjd

flRwKZ6GJC3I1225OIbQvJwGDDVpCCPfxfL93ivFujDfRYy74f1UPg1hzLMj

/E5/TNIigHl2wvCPPqOF9aQ9BXfoldH9mPSzqiEjXQKYbxvcLmD7lA7n24ux

C5c/M823j7gKsTh3w/k2RaLPVmKvMLozul3lXvIoQuvZukYSr7NXxIUNXsSM

I8mBT25Z4tf7gcGz3zLOZETvqP/6ry4wryWgcb7WTYYdZczDraXWNvN/lAHz

78rkOn2Rjbxg/k0VaEBpr7jB/Ht/kYlJ71UimH/3G19fdX1EAPPviVK97U3y

BDD/3rb7TIrq0now/w6hfX7Fe5QA5t+bogWnwrSIYP6dq8ryzokK59+dWWRt

Nwc4/35lOvut6BOcf49elkuOXIDz74Ayi4DkU3D+/dbnjY7BXjj//jlZMjGe

DOffysE7Td/+hPPvE1FvJr94w/n3o7CGOdIdOP9eDEwkkhPh/JuniDXpzzCc

f5s7PEw/w7YC5t/PP7Dc5xNcAvkp+aGZvz8LLYD8lAe/hkV9sukgPyXx1cS6

j3h/zshPecJ6TUEF798Z+Sk5a/hoh9RpID8lnDNo7FEozE/J3HNkVmQDHeSn

6B6ND7msOQ/yUx6a35xsjloA+SkWbYP/2AyXwHx+2rIqsbadFWXM303P9iQa

SHCD+XuTnVMoFx8RzN9z3nv4rNoRwPx9W/tFkdrV9WD+HhXawCskQgDz98RY

boPEZwQwf1fXPp0USYPz94Hfsx+PqPGC+XscH71rzA/O33f+cs/szoLz9xby

Jd1jBDh/twozlAgdgPP3/Qd/zbLtgvP3lv5+21VROH8vpb1adBmG83eRnLzs

FG04f1eKWSP21hHO35snaxcVJGB+yaELQa1ydasII7+kX1nenMPvH8gvkYu4

NrabZRHklxTGHmF3MJgH+SX9yi2R6WJ0kF9S3m873R9AA/klGpu3KV5XoYH8

kpSWJ46t+2F+iRKLuLkyCeaXCP3Sq9PNpYN8ktCQb9mvt7OhjPm/RntHN28U

Acz/w81H7VFuApj/C7xS7oxjI5BU2qLepzr1YUcR3aTaSAKppUi3Z/J2N7aV

X/OtUSqRRFHpDl+t7MCs1HZNXIvnAV6Apbk6+mcX9ALPLb5aP7gHvUCehOtw

4XHoBcwedfPv+w69wGPzuKN9TF7A9BSny4k56AXs+dYKOu8VQJskLJ/0FOH3

785NTiQrOtI7zH+m7OII8u3kYT/Nq/jzznX3zBj3MaQcSWRdsxX/Xv9P3gmn

ab2fuTYN5J1YGt6pNM2iIQxvMKH77p3NLgLwBkvpl+zz8ft3musTftG8fsy0

9mif+RYC8Ad7u9hVvdmgP3gf9emWWRb0B93XGh+zBEN/YDc1yz1UJ4wKBPj6

+p0cRW5Yn9Mqw/vvlDIbAVa3cST/THpdDd6fp4UgVZdRMjL93HLinR3ML9k6

2acTOsWGMnzCvsKbOwvx/19tpYjI884BrJWfltexsh54BaNp1aptNOgVhoTY

r529qE5K/PRHS27DGFL/rWugcgcNaToyIN0iNoH0W6mTb23G637OlszIH4NY

gJuS6nv8/q3b0WjY2tuPkdt6ZgQVCMAzbK7Y+ayUyTPY6BWZhVYpoB9MMieX

t40i3rWbjnK54Z9v8ueLu/LjyL27fa+68M9XOf9Jbp/NEBbMERV1i51Aiq9j

K0EcBrDJVMvv+kT8+c6pf67/3hiS78UxQMXvd2IZ+bViVyeQ4X1JqOtuGhK2

69q6cptBrKDnFN0Pvz6p59uCj+ePIy0xLiRjFZhP4hiYfa3VnB1l+IgE9pyF

0J8ywEPs3mqhULmVF3iIpLqiPi2MG3iI40FXN1/LJgIPoVkR/mfkCQF4iBVs

b8OPDQTgIUaJPq4p+PMqw0OEIT+2nTYnAA+h7Yrt26JGBB6CvvfEjP8w9BB7

3yw1p5lCD/GIQ+8BVxn0EGiuGlHpC/QQZXIt1cHi0EMsZauHbSFBD3EyTWzd

Kx7oIYzk9HaX8kMPoWK1tejpPegh/LzZK3nqoYcwGj0nxHkPeojthm6p4TTo

IbQehi67ya0AD2HRpuxVvXEJ5IWceG5u5ai4APJC+j3Y4rzv0kFeiIcKbYDn

LQ3khdgHBxATDWggL+RHC3VXgBoN5IWI8PcX1wbBvBBnhwN8e6TpIC9E6vud

cL+N8yAvhOWw6ZJkyALMCykvqjuqswS8RhWX/uo4iRVleIyPKQK3fBW5gcfQ

4bkV5yZKBB6j/prXPR1nAvAYBtv7I7jXEIDHwIovufgJEoDHoD0jnisuJACP

4RIxNp0/Cj3GwQlp+Q9CvMBjHLRwfFxpCz1GccbQs11noMcYdo3QMPgGPUaL

/l4uOpPHGP3U6UB8AD2GuF+BkZQf9Bg1/l84tnBDj9Fetf3reXfoMfZWNQ15

noceY6nDQNFwM8zrIBJzrNUHVxFGXsfB0n6lJ7H/QF6H2Ka/rzbwLYK8jnKH

q15HzOdBXscXMzX5Ulk6yOvgFBeiXAuhgbyORY9r1wxVaSCvo2ar6WyGAczr

iNnffKKsEuZ1fL5SrPXnOh3kcawIu7tOSbGhDA8imGusOxNLAB5E2qXMM4iX

ADxIkMXNoVFWAunqon77p3N92IKf4zb+MwQS9wZTt4dV3RgpKfzboVgi6SBv

Pj2nswM7UE9tPXWKB/gRH2ET5TVN0I90vI+acImHfiTkXNpjq23Qj3Dnt3Rc

uAX9iOX3YBLhNvQjobdGrN7aQz9SNOp1djBIACXuT0uk5fxGpOIzDjY70pFD

jj2iEqdHkNxrAUmF1/B65x4XWXh0DGH7fXoifhsNYeR78FjE1ZO200C+R+fK

K2p+Bn5//B9/olyhVfZLnwD8SUWjcOcifj/Vq34p86GkHzvbY1WcpEEAHiX4

n7m1Mgl6lOIr/o+eMXmU96LGJfeZPIpBtPyoDJcIGv1bi/DFeRRxFqSpPjyG

14OLZxZVj4wjMYa/Xt/F60F8coJyzVYyQtY5m/XdBuZ1dBIFPZ/+YEMZXqX9

e9YtI3ECKZLXSNF5dAB79gh5WbW8HviVeEPncZd06FfQK2XBdaNqpMRb66QP

Co0hB5V+bnm6k4aQfFSTWNdPICzqP0JO4M93ZMM6z9N/BrGuk19pmf/w+7fW

V8vzk/1YxatysT4ZAvAtZ+j7bq8y+ZaudS++/hJRRLfVOqce34Dfvxx4Xtt7

4J/v7WJOI/84Ui2U/lcefx5LfeA2u+vEEMYWmz1ht45A2qJAfDvpO4B9X+B3

lFmP1zv1NT2c18aQB0vvL/FtoiE8j0c1D8dMILSomvlzejTk0IjSz5ITgxiL

gOHeQ//VOxOKXXLaOBIeSj30XhnmcagsaN9O1GFHvzRZ76lcN4iF89b0/Mbr

95Obb1wCyePIIZrN1B4NGnLjzgSnF8cQNk0hiN3A+4XkY7v9xGfHEO/3p0VX

8dfT/Zd4fVP8EHbIMCNag4DXu16JduPkAYzSNpi1lwO/3zUYPLE9NYaU9Euy

38D7hVl988j8+EHsG9enex74+aWMaKt1BeHnd68SW8avr5qVLhdr4wCWoEE/

L8BCIO2ful1zsX4QO+6Z6U/Azy9F9k3T2a3jSOYa7O5T/PeTr2KENy/GkEFU

c5CK3//vXV3VfndgEHspen770/8+/7MXSXrPxxGhqampCRWYz8Fzs6RCx4sd

ZXidNy+jBNQGZYDPWVj2TBbQ5QU+p+I53137Om7gc1Rkr6jSbhOBz5nqeMry

En9eYfic+7KaW72UCMDnTFyI8zbG6z3D57AOtOVrmRKAz/EwD0qR20gEPidC

fciZuwf6nD+/K3QRQ+hz9lzvtxoohD5HrXCH/4e30OdErQmLPzwJfc63q3bh

Zf+Hz/kU4W+7wxL6nGdE9ouymtDnWNH3dU5j0OfItCv/8O2CPmfQv6n3eQn0

OX65Ce6Wq9Dn6EvOSJ7SXAE+R79hilt58xLMyyDkRL9UWwB5GSsKFdNzBXSQ

l1Gppcdb9Y4G8jK8nyXb1eyjgbwMUpvJTk78+jPyMlaSBma6AmBehmNlw3yn

OB3kZXi77lIekpsHeRkVUpUSn/wWQF5GZsDuPWvx82P4oZU/37Ynl7OiDB90

QLYUZVfhhnkVXpnjwpJE4IMS9e8etXclAB9UqHu48B1e/xk+yMJTfE5RgAB8

0BFFYqxJAQH4oGP+B5OaBqAPOua731Z6PS/wQfsjn/PvPQx90E75+bsbvKAP

Om2ZfFKjHPogg8Lku0qh0Ac1LGRkynZBH0Qx8SmIuA59kESyXlG/PPRBLA6X

PV+egz6oK0FIcegK9EFTunqFEzthXkWYsvQ905lVhJFXofv1QvWN1H8gryJj

VPOgitgiyKtABUwdHazmQV5F4n3HZhP8OYaRV1GvZFESFkoDeRVxm8PL/5uH

M/IqbA2uDUXuhXkVGQeky9krYF4FW+uZdx/S6SCPwmIeTbvOz4YyfFL5ocPv

fS4RgE9iib04k8FHAD5pMZ9vgzJe/w14ZF1OJvVhCbdfxxuGEkiaA+33Y1u6

MR3X7LdukURSSCzra++RDuzG2YIdqz48wDMJ3ishl7yHnkmc+GDVPxx6JuF5

U5EECeiZhsxOPK2Lhp7J13NVfeco9Ey7V2zOxV+Fnslm36zjaqIA+tT2WdjF

a78R/dcZq92udIQle693y8kRJKhQiv/vdbz+N2UGVZmMIfGmQ8tH8XrPyLfI

ST6/jRX/mZFv8SLC2tMqjYYwPNQdBwWOYpQAPJRW442M7fj9jPfkjo23y/sx

Ub+AD6/UCMBHsdR3W93JhT7K8cxmsVYmHyU3NKwyz+SjmsJ4fnSqi6A68jkO

scdGkRXpS/eV8efZlPGEqT3G40jNfaO//82jLtxQd3JSIyP+DbtWvaxhXoW/

JHGuvYkNZfipvvA9uXclCKQj1U2q2tMD2HU6VWkXXv8ZnkqDfvcnlyv0VOKH

OJbEcvH6zyrG70gcQ+QULmQ8x+vp29Ofqu+wTiD7o7ewfsfr7Q/J1M/BU4PY

dE+QyHr89cqHrOysqP3YFMuf+SPSBOCtXulEFjczeasOI4NdRw0V0dGV2l9C

0qNI55ami8QT+OdTIFzt5RpHnD96uB7G62n4OXUH3YAh7DZHXP8+TgKJ7evV

93UheP3/Efxcgguv/xn8X6QujyEtmne7H+Hnw1We4jEePoGQ1s3Hp+H9ita7

6b3FAXh/Isiiavhf/XvBZp6bOI7YtFa+iVeGeRTTByU3BauxowVnf+5L5x3E

zvfQWy7i9fVRgdP19b/HkaBOruL3+PN0zKmyYHeeIYwU0j6isorX/2pTl03j

Y8i449uvB/B6qvDNckU1FT9ewvp7G/48fiwlt1suYwATuCYp6YI/rydqHs33

9xtDtrXFKB/cQkN6hMR+304dxCan1t6P+q/+mx+QmfIeR1ivbGfvxa/vCmsV

788vAxjxRBR3MP5+mnUn1GM+D2JTF5YuHf+v/sc3Vl9Rxf9e1IMjpP/qP611

teUx3o/8Hb8Sgp9vimdj7hvzQYzO9+Bu4n+fX6T2vHnhOCKyxuJulgrMp6B8

uSi7as+OHu7ot0Bk8f6inlW4A/8+J6ecNLLuGkM6Vb5yj+O//4JUXH49dxDb

bXGutvG/85Xy4hCxG0fIk5dXS/D3Zw1a/Bf+axBrHcy0UMb7wRSr8Ydl4uNI

SJwdcQk/7srvFPTCeRCz2fta89h/5zM85BmWPY5YBL82Y8VfP3la/Qz74hgi

kBYw++6/6+MTJ/ggahC71F/rYvnf+8Vs1KkPH0c+T4fMbsCP24u12SVUD2Ji

LRGDb/HzTako/OG5E+9vdgUO5uPvV/FG+xNJH//8FujLn/i//9+8mjJ5wjXs

FDvD72BzuhdYauPWogyvFrl/pzwLHzvK8GrzuT8CRRvWoQyv5s2SZubZTEAZ

Xu37abd9prz8KMOr7emtftyqJYoyvBrX+IOC8GZ5lOHRbFN7iq1JGsCjOSQq

XkpVlAMejS+toNv4hSjwaHXR0YYzboLAo4l9NC7cV8kHPFpRZOSpoEwe4NFO

qb2njo4QgUd70nzj9JgDEXi0mMS8esMK6NH0E8xZnWR5gEd78ebhWykL6NGe

2F/yXbzP5NEkSSfGiqBH60XPPHSsgR5tsuRrUcb/4dGwA89dipg82s+iS02T

xtCjNdmp0Os6oEdzyfKdth6EHu1krOf1lbvQo5XW143I9MB8iY/6uwTJz5aB

RzubfHT0gNMi8GivJTrrZKl04NGqFesftA9TgUcTcnpu8M2OAjyaY9WyS6D0

HPBoi9Tf/5rZZoFHy1eRkZDUnAEe7cIeNxunwGng0aZmkt8llPwFHs2Xuj28

vGEKeDTuHJ5NkyuTwKP9lci1YvWfBB7NY0v5pZvLZOjRSlQybz8ig/14fNG0

a3tDyWA/Xmu2ZHOfDRnsx9vl2VJYtJUN1QrEyPWrVGxM9+JhGwMOtFxTs1mc

i4oZaaW2Hb7KhTL25x0yrWp8kcaDMvbnGUZxVtfkCaKM/XnV8QsrJfxSKCOv

wqlpxtArbgPwbjJ+/g/ObpYE3o1oQkaO6wkD70ZJqyr5+osfeLfrpfqqtm28

wLtJbJ7iGrnODbzbxAOP+f2xRODd3pZusTIIJALvVtGod87MiBt4t+HaK8R4

LV7g3bLWda5GHIHe7cKOI26+DtC7bTcv0Mm7Bb3b2+1WocQj0LsJmVFqESbv

ZhN3JImGQe8mNlpjyK8NvVuLkaNKSBL0bqGqMREHU6B3U5nknW1QgN5thw73

NiRtFeRV2ElFLj8aWwLe7Xz+McHdogvAu2l1GdF9emnAu334hhcMYSrwbnmH

XPv7X84B78Y53czWmzQLvNu7+7auNpkzwLv96aYfaWqcBt7tS4VKqK3sNPBu

6Q6Cxru0/wLvJqiXlWDlNAW82wxL7c+h55Ngf53y/LNfv7ZMIvE2NR0WCRSk

+sTDjf6fyUiNkfvLZxFUJEjoWOzNZDLwcX35orONTmSw306+gPQsoH0tih4N

2XUVoWFfH/0eGM9jR0fH93EX7qdid/fvOh6fy4ky9t+5vvnq0SHGjTL23xFv

HPNeoy+AMvbf2X2MDrA7IY4y9t95JLL9rv6G9///k++hlr438fJvZeDx5J48

OyxxVhp4vKwuFRcPZxHg8ULKbn6+nyEAPJ7Pi/D7SiZ8wOPR3n0bs1zPAzwe

p7jJlaknRODx6jMom6nORODxpp4pHFGjQ48Xp+t+UjgfejyO23q1az9Cj7eh

VWmffBD0eOI2+oNP2KDHC/Jh17zL5PFevyvIQZk8Xm/tWvmWOujxbMwnE4Ty

occrn5nh0hKDHq/Pv+P6j0fQ45n9k6mO6oIej+LbWbnNDHq87luHzvbW/QMe

z6RDssO7bAF4PP4W8XJBTzrweDFrfrBrn6MCj/eqr+lqCxsFeDye1xKEt19n

gcd7rhtauLN5Bni8F2+LHz9cnAYeb9mT8urIgWng8TZ/I6bYB/2FHm83p+58

2hTweFT7awWVPybBPrstI86bA8wmkUPxlyWkDlKQfz6J3tPDZMQ1r5G1DKUi

+sbOnnuzycDvdVjGHF/nRUYenN5K06ikYaMbvT/q5LChKpeJuSsYFbv5rcrJ

YIEDvRgilnT5EwV7c8BaZPD2erRc3fp12+Ac5uGAHpWV5kMZ+/L2kBojw/YK

o4x9edvFLWzOuMmijDyUlORn4xOcCiAPpWpoNXLdIXGQh9LM9SqVtEcI+EEZ

yXvrAw34gR+0ON1S1a7CC/zgr3WT2kna3MAPilz0dXXzIgI/2JxVHD2TQgR+

UEastPduEfSDc1eWeS/8gn7wycNUkuBf6Ael/Cf2sfhDP/iHpSn+aBT0gy7X

ufLGmPzg8BIr+wyTH3wkwnPCiskPGsjf2Wo7D/1gvFKA6oYN0A9al71wOH8Z

+sF6TsvgjWehH/Rus6mhZq0AP3jorGhzv9QS2DenqEohPtOYQqoKLTlODc8i

n4ZFSDZX8PvZ5brYgs9ziF5n4O8DIpNIjdJC5qV6CnKDN0N+9Q0Z2TD9z/1x

ORVxs681uh1FBh7wGfW8XqAtGeyr26MTUF5avBY98KH5+CkXGjYXytX73pod

ZW001ww8TsWepoge+b6ZE2Xssxu8aZGsc5KIMvbZtaxcCv2bz48y9tm93pEv

5oeKoYx9dtk6rl7YFkWUke8yU303cEVYDfhDyZ9fJDg/yQB/2BY4JVC5RhT4

Q8OWB55pNAHgD42cNoePxPABfygxX3DniikP8IfTAt6LNh+JwB+673/d24D3

mwx/qHNm78rtdugPg7Y+WOPoBP1hcERC9Zpk6A+fVx8IPs8B/SHn9KWMdAvo

D2v8pjz6mPyhZJR9ggqTP0S7h/Ndmfzhumx7bKs/9IdSpkpijjPQH24/V1JP

RqE/DPmIXlHeDf1hqN2uFqdr0B/+82TZcEQX+sMISUVTYU4mf3jWeZb1CR34

Q/Y2PZ8vJVTgD/comh34qEkB/lDukOpnEfos8Ifs8cqNj0dmgD8M5zH+RBCa

Af6wIc4Ku2Y/DfxhBk9CKvfVv8AfUrdoa84WTwF/qFF680DC+CTYVyf0tr0h

zHES0ZCZfntBhYJcfR1/dnWajGg2Rz7eoUhF3E0711bkkYFXfOV7TFnxJBn5

krnjSVYHDevcmWFm68GGai57fhjso2JoVPpJsVsc6G0LxceWExTMwz1E20Bg

PXrupNFhdhYK9u7AJ693zrwoYx9e3LYTHwu8hFDGPrxaqz+/7tyVRhl5OFtf

myHzmxVBHk6jSqDVl60SIA+njKVBMfu1EPCSOaKJ+uNX+IGX/NpplL0lghd4

SetKm21m7tzAS6p0mKgPhBCBl1yQ9DzkG0kEXrJ0zZ9O2TDoJU8MGl8pjYde

ciaTDbl+B3pJgev8Ntm/oJdkGeCOPBoLvaSxruKkD5OXPPm6K/omk5cU1Vc5

Fn4GesmJnTlLrNeglxTcd3H/2m/QS2r83lL/gRN6yT+TUnTTFugln25/O7LA

D70kZZrn2uULS2CfnOI9u9f3908hivSZq1X1/33vfmq0504iBmGR1+NK5xC5

WYcGK8VJ5EG1k87EQwryjlP4ylwtGZmTfE7YdJOK/HPgEz4RRwb+0eDy7g93

7cmISts+sZMCdIylKXCGh5UN1RsQEyqWpWF3+WIrX0yxo2wz6tHeehQs3ecD

O3crN2o1nucXaDyH1RBzLzeOCKCqa1y0AixnMc6XQ6rxjyVQxn67ffFSiZI1

Sihjf53693DRA/xKJG0/8xrnNRNYQv1YO+cBKRIj/ydwI2/tv3phkP/jGzdZ

ka4tAPJ/VL+m7Pokxgd8phm5RPziJ27gMyMP2F28eZ0IfObUWhebEE8i8Jm6

ee9cOKS5gc8k3Ry5/3YE+kzvQwOK3uv5gc/cOnfDJHEA+sw0138cdQ3QZ5oM

PK81ZfKZFeceuxcx+Uypjk+OVA3oM2mGrdE5Q/xo+ikRh23OVOSNzausHelk

5HpwtQJnNA0RtGuqGXcjIz1ZSQdqm2axjb78VpmbRVCPlVgVnZ4ZzGerG7fg

Uzm07oGaueLcBLZlOPP+BIc88JitXFYXThG5gcfUKR5tfOtCJE1x/3OSPdyL

6bK2+A3kE0kof1cMxe0npnevzuXfADfwmmGnv4tfyoBeM3N+WqmLyWtKeB/J

NWHymvfdjw9boMKodZ1xlfJ3KlLpqSex6ywZeMz11orhm4+Rwf48q/68zwNZ

a1HjqPAwz0AadovPyvHYNnaUR/d7tWUwFXvRLtBRtbgOZezXI0gdjJGVJKKM

/XrDdt/Kamz4UcZ+vY8K75qTX4uijP16Lr/1Sp3OKKCM/CPDJavGbDt14D/Z

uzV+TcbJAv95P9aNb7+tKPCfFSpR00bqgsB/7rfIfSFzhw/4z5z26L8fAnmA

/0x1e7P3ZgcR+M/oLNH6ALx+MvyndVkGu3899J837g2rfdzDA/znpTzJ4qv+

0H+WK7/Qc/vO5D/bvcMKlqD/FJS2p/OHQv/puMtd2JjJfxLHnreXMflPi6B3

YxWd0H/+7MkdaT8O/adlnmtlShr0n9VVGw4mBUD/aXLONMrnNfSf+4/NhN04

tQz8J6d/WLvDtkXgP92mNY0PfaED/ylad41Q0EgF/jPzM8eS2n4K8J86oi7s

iuvngP/8aBIhvpE2A/znhy9rxpflZoD/TKpI9x7xmAb+86Zr28XS3L/Af7Zk

87dU4r/H8J8PeRrGH1Imwf68CDcuQQ2PSUTa917KKzEKwvdFee0uOv79dLNZ

CReiItVPnSNu3ycDL1qYU/k5PYiMnHigt87sDw0L+Sf2+fYhNnRrucDP73+p

WPLhEnneAA60CCvU01mkYHa/ImK6W7lQx1RUMpeHgvV2PZGUpPGgjP18meab

K7PXCKGM/XyPDd/f2vBdCmXkRU2hrt9/tymCvKjs7qDqt08lQF5UbqfR0690

IeBV57iCZ4vK+IFX/Ud4Lxz/kBd4VcHpysp/Edxw315DUYfwOSLwqmy5baO+

p4nAq77srhRSdOYGXlUpke/uhCP0qiYt77UGw6BXPeN+oKrxFvSq+fnaZ84S

oVf11awRvsLkVZ+kCj9eYsqLui1VxBLD5FVZ9c/zpA1Cr7rH5AMWqQG9aqup

4q8KY+hVT7/K45OmrwFeNUU0QDXdAnrVBK1TPKplS3C/3eAxz2GLKcQm973V

wGv8+6G20a7p0SSS79cpQ7k3h6zb/HHberVJ5Pp6vnUyWRSkJFZIT7aRjHSV

JrkEJFOR6JfHE0ISyMCfrhFG5kUcyUj14IFTCvL488Gt9axuE2vRPTkflO9s

pmHJIoMHXtezo3/4N5qsMaZgSdLVoRkh3Oj9VwbT++3mMBtV5JhuugAae6FL

W9ttFuuyj3zsxiaBMvbt/XjZKHse24gy9ulVfJD5ZjejRPI30xHgk53ApD/q

3iN1S5EY+VjC1WiTIb8IyMe6cDbc4aC7AMjHqqWX8aZt5QM+NvZCit7eCW7g

Y2OOefbW4PWB4WPj5fgLGt2IwMeKS7/8lsLFDXxsqJNDtlEt9LFZsenrCkah

j80ujTn59RH0sdUf+kX1PaCPZbF84nOSycemzIhFdDH5WFVyz3oBJh/bUVH2

dRURQMO5pktOHaYiErOqtJJMMiIQfjz/jBcNKTvh42HnQUbUj2s0Z3fNYu4c

LE+/lgmjVVErqsvjM5hjUyZlnbocOiLh9mBGgIyVWl5Ir7woDzzsxo/uv3zl

uIGHLUx781nQnUiqcoy8dCepF1MmiZRG3CCS3rOvuex59yeGPCRZbv3ADbws

hU0gbRs79LL2koImDkxeVkKRPWKaKa/rdsPDELU6YXS3vSKfzwcq8n5d1ZNf

EWTgYTm222mU4vXTNUaKfjt1BhP+IjSwZ0ERNa64wLrmyCQmroCMFUyrAB9b

fHaIU7aSSKoNiua7/K0PCzGNeURxJJJaM+KnWyV7ME6++sDu30TgZ9PfoVdy

mfysmxXBIuqiOonn0uNbNro0JPPkJlWqDxkJiKZqXObE71d1PHXrI2RQzXWf

LVItyZgMJ/mZbZYC8LNhtg2nCvyJJNvFyO83V3ox90vzIXvjiMDTFrhouNQx

edrPpMsTXlUKqMKR5JIuCg25Iie/6GNHRg79TOBJNZ/BdN99sKruVUYZfrY7

6OLuoMtEUqp2VEjG6C8s2Ym/7K8PkSTmJ1GQfYOGuDihQm9dyMj4WGqvs2s/

dmWdX7KtExHkibGTnnwcsyGDfX4fb6/33Z26Fm3qMo9xPkPDLG2fVHLJs6OZ

f0US6sKpGBst/0pV/zqUse/v8PRFjflZAsrY93d1+tTvF9v4Uca+v3dlveyB

p0VRxr6/fQendrTJKqCMvLJd1C8P9Tg1gM/1eam1+dmwLPC5HFNiZ7/HiQKf

2zfFx+Z0QBD43HTdtWuvFfMBn1t59dFx8gUe4HNbtifo5fURgc81UrG+l473

IyCvrPppxQ4M+lyRx0+6T2ryAJ9bo/6lSccZ+ty3vHz75t9Cnxv2tI7o8Q36

3FP5sassEtDnmoVH0HYw+dzudfkKsUw+94FF2EwFH/S5CXrWtj23oc8t7BL6

ofYG+tzGpHd0uUToc1/zfikvaYQ+t002/Gtu+jLwuUhpVHaV0SLwuc7+gcL3

B+nA556obiZt7aACn1tWLfWPak4BPjfoHYvse8E54HP7y+v+hizPAJ+rMDEr

kqA8A3wuh/0bPhnfaeBz59ROWdx4+Bf4XJe0It0XpCngc390mmz/sDAJ9vlh

9l78gt6TiEjaEuUTHwWhZN0b8FwkI+s19hWKc1MR+8cH+G8WkIHnNdujE+8W

Qka2alS9ejRJwyYPPfBar8+GvhAYG/xEp2JZQRQ9LlsOdMuZCdbCNVRs5G3C

Pof/8lhl9lwYF6ZgATuUvq2p5UEZ+wJPB95pU/siiDL2BQawVtplBUuhjHy3

C8tCbefVNoB8N/dpzLRrUgLku6EPlI59EhMGntju9wMqbxM/8MTpnFN/q6t4

gSeW2LxjS1MiN/DEd889XuWOIgJPrDCu2rYLf75neOJYo8DH1yy5gSf2a3pv

ceUg9MQaNdgeDg/oiffM8ayYRUBPbPh737bgNuiJd+uTvvJnQ0+8TnAWW8vk

iUudZ7nu+0JPvLM2PSeQAD2xuaec50N76ImLUnq2t/hCT3wiLK/+BxF64sNi

iuP7g6An1rIuZjNtXQL79h5Mq10QOTaFTAervj71fBZ5cjgr2fLJJHL4RPxQ

8a05hGgWdCdo0ySSusUncMdVChIx0RT3vpmMfI4M4+K9SEUUQl+XsiaRgQ/+

7XSwfBTvR5J8P8qdV6Fjr93Nr1n0r0Wrabe23thBw6h/rxarv2RHj92TLzWz

oGDN9948czbkRpvEM19sdpvD6pevX9TyEkBL9maXZ3vPYg67H1m7vxJHGfv/

mm9U96ce2Igy9vsZGJ9U/eCtTErQV6sc3TSBNTa5nQ1SlSYx8uzWWKZIh+8Q

AXl23+YSvUnnBECe3Ujvj1hUnw/4ZTaR81vzFrmBX74jFLa/4iER+OWsr9Wj

+12JwC+fD7kxqsvCDfxywuDPV/Gl0C/rvPKs3dIJ/XLu9ODkm8vQL0dRq30X

t0O/nN3wpb+EyS8nzh+xXMfkl5O39MT4MfllRxOOH2mBAqj/9x5boYNUBNU/

1xh6g4wcidByeeZAQ3YnaAUXepIRy4bzVy4OzmLC9Wjpv3PC6Kh+1WPX2Rls

WV+aNvZTFp23jmztVCBjLVKanHof5IFXHlRTGP6uxg288q3lNx2SnkSSYtzu

mz0PezGds/b6t9KJJNYYIT6Z9z+xgMrmaIPX3MAzLxpWey8xeeafsa/OVTN5

5rjuDXGZTJ7ZrDHoaACnCLplI18lVzUV8Rbcs0PvPBl45THp2nuctmRkn/Dm

77k3ZjBq/c1zKxmKqP3c7U2jrpPY/VfT7z5HqwK/TFPc8kf8PV5/s5ENTX/7

MPEDx1r24f0IH3fO6cRdPZhoXItdTi8R+OaPHCe0vzH5ZoP7c4WNo2ok08RI

+1QNGlKvdVAizo+M5CAvn07xzmIfPJ5++UCUQVGDsYjTx8lYxw9TqyODCsA3

j1zgM3oQSCRVy+8Z7ZT8hV3X+vJdL4YIvLMw/d87wc/QOwvc/G3YJqKIulo5

nhQYoyFYdYLuCt6PbArImbhqM4PF3z2vn2mqjDJ8c7Hdm1WPNCKJ4qgf/5W9

D7N4+dDrhheRZBNAdv+STEMWxu8INruSkUyjG+PEoH5MPUjntp8zEeT/5d0n

bGTH+7vIub6NG4T7Mbcaye4YvF5rTff5/yQOYBvNWE0dw4ikX/YsExe+0pA7

sgPFVg5kpKa4+ulhtA/TUxwLvIj3p39YC9h8rvZjm7R3qxjj/foIGkSp3UxH

vl5wa/HGX9/RGPtnUtaHHd39ObgL74dSz9boyn/ux6RNWxOH8f5pyKzi7z0W

OmJTnboyjF9fNCXhy3OLfqz4elZsLH69GP74Mme1bS/ePzH8MWdblN65pLUo

gUuP3SGChr331z8bKcaO2pro+p2PpGI/OPxKfrWtQxn7A7Wi4+yk+ggoY38g

X33bi3E5fpSxP/DpkGz6tJUoytgf2CeIlhtQ5VFGHuGjwe9UorsG8M6hdB/f

hvVywDufKcpXDrklCryzi/UGAVErQeCdH2F2VUMv+IB3vqM3UqBwmQd450vU

LTffDhGBd/7j/IBcjl8PhndWb7c+W/4Weuejgy4mPUo8wDt3Wuyalz8GvbPO

3wfC5GfQOyvcf7mNpxp6Z5sh1tpBJu9ct+a22bv/wztfpHascDB5ZzZ+IRWN

TdA7N8hJCGhVQu9cpH4tq+QT9M701kk6x3Xonf1ng70GvkHvvOA011CVvwy8

84kuocRIy0XgnSkzPBM9E3TgndtUOxtZflGBd67he0hxs6IA7yxn90j3htgc

8M5bKTY8MmtmgXcmUgqrWtVmgHcmEUXyqvyngXdee2M++Mrjv8A7mz4We7et

bgp4Z242n4Vj/ybBfsBz/bNFXL6TiICiSlEXkYL8exCbs7JERuLSdy77cFER

T6dPlJsPycBHS5s5Xzh8ioyITEcSrGdomPEjvq62HWzoHPrdq2mJir3keXRm

oxkHOveNOOLKTsXy1TP5jPK4UA6vXa/SxCnYWOqC0fsiHpSxfzCqJzHpx2tB

lLF/8E4UWc9irxTKyG88/+qDF/uxDSC/cUx0t/BZHkmQ33jaxNw3TlUY+Gzf

DcmI53d+4LPpac/8Vxt4gc8mvZMqML/KDXx2QmxKrjx+f2P47NoXF45XBBGB

zxYv6z41YsoNfLbVDd/eKH3os0nuXSvl9tBnX+F/6WHsB3025/5DLMdfQ58d

IzNoZ8Dks3dXJ5mIMvnsogl2V3Ymn03LO9apLAd99unwF630YOizHcZbJc9H

QJ995zLi9lEU+mwhz8ebd8ZAn5262+BHSM8S2N+32rOdQ8t+Cnnn4DRa9WQW

yakb584pmUQeuvd+WJc9h/SxtNcobZ5EkmuvK+6/TEFOHyQ0CX8iIwcH/Z1d

oqmImuXS/k94P8Xw1mr/Xrofc8KffzWTzqhp0LGR43XtP7vWoqsbEsozdtGw

hj22SxeK2NG0cdnhuaMULNhA9jn7Zm7UuaVKcKPnHFYpdG7nBUsBtE6eHnbI

fxbLC5OdlbsijjL2CUq/yDPlJG5EGfsCTShLtmceKpOEdmzgsdaewNZZHWFh

PyJNYuRV3mp6XvbjkAjIqzzSon/lQbwAyKscEnX++mQ/H/DgP1hMjQJYeYAH

X7ux3Ki5iAg8eFPiRf8bLkTgwcvVbBYKl6AHn1ESUa8rhB6cxSPqJP8X6MGn

/TeN955n8uBnv5lrS0EPLrDgLTnH5MHna32mtZg8uP9r0XZdJg9ukmQy+jJB

AP2zs+2px34q0iskqG+fRUamI+/oN1vj9e9DMNn6BP7/9+zDqfA/s9hjtQFv

PmdhdEVG0k+ANoPpbsE6d9+RRS/McXm2qJGxHfEh9KY/8sB/rzsdUrlxCzfw

32J8m8Z1ThBJP7KkFCPLerGDPw0vI1eJJIU9uZaLX35il82en/J+zg18uO1T

J9ewPKb8TO79cb+YfPjprOHIMSYfHu30QV1DXQR9nMzBa19JReJHYgLG8X6K

4b9bWRu49PB6+8qloiYvZwazEDUrOO6miA6lqdV2e09iFKXiguVGVeDBXU8X

Kj6vI5J6i2VLfFb6sPH55B2reH3a0qRY4WHSg5l/ztO79pMIvLhKx8D5aCYv

HuzdECKTq0YiJ/3e+ViJhrwKOnn7iD8ZeS4rEJCPPwu1m7OafPkhjX7sC+P3

8SVj5gPSDS2cisCLt7Z7U/SC8e+HtnRIuNovzLnKttUEf35j+PGtxhKp/Ux+

fCAyVuSgoSL+PPTBVHOIhmRouQiZ25OR3ArFrjT7GWzfYqxiEocyyvDihwSt

DekZRFJhkAxfsFAfprIvv+I8fn1ogdb7yHE0ZPiyP8XWjYx408Rnhs70Y2qd

x3iI+PeX4cPpJyQCxfB+x2a5dfyUVD+2WlSxLRj/+3DluZ96LjSA6W48tXdr

OJF03tGn6U4zDdGoyRl+ifdTp7HcHX/N+zDvyyMjeceJpLelKgQ0qx8bWDPw

RQn/Od7gZ1ufKh1JvLBL4jL++nxOefETtX0YdfnilCveT7mrHEDm2/sxdsuS

fXv8iKTYw/Kt1Ys0ZC7yZeZGvH8U3kXoSLDtxyxtDf/8xvsphue+Gt70cgDv

pzj5n4cKqvdjepnV18/i59vzx9lE0x9/3qloK2DB+zlP3i1iUw/7sa5M5Y18

HkRSvWFxhqgMHVnoEmDrxs8nLM4lR22gD+M6s+f2dfz1sWyBYW3vfiwgde3/

7/eadN2zdM3oSEr042wq/n73xv66fufuxwIte6rv4O93EFknXKhNRxJMT+89

hL9ekXZfyJOHfZiDFsc2N7xf9etd2/TzIP73dLrmpIm//v/msyvE9pf34K9v

Zj/HnhD2AmMcj50S7T5R+hJh9DPSbu9oSuHw+HL8veUjz+Bx/dGQUCOm41Xm

L42jmI778Qr8M2Y6XpZwSC6C6XiB90Cz3OpfcPyrKe/zTfjPjONZOcHhZcgM

+PmcWzciWT4Jfv//AS4rB9k=

"], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {

EdgeForm[],

Opacity[0.02],

GraphicsGroupBox[{

PolygonBox[CompressedData["

1:eJwt1Xl8z3UcB/CfodLjUdtcc4RW6TBz1aO7GLNRyr25xqKia3OWXKOwDaN/

qCikUBQxRxKFLnRTuuguNhu5bbP1/Dwe/fHc5/16fX/f7+/4Hosfmt0rKyoS

iVTjpD/3Wx+uEYlEs6N6JJJDDGlylXUd2YyX49lnTiLLHMducy5FDtpePmxe

SD9aMFwXw07zVGJJlyOsN4+kY3gPuQF7zHkUO14H+Yh5Ef1JYIQull3madQO

7yVXo9A8ik4ctX+Srsj8EgNoSZ1wLH0UG8yjSabE6zvqis0vM5BE6oZ99dXZ

aB5DZ0q9vpPuqHkxg2hFvbCvvgabzGNJ4ZjXJ+tKzEvIoDX1OW5bZ9tKzUsZ

TBvi+Ne2FNuOmV9hCG1pwAnbTnKK05zhLOc4TxnlVHCBSqpIdbzj9l9GJu1o

GL6DviabzeNIDedHbshecz6TzM05YJ5uTaQgnE/5JstXjt+K7SxxfTWzrqWZ

eRaXmheyIVwCcjbHyNEN083lEF11u+mvv1FuR1uGUsBButj+Kf28po38AHP4

mVT9J6Tb1louDB9RzqKUKfpMXd3w3lQxTzdb9xMp8sekhe8jNzXnU0t+kfW6

KPkJSpisG6JbZG5sXk2d8D5UMleeZftz5hjzUn6U463rwvnXf0Rfc6L+y7Cy

jcXhs1ibsoYm8h7rdWwmT95pvYQXwvHs/5n1BrbwvO0fWuNYSbXwu1mvppDH

5Q+sR62TrIPtn2DdGs6VrpF1FbXNza0bmWy+QIE53+vnmaPDOecHOTm8J33k

lvIV5lwuDp+Ht3UL5PrmFf8/kB6jmIlyhqobseEzUcGc8F1139NJ3kVvXYK8

lioe1RUxQT9IjgnHo5zZulzdATqG34xeuhbyGip5RHeEp/UD5Zl8R5JuBz3D

7yq/xQVG6A4zXj9AnsG3dAi/KT3018tvUsFw3T88pe8vT2c/7XXv0z2cV3k1

5eHZrPubJ/X95GfZx9267eH5rb9WXkUZD+n+Ypw+XX6Gb7hLt4379M3lNzjP

g7o/GatPk6fxNXfq3qOb/hr5dc4xTPcHY/R95anhnucO3VbuDdeVvJKz4X7V

/c5ofR85J1zb3K57l3v0V8krOBPuYd1vjNL3lqfwBbfpttBVHy8v5zSZul8Z

qe8lT+ZzbtW9Qxf9lfJrnGKI7pfw3NH3lKPDtUJZeD7pJoV7h1vkzaSGZ5fc

2DyTi+QFvBr+fzJYdyg8V3Q95MvDtcP58LzQTdTt5WZ5EynhPpYbmWdQU57P

Mt18uZ55OSfkDPlgeMbI3eXLwnXGOfJ0+2v5vfVNmMB/pDj9Ng==

"]],

PolygonBox[CompressedData["

1:eJwl1mWYVAUUBuBhAWHZBURQGukSJZalUzAoCTsJ6e4waZWSDgWlVFBQVFRA

FFFBJQXpkA6btn18z8OP9znn+2bunZ3ZO3e3WIc+bXonJRKJDMyw7OCWTInE

voyJxDjupAAZ2Omx79jFbvawl33s5wAVHbvfc8fThIIkxXn0581FtCeNg55f

SX/APoGmFCJjHKu/YC6mA1U55PmV9QftE2lGYR7VXcMq+2Ayxbnki+ZrPE46

hx1fRX/IPonmFOExXRZW24eQOc4tXzJfpyOD5CJ8a69GN/t1fGkfbpZjpP0J

swS77aPMCnzvddPMw7ox5ovm02ZpXqCF3M8swHNskUeY5RnPjXJbMytjWSM/

a5ZlHEPlYWZxnmeXPNK8KT6XeJ/mZfMNnrGXoVN8VnFudtir092emw3xs/Ok

vSR77Ee8h6rxXuyTuYv+ckG22ovSzp7Mx/HzkIUW8hVzCZ2pQQ9dHjbaR3PU

udPlI/YptKRYXCe6bKyNz5Ws8bry7+ZSulCTY46vpj9qn0oripMc59L/Yb5J

V2px3POr64/Zp9GaEmSLY/V/mm/F75janPD8Gvrj9um0oSQpcaz+L3NZfH7U

4aTn19SfsM/gbkrFdaxL4ZP4bEmNc8l/m8vjc6EupxxfS3/SPpN7KB3XsS6V

T+1PkT3OLf9jvk1P6nHa8bX1p+yzuJcycR3rsrMurj9yxLnlf8136EX9OI/u

er6K65UzzldHPm2fzX0MkAuxzV6WTvYcfBbXGDnjdeX/zBX0ju+WXJSd9gbx

evYb+No+lrNep658xj6H+xkoF2a7vRy7k90r4nXjXmQf5r41yc0rh/wKm+R0

+QMay/nk/PbRZJKns0A3Xc5jX8x5+RH5ED3lJnKqfQi/85xuqG6iPbt9Ht/I

VeWVNJLzyvnso8goT2O+7hwP6w7SQ3ennGIfzBXG6oboviZNfp9bdTfIr/Ib

D+kO0F1/h5zNPojLjNEN1n1FFfk9Guqul1/hVx7U7aeb/nY52T6QS/G56Abp

NlJZfpcGujzyPH7hAd0+uupvkweygUq6FdTX55bn8jP36/bSRd9YHsCXVNS9

Qz39dfLL/MR9uj101jeS+/MFt+jepq4+l/wSP3Kvbjed9LfK/ficm3XLqaO/

Vp7DD9yj20VHfUO5L+upoFtGbX1OeTZnuVv3HY/rG8h9+IybdG9RS59DnsUZ

2uh20kFfX+7NOsrr3qSmPrs8k9O01u2gvb6e3ItPKadbSg19avw95hStdN/S

Lr4fck8+oaxuCdX1KXFNc5KWuu20je+tnNU+gItxfep66NZSRn6Darpscl77

SJLkqXEN66bJue2LOCHfJW/jsbjHxGdsz29fShZ7fy7EeeTuHp9gT7XP5WO5

qLmC0vrXSbcnx+/CXBvfLV1hc3l8B+zfxHP5kBHyejMDUyjguKlstpdlVfzc

nvNFXF8s5Hh8N8zivEcLj68zt5qPxn3W41vN8qxhtn5D3DdYwjVySXMl/ezn

GWHv5rjx9hT7y3GsXEp+japy1vg+2AvZl8X30T48/smyT46f3zpFzhX3I47J

zeUtPBJ/P+TM9r6ci2N1XXWrKSkvJi0+c3kyR2mm28zD8fdK7sIqSugWUSXe

j/wiR2iq28RD8fdQ7sxHFNctpLI+s1yNTnxIMf0CKnnMbTiR8epbSqTTkQ/i

d+zx+VRMuvp/5f9bPjVf

"]]}]}, {

EdgeForm[],

Opacity[0.02],

GraphicsGroupBox[{

PolygonBox[{{581, 122, 78, 2518, 1086}}]}]}, {

EdgeForm[],

Opacity[0.02],

GraphicsGroupBox[{

PolygonBox[CompressedData["

1:eJwV1Xdwzgccx/GHSu76R422WqNFjM67LiRBh9HrsLKFVKuUGi3pMkLsUUV3

o3shJduIGF1WlyAbbbVEBXW91gpZ6Ov54+X3/bzz5HJyzz0JG5UcO6lxIBBo

RIV/+ntuCA0EurIrJBAYx54mgcAHdisy7EEUuaM44m7KNndvStyTWe17Uuxa

9xLu4j8tX+vGD/Z49mof2q3JtAfTjO12H0rdU1jjddPtOvdS7ua0tlHrzo/2

BPZpH9ltyLKjaE6GPkOrdy/jHs5oRXystyVbi6YFmXqq1uB+nXs5qxXziX4T

OVoM15Klz9Quud/gPs5pJXyq30yuFst1ZOuztMvuN+nKea2Uz/R25GlxXE+O

Plu74n6LblRrZXyut2etFk9LcvU5WoC37e5c0Mr5QuvAOi2BG8jT52qNeMcO

56JWwZdaGOu1IdzIWn2e1ph37QhqtAI7nJ/s59ivrbA7ssFOpBXr9PnaVbxn

R1KrbbIj+Nl+ngPaSrsT+fZQit3RVLpbs8PdlzL3VNb7ngV2E9LsHux29+d3

d52vb3ZH8ot92HMEE93lnvFUuas8x3DQ61d5duYUG33tkOdwzjDMLvGM4V+O

2sc8R1MdfC/aOz378Q/ldqXnSM4xLfj/9EzkNCftE55jg78zP3uhZwjL9d88

k+jpLvQcwCF3vddtcfdgtz2JCncCx92/+nq6uwsFdhJt2WU/TIU7hXyvW2SH

8r7diwZta/BnUmgnBz8DvLUG0sJnRioNLPNBslg7SD97J3HanXYeV5ignWK6

Ptxu7p5BPUu1V7UD9LV3EKvdYedymfHa36ToT9iL2E8fbTsx+u12DpcYp51k

mp5kLwx+ztFb20a0fpudTQNjtRNM1YfZCyjnIe17ovRb7SzqeVY7zhR9qD2f

Mh7UvmOwfoudSR1jtCom64n2PEp5QPuWQXoXO4NaRmvHeEUfYs+lhPu1bxio

d7bXUMMz2l+8rCfYcyiml/Y1A/RO9mouMko7ykt6vD2bInpqW4N/D/SO9ldc

YKRWyYt6nD2LffTQtvC4HmanU83T2hFe0GPtmewlUtvMY3oHexXnGaEdJlmP

sZsF3yvUsURL1fYQYW/iUa293da9iFB7OSu1czyl/Unwj1y03TT43qGW17QZ

WiHhdgGPaO3sNu6FhNhprNDS7JbudM7aT9p/MNGOsq8Jvs+oYbFWfrXft/4/

yzcDdw==

"]],

PolygonBox[CompressedData["

1:eJwl1mWwlGUABeDl0nDpdnSku7u7SwVF6e66tI5FoyPdnZduBETq0l2CktLd

Df70eYcfz7znnN2FrW/nZuvQt0mfqEgkEo/fhPEJIpHuiSKRRwkjke/5lBu2

3UxgIpOYzBSmMo3pzGAmPTz+scf9QFZu2uKYRU+3PbH9SDZu2fYw1h7NPFs1

opht72V7Kv9Edm7b9jLOnoL5turEZ469t+2Z/DM5uGNbacvHdr0N+2zj9ZQs

0GuQgB16BU7IMcx1vz76c3koOTmk1+aCfNftq+T87NCvOlvTVj7rbMJteX94

7+RULNSvOFtSUz7hbBheI1fD63N25A0J9Z3OiuH95GT4LJzteEU//byzWXiO

3NfvObvwLryX/t++zhf2h85hzkvO5uSSDzvrcDF8Ds4O3POY1c4C7LRfc7YJ

/6d8ztmUO/KB8F2QU7NIr8VJuRHX5ETskitxSu7PfI+J0V/Kw8nNfdsaW0F2

6e05GL5jehoW67VJzAJ7v/Da5RHk4YFtra0Qu/UO4TMK3089LUv0OiRhob2/

7bU8krzhfbGtsxUmTu8Y3pfw3dbTEavXJSmL7APCZyOPIh+PbOttRdijd+JI

uC709CzV65GMxfaBtrfyaPLz2LbBVpS9emeOhmtKz8AyvT7JWWIfFD5beQwF

eGLbaCvGPr0Lx8L1qGdkud6AaHbrlTktDyDW/Qbr7+VfKBieu16XS/JTt2+S

i7Nf78rxcJ3rmVihN+SU3Jjrcgri5CqckQey1GOG6P/Jv1IovEa9HpflZ26/

kNTzCN8Vv0Hn5O/8Ho33o5RSn88xvZS+hZp6Zj2LPJIE+lQW2abq6eVYXuqt

9H/ppdfTo+UhvGeM7VvbODmFPI+jekl9MzX0THpmeQTx9SkstL2gpe0KPW11

9eTyYN4x2jbEdoQS+u9Ut2XUF/CcFrbL9LDX0ZPJg3jLKNtg22GK65uoZsug

z+cZzW2X6G6vrSeVB/ImvC+2QbZDFNM3UtWWXp/HU76xXaSbvZY+kIMUtW2g

ij2dPpcnfG27QFd7TX0AByhiW09le1p9Do9pZjtPF3sNvT/7KWxbRyV7Gn02

j/jK9g+d7dX1fuyjkG0tFe2p9Vk85Evb33SyV9Nj2EtB2xoq2FPpM3lAU9s5

Otqr6n3ZQwHbasrbU+ozuE8T21k62KvofYgjv20V5ewp9Onc4wvbX7S3V9Z7

s5t8tpWUtUfr07jL57YztLNX0nuxi7y2FZSxJw/fae7wme00be0V9STyAF6H

76etp20nefTllLYl0zPJw4nSJ4fvsG2Knk5ewm29sX6KNnqF8B7LWeSVJJb7

8yr8O3oPt4+Vo+W57NCzOjeQ276MUnLS8Fk4d4Zry/aJc224BuSj4b5sZZi+

1xmPSXzkcZM5LudlW3je7rM/fL9YzK1wbTizs4lGbo9znnS2dpZ3+0lnfrYz

034w/G6wgkR6Tudm+skvGSZ3D38HycnlOeGxei59KSX1JOF6kD+W14TrUR4a

/niSJ4bnL07S04TfI27qDfUTtNLL6QnlGF6Ex9q62f4kpx5LifCe6xO5QQPb

cVray+pd2UYO2xKKh9ejT+A69W3HaGEvo3fhD7LbFlPM7mc3UprObCWbfRFF

3ebnOBL/w0uKlKITW8Jn7PaFFIn68Pfi/+oUSq0=

"]]}]}, {

EdgeForm[],

Opacity[0.02],

GraphicsGroupBox[{

PolygonBox[{{581, 29, 75, 74, 2520, 1656}}],

PolygonBox[CompressedData["

1:eJwl0VtMzQEcB/D/SXTxwDA26rRmxJDro9uD0JaXhphyyYtNl3dUj3VOqCfV

yeSpLJsUOZ2SmYmYjSeXbl61XF69VD7/efjs9/1+//+zTpVfWVtakxYEQYQv

lFDBdeOc8Wrk/8NufS135MemNjmDRj2H7baT+mv5CN/0Ln0FLXpMvyXPy3UM

yptYJfe660nII+42znv/hvvT9tKtcp+4Gxknove468KfSZuecrfygX6fb3cz

eUWT50m3gPfk6o/cKG+4p4+6O/gYXp8/5Y7Zi+iX85mw33dX0mqP67flBbme

1TzUN9ApX/C8Tv4lV5PGgK3DlkVMj1JoOx1+F/kok3ozLbZFvYE1XLTV237L

NSwJ/y62nZTZ3+rHmNJvcoldnAn/bvbjTIf/CyrZzR72ctY77zwvZib8vbhM

g/2PrZZ0ntoStmzieh59ch5d8gu3kE/s8+5oehD8XRYEV/jB7FLfx/3KNfkz

RfIYUbmCFFv0B3z3+Yh+mLsstzXz3D7CMClmCDw/RCfZ3okzZJ9mkYP2BFn2

GEnbFAscsHeQaW/imS1XL2eIAlsPk/Z59tvaybA1MmjL0c+RZLOtmwn7CV/t

H+TZbY0=

"]]}]}, {

EdgeForm[],

Opacity[0.02],

GraphicsGroupBox[{

PolygonBox[CompressedData["

1:eJwV1mV0lXUAx/FLCCwApVNBkZLubgYYpEVI5zY2Gn1hkZI6hgrSRwTGBhsj

PB4QBJHySI0aQ3xht3QI6Of/4nv+v+/3ssuzh+feQ9XhyX2T8kcikXyIM8o7

86IikcuIFI5EWjjXF4lEKmIj38hLYB7vz+fYV+yxuM7rYqR2gsfhNM/kFZDC

Z/EVdiG8zqOQT2vJP7ErYRMfgLnaVT4ON3g9jNJO8m7I4bORH630DVplpPGB

eEe7xuNxk9fHaO0U744z4fpRAK31jdqj2MwHYZ52nSfgFm+AMdpp3gNnwzWi

INrom7THkM5fwXztBk/Ebd4QY7Uc/jTOhWvEQ2irp2lVkMEHY4F2k4/HHd4I

47Qz/BmcD9eIlVphvKFFo5DWjm+2q2IL38RLYj4fwhfat+wk3OW7eFUs4415

vH3WfhZ77Bq4oGc5K2KJfsBZN7ynvspZBEfwptf2OWsjxv7MWQ1fYwU/6Kwf

/h3DdfvZ9s50/ZDzceduZ3V8g61eT3OWwjEs8Pp+Z53wjGGo1xc5b+uHncnO

vc5a+Ndrn4b3xHK9CU+wz9nPIZdv45WQyhfw1XYU3uKxKKJ14Bn2E8jkm3lp

LOTD+GL7jj0B93hTJGrneU9cDPcba7RovK0VDc++1pFvsashiw/Hu9pdPhH3

eTOMD/ef90Je+J0RjU7hHmlPYhsfgffC784n4QFvjiQtl/fGpXDNiEFnPVOr

juzw2UWKdo9Pxn/hOwDJ2kXeB9+Ga0QsuuhZWg1sD59PLNHu8ymIoKU2Qcuz

++JyuEasDc8HZmjFwj3RuvJtdk3s4Om8DBbx0TzVfmBPDd8baKVN1C7Z/fAd

z+aVsZSn8HV2LGby4uHv0uJ4tl0LO3kGL4vFfAzPDd8TOO47Mcf5ml9lsS/J

Ynw1jvGmfCe68HK8vD0LBflSrNOW8lL2elzhg/glJPIePNaejluYq72qLbKL

2qtwlDfhO9CZl+Xl7JkowFOxVvsHA7U8JGjdeYw9DTcxR5uuHUFjvh2dtDJ8

Df7GAO0i4vVuPNqeihuYrU3TDqMRz0ZHrTRfjb/QX8vFOD2OR9lTcD3cF22q

dggN+TZ00ErxVfgTL2sXMFbvyqfgKzTQstBeL8lX4g+8pJ3HGL0Ln4yDqK9l

op1egq/A73hRO4fRemc+CV+inrYVbfVH+Ef4DS9oZzFK78Qn4gDqalvQRn+Y

L8eveF47g5F6Rz4B+1FHy0BrvThfhl/QT8vBCL0DT8YXeEpLRyu9GP8QP6Ov

dhrD9fY8CftQW9uMlnpR/gF+Qh/tFIbp7fh47EUtLQ0t9Fj+Pn5Eb+0khupt

eSI+R01tE5rrMeGZxg/opZ3AEL1N+Kjbk3EtPJ9agrYHNfhGNNOieVl7BvLz

JeEZ1lJ5SftjfM978uMYzFuHe2yXt9NQ2J6Eq+F9eLzXF9qx9krs5lWcWaiu

b0BTO/yXpo5zT/hsaZWdW8JnwD4a/ix24W2+35kPKajg5/4HMFUhKg==

"]],

PolygonBox[CompressedData["

1:eJwt1mdwVFUYBuANoKIzSFWQkhAhikaKghRREJQmCklIIHTsdBCVHrBQpDtq

QBHBodg7JYQQerWgInZBelN0xt4An2/0xzPne9+T3WzuuXsh9Y5hWUNLJBKJ

JCYaqlufOj+ROFs6kRhJCZqfl0iM0O01Z7NfXi4nky8/IS82l2GSXC7o2svL

zVeySu5Pvi7BKF1JrtfdL+8z53BAfpIluguZrCsfdB3kFeZ0CuQBzNUlMVpX

iht0D8jfmrtyUH6KCtyiX6m7itXyQFrwoH6/rhuH4jNSkY76Vbq6FMqDaMlI

/QFdLofjM1CJW/UFunqskQdzI6P0B3XdOSLP4yJu06/W1adIHkIrRusP6Xpw

VH6ai+mkL9Q1YK08lNaM0R/W9eSY/AyV6axfo7uaYnkYN1GFDHtF+mtYJw/n

Zi4h095afUPWy/fRhqpk2SvWN2JD3Be0pRpd7K3TX8vGOFfaUZ1se+v1jdkU

ZxT3BzXIsbdB34TNcR5x1iTT1d5GfVO2xLWPcySFbvY26ZuxNa5znBk1ybW3

WX8d2+KaxvkwVn9E14vj8nxS6a7fEvc62+OaxvkwTn9U15sT8rNcSg/91rh/

2RHvG+fDeP0xXR9OyguoRU/9trg/2RnvG+dDnv64ri/fyc9Rm1767boWvBvv

G/eNrgRjdOeQoZsgnzD343t5IUt1ZZmiq0Carre8w9yS9+TX5SrMkfPiHjOX

ZKx8bnw/zLWYb860P9F80nx73EvmOpzSr7CmMDfOzlqPRfpl1nLsZGrcK9Z0

dlExvh/WNN5nQZyftQG7uczrG3lMfOR5VI91LPKASrG+SYp5OheY57PCz5aS

h/Fj0n/PsTt1s9lHB91OuusbytdwNXcwi720t7+DXD/TQL6dmXxDO/12utmr

Ly+npDyUH5ig76erFL+bs8zRzdB9TVt5G13j75GTzdM4X36Gd3Ql5CGcIk/X

V/esuZr5VSrG7+EMs+Xp9h83lzM/z1dyqvVt2ui3kmOuq/8wVopZGJ/Fmswb

1JDftV5OAY/Jm6yleTrez+vft15BIfPsb7FW5kWS4rpZa7GcwfIG6/fW8dY+

Xp9uLYqz0lW1vkIFc5p1JXnm08wyT/Pzc8xl48z5Ur45fifZ8lVydfNUzovP

w1u6ufLF5hf+/8dsEN8xTu6tKh+fh3+YGX+n7gtukjfTRZcuv8lZBupOMlbf

Sy4X78XfzNBN1X1O67heZOmulN/gDAN0Jxij7ylP4TNa6TaSGddUfp3T9Ncd

Z7S+hzyZT7kxricZ+jrya/zDvbpjjNJ3lyexh5a69XSOM5Vf5W/u0R1lpD5X

fpRPaKFbRyf9ZfIr/MXduiM8qO8mP8JubtAVc5s+TX6ZP7lLd5gH9F3lh/mY

63VruVVfW36JP7hTd4j79TnyQ/F9p7muiI5xT8kv8nt8V3UHGaHPjv+rxH3N

dbo13KK/VH6B3+L7qzvAffou8gR20UxXSAd9qryMX+mn289wfZacxwc01a2m

vb6mvJRf6Kv7Np45+ky5bNwr/BXPJt34+N7QRC6gXTy35GrmKZwrz2WJ7mf6

6PbFM0WXIV8Y9w5/xrNCN073Ho3lVbSN77Bc1TyZc+R8Fuvy5YvMy/hJ7i3v

jeeL3FkuE/cZf/CYbo9nbg39v2ObQPM=

"]]}]}, {

EdgeForm[],

Opacity[0.02],

GraphicsGroupBox[{

PolygonBox[{{581, 29, 28, 2522, 2375}}],

PolygonBox[CompressedData["

1:eJwt0UlsjHEYgPFPddqKU0XpNA5tVVRJ6I6T9WK51Bq76cbFcibMtCQSB62L

nVlacRAHUdvFQUS0M8WdWOKGdsrJ7veFw5P3fZ7/9/8y/VoVO9h2oCAIgkn4

8H8uFJKWSgzxDjQjfG4yCrGIpJxX4S7vRAsiqHeW1qtxj3ehFdv0YW0N3vAz

KEKDntFm4z7vxmJs10e0tXjL+1CMRn1Aq8EDvg9xLc8PIYIl2g4ta1+HdzzF

S9HP+8P3Ffz7o+K8DDfts3DZXuKoyT5on4OH/BKfitN8P0/YJ+yHccdegyL7

DbMcT3A+vGvWIYel7u0Md/2Rud68bVbjKd47T5vT8Bhnw29i1obfInTnFYji

1ZQgeI1zfmylOYSvPlA3z+Mk38pP2Uvt10N4Bc+glf/xDyixH0WEX0SvZ/p4

1H4LL/lqPop2voB/QRcfxwltCx9ElKfRov327mL7ERTyC+jxzAus0nKIafP5

BDr5GHq1zXwA5TyFZu2X9yW051ipZbFXr+N5dPDP6NE28Qxm8iSatJ/ux7VR

rNBGsEefxzcijRnaNTTqPzx/XMthuTaM3XotH0c7/4SEtoGnUMavokH77v4x

LYtl2jPs0ufyMcT4R8S1Np7EdH4F9do39/8Cz4xyBA==

"]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {

Hue[0.67, 0.6, 0.6],

Directive[

RGBColor[0.24720000000000014`, 0.24, 0.6],

Thickness[Large],

AbsoluteDashing[{12, 4, 1, 4}]],

LineBox[CompressedData["

1:eJwl1GmUj2UYgPG/GUzMDBlLOJxjC6HsZGwVkq2iJHskhexj+2atDxXGSIYZ

DCp7EiqRnazZWziHytJmmUJf+93Hh2ue+7re85/leZ9nqg8d22tMkUQiMdKX

WBsmJRIrDNWwjQ9Dc8iJZBRFI1LgeXVs52+gBYqhsWcr9Rr4kg9HS/TTj2pd

cZnPQ3E00VdpNfEVfxNPor9+TOuGK3w+UtBUX63Vwtf8LUzX7vBxKIZW2gDt

uLk7fuEFvAyyeXZ8v6QHf9R0Xh4bzFWQZ37Io2bmj82PYgdfylPxHh/BZ5gL

zeOx1VwLxc1rrBVxEIvjs9Z6OIFMnxsYs77b2sO6xVoDh/Gr5yutGdiPBbEn

1rqxF+GeV0a2uQj2Yka8A2ttHEEFvtFaFfnmndYGKBHv0fqJVhubzdXwjZ5n

TcP7+kg+0/yPeQJSsJZXQq65teeDzCfNz+M3voqXRQ7P4QvMSZjJH0HJOB/8

U3Od+J34KMzS/uUTY8/RRhusfW9+AVf5QqTGGdLXaHWxi7+NtnhNP6W9iGv8

Q6TFGdLXao/hWz4a7TBEP631xHW+COlopa/T6sW74WPQHkP1M1ov3OAfoRQy

9fVafezhY/EUXtfPai/hd74YpdFa36A1wF4+Dk/H/dLPaS/jD56Lh9FG36g9

jn18PJ6Ju6af13rjT74EZWIv9E3aE9jPJ6BD3D/9gvYK/opzjIzYC/0zrSEO

8InoGPdP/0Hrg7/jbKBs7IW+WWuEgzwLneL+6T9qr+Imz0e52Av9c60xDvFJ

mK3d5VkogWe1EdpP5r64xZehfOyNvkVrgsN8MuZo9/ikOFPoHP+3tJ/N/XCb

L0eF2Cv9C60pvuNT8I52n09GKp6Lc6hdNPfHHb4COVoyZmkV4wzHXvKt5mY4

En8nT8cHfCp/1/yfeQrS0CXOqHbJPACFfDUvh4W8IM62uShm80rxs+Id8G3m

5jga+8FLYS6fxs+6yP8DGdGmuw==

"]],

LineBox[CompressedData["

1:eJwl1Ht0znUcB/BnSlrnMFScg2hJknIpB5XutY3k1o3cMhVh1kWFuXRx2Rbm

H5TOoVO5RJHc0mwulVtqo0RhXejilnOiMpvp9Tn98drn834/v53teX7f35Oa

md1rZFIikejvx7fJiURutUTijH00NenutSzdwaT/r/lLXiBfziz5HXmWvTqT

5QY01qXJa+zt+VLOIU9XLo+hFj10I3Vl9gGckt9ltu4ipuga0kSXLq+1d2Cn

PI583Vl5LCn01GXrfrQP5LT8HleSof9E15Gv5PH04hn9T7rH+TveG6l01q/T

3czX8gQe5Fn9z7pB/CMv5Cq66D/V3UKJPJGHeE7/iy6Tf+VFNOV+faHuVkrl

l3mY5/WHdIM5Iy/marrq1+s6sUt+hUcYpT+se4Jy+X2a8YC+SHcbu+VXeZQX

9L/qnuSsvIRr6KYv1t3ON/Jr9OZF/W+6p6iQl9Kc7voNujvi3MiT6MNL+t91

Q6iUP+Baeug36u5kjzyZxxit/0M3lHPyh7Sgp36T7i6+k6fQlzH6I7qnqZKX

cV3cS/1m3d3slafyuq5CzqE2/XRjdUftwzgvL6dl3Fv9Z7p72CfnMk1XKY+j

Dl3jOYmzrD8mD48Hh4VyPWbbP1LNsddgqtyI6+MsyJ/b7+V7eb6cQoGcJ0+3

n7OPZ7W9GXXtS8wGzLUXmi0ZEOffPK7baI4wV5pN2UaSvMisH3+TOfI6swU7

WeH33zAvjs+MXK+vNZuzgyvkZWZjtjBPLjJvoCRmnFXzC/19rLCn8oP+bbM2

M/X58gx7lX0Cl7JUbshb8YzGc2g/Yc+iGh/r3tQlkxffJbSKsx7/iz2N/XFv

KdCdlydyWTzD8Zzq/rTHl9oF8bnoWsfZ12+V0zkQ95ZBtIlzHp+bPoODcS/I

pC03clOcbdds93pnyuJ9MTiec/1JXTYXsko3V3cJ+fHdxXJ7E+bbi81WlNLO

tf8BCsWyiw==

"]]}, {

Hue[0.9060679774997897, 0.6, 0.6],

Directive[

RGBColor[0.24720000000000014`, 0.24, 0.6],

Thickness[Large],

AbsoluteDashing[{12, 4, 1, 4, 1, 4}]],

LineBox[CompressedData["

1:eJwV0zVwVlEQBtCHhqAzWIFLIAkwuEOAEpdgFe4+uFtwd6txp8ShwAocgru3

uDOcLU7228299/3/y03VwROyx+dJkiTTj1t5k6Ru/iR5kC9JVtKecuThtt/d

4S653OM+D3jII+rZ+9DaVXSgPHnjHPOP6k4G0YjH1tc3fySvpiMVyBd7zT+p

uxhMY55Y38D8sbyGTlSkn1lBjsvTyB9n6T+ruxlCE57a39D8ibyWzlSiv1kK

J+TpFIiz9V/UPQxlqr4SN+WmjJJLckFeoGaSI89Sq5MrL1Lr8MxzG6lPzZao

69S5ak1W0EU/US3HMq7qF6q1WEVl/QC1EEs5qZ+vZrCSGfqZajWWc1efo9aO

9xLfU/2q7mWenM6weFdxNrfkZoyWS3ExPjuz5TTuyc99h8bxXeT1dGWSvjzX

5CoMlFM5FZ+HFLrov6n7GE5zxpiV5pK8mBfObqJ/Lm+gG1XjnpgV5nS8VwrF

c/Xf1f2MoAUv7W9q/kLeSHeqkRpnmf9QDzCSlryyvpn5S3kTPahO4dhr/lM9

GH9jWvHa+ubmr+TNZJNGkdhr/ks9FO+P1ryxvoX5a3kLPakR99isCGfi3VI0

ztL/Vg/HeyGLt/a3NH8jb6UXNeMemxXlrDyHYnG2/o96hLG04Z39rczfytvo

TXrcY7NinIv7R/E4W/9XPco42sY5ZmW4HPeV985rrX8nb6cPk/UVuC5nMEwu

zvm4Y5SI5+r/qccYH/9b+ircltvF8+SyXJGX8sFzsvTv5R30ZYq+IjfkTHJT

k+Q/T8+O5Q==

"]],

LineBox[CompressedData["

1:eJwV0TtPk2EYBuC3tA5MtqK0HTu4qAX1DwA9bgwOooJoHNSp5SAJg4mamKiD

m5MKqP9A8TCrEziayF9Q6AkVVE71+oYr7/08z3vIly93rX6uFgshPOFbbwij

1uuJEA7zMR7CHZKcV3etr6kzr87xVR6hJqdZkR+w3hPCkPq7/JQLnOCGXpJP

8l1SjKkDb+QpCtEb6gyr8kM23Des/iE/4yInuamX4rN8jyPRW+oYy/I0RRrO

j+ity8+5xCn6orv0e3grz1CiaX9Bb0NeYJw8R6Oz+nHeybOUadlf1GvIi0ww

wLHorH6C9/ItKrTtL+k15SUuM0g/HbOyWUt+wSSnSbNpVjFryy+5whky/DT7

xW+22OYPf/nHDrvssc8BXaru6zj/iqucJRt9g/4hPshzVKP/o87yRX7Ebfk4

a/J9a57H0f9U/weO1ExY

"]]}, {

Hue[0.1421359549995791, 0.6, 0.6],

Directive[

RGBColor[0.24720000000000014`, 0.24, 0.6],

Thickness[Large],

AbsoluteDashing[{12, 4, 1, 4, 1, 4, 1, 4}]],

LineBox[CompressedData["

1:eJwV01dsjmEYBuDPqNna49BerVqnVuztgEQiYrVU7KI4sDeJvWdRrb0PqVZr

byFRIzYtRe1x6HoPrj7Pff//l7/fapA0ddCUUlEU1fNnbdkoGl8uiopjomgO

9Xily2Ed69nARjaxmS1sZRvbmeD4T46bS31e63LZwUSffdbNowFvdBdZrY9l

j64Lpdmpn6T7Yp9PQ97q8lijjyNd15Uy7NJP1pXYF9CId7ojuhack0eQr1sr

V2Gv3I2ynJfbc9ueym7fmyJ/tS+kMVflnhTY3/v8qD2e8/Jzczgj7Q/MQby1

XwrXzl6VffIzcxjd7bfN/uEceR7Oz0zmFzFyttkhXE/uhHthjuIH0+RH5pDw

P1IkF5op/AnX0u9ONb/pP5qLzCfmUJrYr5m9eBzug5lEoWOOmQlk61+YI8Jv

2h+ag3lnvxyeBXs19ss9uGMfwAt7OS7YO3LXPp10x6TK3+2LaUqR7riuJRfk

0VwJz5hcnQy5J+XZq58Wzt2+hGZ80J3QJZIjJ4V7FJ5PuQYH5F5UYJ9+uu6n

fSnNw3XRndS1IldODtclPNtyTTLl3lRkv35GuDf2ZbSgWHdK15qL8hiuh/dC

rkWW3IdKZOjTdL/ty4nnk+60rg158lhuhHdKrs1BuS+VOaCfGe6tfQUJfNad

0bUlX07hZngf5TockvsRS47ciXv2GWT63iz5r30lLcP/Lvfmif2Lz8/a23FJ

Hset8J7LdTks9+eufSAv7XHk2jtz355GlmNmy//sq0gM5yj34am9xOcFFaPo

P71Io8Y=

"]],

LineBox[CompressedData["

1:eJwV1EVsFGEABeApLgnu7nDC3fVSgruFQCA4nHB3d3d3h7Z4grsVWihQNHgI

7v7N4ev/3puZbLu7acGuA5r3jwiCoJEfCamDIFLenyIIynE6eRD05HKyIFii

52Cr3ohrchMeyek4LtcmVh7IZs8M1X/I0yjJO1uUrTxn9F5csS3Vc7JNb0x6

Tuh1uCEPYov7huk/5emU4r0t2laBs3pvrtqW6bnYrjchA1vtw22/5BmU5oPt

Gsvtudlha0pGttlH2H7LMynDR9t1VtjzsNPWjExst4+0/ZFnUZZPtlhW2vOy

y9aczOywj7L9lWdTjs+2G6yy52O3rQVZ2Gkfbfsnz6E8X2w3WW3Pzx5bS7Ky

yz7GFjBXr8BXWxxrbAXYa2tFNnbbx9oimKdX5JstnrW2guyztSY7e+zjbEmY

r1fiuy1Gr8g5vQ+3bOv0QuzX25CDvfbxtqQs0Cvzw3ZAr8R5vS+3bev1wkTp

bbkuN+WxnJOTcl1uyoPZ55kJejIW6lW4KEdyT/7p+kG5Mhf0h87O9JPjnC15

Jj9zdifB/RucRXhNtGuJzo58oJ0e62zGW57oT53d+BJ+F/VTznq8IU5/7OzC

J4aEf6ezDe95qb9w9gjfM6890ZmcRfa7zvZUlS85G5Io/3LfIbkKF/X+xMut

eC7fcX2jXJQYvT25Oa3XJ14eSpT7JukpWKxX47ftcPiaXNIHhP8DfLXu2jfZ

inHA1oE8RNsn21KyRK/OH9s9NtuKc9DWkbzE2KfYUrFUr8FfW2L4fWCqPTXL

7DX5Z7sffoZMs6dhub0WAQ/C9yL8nTnCUaa7Jy0rXK9NRPi527fYSnBI70Q+

zugNuCUPI0Fuyyv5pbMn3znm+f+wEL1i

"]]}, {

Hue[0.37820393249936934`, 0.6, 0.6],

Directive[

RGBColor[{0.996078431372549, 0.396078431372549, 0.09411764705882353}],

Thickness[Large]],

LineBox[CompressedData["

1:eJwVzrkuRFEAx+EjsZYSe0Vlbeyt9QXslWXG0tFKiG1IlDohsS+lzkNgZvAA

ngAzlsrum+LLnN8/5965VZG5vtmsEMI8H7khNBaEsJcfQhGHeSH0sWJ71BFS

uppR25XuIK6X+PR8k33fVsyRrZ9V25OOktY1jNmudScJvcyX55vtB7YSjm0D

1DJuv7F1kcx8E9/ut9gPbaWc2AZZsz3rSV50HRO2uO7mNvNN/Hi+1X5kK+PU

NkTMltJTvOp6IraE7uEu8x/s2LJZsOXx631t+ti5nDN3hlm3pfU0b7qBqC2p

e7nXF7qcLR3Tu845LOp8/ry7XZ84V3DuzrkuZFOP6A3nF+cZ3vWlrmRbP/j9

B9FSQxg=

"]],

LineBox[CompressedData["

1:eJwV1OVPlWEYgPFjISDqZm5iYevs7u6OT3Y3ghgf7RYL9IPO3lRSCWtOp9M5

dTpnAYoYf4Pd8Xs+XNz3db3j8JyX95yEecmTk8pFIpFBfryLsVSORHqaZ6Ij

kXhk8AxeA7v4VL7d/sG+BJ95OyzQnvDheM7zeD2k8a38qD0K63gMymm9+Fl7

fWTyadihfeRL8YW3x0LtKR+BF3wbyqO3fk5rgCw+HTu1T3wZvvIOWKQ94yNR

FM6PCuijZ2gNkc1nYJf2mS/HN94Ri7XnfBSKwxlREX31TK0RcvhM7Na+8ER8

552wRHvBR6MknBGV0E/P0hojl89CqvaVr8AP3hlLtSI+Bi/DGXFMq4z1Wiyi

tP48256A8zyT18RuPpvvsX+zJ+Env8ITcJh34cvsxfaxuGFviVd6vhmPdP2O

2S68pn7cjMYDbHDtltkGVezXzGZ4hKP8rtkh/B/Duf3uADNHv2c2Ma+bLfAY

F1zPMmvhIVJdv222Dc8Y5ri+1/yu3zeTzZtma/xy7Wp4TRzRu/Ll9hL7OJTy

Al4fB3kqP2GPwUYeh2htIM+1N0Uez+a1sYfP5fvsP+wr8Zt3Q6L2ko/H63C/

cVKLxSatanj2tUH8vL0Z8vk87Nd+8hT84d2xItx/PgFl4T0jFoPDPdKao4DP

x4Hw3vkq/OU9kKSV8ol4E86MKhii52ktUBg+u0jTfvPV+Be+A5CsveaT8Dac

EXEYqudrLXExfD6Rrv3haxBBL22lVmafjHfhjDgVng9s1qqFe6IN4wX2VrjE

c3gd7OWL+EH7X/va8L2B3lqK9sY+Be95IW+AQzyNn7bHYQuvHv6WNpwX2lvj

Ms/ldbGPL+al9v9HJqc2

"]],

LineBox[CompressedData["

1:eJwV08dzTlEYwOGrs9ASvUUEY/Tee++iJSH6So1Oom6UpRlEiWBGWVqF6CFq

lLGwNKOkCIK/geddPLnn/Z3JN9/cc770DduX5NVLkiTDn0/NkqSL9VnPf02T

ZB/1GdckSXZpn62X8c1cYu5Gofm0+Zp1c46ZWwVttrnEui+l5o0Uagn7tQaM

13abv1gvp9J8hutaC45rrYM2x3zbuh93zZs4p9UjX2vIBG2P+at1FlXms6Qw

V7+j9eeeeTMT2at/07Kpju9IKvP0Um0A981bmMQ+vVLLoSa+A22Yr9/VBvLA

vJXJ7NertBV8N5+nLQv0e9ogHpq3MYV8vVpbSa35Au1YqN/XBvPInMdUCvQa

LZcf5ou0Z5H+QBvCY/N2ptGBTHsP9aGUmXcwnY4stvdIH8YT805m0Ikl9h7r

w3ka94KZdGapvTJ9BOVxrsyiC8vsPdFH8izOKO4HXVlu76k+iudxHnHWdCPL

Xrk+mhfx7uMcSSPb3jN9DC/jPceZ0Z0ce8/1sbyKdxrnwwH9u7aKn+Yi0lmh

v4i7zut4p3E+HNRrtdX8Ml+iByv1l3F/qYjPjfPhkP5DW0OduZgMcvVXcT95

E58b58Nh/ae2lt/my/Rklf5am8jb+Ny4N1p9CrRGZGpHzL+s1/HHfIUbWktO

aCn00labK6wn8c58y9yBU+bDccesG3DA3Dh+H9YZFFkvtn/Uus56fdwl6z78

1W97pnEuzs5zIFf1m56teMPJuCue/fhAavw+PHvxnuI4P8/BfKS3//8Pr0KR

Hg==

"]],

LineBox[{2524, 25, 2523}]}}}], {

AspectRatio -> NCache[

GoldenRatio^(-1), 0.6180339887498948],

Axes -> True, AxesOrigin -> {0, 0},

BaseStyle -> {CellBaseline -> Baseline},

FrameTicksStyle -> Directive[

FontFamily -> "Times", FontSize -> 10],

ImageSize -> 300.,

LabelStyle -> {

FontFamily -> "Verdana", FontSize -> 10},

Method -> {"AxesInFront" -> True},

PlotRange -> {{-1.4635441689643038`,

1.4635441689643038`}, {-14.514613389033427`,

12.498776012071357`}}, PlotRangeClipping -> True,

PlotRangePadding -> {

Scaled[0.02],

Scaled[0.02]},

TicksStyle -> Directive[

FontFamily -> "Times", FontSize -> 10]}]}, {

StyleBox[

RowBox[{"\"(\"", "",

TemplateBox[{

"\"order \"", "n",

"\" approximation shown with \"", "n",

"\" dots\""}, "Row",

DisplayFunction -> (

RowBox[{#, " ", #2, " ", #3, " ", #4,

" ", #5}]& ), InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )], "",

"\")\""}],

LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0, FontFamily -> "Verdana",

GrayLevel[0.5], FontSize -> 10, StripOnInput -> False]}},

GridBoxAlignment -> {"Columns" -> {{Left}}},

GridBoxItemSize -> {

"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],

"Column"], TraditionalForm]], "Output"]}],

XMLElement["dataformats", {}, {"computabledata,formatteddata"}]}],

XMLElement["states", {"count" -> "1"}, {

XMLElement[

"state", {

"name" -> "More terms",

"input" -> "Approximations about x = 0 up to order 3_More \

terms"}, {}]}]}], pod4$$ = XMLElement[

"pod", {"title" -> "Series representations",

"scanner" -> "Series", "id" -> "SeriesRepresentations",

"position" -> "400", "error" -> "false", "numsubpods" -> "4"}, {

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] == Sum[(x^k Derivative[k][Gamma][1])/k!, {k, 0, \

Infinity}]/x /; Abs[x] < 1"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "==",

FractionBox[

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"k", "=", "0"}], "\[Infinity]"],

FractionBox[

RowBox[{

SuperscriptBox["x", "k"], " ",

RowBox[{

SuperscriptBox["\[CapitalGamma]",

TagBox[

RowBox[{"(", "k", ")"}], Derivative], MultilineFunction -> None], "(",

"1", ")"}]}],

RowBox[{"k", "!"}]]}], "x"]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{

TemplateBox[{"x"}, "Abs"], "<", "1"}]}, "Row",

DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] == Sum[x^k Subscript[c, k], {k, 1, Infinity}]^(-1) \

/; Subscript[c, 1] == 1 && Subscript[c, 2] == 1 && Subscript[c, k] == \

(EulerGamma Subscript[c, -1 + k] + Sum[-((-1)^(j + k) Subscript[c, j] \

Zeta[-j + k]), {j, 1, -2 + k}])/(-1 + k)"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "==",

FractionBox["1",

RowBox[{

UnderoverscriptBox[

StyleBox["\[Sum]", ScriptLevel -> 0],

RowBox[{"k", "=", "1"}], "\[Infinity]"],

RowBox[{

SuperscriptBox["x", "k"], " ",

SubscriptBox["c", "k"]}]}]]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{"(",

TemplateBox[{

RowBox[{

SubscriptBox["c", "1"], "==", "1"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

SubscriptBox["c", "2"], "==", "1"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

SubscriptBox["c", "k"], "==",

FractionBox[

RowBox[{

TagBox["\[DoubledGamma]",

Function[{}, EulerGamma]], " ",

SubscriptBox["c",

RowBox[{

RowBox[{"-", "1"}], "+", "k"}]]}], "+",

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"j", "=", "1"}],

RowBox[{

RowBox[{"-", "2"}], "+", "k"}]],

RowBox[{

RowBox[{"-",

SuperscriptBox[

RowBox[{"(",

RowBox[{"-", "1"}], ")"}],

RowBox[{"j", "+", "k"}]]}], " ",

SubscriptBox["c", "j"], " ",

TemplateBox[{

RowBox[{

RowBox[{"-", "j"}], "+", "k"}]}, "Zeta"]}]}]}],

RowBox[{

RowBox[{"-", "1"}], "+", "k"}]]}]}, "Row",

DisplayFunction -> (

RowBox[{#, " ", #2, " ", #3, " ", #4,

" ", #5}]& ), InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )],

")"}]}, "Row", DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] \[Proportional] E^(-x + Sum[(x^(-1 - 2 k) \

BernoulliB[2 + 2 k])/(2 + 6 k + 4 k^2), {k, 0, Infinity}]) Sqrt[2 Pi] \

x^(-1/2 + x) /; Abs[Arg[x]] < Pi && (Abs[x] -> Infinity)"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "\[Proportional]",

RowBox[{

RowBox[{"exp", "(",

RowBox[{

RowBox[{"-", "x"}], "+",

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"k", "=", "0"}], "\[Infinity]"],

FractionBox[

RowBox[{

SuperscriptBox["x",

RowBox[{

RowBox[{"-", "1"}], "-",

RowBox[{"2", " ", "k"}]}]], " ",

TemplateBox[{

RowBox[{"2", "+",

RowBox[{"2", " ", "k"}]}]}, "BernoulliB",

SyntaxForm -> SubscriptBox]}],

RowBox[{"2", "+",

RowBox[{"6", " ", "k"}], "+",

RowBox[{"4", " ",

SuperscriptBox["k", "2"]}]}]]}]}], ")"}], " ",

SqrtBox[

RowBox[{"2", " ", "\[Pi]"}]], " ",

SuperscriptBox["x",

RowBox[{

RowBox[{"-",

FractionBox["1", "2"]}], "+", "x"}]]}]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{"(",

TemplateBox[{

RowBox[{

TemplateBox[{

RowBox[{"arg", "(", "x", ")"}]}, "Abs"], "<", "\[Pi]"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row",

DisplayFunction -> (

RowBox[{#, " ", #2, " ", #3}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], ")"}]}, "Row",

DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] \[Proportional] -((E^(-x + Sum[(x^(-1 - 2 k) \

BernoulliB[2 + 2 k])/(2 + 6 k + 4 k^2), {k, 0, Infinity}]) Sqrt[Pi/2] \

(-x)^(1/2 + x) Csc[Pi x])/x) /; Arg[x] == Pi && NotElement[x, \

Integers] && (Abs[x] -> Infinity)"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "\[Proportional]",

RowBox[{"-",

FractionBox[

RowBox[{

RowBox[{"exp", "(",

RowBox[{

RowBox[{"-", "x"}], "+",

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"k", "=", "0"}], "\[Infinity]"],

FractionBox[

RowBox[{

SuperscriptBox["x",

RowBox[{

RowBox[{"-", "1"}], "-",

RowBox[{"2", " ", "k"}]}]], " ",

TemplateBox[{

RowBox[{"2", "+",

RowBox[{"2", " ", "k"}]}]}, "BernoulliB",

SyntaxForm -> SubscriptBox]}],

RowBox[{"2", "+",

RowBox[{"6", " ", "k"}], "+",

RowBox[{"4", " ",

SuperscriptBox["k", "2"]}]}]]}]}], ")"}], " ",

SqrtBox[

FractionBox["\[Pi]", "2"]], " ",

SuperscriptBox[

RowBox[{"(",

RowBox[{"-", "x"}], ")"}],

RowBox[{

FractionBox["1", "2"], "+", "x"}]], " ",

RowBox[{"csc", "(",

RowBox[{"\[Pi]", " ", "x"}], ")"}]}], "x"]}]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{"(",

TemplateBox[{

RowBox[{

RowBox[{"arg", "(", "x", ")"}], "==", "\[Pi]"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{"x", "\[NotElement]",

TagBox["\[DoubleStruckCapitalZ]",

Function[{}, Integers]]}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row",

DisplayFunction -> (

RowBox[{#, " ", #2, " ", #3, " ", #4,

" ", #5}]& ), InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )],

")"}]}, "Row", DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["states", {"count" -> "1"}, {

XMLElement[

"state", {

"name" -> "More",

"input" -> "Series representations_More"}, {}]}],

XMLElement["infos", {"count" -> "8"}, {

XMLElement["info", {"text" -> "n! is the factorial function"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

Factorial.html", "text" -> "Documentation",

"title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/GammaBetaErf/\

Factorial", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/Factorial.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement[

"info", {

"text" -> "\[LeftBracketingBar]z\[RightBracketingBar] is the \

absolute value of z"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/Abs.\

html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/ComplexComponents/\

Abs", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/AbsoluteValue.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement[

"info", {

"text" -> "\[Zeta](s) is the Riemann zeta function"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

Zeta.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/\

ZetaFunctionsandPolylogarithms/Zeta", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/RiemannZetaFunction.\

html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {"text" -> "B_n is the  n^th  Bernoulli number"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

BernoulliB.html", "text" -> "Documentation",

"title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/IntegerFunctions/\

BernoulliB", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/BernoulliNumber.\

html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {"text" -> "arg(z) is the complex argument"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/Arg.\

html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/ComplexComponents/\

Arg", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/ComplexArgument.\

html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {"text" -> "csc(x) is the cosecant function"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/Csc.\

html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/ElementaryFunctions/\

Csc", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/Cosecant.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement[

"info", {

"text" -> "\[DoubleStruckCapitalZ] is the set of integers"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

Integers.html", "text" -> "Documentation",

"title" -> "Documentation"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/Z.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {}, {

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/GammaBetaErf/Gamma/\

06/ShowAll.html", "text" -> "More information"}, {}]}]}]}], pod5$$ =

XMLElement[

"pod", {"title" -> "Series representations",

"scanner" -> "Series", "id" -> "SeriesRepresentations",

"position" -> "400", "error" -> "false", "numsubpods" -> "4"}, {

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] == Sum[(x^k Derivative[k][Gamma][1])/k!, {k, 0, \

Infinity}]/x /; Abs[x] < 1"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "==",

FractionBox[

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"k", "=", "0"}], "\[Infinity]"],

FractionBox[

RowBox[{

SuperscriptBox["x", "k"], " ",

RowBox[{

SuperscriptBox["\[CapitalGamma]",

TagBox[

RowBox[{"(", "k", ")"}], Derivative], MultilineFunction -> None], "(",

"1", ")"}]}],

RowBox[{"k", "!"}]]}], "x"]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{

TemplateBox[{"x"}, "Abs"], "<", "1"}]}, "Row",

DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] == Sum[x^k Subscript[c, k], {k, 1, Infinity}]^(-1) \

/; Subscript[c, 1] == 1 && Subscript[c, 2] == 1 && Subscript[c, k] == \

(EulerGamma Subscript[c, -1 + k] + Sum[-((-1)^(j + k) Subscript[c, j] \

Zeta[-j + k]), {j, 1, -2 + k}])/(-1 + k)"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "==",

FractionBox["1",

RowBox[{

UnderoverscriptBox[

StyleBox["\[Sum]", ScriptLevel -> 0],

RowBox[{"k", "=", "1"}], "\[Infinity]"],

RowBox[{

SuperscriptBox["x", "k"], " ",

SubscriptBox["c", "k"]}]}]]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{"(",

TemplateBox[{

RowBox[{

SubscriptBox["c", "1"], "==", "1"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

SubscriptBox["c", "2"], "==", "1"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

SubscriptBox["c", "k"], "==",

FractionBox[

RowBox[{

TagBox["\[DoubledGamma]",

Function[{}, EulerGamma]], " ",

SubscriptBox["c",

RowBox[{

RowBox[{"-", "1"}], "+", "k"}]]}], "+",

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"j", "=", "1"}],

RowBox[{

RowBox[{"-", "2"}], "+", "k"}]],

RowBox[{

RowBox[{"-",

SuperscriptBox[

RowBox[{"(",

RowBox[{"-", "1"}], ")"}],

RowBox[{"j", "+", "k"}]]}], " ",

SubscriptBox["c", "j"], " ",

TemplateBox[{

RowBox[{

RowBox[{"-", "j"}], "+", "k"}]}, "Zeta"]}]}]}],

RowBox[{

RowBox[{"-", "1"}], "+", "k"}]]}]}, "Row",

DisplayFunction -> (

RowBox[{#, " ", #2, " ", #3, " ", #4,

" ", #5}]& ), InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )],

")"}]}, "Row", DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] \[Proportional] E^(-x + Sum[(x^(-1 - 2 k) \

BernoulliB[2 + 2 k])/(2 + 6 k + 4 k^2), {k, 0, Infinity}]) Sqrt[2 Pi] \

x^(-1/2 + x) /; Abs[Arg[x]] < Pi && (Abs[x] -> Infinity)"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "\[Proportional]",

RowBox[{

RowBox[{"exp", "(",

RowBox[{

RowBox[{"-", "x"}], "+",

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"k", "=", "0"}], "\[Infinity]"],

FractionBox[

RowBox[{

SuperscriptBox["x",

RowBox[{

RowBox[{"-", "1"}], "-",

RowBox[{"2", " ", "k"}]}]], " ",

TemplateBox[{

RowBox[{"2", "+",

RowBox[{"2", " ", "k"}]}]}, "BernoulliB",

SyntaxForm -> SubscriptBox]}],

RowBox[{"2", "+",

RowBox[{"6", " ", "k"}], "+",

RowBox[{"4", " ",

SuperscriptBox["k", "2"]}]}]]}]}], ")"}], " ",

SqrtBox[

RowBox[{"2", " ", "\[Pi]"}]], " ",

SuperscriptBox["x",

RowBox[{

RowBox[{"-",

FractionBox["1", "2"]}], "+", "x"}]]}]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{"(",

TemplateBox[{

RowBox[{

TemplateBox[{

RowBox[{"arg", "(", "x", ")"}]}, "Abs"], "<", "\[Pi]"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row",

DisplayFunction -> (

RowBox[{#, " ", #2, " ", #3}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], ")"}]}, "Row",

DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["subpod", {"title" -> ""}, {

XMLElement[

"minput", {}, {

"Gamma[x] \[Proportional] -((E^(-x + Sum[(x^(-1 - 2 k) \

BernoulliB[2 + 2 k])/(1 + 3 k + 2 k^2), {k, 0, Infinity}]/2) \

Sqrt[Pi/2] (-x)^(1/2 + x) Csc[Pi x])/x) /; Arg[x] == Pi && \

NotElement[x, Integers] && (Abs[x] -> Infinity)"}],

XMLElement["cell", {"compressed" -> False, "string" -> True}, {

Cell[

BoxData[

FormBox[

FrameBox[

TemplateBox[{

TagBox[

RowBox[{

TemplateBox[{"x"}, "Gamma"], "\[Proportional]",

RowBox[{"-",

FractionBox[

RowBox[{

RowBox[{"exp", "(",

RowBox[{

RowBox[{"-", "x"}], "+",

RowBox[{

FractionBox["1", "2"], " ",

RowBox[{

UnderoverscriptBox["\[Sum]",

RowBox[{"k", "=", "0"}], "\[Infinity]"],

FractionBox[

RowBox[{

SuperscriptBox["x",

RowBox[{

RowBox[{"-", "1"}], "-",

RowBox[{"2", " ", "k"}]}]], " ",

TemplateBox[{

RowBox[{"2", "+",

RowBox[{"2", " ", "k"}]}]}, "BernoulliB",

SyntaxForm -> SubscriptBox]}],

RowBox[{"1", "+",

RowBox[{"3", " ", "k"}], "+",

RowBox[{"2", " ",

SuperscriptBox["k", "2"]}]}]]}]}]}], ")"}], " ",

SqrtBox[

FractionBox["\[Pi]", "2"]], " ",

SuperscriptBox[

RowBox[{"(",

RowBox[{"-", "x"}], ")"}],

RowBox[{

FractionBox["1", "2"], "+", "x"}]], " ",

RowBox[{"csc", "(",

RowBox[{"\[Pi]", " ", "x"}], ")"}]}], "x"]}]}], HoldForm],

StyleBox[

TemplateBox[{

InterpretationBox[

Cell[

BoxData[

FormBox[

StyleBox["\" for \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False], TraditionalForm]], "Text",

FontFamily -> "Times"],

Text[

GrayText[" for ", BaseStyle -> "Unit"]]],

TagBox[

TemplateBox[{

RowBox[{"(",

TemplateBox[{

RowBox[{

RowBox[{"arg", "(", "x", ")"}], "==", "\[Pi]"}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{"x", "\[NotElement]",

TagBox["\[DoubleStruckCapitalZ]",

Function[{}, Integers]]}],

StyleBox["\" and \"", LinebreakAdjustments -> {1, 100, 1, 0, 100},

LineIndent -> 0,

GrayLevel[0.6], FontFamily -> "Helvetica", FontSize -> Smaller,

StripOnInput -> False],

RowBox[{

TemplateBox[{"x"}, "Abs"], "->", "\[Infinity]"}]}, "Row",

DisplayFunction -> (

RowBox[{#, " ", #2, " ", #3, " ", #4,

" ", #5}]& ), InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )],

")"}]}, "Row", DisplayFunction -> (#& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{", #, "}"}], "]"}]& )], HoldForm]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )],

GrayLevel[0.6], StripOnInput -> False]}, "Row",

DisplayFunction -> (RowBox[{#, " ", #2}]& ),

InterpretationFunction -> (RowBox[{

StyleBox["Row", FontFamily -> "Bitstream Vera Sans",

FontSize -> -1 + Inherited], "[",

RowBox[{"{",

RowBox[{#, ",", #2}], "}"}], "]"}]& )], FrameStyle -> None,

FrameMargins -> {{-1, -1}, {3, 3}}], TraditionalForm]],

"Output"]}],

XMLElement[

"dataformats", {}, {

"computabledata,formatteddata,formuladata"}]}],

XMLElement["states", {"count" -> "1"}, {

XMLElement[

"state", {

"name" -> "More",

"input" -> "Series representations_More"}, {}]}],

XMLElement["infos", {"count" -> "8"}, {

XMLElement["info", {"text" -> "n! is the factorial function"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

Factorial.html", "text" -> "Documentation",

"title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/GammaBetaErf/\

Factorial", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/Factorial.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement[

"info", {

"text" -> "\[LeftBracketingBar]z\[RightBracketingBar] is the \

absolute value of z"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/Abs.\

html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/ComplexComponents/\

Abs", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/AbsoluteValue.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement[

"info", {

"text" -> "\[Zeta](s) is the Riemann zeta function"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

Zeta.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/\

ZetaFunctionsandPolylogarithms/Zeta", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/RiemannZetaFunction.\

html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {"text" -> "B_n is the  n^th  Bernoulli number"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

BernoulliB.html", "text" -> "Documentation",

"title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/IntegerFunctions/\

BernoulliB", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/BernoulliNumber.\

html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {"text" -> "arg(z) is the complex argument"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/Arg.\

html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/ComplexComponents/\

Arg", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/ComplexArgument.\

html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {"text" -> "csc(x) is the cosecant function"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/Csc.\

html", "text" -> "Documentation", "title" -> "Mathematica"}, {}],

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/ElementaryFunctions/\

Csc", "text" -> "Properties",

"title" -> "Wolfram Functions Site"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/Cosecant.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement[

"info", {

"text" -> "\[DoubleStruckCapitalZ] is the set of integers"}, {

XMLElement[

"link", {

"url" -> "http://reference.wolfram.com/mathematica/ref/\

Integers.html", "text" -> "Documentation",

"title" -> "Documentation"}, {}],

XMLElement[

"link", {

"url" -> "http://mathworld.wolfram.com/Z.html",

"text" -> "Definition", "title" -> "MathWorld"}, {}]}],

XMLElement["info", {}, {

XMLElement[

"link", {

"url" -> "http://functions.wolfram.com/GammaBetaErf/Gamma/\

06/ShowAll.html", "text" -> "More information"}, {}]}]}]}], aux1$$ = {

True, False, {False}}, aux2$$ = {True, False, {False}}, aux3$$ = {

True, False, {False}}, aux4$$ = {True, False, {False}}, aux5$$ = {

True, False, {False}}, Typeset`asyncpods$$ = {},

Typeset`nonpods$$ = {}, Typeset`initdone$$ = True,

Typeset`queryinfo$$ = {

"success" -> "true", "error" -> "false", "numpods" -> "4",

"datatypes" -> "MathematicalFunctionIdentity,Series",

"timedout" -> "Series", "timing" -> "3.703",

"parsetiming" -> "0.438", "parsetimedout" -> "false",

"recalculate" -> "http://www1.wolframalpha.com/api/v1/recalc.jsp?\

id=MSP019d234i98117736c0000247b240be8c7cf3i&s=15",

"version" -> "1.1"}, Typeset`sessioninfo$$ = {

"TimeZone" -> -5.,

"Date" -> {2010, 11, 4, 16, 20, 46.0225133`9.415545195595033},

"Line" -> 12, "SessionID" -> 22923680613765177313},

Typeset`showpods$$ = {1, 2, 3, 4, 5}, Typeset`failedpods$$ = {},

Typeset`chosen$$ = {

"SeriesExpansionAtX = 0", "Series expansion at x=0", 1, 1,

"Input", "Series[Gamma[x], {x, 0, 1}]"}, Typeset`open$$ = False,

Typeset`newq$$ = "series gamma function order 1"},

DynamicBox[ToBoxes[

AlphaIntegration`FormatAlphaResults[

Dynamic[{1, {pod1$$, pod2$$, pod3$$, pod4$$, pod5$$}, {

aux1$$, aux2$$, aux3$$, aux4$$, aux5$$}, Typeset`chosen$$,

Typeset`open$$, Typeset`elements$$, Typeset`q$$,

Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$,

Typeset`sessioninfo$$, Typeset`showpods$$,

Typeset`failedpods$$, Typeset`newq$$}]], StandardForm],

ImageSizeCache->{208., {48., 18.}},

TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],

DynamicModuleValues:>{},

Initialization:>If[

Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[

Hold[{pod1$$, pod2$$, pod3$$, pod4$$, pod5$$}], Typeset`asyncpods$$,

Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\

initdone$$ = True],

SynchronousInitialization->False],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\)

Out[3]=

In[3]:=

Series[\!\(\*

NamespaceBox["LinguisticAssistant",

DynamicModuleBox[{WolframAlphaClient`Private`query$$ =

"gamma function", WolframAlphaClient`Private`boxes$$ =

RowBox[{"Gamma", "[", "x", "]"}],

WolframAlphaClient`Private`allassumptions$$ = {{

"type" -> "MultiClash", "word" -> "", "count" -> "3",

"Values" -> {{

"name" -> "Function", "word" -> "the input",

"desc" -> "a math function",

"input" -> "*MC.%7E-_*Function-"}, {

"name" -> "ExamplePage", "word" -> "the input",

"desc" -> "a general topic",

"input" -> "*MC.%7E-_*ExamplePage-"}, {

"name" -> "DistributionNoFluff", "word" -> "gamma",

"desc" -> "a probability distribution",

"input" -> "*MC.%7E-_*DistributionNoFluff-"}}}},

WolframAlphaClient`Private`assumptions$$ = {

"*MC.%7E-_*Function-"}, WolframAlphaClient`Private`open$$ = {1}},

DynamicBox[ToBoxes[

AlphaIntegration`LinguisticAssistantBoxes["", 1,

Dynamic[WolframAlphaClient`Private`query$$],

Dynamic[WolframAlphaClient`Private`boxes$$],

Dynamic[WolframAlphaClient`Private`allassumptions$$],

Dynamic[WolframAlphaClient`Private`assumptions$$],

Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],

ImageSizeCache->{142., {12., 17.}}],

DynamicModuleValues:>{}],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\), {x, 0, 1}]

Out[3]=

In[4]:=

\!\(\*

NamespaceBox["LinguisticAssistant",

DynamicModuleBox[{WolframAlphaClient`Private`query$$ =

"integrate sin(10x) e^-x^2 from 0 to T",

WolframAlphaClient`Private`boxes$$ = RowBox[{"Integrate", "[",

RowBox[{

RowBox[{"Sin", "[",

RowBox[{"10", "*", "x"}], "]"}], "/",

RowBox[{"E", "^",

RowBox[{"x", "^", "2"}]}]}], ",", " ",

RowBox[{"{",

RowBox[{"x", ",", " ", "0", ",", " ", "T"}], "}"}]}], "]"}],

WolframAlphaClient`Private`allassumptions$$ = {},

WolframAlphaClient`Private`assumptions$$ = {},

WolframAlphaClient`Private`open$$ = {1}},

DynamicBox[ToBoxes[

AlphaIntegration`LinguisticAssistantBoxes["", 1,

Dynamic[WolframAlphaClient`Private`query$$],

Dynamic[WolframAlphaClient`Private`boxes$$],

Dynamic[WolframAlphaClient`Private`allassumptions$$],

Dynamic[WolframAlphaClient`Private`assumptions$$],

Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],

ImageSizeCache->{257., {11., 17.}}],

DynamicModuleValues:>{}],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\)

Out[4]=

In[6]:=

\!\(\*

NamespaceBox["WolframAlphaQueryParseResults",

DynamicModuleBox[{Typeset`q$$ = "derivative x/(x^2-ln sin x)",

Typeset`newq$$ = "derivative x/(x^2-ln sin x)", Typeset`chosen$$ =

"D[x/(x^2 - Log[Sin[x]]), x]"},

PaneSelectorBox[{False->

DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False},

TagBox[

FrameBox[

TagBox[GridBox[{

{

InputFieldBox[Dynamic[Typeset`newq$$], String,

Appearance->None,

BaseStyle->{"CalculateInput"},

ContinuousAction->True,

Enabled->True,

FieldSize->{{1, 40}, {1,

DirectedInfinity[1]}}],

ItemBox[

ButtonBox[

PaneSelectorBox[{True->

TagBox[

TooltipBox[

DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "OrangeSquarePlus"],

ImageSizeCache->{10., {3., 8.}}],

DynamicBox[

ToBoxes[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],

StandardForm]]],

Annotation[#,

Dynamic[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]],

"Tooltip"]& ], False->

TagBox[

TooltipBox[

DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"],

ImageSizeCache->{10., {3., 8.}}],

DynamicBox[

ToBoxes[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],

StandardForm]]],

Annotation[#,

Dynamic[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]],

"Tooltip"]& ]}, Dynamic[

WolframAlphaClient`Private`show$$],

ImageSize->All],

Appearance->None,

ButtonFunction:>If[

Or[

CurrentValue["OptionKey"],

CurrentValue["AltKey"]], SelectionMove[

ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[

ButtonNotebook[],

Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"],

All], WolframAlphaClient`Private`open$\

1973 = True; WolframAlphaClient`Private`extrudeFromFastParse[

"derivative x/(x^2-ln sin x)",

Defer[

D[x/(x^2 - Log[

Sin[x]]), x]],

"Fast parse"]; WolframAlphaClient`Private`open$\

1973 = False],

Evaluator->Automatic,

Method->"Queued"],

Alignment->Right,

StripOnInput->False]},

{

PaneBox[

TagBox[

TooltipBox[

ButtonBox[

PaneSelectorBox[{False->

StyleBox[

RowBox[{"D", "[",

RowBox[{

RowBox[{"x", "/",

RowBox[{"(",

RowBox[{

RowBox[{"x", "^", "2"}], " ", "-", " ",

RowBox[{"Log", "[",

RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}],

"]"}],

StripOnInput->False,

NumberMarks->False], True->

StyleBox[

RowBox[{"D", "[",

RowBox[{

RowBox[{"x", "/",

RowBox[{"(",

RowBox[{

RowBox[{"x", "^", "2"}], " ", "-", " ",

RowBox[{"Log", "[",

RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}],

"]"}],

StripOnInput->False,

ShowSyntaxStyles->False,

NumberMarks->False,

FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[

CurrentValue["MouseOver"]],

BaseStyle->{ShowStringCharacters -> True},

FrameMargins->0,

ImageSize->Automatic],

Alignment->Left,

Appearance->None,

BaseStyle->{},

ButtonFunction:>(SelectionMove[

ButtonNotebook[], All, ButtonCell]; NotebookWrite[

ButtonNotebook[],

Cell[

BoxData[

RowBox[{"D", "[",

RowBox[{

RowBox[{"x", "/",

RowBox[{"(",

RowBox[{

RowBox[{"x", "^", "2"}], " ", "-", " ",

RowBox[{"Log", "[",

RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}],

"]"}]], "Input"], All]; SelectionMove[

ButtonNotebook[], After, CellContents]),

Evaluator->Automatic,

ImageSize->Automatic,

Method->"Preemptive"],

DynamicBox[

ToBoxes[

FEPrivate`FrontEndResource["WAStrings", "RemoveResults"],

StandardForm]]],

Annotation[#,

Dynamic[

FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ],

AppearanceElements->{},

BaseStyle->{

ShowStringCharacters -> True, "StandardForm", 12,

ScriptLevel -> 0},

ImageSize->{Automatic, {1, 100}},

Scrollbars->{False, Automatic}], "\[SpanFromLeft]"}

AutoDelete->False,

BaselinePosition->{1, 1},

FrameStyle->GrayLevel[0.85],

GridBoxAlignment->{"Columns" -> {{Left}}},

GridBoxDividers->{

"Columns" -> {{False}}, "Rows" -> {False, {True}, False}},

GridBoxItemSize->{

"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],

"Grid"],

Alignment->Top,

Background->Dynamic[

FEPrivate`If[

FEPrivate`And[

FEPrivate`SameQ[

FEPrivate`Head[Typeset`newq$$], String],

FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]],

RGBColor[1., 0.975, 0.95],

GrayLevel[1]]],

BaselinePosition->Baseline,

FrameStyle->GrayLevel[0.85],

ImageSize->Automatic,

RoundingRadius->5,

StripOnInput->False],

EventHandlerTag[{

"MouseEntered" :> FEPrivate`Set[

WolframAlphaClient`Private`show$$, True],

"MouseExited" :> FEPrivate`Set[

WolframAlphaClient`Private`show$$, False],

PassEventsDown -> Automatic, PassEventsUp -> True}]],

DynamicModuleValues:>{}], True->

TagBox[GridBox[{

{

DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False},

TagBox[

FrameBox[

TagBox[GridBox[{

{

InputFieldBox[Dynamic[Typeset`newq$$], String,

Appearance->None,

BaseStyle->{"CalculateInput"},

ContinuousAction->True,

Enabled->True,

FieldSize->{{1, 40}, {1,

DirectedInfinity[1]}}],

ItemBox[

ButtonBox[

PaneSelectorBox[{True->

TagBox[

TooltipBox[

DynamicBox[FEPrivate`FrontEndResource[

"WABitmaps", "OrangeSquarePlus"]],

DynamicBox[

ToBoxes[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],

StandardForm]]],

Annotation[#,

Dynamic[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]],

"Tooltip"]& ], False->

TagBox[

TooltipBox[

DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"]],

DynamicBox[

ToBoxes[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"],

StandardForm]]],

Annotation[#,

Dynamic[

FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]

& ]}, Dynamic[WolframAlphaClient`Private`show$$],

ImageSize->All],

Appearance->None,

ButtonFunction:>If[

Or[

CurrentValue["OptionKey"],

CurrentValue["AltKey"]], SelectionMove[

ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[

ButtonNotebook[],

Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"],

All], WolframAlphaClient`Private`open$\

1973 = True; WolframAlphaClient`Private`extrudeFromFastParse[

"derivative x/(x^2-ln sin x)",

Defer[

D[x/(x^2 - Log[

Sin[x]]), x]],

"Fast parse"]; WolframAlphaClient`Private`open$\

1973 = False],

Evaluator->Automatic,

Method->"Queued"],

Alignment->Right,

StripOnInput->False]},

{

PaneBox[

TagBox[

TooltipBox[

ButtonBox[

PaneSelectorBox[{False->

StyleBox[

RowBox[{"D", "[",

RowBox[{

RowBox[{"x", "/",

RowBox[{"(",

RowBox[{

RowBox[{"x", "^", "2"}], " ", "-", " ",

RowBox[{"Log", "[",

RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}],

"]"}],

StripOnInput->False,

NumberMarks->False], True->

StyleBox[

RowBox[{"D", "[",

RowBox[{

RowBox[{"x", "/",

RowBox[{"(",

RowBox[{

RowBox[{"x", "^", "2"}], " ", "-", " ",

RowBox[{"Log", "[",

RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}],

"]"}],

StripOnInput->False,

ShowSyntaxStyles->False,

NumberMarks->False,

FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[

CurrentValue["MouseOver"]],

BaseStyle->{ShowStringCharacters -> True},

FrameMargins->0,

ImageSize->Automatic],

Alignment->Left,

Appearance->None,

BaseStyle->{},

ButtonFunction:>(SelectionMove[

ButtonNotebook[], All, ButtonCell]; NotebookWrite[

ButtonNotebook[],

Cell[

BoxData[

RowBox[{"D", "[",

RowBox[{

RowBox[{"x", "/",

RowBox[{"(",

RowBox[{

RowBox[{"x", "^", "2"}], " ", "-", " ",

RowBox[{"Log", "[",

RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ")"}]}], ",", " ", "x"}],

"]"}]], "Input"], All]; SelectionMove[

ButtonNotebook[], After, CellContents]),

Evaluator->Automatic,

ImageSize->Automatic,

Method->"Preemptive"],

DynamicBox[

ToBoxes[

FEPrivate`FrontEndResource["WAStrings", "RemoveResults"],

StandardForm]]],

Annotation[#,

Dynamic[

FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ],

AppearanceElements->{},

BaseStyle->{

ShowStringCharacters -> True, "StandardForm", 12,

ScriptLevel -> 0},

ImageSize->{Automatic, {1, 100}},

Scrollbars->{False, Automatic}], "\[SpanFromLeft]"}

AutoDelete->False,

BaselinePosition->{1, 1},

FrameStyle->GrayLevel[0.85],

GridBoxAlignment->{"Columns" -> {{Left}}},

GridBoxDividers->{

"Columns" -> {{False}},

"Rows" -> {False, {True}, False}},

GridBoxItemSize->{

"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],

"Grid"],

Alignment->Top,

Background->Dynamic[

FEPrivate`If[

FEPrivate`And[

FEPrivate`SameQ[

FEPrivate`Head[Typeset`newq$$], String],

FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]],

RGBColor[1., 0.975, 0.95],

GrayLevel[1]]],

BaselinePosition->Baseline,

FrameStyle->GrayLevel[0.85],

ImageSize->Automatic,

RoundingRadius->5,

StripOnInput->False],

EventHandlerTag[{

"MouseEntered" :> FEPrivate`Set[

WolframAlphaClient`Private`show$$, True],

"MouseExited" :> FEPrivate`Set[

WolframAlphaClient`Private`show$$, False],

PassEventsDown -> Automatic, PassEventsUp -> True}]],

DynamicModuleValues:>{}]},

{

InterpretationBox[

StyleBox[

DynamicBox[FEPrivate`FrontEndResource[

"FEExpressions", "NecklaceAnimator"][20]],

AnimatorBoxOptions->{ImageSize->20}],

Animator[Appearance -> "Necklace", ImageSize -> 20],

BaseStyle->{Deployed -> True}]}

BaselinePosition->{1, 1},

GridBoxAlignment->{"Columns" -> {{Left}}},

GridBoxItemSize->{

"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],

"Column"]}, Dynamic[WolframAlphaClient`Private`open$1973],

BaseStyle->{Deployed -> True},

ImageSize->Automatic],

DynamicModuleValues:>{}],

BaseStyle->{Deployed -> True},

DeleteWithContents->True,

Editable->False,

SelectWithContents->True]\)

Out[6]=

Para obtener información detallada en su consulta, use signos de doble igual.

In[7]:=