(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 183864, 3701] NotebookOptionsPosition[ 178403, 3568] NotebookOutlinePosition[ 180162, 3620] CellTagsIndexPosition[ 180119, 3617] WindowTitle->CausalConnectionGraph | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Generate a causal graph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.798033049006226*^9, 3.798033052437948*^9}}, CellID->392348587], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ",", "Automatic", ",", "9", ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797990299368751*^9, 3.7979903377197*^9}, 3.798033032883848*^9, {3.798033078970192*^9, 3.798033103601283*^9}}, CellLabel->"In[4]:=", CellID->977997418], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46}, {{{1, 2}, {1, 2}, {1, 3}, {2, 3}, {2, 4}, {2, 4}, {3, 5}, {3, 5}, { 3, 7}, {4, 6}, {4, 6}, {4, 9}, {5, 8}, {5, 7}, {5, 8}, {6, 10}, {6, 9}, {6, 10}, {7, 11}, {7, 11}, {7, 15}, {8, 12}, {8, 12}, {8, 17}, {9, 13}, {9, 13}, {9, 19}, {10, 14}, {10, 14}, {10, 21}, {11, 18}, {11, 15}, {11, 16}, {12, 16}, {12, 17}, {12, 18}, {13, 22}, {13, 19}, {13, 20}, {14, 20}, {14, 21}, {14, 22}, {15, 23}, {15, 23}, {15, 31}, {16, 24}, {16, 24}, {16, 32}, {17, 25}, {17, 25}, {17, 34}, {18, 26}, {18, 26}, {18, 37}, {19, 27}, {19, 27}, {19, 39}, {20, 28}, {20, 28}, {20, 40}, {21, 29}, {21, 29}, {21, 42}, {22, 30}, {22, 30}, {22, 45}, {23, 33}, {23, 31}, {23, 36}, {24, 35}, {24, 32}, {24, 33}, {25, 38}, {25, 34}, {25, 35}, {26, 36}, {26, 37}, {26, 38}, {27, 41}, {27, 39}, {27, 44}, {28, 43}, {28, 40}, {28, 41}, {29, 46}, {29, 42}, {29, 43}, {30, 44}, {30, 45}, {30, 46}}, Null}, {EdgeStyle -> { Hue[0, 1, 0.56]}, GraphLayout -> { "Dimension" -> 2, "VertexLayout" -> { "LayeredDigraphEmbedding", "VertexLayerPosition" -> {8, 7, 6, 6, 5, 5, 4, 4, 4, 4, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}}, VertexLabels -> {Automatic}, VertexStyle -> { Directive[ Hue[0.11, 1, 0.97], EdgeForm[{ Hue[0.11, 1, 0.97], Opacity[1]}]]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0, 1, 0.56], Opacity[0.7], Arrowheads[0.013385598144811984`], ArrowBox[BezierCurveBox[{{0., 8.}, {0.4243432987007699, 7.58547713953272}, {0.5198051030353099, 7.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{0., 8.}, {0.09546180433453061, 7.4145228604673}, {0.5198051030353099, 7.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQjQoUHGxPFwgd8Ju+fzH30YCy8/IOWa3LhC8fWrHf 2ST/870Z8g6b9Jf266zcvP9e5b/nljHyDkd/Cor9XLV7f+GdIr12SXmHigs9 fenGh/b/iz5z7NgFOYfpQnFB4e+O7e/4wbXxR6Ocg8vhmmvebGf2c23Seyuj K+dgW1jSu2jvhf3tHebVxpdkHeQsLvYvXHZ5/99q1WibQlmHP3av1rH9urp/ 4aT0+PVysg7iAhUv4tlv7Lf/GGWvfFrGoWB1lc3aczf3X5r+/9f0MhkHRsFP q975394f2RY6iVdRxuGiwz1jle47+2/siWFtOSXtcMfK/rpvw939XtaiIb+L pB2U/otMzda/t38zY31dsZS0w7Le+NzaGff2CwvManlzQMoh7ZlcQvPue/vT 00BAyuHwBQkw37Ts46/nvFIOqiLCYP6/DR6SFbskHTo38IL5R8RyDorlSDq8 W8oB5jcuj/58WEnSIfgLM5hvlyy+vv6ehMPu2f/jQfyvnvO/eM6XcFCb8xvM XwFSnirhMOnrdzA/bIawLJeBhAPDii9gPiS+JBwA8GLVDQ== "]], 0.08031358883465894], ArrowBox[{{0.5198051030353099, 7.}, {-0.48019489641831115`, 6.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{0.5198051030353099, 7.}, { 2.7090007919811114`, 7.1659044309723265`}, {4.569314986560698, 6.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{0.5198051030353099, 7.}, {2.380119297614884, 5.834095569027667}, {4.569314986560698, 6.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489641831115`, 6.}, {-0.3157541495270815, 5.4999999999039835`}, {-0.48019489700209306`, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489641831115`, 6.}, {-0.6446356438933154, 5.500000000096002}, {-0.48019489700209306`, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzbDiS3zz7nv7GcBAwuHP47DHr18+2L+jferOqnPi DrfNW37ZbHu0f6rKxmkfpog7zPFv+rrl0JP9k68FTU8MFnew0w68Esz/fP/m uVW7z3KKOxw59WGa5JyX+79VajCb7hBz0NJLtGXLfLM/Kjsmb3qcmENp6KLj kmXv9z8qFPv75Y+oQ4DCLalViR/39/SGrfedLOpwvfz04SiNz/vD98m0LlQU dbiq9DOpQfrL/uXT2yafvC/isLSm5h/Xpy/7xTc6+f+eJeLg3Bo67dfqr/uX cgXuMAsWcdho06Ll7/ltv/+SjeeqOUQc3i3i2M1x6tt+8bqUSad2CTv82f7I XV3v+/5/0zOZlbOEHW5UC11cVfp9P/OnA4qtYsIOLe+mh01e8H2/Wk/W2w/7 hRwYBIpvPFj3fX8aGAg55NyrAPNNyj7+es4r5PA8vA7M/7vBQ7Jil6BDcU0z mH9ILOegWI6gA69PB5jftDz682ElQYcdx3rAfLtk8fX19wQcit5MAPO/eM4H IgEHm71TwPwVIOWpAg5iljPA/LAZwrJcBgIODAmzwXxIfAk4AADWAOcD "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.569314986560698, 6.}, {5.233755733411167, 5.664440747073681}, {5.569314985895403, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.569314986560698, 6.}, {4.904874239045038, 5.335559252926157}, {5.569314985895403, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3TCLsemXm5ADAxhIOCg0Qfgr0988+npe3MEoHcKP XMJjc3eWuMNGTwifZ1sC97YEcYcFmhD+4TkvAhoUxR3+skH49REgDWIOpx4y gPn2LyfbvZws5sC+C8Jn8d/+rN1VzGFTP4R/tpOPVeKTqMPZJAh/1kwQEHWw mPDDdaGnkINHcJ5iiL2ow9WShxOnBgo5bO9eJNn/TMRhqcDu1OtxQg6Pncya vPpFHJYktx5MKxRyOFehGd1mKeJwNddhqXOnkEO5bs0Sp6fCDhb6bwTylgk5 PEjQi6ufJOxwbnkHy7MTQg5swg4dNo7CDlOuizas/iDk8MZ5o1LVRyGHnn2T m/fJCjtM+Nyoa7FYyEFcYHqCRIywA6ffQ7ZvtkIOyaukUzKmCTvYBOXccrov 6FDQq9i37oywgxaD8gq5dkEH650r7r36J+xwMZy1oNNU0OGE7sZQWV0RB6NI YaPmVwIOYq+tPruGizj4sfi+414m4KD80XV7Sq2Ig2rkpiXKGQIOH+0vLayc L+KwLdw59JSBgEPD9fubWvaKQONLwAEAx+quTw== "]], 0.08031358883465894], ArrowBox[{{-0.48019489700209306`, 5.}, {-1.4801948987205833`, 4.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489700209306`, 5.}, {-0.3157541510124642, 4.4999999996074855`}, {-0.4801948993890619, 4.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489700209306`, 5.}, {-0.6446356453786969, 4.500000000392492}, {-0.4801948993890619, 4.}}], 0.08031358883465894], ArrowBox[{{5.569314985895403, 5.}, {5.185076517975062, 4.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.569314985895403, 5.}, {6.709000790926492, 4.820740051998359}, {7.519805101591487, 4.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.569314985895403, 5.}, {6.380119296560289, 4.17925994800172}, {7.519805101591487, 4.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.4801948987205833`, 4.}, {-1.3157541517501337`, 3.499999999930048}, {-1.4801948991458858`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.4801948987205833`, 4.}, {-1.6446356461163427`, 3.50000000006997}, {-1.4801948991458858`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAAGCb2OCu978AAAAAAAAQQDSfmQvi ofi/dBhz5r2cD0AJS1TmNr35vzhtgvoCKQ9AgGPLaN8A+79H/i08z6QOQJfo /pLbbPy/oMt1qyIQDkBR2u5kKwH+v0fVWUj9ag1Aqjib3s69/786G9oSX7UM QNIBAgBj0QDAeJ32CkjvC0ChnZRkCNgBwAVcrzC4GAtAv28FndfyAsDcVgSE rzEKQOAWTedehwPAPXAP+a+xCUBIw2OOXxMEwOUbT69UKwlA9XRJktmWBMDP WcOmnZ4IQOQr/vLMEQXA+ils34oLCEAZ6IGwOYQFwGuMSVkccgdAkqnUyh/u BcAegVsUUtIGQFFw9kF/TwbAFAiiECwsBkBTPOcVWKgGwE8hHU6qfwVAmg2n Rqr4BsDMzMzMzMwEQGctRkqcQgfAZuzi9c8bBED+5NSWVIgHwPphkTLwdANA XDRTLNPJB8CELdiCLdgCQIMbwQoYBwjABE+35odFAkBxmh4yI0AIwHrGLl7/ vAFAKLFrovR0CMDqkz7pkz4BQKhfqFuMpQjAT7fmh0XKAEDwpdRd6tEIwKww JzoUYABAAITwqA76CMAAAAAAAAAAQOxLxxM= "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948993890619, 4.}, {-0.3157541507429667, 3.5000000004811396`}, {-0.48019489646310376`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948993890619, 4.}, {-0.6446356451091966, 3.4999999995188302`}, {-0.48019489646310376`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAAEAlY4O73r8AAAAAAAAQQIXjow5L q9q/kHXV32WcD0DiOiCb3OfVv6bhC+CiJw9AGUaaCDhx0L9ARKMAt6EOQEYK JK66jsS/W52bQaIKDkAswDs0ZFKrv/rs9KJkYg1A+IQVpOmXsD8eM68k/qgM QFoNKe/u0sg/xG/Kxm7eC0BC+CWlKmDVP++iRom2AgtAAra58RMK3z+czCNs 1RUKQHkc+x+t3eE/J7emUa6bCUAf62ndpRDkPy/uImt7GglA8EYpMfQd5j+z cZi4PJIIQOwvORuYBeg/rkEHOvICCEAUppmbkcfpPyVeb++bbAdAZqlKsuBj 6z8Xx9DYOc8GQOU5TF+F2uw/g3wr9ssqBkCQV56ifyvuP2t+f0dSfwVAZgJB fM9W7z/MzMzMzMwEQOMLPM6/M/A/Zuzi9c8bBECLusNZTbTwP/phkTLwdANA KI23YBAt8T+ELdiCLdgCQLuDF+MInvE/BE+35odFAkBEnuPgNgfyP3rGLl7/ vAFAwtwbWppo8j/qkz7pkz4BQDY/wE4zwvI/T7fmh0XKAECgxdC+ARTzP6ww JzoUYABAAHBNqgVe8z8AAAAAAAAAQDTxy1s= "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.185076517975062, 4.}, {5.723470563477959, 3.6229863195745655`}, {5.932983114614558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.185076517975062, 4.}, {5.394589069111632, 3.3770136804254784`}, {5.932983114614558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3XD9/qaWvSIODGAg4MB8q4SpapWIw9GmZa8D5vM7 rPF4nGEyVcShWiyA39+Y36FKWfvZ5loRB7ndf7J+7eZzyMnyqfqRLOKwtmDN vyBLPocmWXdVJg8RBy3z+FMRq3kd9tlIP7+gKeIwjU/0HLcQr4PsiRP7UzhF HN59O8uZk8vjsGi///q9z4QdzD501lbu5XbwUt6w9fZBYYfsXx6aJkzcDgEH s7s9Fwo75LG8ci0M43IIyP7G969J2CG6VG1dxUpOBzfFAIefacIO2r7/Er1+ czgYPa6Qt/YVdrjXXZj4zJvDQWxjwZrDpsIO5YYNa3xmszt86jJ/PklB2OGr rZZz7Us2hyMFZ8+v4BV2iNiYr1phxubQm2SUxvpXyGFBd0CwbROrg29C2qoV 74QczoABiwPX6Wz/sw+FHNLePPp6XprF4QyzK8e6q0IOvxInGn0oYXaYxPXp itcpIYcW3RtNujeYHKLuF21dvF/IgcV/+7N2VyYH9abjK3dsFXKoOqYX938P o8OPT+83dq4Rcng12e7lZDtGhzOGb86KLRFyACs/xeCw1G7P3/g5Qg5rDNSt RBIYHBokExxTpwpB44vBAQA/rrfp "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805101591487, 4.}, {7.684245847984202, 3.499999999740045}, {7.519805100010558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805101591487, 4.}, {7.3553643536179, 3.500000000260016}, {7.519805100010558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3dBy76S7iJwDAxgIOEz0ViozDpZzEFVR8powh9+B fZ616tE5cg47Z9t1+mjwOzyq1rr+54Ocw6u00L0mi/kcZJ6+677lL++wtDXt mQcvn8Oumx3OcTvlHd59L2TpTON1uKfz599hMQWHo3vLxb+u43GYuGneXe0w BQe16+Xyvc+4Hb7+Xb332SwFB3GXIplAXm4HLn6V+V+eKDhMZknnc1Tmcvix YJqoP5eig3/EpSceyzgdZC2fTszSVXSYHHrh8EwlToeK6/wi7n6KDhF/ElYb z+Bw4KwRm/MkR9FhkU/LbDF2DocLaj81nTsVHfLdrKY45bM7nLu+fW/SYkWH Ay+bpm6/wObA1B8U7rxb0WGaWdz8Um02h1yfk9+eXFB0+KBzZmNNPasDr4DM HPcnig5nwIDFwfnimWcc3xQd0t48+npemsUhvz227BibksOvxIlGH0qYHSYZ nfNqEFNyaNG90aR7g8lh5SW5FDNVJQcW/+3P2l2ZHLal+x96YaTkUHVML+7/ HkaHHR/jU6fbKzm8mmz3crIdo8OGggBfJ28lB7DyUwwOc58oVL0MVXJYY6Bu JZLA4NDge/F1T7wSNL4YHABy+bcU "]], 0.08031358883465894], ArrowBox[{{-1.4801948991458858`, 3.}, {-3.1220982740783256`, 2.}}, 0.08031358883465894], ArrowBox[{{-1.4801948991458858`, 3.}, {-1.480194898390323, 2.}}, 0.08031358883465894], ArrowBox[{{-1.4801948991458858`, 3.}, {-0.4801948976514723, 2.}}, 0.08031358883465894], ArrowBox[{{-0.48019489646310376`, 3.}, {-1.480194898390323, 2.}}, 0.08031358883465894], ArrowBox[{{-0.48019489646310376`, 3.}, {1.2104546215477967`, 2.}}, 0.08031358883465894], ArrowBox[{{-0.48019489646310376`, 3.}, {-0.4801948976514723, 2.}}, 0.08031358883465894], ArrowBox[{{5.932983114614558, 3.}, {4.645894071093039, 2.}}, 0.08031358883465894], ArrowBox[{{5.932983114614558, 3.}, {6.221910142037359, 2.}}, 0.08031358883465894], ArrowBox[{{5.932983114614558, 3.}, {7.519805102733812, 2.}}, 0.08031358883465894], ArrowBox[{{7.519805100010558, 3.}, {6.221910142037359, 2.}}, 0.08031358883465894], ArrowBox[{{7.519805100010558, 3.}, {9.186622018146181, 2.}}, 0.08031358883465894], ArrowBox[{{7.519805100010558, 3.}, {7.519805102733812, 2.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{-3.1220982740783256`, 2.}, {-3.1367058363321645`, 1.441114324428623}, {-3.480194892952227, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-3.1220982740783256`, 2.}, {-3.46558733069839, 1.5588856755713685`}, {-3.480194892952227, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzdDyYQXfL44DDBDg8MCDX0CpifPAL8u41bPN/9vr l81JVFDmOrDu35O8Vq9/9q+4Z8zlvMt1QNJvitdei7/2/FxMR+6u5z5go5Fj 58z0x35Rwa0rc2bzHBDpzfESX/7LfrG94gW3BbwHltVMzbNU/2nPX35t6+29 fAfef3u2amXTd/sXYr9ao7/wH/jwO+F/+s6v9tP53RQeLxQ4sKKbOafk9Gd7 TwO/WpnnAgeSVRQnhL/+ZG/UM/GPgYrggWOfp38+9OujfZCywDyFSMED536m T9v284P98q8nE1+3Ch74nqP0MeXCe3sj5v3uE1cJHpgXrG6S2/PW/ov3e3+h 44IHJi2/97VV/bX9m/NRVXm3BQ9czPAwW7/whb1MP+Pxpc8FD8RMT/n64tdT +4bOx6Y7XgseMAaDx/bJKhD+vI3d1+3zH9jzH30E5p/j757SuPy2fUM2hC+e c1As5+A1+53iEL5kxS5Te51L9jtPPgTzV6S/efT1/Gn7hkYIf4rdy8l2Lw/b 89lD+A9eXvuzwWOnfQoThP9P60wnH+sK+4bTD8B8aHwxAACxROHv "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.480194898390323, 2.}, {-1.3157541472930276`, 1.5000000012873094`}, {-1.480194890561961, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.480194898390323, 2.}, {-1.644635641659254, 1.499999998712694}, {-1.480194890561961, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzbCu5caDdd/3M0CAwwJ+4U9fS37sL7IOf/bK8r/9 0blNtXLRP/f3sJyMOhT8zz4n4nJVVOKv/X7RobFtvn/tJ9uzvlrZ/nv/Vvs/ b83U/9jbBUuc5jn3Z/+hjXt5rjz4ZZ81mUeu2eTf/vKNM3fGVv20F2d49Ihn 9//9l+wmfLn8+bv9Ep8zPFc3MBy4Grlwr5nvN/tafYlE3SmMB+qYzoq0tX2x DypaanCAl+mAR1Oin1r9Z3u3zLg61kqmAyutHW3fZn+yDxVx9vp7lenAfL2c h7d8PtrXFwdPWa7CfEAz+pHVe8UP9sfa+mNYUpkPTGxynxxy7a29lt/3RcLT mQ/8OpggLRH42n7Vya70q7uYD/SVCPBpbnlh7/7Tc5XnBeYDPrPCstv/P7Vn uGuSXXCd+YAxGDy2b5pqCubP29h93T7/gX2FsxmYf46/e0rj8tv2T59B+OI5 B8VyDl6zP1JvDuZLVuwytde5ZC/JZwHmr0h/8+jr+dP2TyZC+FPsXk62e3nY XonbEsx/8PLanw0eO+2vV0L4/7TOdPKxrrBnuAfhQ+OLAQCI0NjJ "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{1.2104546215477967`, 2.}, { 1.5295706077120739`, 1.5508698237375755`}, {1.5198050995101084`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{1.2104546215477967`, 2.}, { 1.2006891133458295`, 1.4491301762624322`}, {1.5198050995101084`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzVDgu4o17rM9AwQ4aIeyzeNI+WIvz38+4on5f3ue gNuakTO/2jsFr1BZ4f3PfknCGd/vf7/Zp53pTva2/mv/se0m5+OJP+y7qypF z7H9sf92iClOJvSX/YbYQiuDdb/sN4p4eC12/2N/s7T4UqHhT3ulmpXnyjP/ 2TMdrr87acJ3+6U1k7/6xDI46LlOi558+qu9iNuD8y1zGR2i/mzzKX702f7Z i1mOGmpMDgtzw940/f1kf4v1eMWOeUwON/cbqK3h+GT/Zk5KqSk7swPjZ9df 75g/2suvKzafH8/soMenc3Havff2xZZf9n1dzuxg+8PxUdPUt/bP7J5xWz5g dtBZclZ9kc5r+8p9nnKZHCwOPwTPL/yy+IW97g65b60KLA7LHN0Cqn4/tWfQ SZ3cr8HiYAwGj+0XJ6WA+fM2dl+3z39gf2pJMph/jr97SuPy2/bFn5LAfPGc g2I5B6/Zz/aG8CUrdpna61yyd9uQCOavSH/z6Ov50/ZFChD+FLuXk+1eHrZX mJMA5j94ee3PBo+d9v7KEP4/rTOdfKwr7Bm2xYP50PhiAACCbsji "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948976514723, 2.}, { 0.1842458523403347, 1.6644407481068433`}, {0.5198051079659081, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948976514723, 2.}, {-0.144635642025902, 1.3355592518931605`}, {0.5198051079659081, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzbDAPbF59739DBDgoLFUF8xfPm9j93X7//YW7wTA /KSJRh9Ksv/Zm1Z/TADx9W406d5o+msv7nMezOcpXuTM2PbH/knCKjD/VyJI w2/72TubIPwl/iBkbxkWAVFvc3eWvNhP+0Nm2mC+obqVSMKJ7/Ym0b/jQfw0 MPhmr8p2HMxfDNb+xV6nqgfMf2zRB0Sf7X22e4P5ykog8Mm+bi8LmJ/IvS2B e9sH+5M92+NAfPuXk+1eTn5nr6GaAubv2Q0Cr+3ntXGB+ZYg4x6/sNfeuCoW xAfpTuB+Zn92iQuYbwwGj+0PZNyLAfHBwZP/wN6epQ7MP8ffPaVx+W17n3Jl MF8856BYzsFr9g8PnosG8SUrdpna61yyZ3pSD+avSH/z6Ov50/Yb75qB+VPs QA48bP9q3ecoEP/By2t/NnjstF8fvg3M/6d1ppOPdYU9w426KKT4YgAAKpLu Kg== "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.645894071093039, 2.}, {4.74729033304998, 1.4792658354872805`}, {4.519805100640724, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.645894071093039, 2.}, {4.418408838683741, 1.520734164512722}, {4.519805100640724, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3SCZ4Jg6VciBAQIczHzvrEuKFXK4X/d2K7flf/sN 5uv23pIWcnASUprpGvDP/s2Nq7lnLwg6qO+au3Kt61/7lwbB+61qBB16yhKe O0v+sV9lr7ZJSU7Qodg9K4jj9C97XVZ/t9ZtAg53dHa/+hX1076o8Wx1kquA w3G14A3SJ7/bf81wXloyld/BxNRocZboN/sum+lTJXv5HJQiIg4/t/9inyve cb2Lh89hWewn4yj3z/ZF5jM+S8/mdZivzPLTxPGT/aw5x1+eseB1YFnVK1Sh +9H+gZvYrrlPeRxufehrUOb5YO9h1pLSt5DHwfEDf1verrf2F7MEX87L4XFY V/9xc5rja/vqJ3vdz7vxOPzqP9Slv/aFvdvizgZ5Ax4HNcVmrpN/n9obLy+Z 3K/B42AMBo/tdxbng/nzNnZft89/YB/ZkwXmn+PvntK4/LY9z8dUMF8856BY zsFr9pcXJoL5khW7TO11LtlvmBcL5q9If/Po6/nT9kueR4L5U+xeTrZ7edh+ XU0YmP/g5bU/Gzx22p+JDQbz/2md6eRjXWHP0B0A5kPjiwEASZnDPw== "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{6.221910142037359, 2.}, {6.535298368384475, 1.548986069529553}, {6.5198051003653745`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{6.221910142037359, 2.}, { 6.2064168740182515`, 1.4510139304704643`}, {6.5198051003653745`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzXCuK9PmsYQDAwQ4nDh35dydAxIO50Rs/LRt/tsn c6RaLZsp4fA3M+bX4Zh/9uerrNfMyJVw6PqfwHIq8a89l1qEyhYbCYeyq545 tt5/7MW5di/6wSbhcOC1mJGc5G/7L2op6mlnxB2ynE6E5pz+ab+oJnjTnx5x h6KbsdfVk37YK3F3Ou/xEHe4teH6toC73+yLLrHcXvJfzGHBCdMvz2y+2lfO KFKzPyfm4HNzursD/xf7v32HdFYuEnPwvMan4Hjrk/3frV/ePqoRc5i0f1bt y7kf7ct5ObPexIg5qE+1TrCM+mCfN/X/gqNOYg5C6x71J8q9s3/ge2NSnp6Y QwlXReb8ytf2Z80m2z+XF3PIszf31Tn2wt40wGC5vriYA4uvgjUHyzN7qVnr T7qLiDkYg8Fje4/sBWD+vI3d1+3zH9hPlpoE5p/j757SuPy2/Y/lLWC+eM5B sZyD1+zLhCvAfMmKXab2OpfsBWJzwPwV6W8efT1/2v5ISyKYP8Xu5WS7l4ft J3eFg/kPXl77s8Fjp31Nnh+Y/0/rTCcf6wr7BgM3MB8aXwwA25DB+Q== "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{9.186622018146181, 2.}, {9.517654304778812, 1.5547888744430485`}, {9.519805097045264, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{9.186622018146181, 2.}, {9.18877281041257, 1.445211125557146}, {9.519805097045264, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3eB78XVPvJIDAwQ4rBNZcv91g5LD7B96TQfM/9v/ vb2eNWaFkoPRT/VTEt7/7PMXf4m9e1XJ4SDj6+scVn/tmbOLXuRzKjt4CVWs nsDyx36XkeZSYWdlh1Na5102rPplP+mXxJQTTcoObt4fFqfr/LTvOeS4te+E ssOu4tsntnV+t1/ZtZgjTUTFQWPJhM1zD321fxFk1+eXpuLQf4c/Reb6Z/vA zxz8GztUHOacCXDp/fLJ3ktH9Sf7chWHiQU9ghcYP9lf+TvJJ/igikPeiUOn n/z7YP86PYhz8nUVh6QVz59Ou/7efnJWsv7xlyoOu9Tt+TgmvrU/xXps3/vv Kg6P+HoEZLVe20+wrNrOw6TqcCP23Juri17YP2dtkJTjUHWYJ8K22Oj3U/sz WdefKHOpOhiDwWP7ObMg/Hkbu6/b5z+w33Acwj/H3z2lcflte65PEL54zkGx nIPX7JdL3gDzJSt2mdrrXLLvtIPwV6S/efT1/Gn7DQkQ/hS7l5PtXh62l2mA 8B+8vPZng8dO+9NzIPx/Wmc6+VhX2B/YBuFD44sBAJKAzqA= "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805102733812, 2.}, {8.184245853133572, 1.6644407482410268`}, {8.519805109167123, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805102733812, 2.}, {7.855364358767346, 1.335559251759014}, {8.519805109167123, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3aDy6aS7iJwDAwQ4LKr+AuYvn7ex+7r9f/trgt/B /KSJRh9Ksv/ZSz//Cebr3WjSvdH01z7/9x8wn6d4kTNj2x/7a34Mp0D8X4kg Db/t/R4yQ/hL/EHI/tomdjCfx+buLHmxn/b5h7nBfEN1K5GEE9/tpYQFwPw0 MPhm/8daGMxfDNb+xd72BoT/2KIPiD7b33kuCOYrK4HAJ/sbWbxgfiL3tgTu bR/sjRLZwHz7l5PtXk5+Z//mFMS9e3aDwGt7lhUfwHxLkHGPX9hX/ngI5oN0 J3A/s/fZcwHMNwaDx/Z5e/eB+eDgyX9gf/HoWjD/HH/3lMblt+3Lrs4F88Vz DorlHLxmH/amD8yXrNhlaq9zyb6KqxHMX5H+5tHX86ft7+iXgPlT7EAOPGxf F5MB5j94ee3PBo+d9nETYsH8f1pnOvlYV9g3nA5Gji8GAFOuwrU= "]], 0.08031358883465894], ArrowBox[{{-3.480194892952227, 1.}, {-4.480194894643205, 0.}}, 0.08031358883465894], ArrowBox[{{-3.480194892952227, 1.}, {-3.480194892895497, 0.}}, 0.08031358883465894], ArrowBox[{{-3.480194892952227, 1.}, {-1.4801948938142004`, 0.}}, 0.08031358883465894], ArrowBox[{{-1.480194890561961, 1.}, {-2.4801948906931557`, 0.}}, 0.08031358883465894], ArrowBox[{{-1.480194890561961, 1.}, {-3.480194892895497, 0.}}, 0.08031358883465894], ArrowBox[{{-1.480194890561961, 1.}, {0.5198051104613342, 0.}}, 0.08031358883465894], ArrowBox[{{1.5198050995101084`, 1.}, {2.519805098875395, 0.}}, 0.08031358883465894], ArrowBox[{{1.5198050995101084`, 1.}, {0.5198051104613342, 0.}}, 0.08031358883465894], ArrowBox[{{1.5198050995101084`, 1.}, {1.5198051009488154`, 0.}}, 0.08031358883465894], ArrowBox[{{0.5198051079659081, 1.}, {-1.4801948938142004`, 0.}}, 0.08031358883465894], ArrowBox[{{0.5198051079659081, 1.}, {-0.4801948913330989, 0.}}, 0.08031358883465894], ArrowBox[{{0.5198051079659081, 1.}, {1.5198051009488154`, 0.}}, 0.08031358883465894], ArrowBox[{{4.519805100640724, 1.}, {3.519805098433949, 0.}}, 0.08031358883465894], ArrowBox[{{4.519805100640724, 1.}, {4.5198051004216495`, 0.}}, 0.08031358883465894], ArrowBox[{{4.519805100640724, 1.}, {6.519805090064892, 0.}}, 0.08031358883465894], ArrowBox[{{6.5198051003653745`, 1.}, {5.519805092724823, 0.}}, 0.08031358883465894], ArrowBox[{{6.5198051003653745`, 1.}, {4.5198051004216495`, 0.}}, 0.08031358883465894], ArrowBox[{{6.5198051003653745`, 1.}, {8.519805093779155, 0.}}, 0.08031358883465894], ArrowBox[{{9.519805097045264, 1.}, {10.519805098966913`, 0.}}, 0.08031358883465894], ArrowBox[{{9.519805097045264, 1.}, {8.519805093779155, 0.}}, 0.08031358883465894], ArrowBox[{{9.519805097045264, 1.}, {9.519805097990798, 0.}}, 0.08031358883465894], ArrowBox[{{8.519805109167123, 1.}, {6.519805090064892, 0.}}, 0.08031358883465894], ArrowBox[{{8.519805109167123, 1.}, {7.519805093516766, 0.}}, 0.08031358883465894], ArrowBox[{{8.519805109167123, 1.}, {9.519805097990798, 0.}}, 0.08031358883465894]}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[ 1]}], {DiskBox[{0., 8.}, 0.08031358883465894], InsetBox["1", Offset[{0, 2}, {0., 8.08031358883466}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5198051030353099, 7.}, 0.08031358883465894], InsetBox["2", Offset[{0, 2}, {0.5198051030353099, 7.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.48019489641831115, 6.}, 0.08031358883465894], InsetBox["3", Offset[{0, 2}, {-0.48019489641831115, 6.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.569314986560698, 6.}, 0.08031358883465894], InsetBox["4", Offset[{0, 2}, {4.569314986560698, 6.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.48019489700209306, 5.}, 0.08031358883465894], InsetBox["5", Offset[{0, 2}, {-0.48019489700209306, 5.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.569314985895403, 5.}, 0.08031358883465894], InsetBox["6", Offset[{0, 2}, {5.569314985895403, 5.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.4801948987205833, 4.}, 0.08031358883465894], InsetBox["7", Offset[{0, 2}, {-1.4801948987205833, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.4801948993890619, 4.}, 0.08031358883465894], InsetBox["8", Offset[{0, 2}, {-0.4801948993890619, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.185076517975062, 4.}, 0.08031358883465894], InsetBox["9", Offset[{0, 2}, {5.185076517975062, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805101591487, 4.}, 0.08031358883465894], InsetBox["10", Offset[{0, 2}, {7.519805101591487, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.4801948991458858, 3.}, 0.08031358883465894], InsetBox["11", Offset[{0, 2}, {-1.4801948991458858, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.48019489646310376, 3.}, 0.08031358883465894], InsetBox["12", Offset[{0, 2}, {-0.48019489646310376, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.932983114614558, 3.}, 0.08031358883465894], InsetBox["13", Offset[{0, 2}, {5.932983114614558, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805100010558, 3.}, 0.08031358883465894], InsetBox["14", Offset[{0, 2}, {7.519805100010558, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-3.1220982740783256, 2.}, 0.08031358883465894], InsetBox["15", Offset[{0, 2}, {-3.1220982740783256, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.480194898390323, 2.}, 0.08031358883465894], InsetBox["16", Offset[{0, 2}, {-1.480194898390323, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.2104546215477967, 2.}, 0.08031358883465894], InsetBox["17", Offset[{0, 2}, {1.2104546215477967, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.4801948976514723, 2.}, 0.08031358883465894], InsetBox["18", Offset[{0, 2}, {-0.4801948976514723, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.645894071093039, 2.}, 0.08031358883465894], InsetBox["19", Offset[{0, 2}, {4.645894071093039, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{6.221910142037359, 2.}, 0.08031358883465894], InsetBox["20", Offset[{0, 2}, {6.221910142037359, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{9.186622018146181, 2.}, 0.08031358883465894], InsetBox["21", Offset[{0, 2}, {9.186622018146181, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805102733812, 2.}, 0.08031358883465894], InsetBox["22", Offset[{0, 2}, {7.519805102733812, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-3.480194892952227, 1.}, 0.08031358883465894], InsetBox["23", Offset[{0, 2}, {-3.480194892952227, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.480194890561961, 1.}, 0.08031358883465894], InsetBox["24", Offset[{0, 2}, {-1.480194890561961, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.5198050995101084, 1.}, 0.08031358883465894], InsetBox["25", Offset[{0, 2}, {1.5198050995101084, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5198051079659081, 1.}, 0.08031358883465894], InsetBox["26", Offset[{0, 2}, {0.5198051079659081, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.519805100640724, 1.}, 0.08031358883465894], InsetBox["27", Offset[{0, 2}, {4.519805100640724, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{6.5198051003653745, 1.}, 0.08031358883465894], InsetBox["28", Offset[{0, 2}, {6.5198051003653745, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{9.519805097045264, 1.}, 0.08031358883465894], InsetBox["29", Offset[{0, 2}, {9.519805097045264, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{8.519805109167123, 1.}, 0.08031358883465894], InsetBox["30", Offset[{0, 2}, {8.519805109167123, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-4.480194894643205, 0.}, 0.08031358883465894], InsetBox["31", Offset[{0, -2}, {-4.480194894643205, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-2.4801948906931557, 0.}, 0.08031358883465894], InsetBox["32", Offset[{0, -2}, {-2.4801948906931557, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-3.480194892895497, 0.}, 0.08031358883465894], InsetBox["33", Offset[{0, -2}, {-3.480194892895497, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{2.519805098875395, 0.}, 0.08031358883465894], InsetBox["34", Offset[{0, -2}, {2.519805098875395, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{0.5198051104613342, 0.}, 0.08031358883465894], InsetBox["35", Offset[{0, -2}, {0.5198051104613342, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-1.4801948938142004, 0.}, 0.08031358883465894], InsetBox["36", Offset[{0, -2}, {-1.4801948938142004, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-0.4801948913330989, 0.}, 0.08031358883465894], InsetBox["37", Offset[{0, -2}, {-0.4801948913330989, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{1.5198051009488154, 0.}, 0.08031358883465894], InsetBox["38", Offset[{0, -2}, {1.5198051009488154, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{3.519805098433949, 0.}, 0.08031358883465894], InsetBox["39", Offset[{0, -2}, {3.519805098433949, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{5.519805092724823, 0.}, 0.08031358883465894], InsetBox["40", Offset[{0, -2}, {5.519805092724823, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{4.5198051004216495, 0.}, 0.08031358883465894], InsetBox["41", Offset[{0, -2}, {4.5198051004216495, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{10.519805098966913, 0.}, 0.08031358883465894], InsetBox["42", Offset[{0, -2}, {10.519805098966913, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{8.519805093779155, 0.}, 0.08031358883465894], InsetBox["43", Offset[{0, -2}, {8.519805093779155, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{6.519805090064892, 0.}, 0.08031358883465894], InsetBox["44", Offset[{0, -2}, {6.519805090064892, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805093516766, 0.}, 0.08031358883465894], InsetBox["45", Offset[{0, -2}, {7.519805093516766, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{9.519805097990798, 0.}, 0.08031358883465894], InsetBox["46", Offset[{0, -2}, {9.519805097990798, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{424.76953125, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.797990333718519*^9, 3.797990338695169*^9}, 3.798033037463743*^9, {3.7980330867005167`*^9, 3.798033103976335*^9}}, CellLabel->"Out[4]=", CellID->25524369] }, Open ]], Cell["\<\ Find the causal connection graph for events at step 3 (there are just two \ \"subuniverses\" in this case):\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.798033116186145*^9, 3.7980331380677958`*^9}, 3.798033207920138*^9, {3.798036082447143*^9, 3.798036091107183*^9}}, CellID->302225489], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/db15497b-6819-4b98-8f25-431c838f3ec4/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CausalConnectionGraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CausalConnectionGraph"], BoxID -> "CausalConnectionGraph", Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ",", "Automatic", ",", "#", ",", "\"\\""}], "]"}], "&"}], ",", "3", ",", "9"}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.798033155450802*^9, 3.798033220783836*^9}}, CellLabel->"In[37]:=", CellID->408094487], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt2wl0VOXZwPEoWFGUQxchghXbAgKloAlkw5BMlkkmk4SlbILsEIsB2UyD QAMCEUXWhKUQdoHYoyxBllAWRQFB1lMWMUREq6CAlkWslOX7nsk9fc9tZvFm 5k4meP6/c08X8tx33ueZe9/l3uQ3/YZ2zLg7KChoZA35j459sy0jRvR98Y+1 5f90fn7koGefHzjA9vwLA58dOCKiXzX5x/XVg4K6yX87/vf/AQCAO8T169fX rl2bk5MzePDgzMzMNWvWeI7/5ptvDhw4UFJS8v3333sI++STT5577jlpMzs7 e8mSJXKWqb022d69e+vXrx+k07NnT5eRxcXFFovloYce0gc3b9781VdfvXDh gnP8li1b9JHBwcFFRUV+zsZLFy9elO4F/S/nOpw5cyYlJSXIPSmOXFHlzipX B82uXbsqK7kKmDZtWrl+Pvjgg8OGDdPHXLlypWnTph6KoLz++uv6Ez/88MP7 77+/XEz79u0rN0VD5DpXPezXr99XX31VLuD27dvSc30iTzzxREFBwXvvvbdu 3bohQ4ZUr15d/ahGjRrHjh0r18Lly5fnzp1bs2ZNLebuu+++evVqZeVnVJ06 dbTu1apV67vvvnMO2Lhxo74Iw4cPv3nzpj7g4MGDcgmpgF69ern8oIyMDBVz 9OhRvyTjLfmu5dvR+hYWFuYypnfv3qr/kZGR5YqgkctDxfzsZz+T2cc5Zvny 5Srm7bffNjkT38gFoPqWmprqHCAZ1a5dW8Vs3rzZZTvXrl1T9RQnT550jlm9 erUKkJqYnIlvZABUfevWrZtzwOnTp1u1anXfffdp976H1cLPf/5z1dTOnTud A+QaUAGLFy82Mw2f6evgbs0gbt269fHHH7///vvuAr744gv9GHLq1CnnGFk5 qID58+ebk4BJ9PdF//79vW5n3Lhxqh25j27cuOEco69Dfn6+D70236VLl1Tf ZPXrRQsy0s6ZM0d/Mbz44osuI/XzzpQpU3zruMnOnj2r+paVlWXwLBk8P//8 8z179sybN08W1foiyP/917/+5fKsrVu3qrDx48ebl4QJdu/erfo2depUg2fp r3C9Nm3aOC/DlOPHj6vIHj16mJSBOWbPnq369qN7TGXWrFku6yCjhAyY7s6S seiuu+7SImWVblIG5ggJCVFZuBzkXZIlpcs6BJUtSt955x13J0ZFRWlhstiQ Vag5Ofhs9OjRqv8RERHGT5Qr/K233iopKZGtRGFhYXJysr4U9957r2w9XJ6o v5CaNGnichlfaWTNIF9oaGio6pJ8Oz4udGVdVK1aNdVgeHi4yzAZYPVX4AMP PJCenh6obfhnn31W7utbtmyZ781mZ2frm3V3d8jdV26Kyc3N9f3TvVCuDmYt cX/44Ydf/vKXqtnp06e7i5S1uhowq04dpEtjxowxpeWEhATVbGZmpssYman1 m/QA1kG+OFn/pKWlyR2hOrNu3TqXwf/+979PnDixYcOGvLy8d99913PLskNR DXbt2tU5QL4CmVBUjIxRMtUan6f8ZNGiRapLDRs2dBnz2muvqRiLxeK5QZl0 VLDLa2zs2LH61mT7ZkIaZtBPeYcOHXIO2LZtmwqQGeHixYvumvr222/1jyJl N+Ec06hRI+2n99xzj4cVV+XTT+hy5TsHyE2kz27kyJHumurVq5d+zJGylAuQ TaiaW2X2NDkT38iCR3V+xIgRLmNkitcn6PxISracM2fO1A99LgeH0tJSFTBw 4EDzk/HBmTNnVN+6d+/uMkYGt1/84hf6u2Po0KEy90n6V69elVVQYmKivggN GjRwueXcv3+/ipk4caKfM6uYc+fOqb516tTJXZjMF/oZXyPTjfM/Vq9e3d36 UH/tGd/bVg65i1XfPL9eWb58+a9+9asgj1q3bn3kyBF3LeifP8g+1w/ZeE8u bNW3Dh06eA6Wog0aNEj/1kYJDg6WIcLzPLhp0yYVX1BQYGoevrp27ZrqW8eO HY2cInulo0eP/u1vf5s0aVJ+fv6OHTvOnz9v5MT169erz1q6dKlvHTeZTIuq b3a73a+ftWLFCvVZK1eu9OtneUE2v1rfYmJi/PpBMjaqOmzfvt2vn+UFtQuu UaPG5cuX/fdBNptN1UGmXf99kHdkWFDdCw8PLyoqkjHf82+5GCcjpyw/ZOUg izQ1ydasWdPlC47AKi4udh7/+/bta0rj+rlScbclDzj9MzqNh3d8FeL8+zCy wwr4RtsdWUUMGTJE/8LaT3Vo3LixuzfmVYfcyDI4LFmyZMGCBXv27DGlTVla SGsLFy6UiVJGiSo4LAAAfsJkmXry5MkNGzbIZDRjxgzZucyePVu2wB988MGV K1cC3bvKUFpampeX17Vr11Q30tLSsrOzZR37U52jz549O2HCBJVvSlJ8kiU8 MbpFQptmCVFNE59qbo0JtSVE21NsWkCfPn08/AbCHWrjxo2yH5TsJE3JN671 o7FP1nF5WEIelsrYrHFaNcaNG+fXTXSlkaFA7n0tKbkALKH1tHzbPfXIn7s3 zR8aumxM5IqxkQuywiYOaNE7+TeWkLpagFTDbkuSs/r37//ll18GOg9fyTCo XQYJUU20BAem/W7NpOiTK1JLVqU5H3vmWXMHtrS2DnZcG60esVlj5XTZLp07 dy7QqXivsLBQK0J8+G8lr6Swh5ePiXSZvnM1+tt/V3abBCcnREsjGRkZZj1U qWTHjx9PT0+32+3xEY0ko44xv94+M95IEbTjxOv2F59ppo0YNqtFSlHVXpoY IcNCZmamdN7a9knJxR5Z7/05icaLoI6RXR13k4yr2jzi4fVK1bR9+3bH5Jic EBsSLEPfupfbelEEOY4tS+lpfUxKYY1uKQ26e4dbZQ0ePFi6LWO+pDCm1++9 K4J2bJ0eJ5WUgSKlbPo4ceJEoJMz6tNPP3VcDLak2CfrxofW3ftXqy91kGNY 58cdl0RMiDRb1V4pevDmm2+WrRbCpPNDOz3uYxHkkHnWMUqEPSbNmvUIuhJo 62dtwbB4VLjvdZC5Q+Zcx3hbdmu4/FPTKkjmeultXOsG0vMdsyowV3o4BqQ6 lhO2xLbS8uHDhwOdoiFdunSR3sq8Lz3/x9IUU+qQ3cMx5CbFRUjLd8r+q127 dtJbGSSl5+7WzxU9cvo0d9TBEiYtFxcXBzpFQzp37qyuh6MmXQ+jdNfDjh07 Ap2iIQMGDCgbHxyb63fzzBkfZHfmGB/K9hpV508ePBs3bpxjvoh0TPpLR0f4 XgS5uWzhjqsrxWaVlr/++utAp2iIts1Mim0tPZcNgu91WP9KTNkuo4G2Bw90 fkaVlJSUrSetMlQmtgo+UJDsYx3+3L2pYz3Z9glpdsaMGYHOrwK0JYR2a0wc 0MKXIuzMT5DFuezXUpIT77gt56ZNm6TPNmuctsXY/Fqsd0X4aEWqtoJKfOoP 0qB3f6MaQDdu3NBmjcToFtrTyH3zk7yow196N9ce0NlTkqW1vXv3BjqzCjtw 4IDjoZw9RXso93RCg91zK/Ao5uOVqS9ntHQ80gwJtiXGSFNV7ZeZjSsoKHCU wpak7TVSI+utzY02UoRDC5OH/LFx2XPdusnxUdJI796979wH+Ldu3ZIvsexR bXJ8REPtefXwLk22To9zV4Eji215Q0PtkfXKnkzWS054Sk7v2rXrp59+Guhs fCIDxeTJk8tuELs1JlRbbGu3icwjS16MWDMpumhy2zfGt5n1fOjgjo1lntUC 4iMaaRNEjx49SktLA52HCW7fvr1q1ar09HRtUZEY3dISWt/d+yzH/BLRSFs/ aw8k75TVo0GnTp0aOXKklp1cG7bEttaYkIQ2zSRruWVkpSEzS3JcpPYQUrsX 1q5dW3X+BMxcskWSEaN9+/bu3neLP/3pT2+99da1a9cC3Vm/kxz37du3cuXK qVOnjh8/fuzYsbm5uQsWLCguLq5Sf/4GAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAMBP2/Xr19euXZuTkzN48ODMzMw1a9YYP/fbb789 V+bq1avlfvTJJ58899xz0mZ2dvaSJUu++eYbU3ttsr1799avXz9Ip2fPngbP lUwffPBB7axOnTqV++mWLVv0zQYHBxcVFZndfXNcvHhRuhf0vwzW4ebNm1FR Ueqsjh07lgsoVwfNrl27/JCHr6ZNm1aun/L9Dhs2zMi5EydO1J/oXIcPP/zw /vvvL9d++/bt/ZCHrywWi+phv379vvrqK4MnSo7Vq1f3XAfN5cuX586dW7Nm TS3s7rvvdh5JAq5OnTpa92rVqvXdd98ZPEsiGzVqVO6LdlcHTUZGhoo8evSo GX03ze3bt+Xb0foWFhZm/ER9UgbrsHz5chX59ttv+9x3M8nXqvqWmppq8CwZ 852L8KN1WL16tYqUmpjRfdNcuXJF9a1bt25GTpEB5KGHHtJOqVGjxquvvmqw DnINqMjFixeblIE59HUwOFempKSoU2bNmrV+/XqDddBfRfPnzzcpA3Po74v+ /fv/aPycOXNUfEJCggwv3tUhPz/fvCRMcOnSJdU3Wf16Dv7oo4/uu+8+Lbh2 7dr//Oc/5R+N12Hjxo0qcsqUKWam4bOzZ8+qvmVlZXmI/M9//hMSEqKCV61a pf278Tps3bpVRY4fP97MNHy2e/du1bepU6d6iBw1apSK1I+oxutw/PhxFdmj Rw/TcjDD7NmzVd887DF37typlhmyI5MNpvqR8TrIWHTXXXdpkU2bNjUzDZ/p L/VTp065jJExpEGDBlqMJPL3v/9d/1PjdRBqUyZVPXjwoGlp+Gb06NEqhYiI CHdhcg2rsCFDhpT7aYXqIPOsCm7SpInxZbw/yJph+PDhoaGhqkvy7bhb6BYW Fup7/v3335cLqFAdrl+/rr8CH3jggfT09EBtwz/77LMgnXvvvXfZsmUuIz// /HOZH7Uw2Vru37/fOaZCdRBy9zVv3lzfgdzcXF9T8kq5OnhY4j799NMq7J57 7slyRb+8fPTRR9W/yyzprtnTp0+rAbPq1EG6NGbMGJeRVqs1yFsvvPCCyzZl plbP8QJbhx9++GHevHlpaWlyR6jOrFu3zjnS9DrIV1CrVi0VI2PUuHHj3M1T lWbRokWqSw0bNnQOSEpK8roOLlenY8eOVQEWi+XWrVv+z9KQ5ORk1bFDhw6V ++mFCxdKfkxeXp5qITY2Vv375cuXnT9OPcKS0eaLL76olBQN0U/okpEXLRif L27cuFGtWjUtUmZPb7vsF++9957KYsSIEV60YLwOpaWlKnLgwIHedtkvzpw5 o/rWvXt3L1owXgdZfqjIiRMnettlvzh37pzqm/PbKCOM10F/7Xne21Y+2Tmq vnn3esW75w+yz/W2y35x9epV1bcOHTp40YL+zZ2sPz1Ebtq0SUUWFBR422W/ uHbtmsFv03f6K2fp0qV+/ayKkrWl6pvdbvfrZ61YsUJ91sqVK/36WV6Qza/W t5iYGL9+kIyNqg7bt2/362d5Qe2Ca9So4XIRaBabzabqIFtO/32Qd2RYUN0L Dw8vKio6cuSI8/MW78gOQvZWsnKQRZraa9esWVPWlqa0b6Li4uIgJ3379jWl cf1cqWRmZprSuOn0z+g0xn8vyDPn34eRHVbAN9ruyCpiyJAh6sm8/+rQuHHj zZs3m9Ky/8iNLIPDkiVLFixYsGfPHlPaPH/+vLS2cOFCmShllKiCwwIA4Cfs 5s2bJ06ckA3s/Pnzp02bNmXKlPz8/MLCwt27d/t1a1B1lJSUzJo1q0uXLqlu pKWlZWVlybrlpzpHf/nll+PHj1f52pLikixhidEtEto0S4hqktjm99aYkOSE aHuKTQvo3bt3FdzV+mjDhg0dOnSQ7CRNyTeu9aOxT9ZxeVhCgqUyNqtFq0ZO Ts6lS5cC3X0TyI41Ly9PSyrJEm4Jrafl2+6pR0b1aJY/rNXrYyNX5kQV/Dns 5YyWfVN+awmpqwUkRDVNsSXJWf369atS74y8M336dO0ySIh8XEvw2fSG615u +/HK1JJVac7H3r9aJ2e0tIY97Lg2Qh+xJcbI6c8888zZs2cDnYr3Vq1apRUh Pvy3kldS2MMrxka6TL/c8cE864DU32m3iQwa0khGRoZZD1Uq2bFjx9LT0+12 e3xEI8nojzG/3jEr3kgRtOPE6/YxPX9fVoqHteGiqr00MUKGhUGDBknnrW2f lFzskfV2zUk0XgR1ZD3dVE6XcVWbR44cORLozCpm27Zt0u2UpPjYkGAZ+mRA 8KIIchxbltLT+piUwhrdUhr07h1uAGVmZkq3ZcyXFP7Su7l3RdCObTPipJIy UMiUK20eP3480MkZdfr0acfFYEuKfbJufGhdmQJ8qYMcw7s0cVwSMSHSbFX7 FXcP3nzzzbLVQph0fmjnx30sghxrc6Mdo0TYY9KsWY+gK8GECRPKbgrHl7h4 VLjvdZC5I6lsRWEvW1lduHAh0CkaInO99DaudQPpeYXmSg+HtpywJbaVlg8f PhzoFA3RtpMy70vP/7E0xZQ6ZPdo5liJxUVIy++8806gUzSkXbt20lsZJKXn J1e4Xj9X9Mjp09xRB0uYtFxcXBzoFA3p3Lmz6dfDKN31sGPHjkCnaMiAAQPK xgfH5vrdPHPGh4FpZeND2V7D+TckqybteYu2wVw6OsL3IsjNZQt3XF3aUurr r78OdIqGvPHGG471Q2xr6fnIrk18r8P6V2LKdhkNpNlevXoFOj+jSkpKytaT VhkqE1sFHyhI9rEO2m5LtmzS7MyZMwOdXwU8++yz6taY0L+FL0WQEUYW57H/ 3V/cWVvOTZs2aQ9jtS3GptdivSuCrCT72x0jZOJTf5AGnf+uqoq7ceOGNmsk RreULNLb1PdutzWml+NRTFyrR+wpydLavn37Ap1Zhcns5ngoZ0/RHsp1i29Q oUcxMkdMHNDC8UgzJFh7Sjlp0qRA5+SlRYsWOUphS5atovZUas2kaCNFOLgw ObNj47LnunWT46OkkT59+ly5ciXQCXnp1q1b8iWWPapNjo9oqD2vHtb58S3T LO4qcGiRbebzoVKxsieT9bSHtN26dTtz5kygs/GJDBSvvPJK2Q1it8aEaott 7TZ5qd8fZFe+elL0upfbrsyJmjEkRK6BhFbBWkB8ROOU5ETtoX1paWmg8zDB 7du3ZWWlbb5k7rNGt7SE1nf3Pssxv0Q21vbX4oUXXjh//nygMzCTfKdZWVla dnJtyNBnjQlJaNNMso6PaJQQ1UTqkxwXqT1p0e6FoqKiqvMnYOY6fPhwbm6u 9q7TnUGDBq1evfoOfWtTIZLj/v37CwsLp02b9tJLL+Xk5EyePHnhwoVbtmy5 o9/fwdn/A/5k6yk= "], {{0, 601.}, {44., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{22., Automatic}, ImageSizeRaw->{44., 601.}, PlotRange->{{0, 44.}, {0, 601.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7985673761059523`*^9}, CellLabel->"Out[37]=", CellID->23710824] }, Open ]], Cell["Find the corresponding result for events at step 5:", "Text", TaggingRules->{}, CellChangeTimes->{{3.798033266403006*^9, 3.7980332769266033`*^9}, { 3.8006247445782347`*^9, 3.800624744915038*^9}}, CellID->994918320], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/db15497b-6819-4b98-8f25-431c838f3ec4/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CausalConnectionGraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CausalConnectionGraph"], BoxID -> "CausalConnectionGraph", Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ",", "Automatic", ",", "#", ",", "\"\\""}], "]"}], "&"}], ",", "5", ",", "11"}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.798033155450802*^9, 3.79803324849487*^9}, { 3.798567387117951*^9, 3.798567389969617*^9}}, CellLabel->"In[38]:=", CellID->73934910], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3Qd0FVX+wPGo9OoeVKqAhSbIsgFSCBHSOwGkChGpK21p0qX4V0T6oUMo AQzC4tKLlEX2IHhARIqg9LYgRXoz0vb/exm9jq9MXl7JBPL9nHcs5Df3/e78 3sy9d2ZeeKldj8adnvbx8emTT/7RuG3/kN692w5881n5n6b/6NP57//o2CHm H+91/HvH3gHtnpE/3JrLx2e2/Nvy3/8DAAAAAGTer7/+unz58qFDh3br1q1r 167Lli0zjk9LSzuYTjbMmgzddPz48S5dukjv+vfvn5KScuXKFbMz8q4dO3aU Ll3aRycpKclu5KFDh5o3b16hQoVnnnlGi5T/qFixYosWLQ4fPuztJCNdMmbM GNl8w4YN+g6WKFFi5cqVXk3YRJcvX5YO+vyZbU1/+eWXQYMG5cmTx8eBvHnz ymEuYV7K85///KejtzbWrFmz/9nUVLNt2zYvZWuucePGWfW0cOHCPXv2tApr 3bq1MzuwVatWXsrTzZp+8803BQoUsPpRw4YNvZStuUJCQlQf27Vrd+HCBduY Tz/91KroH3zwwfr16zdu3DhixIhnn31W/9OFCxd6I8/PP//ctZr26dNHNXLj xo1p06YVLFhQ+9HTTz9969Ytb2RrrhdeeEHrYJEiRW7fvm03pnjx4moXVa5c +cyZM/qfnjt37vXXX1cBRYsW9cbE6f79+6edsHv3bqmUSsbX1/fu3btWTXXq 1EkFfP/99x5P1VyPHj1Se8DPz89uzJEjR9QeyJUrl+w025h9+/blzp1bhdmN yQIPHz6MiopSaTz//PNSZduwBQsWqJjVq1dnfZ5eJQem6l18fLzdmHnz5uk/ 9o6aeuONN1RYcnKy11I2IiOC/uP3n//8x27Y0qVLVZjUN4uT9LabN2+q3sl6 xG7M2LFjVUxwcLCjpt5++20V1q9fP6+l7JDVWbdv376OIuXYVGFz587NyiSz gL6mjtakixcvVjGvvvqqo6aCgoJU2IQJE7yWsn0yiAQGBqoEypUr52huIGRl qiJnzpyZlXlmAf25t3379nZjDhw44KPzr3/9yzbmq6++0h8jMh/2cuLW5HDT J7lq1SqDYH1NJ0+enGVJZo3r16+r3nXr1s1RWFhYmAqTiceWLVv0P5WTXvny 5VVAlSpVZK7i9dR1rl27pmbvolGjRsbxa9euVcGjR4/OmiSzzE8//eTMAHTw 4EH9TnvqqadktS4r01GjRrVs2VJdJxQy+/3yyy+zsgti4MCB+gROnTplHL9p 0yYVP3z48KxJMsts375d9U7mQgaRP/zwgyx2fAzJDCrrl3syJZAVscrB0Qii Jx9RFe+9C19mmTJliuqd8b2YtLS0WbNmGdd00qRJ3rve68iYMWNUAnLGOHbs WIabyCxCTjXaJjJSZEGSWUnWm2qHHD161FGYHH1WN24ckQmnQTse9+uvv+oT a926tZMb1qlTR9tEpnZmXSHxhkGDBqm9ERAQ4CjsyJEjxYoV0xcuPj5epo4n Tpw4fvz4ihUrGjRooP9pqVKlsqys+ushUh0ZIJzccOLEiWrDypUrGyx8Hgsy APXq1atmzZr6vWFwiax58+b6k5vsRtuYRYsW5c2bV4UlJCR4swd/CA8PV28a FRXl/IZygOvPUYUKFZJP5uN76+306dP6w0pqMX/+fEfBhw4d0i88ZYbpKFIW Bfpm9+zZ4530/3D58uVcuXKpdzTohV1yMqlWrZo+Z5nJeylVb7OqqfHFMdlR KrJkyZIyU3IUKWtS/S6SZY4Xcv+T2bNnq7fLnz+/nH8y24IMH2qy9CTVVDo1 ePBgR8FDhw5VkYmJicYtd+nSRQV36tTJ04lbi46OVm/XtGnTzG4u67jChQs/ GcepHGvTp0+XIU8/AspUx26w/lajowvCyoQJE1RwTEyMF3L/w61bt/R395Yv X56pzeWDXaRIEbW5zC6GDRuWlTN2L5kzZ47qlKOL83IKVTFBQUHGDfbr108F t2nTxvMZ62zZskW9l4z4d+7cydTm77//vto8JCQkiy9mepX+9PXdd9/ZBugf zcqTJ4/tMwN6+sdgpk2b5rWsLUaOHJnhB9JAhQoVtG3lYD979qw3MjSLfpk2 adIk24CLFy/qRxyDq6OrVq3SR3p7IS+Du3qvzD4qdv/+fXWN2uAu/2Nq69at as/07t3bboz+aRAfBzcyDhw4ILNiFVOpUiXZb/qAtWvXfvK7xYsXu5+5/vlV OZFmattjx46pbTt27Oh+MtnKqVOnVO/eeustuzHnzp37y1/+oi/rO++8s2TJ kkuXLj148EAWsHLw6p/7lbPZt99+a9VI48aNVUDt2rXdTFtGT30+mf2Q7Nq1 S2374YcfuplMdnP+/HnVuyZNmjgKW7RokY89+pmnIiOdbQuerenx48f175jZ m0H6s5Px3ajH0dWrV1XvjEel1atXly1b1m5llWLFiqWkpNjd3LM13bZtm/5z de/evUxtrr9/OmXKFDeTyW5klad6l+HjAbdv35YxV7+sUwoUKNC2bdvLly87 2rZly5YerKm+KFWrVs3s5uvWrVObz5o1y81kshv9wCSHkpNbyeR/48aNU6dO nT59ukx+Tp48+ejRI2c2rFWrlrxRaGioGyl7gH6KbveWxGMtLS1N9S4uLs6r 7yWHufaNFdMfLUhNTVW99tI3QcxVqFAhrXf16tXz3rvIgdyjRw/tjeTo9t4b OUP/xPLmzZvNTcYb1M2UfPny3bhxw0vvkpSUpL1L0aJFr1275qV3cVJMTIyq 6YkTJ8xNxhv0M1J/f/+VK1fu3bvX+BqgC2QCJu2XL19+586dnm3ZSQ8fPjx9 +rSsTGWap+6vFSxY0OrayJNh/fr1tvNYmcR69l3OnTvXrVs3E49Q/VRZ6dq1 q1n5eJv+ORZNhrfVHju23xOXhe0TcHPNEVmldu/eXf+MyhNf04oVK37xxRdm J+V1MtzIYJqSkpKcnPz111+bnY6HXbp0Sfo1e/ZsWbzIqPpEDqMAAABA9vTg wYODBw8uW7Zs8uTJI0aMGD58+MiRI2fMmLFmzZrjx487ebcL2cTJkycnTZrU rFmzeMeSkpLmzJkjqzCzk0UGpEZySKrCxUSFRtWvHVG3WnhgpbCACvLPiODq USH+sdERWkBiYuK0adMe92/ePcE2b97cpEkTqVRcbExk/VqhtcvV/9sLjl5h fi9FhQbExcVpx+y+ffvMTh/W5ESqHXrRoYEhNUtrhUusW2Zg69dm9Km95IO6 yz4KXjw8aHLPWn2aV44NKKUFSN1jIt7QDtj169eb3Qn8YebMmZbDMy42Iug1 rVjtYl/+14fBh1Ljj3yWYPs6uCBu/uDA5qFl04OLR77hq30e1q1bZ3ZXYLFq 1SqtoDJiSo0iapWY09/fbimtXj98Gje6cw3tMyBjrjTSoEGDJ+mXFTymZFXS sGFDKUd4ncrayfaLMfWdKah6fTa0TqRfSdk28o0a0k6rVq2uX79udrdytN69 e0shZHIrRYnyK/nvCaGZKqj2ktE2xLe4tBAdHiytjR8/3uxu5Vzbt2+XEsgk N8TXcqAtGhbkQkG117huvpYpU60X5RyekJBg9VuUkWXee+89qakMhVKO91pU cbmg8pLZVFJkecvBXr+2tDlx4kSzO5cTnTt3TluKhviWCPUtvnVyuDs11c7A 6aubstJss2bNHpe/COZJsnLlSstIGhoghejcsIKbBZXX4YXxjYLLSGsxkfWl ZbtfA4dXffzxx5bpbvqCdOZ7fu7XVF7D2lpO45H1LMvV1NRUs7uY43Tu3Fn2 fKifZRDcNN6V6a7ta/7gQGktvE4Vadnu10LhVc2bN5c9r814986N8UhN142p b7kU7P+ytGzw63nhJYmJibLn6//Nsq50dA0ws68tE8PSp0nlpWWDX6MNL9Fu wcikV6pwYH6sR2oq53Dtlo203KtXL7O7mOO88847lvG01otShW1TIzxS0yX/ Z1nOhAVUlJaHDh1qdhdznEGDBsme167bu3MFSf/SriZFBFeXlmfMmGF2F3Oc lJQU2fOy7pAqDGlTzSM17RD/iuWqb1iQtPxEfnk2m9uzZ4/lYm+UZVYTF1jK /SH1q6kR0pRMpONiYxISEgx+gQa85OHDh0lJSZbTr7/l4JrSq5abNR38dlXL iTeoqrQ5YMAAs/uXQy1cuNDysEp4sOWCnn/JnTOjXC7oF2PqW263+ZaIjQ6X Nrdu3Wp253KoW7duaVcewgMrSVnbRL90YEGcCwX9JjlKu9IbGWy5Ld6lSxee /jXRmjVr0m+hRoXUshSlV7PKBzNZ1u9mR8uHQVuWxsXFSmv79+83u1s53bBh wyyP8kaGatcJ28a+vCvZ2ZPwlolhTeq/qN0Nj42JlHaevN/T9Ti6efOmdj0/ JjJEewo0vk7p2f39fzS8YLh/XqysRiNrl9CeCNUKOmTIkAcPHpjdIVj8/PPP 7777rvYci3YVQl4yRI78e401o+pJ+fRn2qUfBQ9v+7osf357YjCoqixeZNuB Awdm/d+0BQM3btwYPHjwb49th9UJrV1e/9R9bECpxLplov1L/ulR/IBXYyLq aZtMmDCBX1mQDclkdenSpdq1fcupOKJeRHB1mflo1/m1l4y5sp6NfKNGTFSo +jKUo79HG9nElStXkpOTmzZtqr4JFSdio+W0rJ1jldatWy9evNjjv4IMXpKW lrZ169aJEyfKYrNRo0aqjnIU9+jRY8aMGd9+++2T9Bdq5DRyTr5z5861a9c4 JAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAt+ /fXX5cuXDx06tFu3bl27dl22bJmTGx49enTnzp3ffPPNo0ePMvWOd+/ePXDg wL59+37++efM5+tJt27d2r1794kTJx48eGAQdvz48S5dusj+6d+/f0pKypUr V7IsQxfs2LGjdOnSPjpJSUnObHj69OnChQtrm0iXndnk0qVL3bt3L1u27FNP PaXe7rnnnpM/PHz4sHv9yJwvvviiadOmFSpUePrpp7U08uTJU7169enTp//y yy+28Rs2bNDvohIlSqxcuTIrE3be5cuXJT2fP3OmpvKpjoiIUJs4U9OZM2eq z4Ct/Pnzz5gxwxN9ysDt27ffffddR2mIF154QSputZVVTTXbtm3LgoQza9y4 cVZ5ym7v2bOn8VYPHz58++239VtlWNNFixbpj01HpO6e65wdP/300yuvvJJh Grly5Zo3b55+QxlfChQoYBXWsGFDr2brmpCQEJVhu3btLly4kOEmcmpq27at Ve+Ma7pr1y45s6ngIkWK9OrVa8mSJQsWLJA3zZcvn/pR7ty59+/f77n+WZPz rT7tggUL9ujRY/HixXIilelE8eLF9T/duHGj1eY3btyYNm2abKUFyHlbhmPv ZesaOc+o/SwnpQzjv/rqq0qVKtl+sI1rGh8fryJlv3333Xf6n27evLlQoUIq oEOHDu72yoG1a9fqc37ttdcOHjyoD5CjuH79+ipAeiqzR9t2OnXqpGK+//57 L2XrGpmsqhmCn5+fcbB8IGXW5+j8aVBTmdyqreQ/ZJJpGyMDk8pETnHXrl1z t2/26M+6MjGzO3eVD7Z+xjh+/HjbGDm9qIDVq1d7I1WXSf4qNzmUDCJlhlCu XDm71cywpvJJUGGNGjVyFNasWTMVNmHCBLc6Zs/Fixf1CScnJzuKTE1NVWF1 69a1DVi6dKkKkPp6PFV33Lx5U+XWokULg0irgsoIKMOK/iRsUFNfX18VJiOX o7BVq1apsMqVK7vVMXu2bNmi2pcRR6Z5jiLlR3nz5tUiZXy3HTHl2FRNzZ07 1+OpukNfU+P1i76mVatW1QYRZ2p69+5dmUNqMXLiNbjCcP36dXX6FfK/bvbO ytSpU1XjMmgaB8tQq4JlFLb6qUyo1E+9PVHPLP25t3379gaRWk3ln7IkV9MG Z2oqcyoVU6ZMGeN8Xn75ZRX89ddfu9YpR3r37q0a79ixo3Gwv7+/Ch4zZozV T/U1nTx5smfzdJMcCyo3GfUMIlu3bj179ux79+7p/9CZmn722Wcqxu7YpFev Xj0VnJKSksneZGDEiBGqcRm7jYOrVaumggcPHmz1U/38efTo0Z7N000ydVe5 9e3bN7ObO1PTGTNmqJhWrVoZNyifHBXs8WnSsmXLVONSMoNIWQ7ol8xdunSx Cti0aZP66fDhwz2bp5u2b9+uchs7dmxmN3empqNGjVIxnTt3Nm5QAlTwRx99 lNl8jB06dEg1LgP3zp07HUUuWrTIR+ett96yCpBVrfMf1Cw2ZcoUlZvz92IU Z2o6aNAgFSMjmnGDvXr1UsEDBw7MbD7G7t+/r7+499e//lX+xDbszp07L774 or6msbGxVjEyD1Er7ipVqng2TzfpVxlHjx7N7ObO1PT9999XMV27djVusH// /io4w2vOLtAPqSI0NPTMmTP6gJMnT9apU8fnzxISEmybUmFyyNu9imIK/REU EBDgQgvO1FSGaRWT4ZDdp08fFTxgwAAXUjImM3Y5rPT1evbZZzt06DA5ncz8 ixQp4mPD7ipv4sSJKkBW085cVvUeWZPKKa5mzZoqJfmkuXaBy5mafvDBByqm e/fuxg3KgayCR44c6UJKGdq6dau6nuBI0aJFe/Toof7X7opAPh76s1yhQoUa NGhg1q2306dP6/OXDs6fP9+1ppypqf5envESWOhv90ydOtW1rDK0f//+119/ 3VFBn3vuOTmXyppU/YkMH3bbkdFKv+QRcm73Us7GrGrqzqUtZ2o6a9YsFWM7 2bASHR2tglNTU11OLENpaWkyB5PKqmtcPuk3jmXirXVEf43a9pqDcuLECf1N jWxSU0nJdk3tJGdqqr/Karwq/N+fr8ht2LDBtawy5ZdffpFFjaw3Dx8+rL+t JvMilcmKFSvsbisrQavHNsyqqXxEp0+fLjnrhxVHaRtzpqaXLl1SMbKUsLt8 0MguzZ8/vwq+fPmyCyl5xKNHj0qWLKkysXuNWg4N/YRK5ifDhg1zYe3gWXPm zFEpvfrqqy604OR9meeff16FGVzF1V8Zdi2fDEmScnDJSnzJkiUGYTt27FCZ OLpDpF+jhYSEGNzlyWL68cvq2QNnOFlTWQuoMIMVin7V07p168wmkyE5+mTl orUvU32DO0Rt2rRRmTi62l+hQgUtIHfu3GfPnvV4ti7TL7ImTZqU2c2drKn+ bqOcr+yeVOUUrR+bvPTwQGRkpHoLR/fI5EDW3xzcs2ePbYyMIM8884wWIysa b6TqMlmsqT5meOHOlpM1lYGyVKlSKrJGjRpSQX3AxYsXq1evrgJkKmX7BPja tWs/+Z3BjXVjEyZMUO9SrFgx2+NLFpj6j1aTJk3stnPs2LEMD2SznDp1SuVm e6U6Q07W9H9/vuPmkz5IyaB2Nd3SpUutHlpbtGiRbQuNGzdWAbVr185sqpoz Z87oS1a+fPnPP//87t279+7dk9FcJjn6R91kDvnDDz/YbWfXrl0q7MMPP3Qt GS85f/58hp9JA87XVLz55ps+TnB0TdgjNRVyjFu9o5xgZUy0+kMp6Lp16xw1 oj+/uXA/y6vkMFG5ufD4caZqKqdTORCMH9tu2rSpowmkp2oqZD2uf0jGlhyt a9asMWhBf/90ypQp7iTjcbdu3VK5GTzR54gaBKVS//3vf53ZZNWqVVWrVrXd pVWqVDH++knLli09VVOxe/fu4OBgu9WUmXmGX8uSQ1htMmvWLDeT8aw7d+6o 3ORAyLL3vX37toxfMvOUD7lU+dChQ06u72rVquWTfo/MI2nIHGnz5s3T0sk5 WQrt5O0V/SOOVl/BMF1aWprKLS4uzux0MiA7XLupbfqjBfoHgBcuXGhuMrbU TK9evXpm52JEhmN1/2v69OnmJiPzIlVTOdLNTcaWuluUL1++GzdumJ2OQ+pi VNGiRb30zQvnxcTEqJqeOHHC3GRs6eeT/v7+MlHZu3evLNnMzsuaTOF80leU Bs+GeZWM+KdPn5aVae/evdXsvWDBggZ3Jcyyfv162+lf27Ztzc7L2rlz57p1 62biEapfvygZPmFlFv1zLBonv/ufo9h+Tzx37tym31xzRFap3bt3168Zqakt q5pWrFjR9vcDZDcyWMhgmpKSkpyc7PHvqjwBLl26JHtm9uzZsniRUTUbDqMA AABANiez6KtXr164cOHatWvZ5xFEZNadO3c2bdo0evToDh06NGjQIP53DRs2 7Ny586RJk7Zv386K6XEhx+OUKVMaN26s6hgXFxsbExkbHR4bExUXF6f+vEWL FgsWLLh586bZKcMhOa9+9tlnWjWldjHhwRF1q4XWLlf/b8Xr/+0F7RXiWyLM 76WI4OoxkfW1yrZs2dL2t+QhO5Cxsm/fvlo1o0IDQmuXVXUM9S2eWLdM05Cy CUGl1R/KK8z/5ejwYK2yo0aNSktLM7sT+IOcb2XclNLERkeE+b+ilUyKOK6b 78ZxIT98GnfkswTt9f282NWf1BvR8a+qvuF1qsTFxsi28pGQUdjsrsDi+vXr HTt2lKLI6TSkZikpkxyVCwYHHkqNV6W0fR1YEDe5Z61o/5KWA7l2WfkwSAsD Bgxg4mS6R48eDR48+LeC+loK1KnBq9/Njjaopv61dUp4i7BylrLWKiPzKGln 2rRpZvcpp1uxYoXllBsTGVLTci7t27LKj4aHp+1r79yYDvGW03WoX3mZIUtr LnxhDZ5y48aNZs2aSRXCAipKUaQ0+qHT+dfu2dFv1ntRWpD5sLTWqVMnLk2Y Zf78+VKC6LAgKUdcYKlvZzl7yrV9bRofGlZTljzFY6PCpM0tW7aY3bmcSA6l Vq1aWQ5S/5elpjP61Ha5oNpr6DvVLIdq0GvaHNjs/uVEu3fvtkyNokKlEPGB pWQe62ZNv54eGeJbPMS3hLa0sfrKJ7LAnDlzZM9H1vOVmg5rW83NgmqvjgmW yZKczKXlTZs2md3FHGfgwIHps6MKUoXFw4M8UtMJ3X3VTMn07yPkQG3atJE9 H1rLMl/dNjXCIzX9/P/qWq4ZBlSQlocMGWJ2F3OcN998U/a8DH9SBfcH0yO/ z34tNfV7SVru1auX2V3McRITE2XPa/dcjC8DOv/6cmKYdvFBWs7w9zfC45o3 b55+nFou8O6ZG+ORmq4bXV+7X8NyxhRdu3a1jKd+5aUKG8eFeKSm8wYFaHdq pOVPPvnE7C7mOCNHjpQ9Hx70mlRhutsXHLTXkDaWyw6R9WpKy9nw68xPvFWr VsmejwoN0O7FuF9QGZQT65aR1mIiQ6TlvXv3mt3FHOf8+fOWpxpiY2TqG+Jb /D+TwtysqSxy0++llpNmZbDmRqop+vfvL/s/ou7rUoueTSu5U9AfU+PfirAM zVEhftJmdvsdPjnHzp07f7t5mn43/NP3A12u6ah3a2gPPMTFxTZo0ODcuXNm dy7n6tevn2VUDfGzzG1ql3BtArxwSJ30Z5OKx0S8Ia1lt79QLKc5depUo0aN 1AQ4vk7pNaPqZaqg8wcHRtQqkT7d9ZV2kpKSeOLXdOvWrdMezA4PtDztEFaz uCxtDi/M+MrSgQVxH3Worj09qF23T0xM9OrfzQ3npaSkaE/2RtStptUoKbL8 omFBjh5l2T8vdlY/P+15FTnlagvShISEf//732Z3BX9ITU3Vnr6ODgsKrVVG q2xcYKk+zStP6lEz9f3Afw4PWjA4cFw33+5vVozyK/nb49x+5bUH8uUI/fLL L83uBKxt27ZNuwgs5+Go+n7aZUNHrzD/V6LD6mhfn2nbtu2PP/5odvqw7+rV q2PHjlVfZIuNDo8K8ZexMrxOlfDASjKPigyuER0aqD3KKxo3bjxnzpxs+FvI YOXs2bMzZ87UnkBzpH379nK6ls+A2ckiEx49enTs2LG1a9cmJyfLwfvxxx+P Hz9+7ty5GzdudPL3ISMr/T+nsRUR "], {{0, 609.}, {78., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{39., Automatic}, ImageSizeRaw->{78., 609.}, PlotRange->{{0, 78.}, {0, 609.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7985673907801867`*^9}, CellLabel->"Out[38]=", CellID->455735240] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031726], Cell[TextData[{ "Generate the causal connection graph for a \[OpenCurlyDoubleQuote]black \ hole\[CloseCurlyDoubleQuote], where the future of ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "1 contains the future of ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "2, but not the other way around:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.79897715075463*^9, 3.798977162675696*^9}, { 3.798977240237167*^9, 3.798977265977351*^9}, {3.800293914521483*^9, 3.8002939407727413`*^9}}, CellID->413773499], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a1", "\[Rule]", "b1"}], ",", RowBox[{"a1", "\[Rule]", "b2"}], ",", RowBox[{"a2", "\[Rule]", "b2"}]}], "}"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[28]:=", CellID->932462749], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{$CellContext`a1, $CellContext`b1, $CellContext`b2, \ $CellContext`a2}, {{{1, 2}, {1, 3}, {4, 3}}, Null}, { ImageSize -> 100, VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{0., 1.}, {0., 0.}}, 0.01273], ArrowBox[{{0., 1.}, {1., 0.}}, 0.01273], ArrowBox[{{1., 1.}, {1., 0.}}, 0.01273]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0., 1.}, 0.01273], InsetBox["a1", Offset[{2, 2}, {0.01273, 1.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0., 0.}, 0.01273], InsetBox["b1", Offset[{2, 2}, {0.01273, 0.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.01273], InsetBox["b2", Offset[{2, 2}, {1.01273, 0.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 1.}, 0.01273], InsetBox["a2", Offset[{2, 2}, {1.01273, 1.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->100]], "Output", TaggingRules->{}, CellChangeTimes->{{3.798977046466969*^9, 3.798977071298914*^9}}, CellLabel->"Out[28]=", CellID->781399318] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/db15497b-6819-4b98-8f25-431c838f3ec4/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CausalConnectionGraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CausalConnectionGraph"], BoxID -> "CausalConnectionGraph", Selectable->False], "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79897705642037*^9, 3.798977067774365*^9}}, CellLabel->"In[29]:=", CellID->326532586], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3QtUVOXaB3DESEux1irzguk53tK0UlAwKG0EhGFQBFFRQxcouLwh4nGp xdKyKCPqE7kJGl4OpJ3zpYFKjGQJgqAIcjRRRD0iisBBkVvcx/PObH3Pbm7M jMzebPz/1pPLmHfv/exX1pr/2te/+q718Dc1MTFZ35v84eGzURQU5LN5zsvk f+YGrF+xPMBvmTjgb37L/YKm+PYkP/Qi//2F/EX+90cAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAARtPc3HzkyJEtW7asXr161apVhw8f5mzTxcXFZ8+e PXfunEwmU/30xo0bK1euJF1t3Lhx79699+/f56wxAACAZwr3YaClpaWoqKig oKCurk7LMIGGgZycHAsLCxMWb29vbjZdUlJibm7ObJTMnuoAqVTKbmzgwIFJ SUnc9AYAAPDs4DIM/Pbbb66uriNGjOjZsyfd3JAhQ+zt7ePi4lSPtwgxDFRV VZE+Tf6Mm3zV1tbm6OhIN6pLvmJkZmZy0B4AAMAzgrMwcO3aNTc3N9VvdjZr a+u8vDz2UkIMA998841Sw+bm5oGBgcbebnt7++LFi9nbVZuvzp079+KLLyp1 OHv2bGO3BwAA8OzgJgyUl5cPGDBAe7hi9OzZMyMjgy4oxDAgEoloq76+vmTf OdhoY2Ojj4+P0kSpzVeMmpqa6OjoPn36MCNNTU21n6gFAAAA3XEQBmQyGfuk FTFq1Kjt27cfPXpUKpWGh4dbWVmxPx02bBj59mevQVhh4LXXXmP67NevX319 PQdbPH369BtvvKEaVrXkK4a/vz8dfOnSJQ5aBQAAeBZwEAZINGJ/6QcGBjY2 NrIHtLW1hYaGssf4+fmprkcQYYCESRL/mCatra2NvTmSM1evXt2jRw/VcKVL vjpw4AAdTOKusbsFAAB4FnATBpycnOiXuEgk0jRs2bJldNjgwYNVBwgiDJCM Spt0dXU16rakUumwYcPUJisd89WPP/5IB5PpNWq3AAAAzwgOwkBra2vfvn11 Oe5UVVXFzgaqZyoFEQZqa2tpk15eXroscvfu3ZMnT0ZFRQUEBHh6enp7e69d u5bsYFFRkfYFlcJV7969o6Oj2ScKO8xXJKbSwfHx8bruJAAAAGjGQRjIycmh mzA3N9e+8qFDh9LBqampSp8KIgywp1T7bZgymWzv3r2DBg3SfPzJxMbGJj09 XdMa2Plq3LhxTHbVK18lJSXRwbGxsYbtMgAAALBxEAby8vJ8fHycnJzGjx8v Fou199O/f3+6tl9++UXpU0GEAfYhwaVLl2oaRpKPtbW1lsmknnvuuZ9++knt Sph8Rf6MiYlpbm5mfmhwvoqIiDB4rwEAAIDiMgx06ObNm3Q9PXr0qK6uVhog iDDw8OFD2uTq1avVjmltbSVpkz1vpqamw4cPt7W1nThx4ssvv6w0q2PHjlX7 ppsPP/xwz549LS0t7B/qla+OHz9OB4eGhhq81wAAAEBxGQY65OfnR1cyevRo 1QGCCANlZWW0yQ0bNqgdQ8Ihe8YWL15MsiV7QFpamqWlJXuM7tfz65WvyIbo 4E8++UTHTQAAAIAWvIcBqqCggN7JaKLhYJogwkBWVhZtMiwsTO0YkkvpGA8P D7VxtKamhv3SoqCgIB0b0CtfXb58mQ5etGiRjpsAAAAALXgPA4yKioqRI0fS xc3MzIqLi1WHCSIMREZG0ibVvib77t277CxaWFioaVWbNm2iw5YsWaJjA3rl q/r6evrsrLFjx+q4CQAAANCC9zDwSHGNvdLhr+DgYLUjBREG2PuiNiU2Njam paXt2rVrg4KWVe3evZuuasGCBTo2oFe+ImxtbZnBpqamSi9/BAAAAAPwHgbq 6urYL+ghHB0d29vbNY3v4mHgo48+ojsyZcoUg9dTUVHxww8/SCQSura5c+fq uKy++So8PJyOHzNmDDcv9AEAAOiueA8DZWVl7JOPBMl7Dx480LJI1wwDtbW1 69atY79FkcQ/3S9Cu3XrFhm8Y8eOFStW2NvbDxkyRPV9N8bLV83NzeyY3bdv 31mzZmVmZuq4OQAAAHjUZcLA5cuXlR4/3mG4etRVw0BJSQl7R3r16rV///4O lyotLV2/fv0rr7xiogPj5SuiuLhY6RbRkJAQHTcHAAAAj7pGGDh16pTSgx3s 7Ow6DFeMLhgGlKZUl2fLb9++3czMTMscktBL/mm4yVePFA8fY+dk3qcUAABA WHgPA4mJic8//zx78Tlz5jQ2Nuq+C10tDChNKent448/1jKefa0am4WFhVgs 3rhx48GDBysrK9nvszZqvsrKyjI3N2d3wvuUAgAACAu/YYB8cSudTwwMDNRy QbuqLhgGmpqaYmJiZs6cyQ6Zmp5jTzJPz5496TASTVeuXHnixImqqiqlkTt3 7qTDPD09dWxG33xFfh/69etHF7Gystq6davamx0AAABAEx7DQEBAADsXkbWF h4fr1XwXDwPfffcd7W3kyJFqx8TFxdEx5J/g+PHjmtbGfuSFh4eHjj3om6+C g4PpeJFIpFfWBQAAACUch4ENGzaww1WfPn2Sk5P17bnrhwFnZ2faYX5+vuqA hQsX0gGurq5aVjVp0iQ60s3NTccG9M1Xo0aNYgabmZnduXNHx60AAACAJpyF gW+//ZYdrvr372/Y06u6fhhgP0Fi586dqgPee+89OmDt2rWa1nPkyBH2jInF Yh0b0Ctftba20uOTlpaWOm4CAAAAtOAmDOTm5rIvjx88ePDVq1cN6FYQYSAj I4Puqdr3BPn7+9MBJC42NDSojsnKynr11VfZUzp16lQdG9ArX12/fp0O9vPz 03ETAAAAoAUHYUAmk7311lv0IxK0zpw5Y1i3gggDt27dok0uXLhQdUBsbCx7 ruzt7a9cuUI/vXbt2vr161Xv1hw3bpyODeiVr0j0pYM/++wz3XcTAAAANOEg DBw+fFjp0zG6+fnnn5WaEUQYuHfvHm1S7XX+9fX17AhkoriF08LC4p133hkw YAD75y+88AL9O5lk1XsK1NIrX7EDtqYXfAMAAIBeOAgDHh4eJgZRfeqpIMLA gwcPaJOzZ89WOyY/P79v377ad3/ChAlXr161s7OjP4mJidGlAb3yVVpaGh0c GRmp994CAACACg7CgFI8051qvhJEGKirq6NNuru7axpWVla2dOlSU1NTpb3u 1avX5MmTExMTmVsjP/30U/rRnDlzdGng7bffZsaTJFxaWqp9cEpKCl3/7t27 9dpTAAAAUIuDMPDSSy8Zlq8OHTqk1IYgwkBDQwNtssOHVlVVVWVnZyckJISG hpL9LSwsbG1t5aZPRnJyMu123759XG4aAACgu0IY6HRNTU20SYlEwnc7HSD/ mrRbkpP5bgcAAKA7QBgwBno6ddq0aXz30oGwsDA6pSdPnuS7HQAAgG4CYaDT jR8/nmmyd+/eNTU1fLejjVgsplN68+ZNvtsBAADoJhAGOh37lkkbG5ukpKSC goI//viD774ea29vLykpyc3NDQoKou/a7tOnD8dnewEAALoxhIFOl5qaaqLC x8eH774eY9+GSa1atYrvvgAAALoPhAFjsLKyUurZ29ub76Yek0qlSr2ZmZkV Fxfz3RcAAEC3gjDQ6erq6tasWcN+okWXndLRo0erPiofAAAAnhLCgJGUlJQk JSXt3bs3Li7O4LcudrrKykrSz549exITE3Nzc7vymVYAAAChQxgAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgS3Pt/YvxG279srf6en5b SxPf7QDXqqury8vLu/jbrgEAAATn+rHIrG2upLJD3C/t31yacai29IqsvZ3v vtRAGOgUra2tUqk0ODjY09PT9QkvL6+QkJCsrCy+uwMAAOgO/qi6k7VtJhOx aOV8Ne/Koc/KziY3VJbw2x4JA6mpqUphYMGCBSQMZGdn89ubEGVmZi5dupTO pMRF7OLsSP6kPwkICPj999/5bhMAAEDwCg9uU8pX7Mr91vva4bCKC2lNDys5 biw9Pd3X11dLGAgMDCwsLOS4K4Fqb2/fs2cPM2/iGdMd7caJrCw+mPgaU9Mn ve74/ttkesmnbm5uR48e5btfAAAAYXv474ta8hW78iL9bxyPqirMamkw7kk6 EgZiY2OfhAGRchiYPJQdBlJSUozaTPcQHR0tz6gSF0e78XQmxTaD5kx7fYb1 IOZ/RZYDZ0yzlEgkZGRycjLfLQMAAAjbhegVOkasJzWzIG6t/ML4G/ntRrgw PiIi4kkYGKc9DDAZDBFLO6lUyhwAtLcZQaZuxuSBX/i/kx7hcO37mUyd+Ea0 +cM3p1sOIJ862L1JIhYJrpcuXeK7cQAAAAG7m31Ez3z1v8oOcf+9Uy+MJ2Hp SRgYLg8D1oO+XD4hgxUGUsNEmxa9KVKEAUe7N5mjWDhRqElDQ8PChQvJLDnY jiUzRjLqb+H2dDLZ9dMXU12mDJbP+dSJZPyaNWtkMhnf7QMAAAhVS331mc9m GRyx2BfGFx7cVpaT1FBxy7BO6uvrvby8FGFgDPminysayj7Mwq7Dn78vtpEf y2KOYgUGBnbunHQbBw8elJ9mdXifOQaYoWE+acSSH8WyHOji7ECWOn36dFVh ZnleKgqFQqFQKAMq56v5mZ+4PH3EonXumw+LDn9dnn+iqbpC9zCQkJBAvtad FWFA8u7gzChHLWGARCyR5QCRPAzIr8XCHYVq+fv7k8mxnzKKTGlE4CQt88nU x4vl52Qd33uLLLVt27YLMSs78bcChUKhUKhnqk6um3R6i5ORVp4X4Xf9WGRV YWaHF8YzNwzaTxlJvuKjgyZ3GAY2LXpTHgbef5ssFRISwk1iEZD79+8rTrY6 fzBxgMOkgQXx4g6n9Jf/m664o3AIWXDevHnIVygUCoVCGVzpH4mMl69YNbMg NuDfafHV1/NUL4yvqKiQhwGxPAw4Thp4cZ9Lh2EgNUzE3FHIPBeLlwzTlV28 eFFxD+YHZJZ8XIZ3OJ9MMSdemUdhpIf58v7LiUKhUCiUUOtTF07y1f/qzOez L+3bdDv9YM3tQubC+Pz8fHkYcJxGvtyXuY7QMQwwdxQyYQBPd1eSk5MjP99q b0emaK3nGzpO6TzRUDKeuQRL+uVi/n85USgUCoUSbGV/4c7XpnO2zy1ODv9N eoyGgXXzxugYBuZMe10RBuSXYJWXl/OdaLoWwyKrq638aWMSsRNZ9tevfXj/ zUShUCgUSqj1qSRzqzPHG2Veengn85/1ZddJGMjNzVWEganky335rJEGnMyq rq7mO9F0LWVlZWRaXMQzyBQ52wwq/Lukw/nMinaUP17MajBZ0N3dPS9K32ej oVAoFAqFelwZH0/n7PzghegVN1PjHlzLbfvzJVilpaU0DLhMGXwlwbXDMJAR 4aAIAxZkQU9PT75iTFfm7e0tv2XA+q9kov4e/G6HUxq6YgLzlFGy1KZNm3B9 OwqFQqFQBpdR7x8kdS5sUdH/f1Wef6K5pkpTEpDJZMyTMKdb/4V8xSduse0w DHy5fILiKaPjyFLBwcFc5hah2LVrF5kcp+lTmIeLXtB6C2FGpIOT4no2EnLJ UseOHbt96vvrxyJRKBQKhUIZUJlbnTK3ijs3UzFXsJee/qHu7jUdnwQeFRUl DwMiG+bhotqfJ5Ae4TBj8kBFGBCRpVJTU42dVYSosrLS3d1dIpEwz8Nf5jpC U8Q6EzNj/vSh9ODVkiVLmpub+W4fAABAqFoaas587tZZsSovcvmNn3fdLzrb 1tyobyfl5eWPw4DifNbyWSM1RazMKMe5itvcmINXvr6+ra2txpicbmD//v3M idfpk4YwR7ESgt9lX4t1aZ/LrvWTJe/KX45DZp65mO3XX3/lu3EAAAABu3c+ 5Skz1dmvF1z955fl+dKmmv88ZTPx8fFMGBApwgAJUYlbbNnXYl3c5xId9CQM 2AyXSFzI+IyMjE6Zim6pvb09ODiYmVXmKBbzrhwSX9fNG7PMdYTjpIHMDx3e fYMJV1FRUXx3DQAAIGwX4/9m6Om/jaUZh+ruFHXii4Db2to2b978OAwojmIx l7urCQO2Y5gwEBsb21lb767q6+uZiCWRSJxENnRin9QAe5sRzg7vuSrs2LGD /Cvw3TIAAICANfynVM/Tf/43UmIeFJ1ta/rDSC3V1dUxEYsJA8zl7n8KA1NG Oju8z4SBiIiIdsXjSUE7Mkv79+93d3dn5o3EV7HjVGd7O7HjNOZRV8T8+fOP HTvGd6cAAACCdzM1ruPTf6FeV//xxb3zP+v1suan0dbWFh8fryEMODM/9PLy SklJ4aafbqOioiI6OnrRokWuf+br63vgwIHa2lq+GwQAABC89pZmkp00nP5z uxi/4fap72tLr8h4OkBUXl4eFRXFPLRBKQwkJCTU19fz0lX3UFpaev78+ays rPz8fDz3HgAAoBNVXEhTilXndy67cTz6/tVs453+05dMJiNhIDc3lwkDFRUc HUMDAAAAMMC/dgeSTJXz1fyr/wi5dz6lqRrHMQAAAAAM1/Sw8vapxJrbhXyd /gMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAeEr/BcjECuM= "], {{0, 44.}, {400., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{200., Automatic}, ImageSizeRaw->{400., 44.}, PlotRange->{{0, 400.}, {0, 44.}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.798977060878339*^9, 3.798977073267035*^9}}, CellLabel->"Out[29]=", CellID->956743912] }, Open ]] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031727] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Cases with undirected edges:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7979745777817907`*^9, 3.7979745897581043`*^9}}, CellID->351228799], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "a"}], ",", RowBox[{"1", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "c"}]}], "}"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.798924951296427*^9, 3.798924951664407*^9}}, CellID->798710134], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ 1, $CellContext`a, $CellContext`b, 2, $CellContext`c}, {{{1, 2}, {1, 3}, {4, 3}, {4, 5}}, Null}, {VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{0., 1.}, {0., 0.}}, 0.02261146496815286], ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {2., 0.}}, 0.02261146496815286]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], InsetBox["1", Offset[{2, 2}, {0.02261146496815286, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0., 0.}, 0.02261146496815286], InsetBox["a", Offset[{2, 2}, {0.02261146496815286, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], InsetBox["b", Offset[{2, 2}, {1.0226114649681528, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 1.}, 0.02261146496815286], InsetBox["2", Offset[{2, 2}, {2.022611464968153, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 0.}, 0.02261146496815286], InsetBox["c", Offset[{2, 2}, {2.022611464968153, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{3.797974599689087*^9, 3.798567264902845*^9, 3.7989249533794045`*^9}, CellID->531288684] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/db15497b-6819-4b98-8f25-431c838f3ec4/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CausalConnectionGraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CausalConnectionGraph"], BoxID -> "CausalConnectionGraph", Selectable->False], "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "\"\\"", ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.797974612267605*^9, {3.79892495547538*^9, 3.7989249558164115`*^9}}, CellID->893111481], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3XtQlXUex3HQtXGmnPzHQHOlVoVUQDncr3IO58LhQKSsrLasRxFQKZEw 12EiFjHL8TZeUTE3NWDNnXF2zDTSNi+riSzq4ormJcvGlhzHImaQFM/u7+Fp TgdEBXb0xzm8X/PJKXoe5/vl/PP7zu/5Pef59LkTs/q4ubnN6y/+mDh9gTYv b3p+ykDxH5Ny5s2emZOZYc55PXNmZl5Yel/xwwzxT9Cv3NyUf/8vAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOd3+/btL7744vTp042NjbJrAQAAANAp Fy9erKqqOnHihM1mk13L/+uzzz5LTEwcPnx4377Kq49VQ4cOjYuLKy0tdYEG AQAAAFf19ddfDxgwQF3DX758WXY53XfhwoXk5GS3BwoJCampqZFdKQAAAID2 WlpaDAaDfenuvLNJfX29h4fHgwcTVd++fQ8fPiy7XgAAAAC/uHv37tSpUx3X 7U46m9hsNscJSxg5cuSSJUs+/PDDysrK1atXBwYGOv5fLy+vhoYG2VUDAAAA UNy6dWv69Ont9hScdDYpKSlx7CI3N1d053hBS0vL0qVLHa/JzMyUVS0AAAAA uyNHjvj4+Nz7vJOTziYmk8neglarvd9lGRkZ9suGDBnyOCsEAAAA0E5jY+Or r77q7u7e4VkMZ5xN7ty589RTT9lbOHPmzP2uvHHjhmOz9fX1j7NOAAAAAHaV lZVeXl4dTiXOO5scP37cXv+AAQMefPGwYcPsF3/88cePp0IAAAAA7bQbTPr3 719SUuL4cJczziY1NTXTp083mUy+vr5ms/nBFw8aNMje7IEDBx5PhQAAAADa cZxNxowZoz7+5OyzSed9+eWX9k7d3d2///572RUBAAAAvZQ6m4g/N2zY8NNP P6k/7D2zSWZmpr1Tb29v2eUAAAAAvVdaWtq77757+/Ztxx/2ktnk9OnTffr0 sXc6Y8YM2RUBAAAAaKM3zCbffffdiBEj7G3269fv4sWLsosCAAAA0IbLzyY/ /vijRqNxfAlAQUGB7KIAAAAAtOfas0ljY6NWq3UcTAwGw927d2XXBQAAAKA9 F55Nvv3224CAAMfBRKPR3Lx5U3ZdAAAAADrgqrPJ2bNn232fC4MJAAAA0JO5 5Gxy8ODBgQMHOg4mkZGRDCYAAABAT+Z6s0l5efkTTzzhOJikpKTcunVLdl0A AAAAHsTFZpPFixe7u7s7Dia5ubkcfgcAAAB6PleaTXJychynkj59+qxevVp2 UQAAAAA6xWVmk/nz5zsOJk8++eTu3btlFwUAAACgs1xjNlm5cqXjYDJo0KCa mhrZRQEAAADoAheYTaqrq/v162fvYsiQIefPn5ddFAAAAICucfbZxGaz+fn5 2VsQQ8qxY8dkFwUAAACgy5x9Ntm1a5dbWy90zr59+2TXDgAAAOAXzj6bTJw4 0a1btm3bJrt2AAAAAL9w9tnEsX5mEwAAAMB5Ofts8vTTT3dvNtmxY4fs2gEA AAD8wt/fX12ru7u7f/PNN7LLAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAncO7cufLy8qKiotmzZ0+bNi0zM3PBggUlJSVHjx5tbm6WXR0A AACAn9lsttra2q1btxYWFs6aNUus3rOysvLz80tLS6uqqu7cuSO7wG4SfR04 cEB0lHh/qampW7ZsaWhokF0sAAAA0Ku1tLTs2bMnPT39Aav3l19+uaKioqmp SXaxXXP9+vV58+apLSSYjcbYIH24jy7YSxc0VBc8LC5shDF6rNkYq14wZcqU Y8eOyS4ZAAAA6KWuXr2anZ398+o9Xm8cr9GHezus3kcaY8aZjVr1AqvVWltb K7vkzqqrq0tLS1OnEkOkb2yAR2zAMx0mLvQ3ZkOMuDIpKWnHjh2yCwcAAAB6 nerq6tTUVHUq0UeMut/SXVm9h41QJ5Tk5OS9e/fKLvzhLl26lJKSIgqO10dp NYNFC/ogz9xJPu/lh1Wu0B7faPz76ri/FkctTPdLjhqq9miI9rdYLOKWsrIy 2eUDAAAAvcjJkyfFoCGW4iZdmFbjKRbnxpDB86eMKisI379SJ1bvn66K+6Ao ssDqawkfoq7ejeM16gZKDx9Pbt68abValda0oep2ydxJPv9Yb7hQkXRv/r0t YVVOoCFI+Q3ow73V8eTIkSOymwAAAAB6hWvXrk2ePFkswsW4oc4d+WmjT5Sa Oly9n/6z+Z2Z43QaZZFviByt7p705Ie7iouLRZFmQ4w6mIjRo8O+HLNvWeyL kc8qDUb5qafjxYAjuw8AAADAxdlstry8POV5p7gI5XmtQI8tC0Ifunrf9Va0 OXSwfffEarX2zKPxZ86cEeVZEszaQOVhraWzxz20NTWfrNAag5Xdk3h9lPgb 1q9fL7sVAAAAwMUdOnSo9YS4ST2Isen1kE6u3sV4ou6eqGdPKioqZLfSAXXT xBij7AfNsAzvZGtqSvKCxV264OcsFsuECRMaGxtldwMAAAC4stzcXLF6N0T5 iXV47iSfLq3e35k5Tj0ar75YuKd974mYJpKTky2WBG2gckZm79LYLnVX977l t7G/Fjdqg721IX7vvTXn8r6NhBBCCCGEkEeRY2VLxKpbGzwmNsBDp/E4vFbf pdX7v94zq0fj1a2Tqqoq2eNIG59//rly0kQfLSr8nW5Yl1pTszw7QNwb4/dM hPczsw0vHC1OJIQQQgghhDyKLEsLFqvuqNHK+ffMpK498qSmwOqrnDqJGSem gNLSUtnjSBsVFRX2A/6LMvy70d2+ZbHi3vFjldnkpWAv6Z8XIYQQQgghrpp5 Fl+x6o7xVWaTNXMf/gKre/NBUWTrY10jxRSQn58vexxpY+3atcrjapFjRIUb 5gV3o7t/bo5XXlw2TplNtGMGS/+8CCGEEEIIcdXM0Hors4m/MpuUF0Z0Y/X+ 6aq41gPjw8QUkJWVJXscaWP58uWiKvV7JLe/Ed6N7uret6gvVRa/pegXPKR/ XoQQQgghhLhqrDEjxKp7fOts8re3Y7qxej++0ajMJkFDxRQwbdo02eNIG+vW rWs95q88dbbutaBudHei1GTfN9Gxb0IIIYQQQsgjS6bOR9k38VNmk7KC7uws 7F+pa9038RJTwKxZs2SPI23s3Lmz9bxJoKjwTatvN7rbvWS8/bxJSuhz0j8v QgghhBBCXDV/fNFPeVqp9bzJ8uyAbqzexUQj7tWHe4spoLCwUPY40kZNTY3y ni6jcp79peih3ejurQx/ca/4/YjfUk78aOmfFyGEEEIIIa6aVdZQ+3u6ppqe 78bqff6UUfZvh9+6davscaSN5ubmlJQUi8WiC1K+pmTnwqgutVa7NSEp8lnl pH+4vz4qeNfGJf85sYcQQgghhBDyKHL2kwpDdIg+Mig2wFMswvct69q3E54o NRlDlG+TT4jXi9mktrZW9jjS3ooVK0RhJm2IKHJynNfZ7ZbOd+f4zZKpqali 0pHdDQAAAODKCgoKlEMZMcqXDGYkDj9fltj51Xt+2mjlga6IUeJvSE9Pt9ls srtp78qVK0lJScrWSbCXKHXB70d3srWdxVFajUdsgIfZGCu62759u+xWAAAA ABd36tQpsfa2JJi1gUPF6v3trLGdXL1vWRAqrtdqPNVNkz179shupWPqt5wk mOK0GmWLR8xTde8/ZPek/M0IY7Bn67NqgeJeq9Xa1NQkuw8AAADA9RUXFytn xg3jYzWe6njy0N2TTa+HxAV6iItNujBxb3Z2dktLi+w+Otbc3DxnzhxRZLw+ Wh1P/mB87n4vTD6+0ahuBokYovzEXRMmTKirq5PdBAAAANArNDQ0pKenK6t3 Xbg6nmQkDr/f2ZPDa/W5k3zU1bt6BD41NfXq1auym3iQ69evp6WlKfOXSacL HqYWP0XvtWTWuO1vhIs55S9/ilz3WlD2SyP1QZ7qZpApNiSx1f79+2WXDwAA APQiV65cESOGunuiPtylvrlreXZAWYGyei8vjFgzNzAzabhOOYUhVu+D4+Mi xPXJycnV1dWyy3+4+vr6V155RXl6zZJgjA3SBg5Re7wnHvrI0QnxBnFlSkrK 4cOHZRcOAAAA9DpiPFF3TywJZmNMgPr4073RajwNUX4JZpO4cvLkySdPnpRd eGc1NTWpr+1SJ5R4fZQxeqw+3CcubERcmLchytekDVX7Up9Su3TpkuySAQAA gF6qoaFBPXuiTijxcZGGaH919a4PF6t3P5MuTCzq1Qvy8vKuXbsmu+QuO3fu 3KJFi5KTkxPvQ0wllZWVPfb4DAAAANB7nDp1qqCgICkp6X6r99zc3EOHDvXA NwZ33g8//HDw4MHNmzcvXrxYNFtUVLRmzZrdu3d/9dVXsksDAAAA0MaNGzf2 79+/adOmRYsWidX7woUL169f/9FHHznjXgkAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6rf8B5Cb6Jg== "], {{0, 50.}, {538., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538., 50.}, PlotRange->{{0, 538.}, {0, 50.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.797974613059575*^9, 3.798567276512628*^9, 3.7989249570353756`*^9}, CellID->657234658] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031728], Cell["Another example:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7989758096068487`*^9, 3.798975821850294*^9}}, CellID->730134774], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "a"}], ",", RowBox[{"1", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "c"}], ",", RowBox[{"3", "\[Rule]", "b"}], ",", RowBox[{"3", "\[Rule]", "c"}]}], "}"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.798924888381378*^9, 3.7989248901584067`*^9}}, CellID->231566424], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ 1, $CellContext`a, $CellContext`b, 2, $CellContext`c, 3}, {{{1, 2}, {1, 3}, {4, 3}, {4, 5}, {6, 3}, {6, 5}}, Null}, { VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{0., 1.}, {0., 0.}}, 0.02261146496815286], ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{1., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{1., 1.}, {2., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {2., 0.}}, 0.02261146496815286]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], InsetBox["1", Offset[{2, 2}, {0.02261146496815286, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0., 0.}, 0.02261146496815286], InsetBox["a", Offset[{2, 2}, {0.02261146496815286, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], InsetBox["b", Offset[{2, 2}, {1.0226114649681528, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 1.}, 0.02261146496815286], InsetBox["2", Offset[{2, 2}, {1.0226114649681528, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 0.}, 0.02261146496815286], InsetBox["c", Offset[{2, 2}, {2.022611464968153, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 1.}, 0.02261146496815286], InsetBox["3", Offset[{2, 2}, {2.022611464968153, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{3.797974659636467*^9, 3.7985672976569033`*^9, 3.7989248933503733`*^9}, CellID->891045156] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CausalConnectionGraph", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/db15497b-6819-4b98-8f25-431c838f3ec4/"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CausalConnectionGraph"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CausalConnectionGraph"], BoxID -> "CausalConnectionGraph", Selectable->False], "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "\"\\"", ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.797974670775976*^9, {3.7989249032924166`*^9, 3.798924903838376*^9}}, CellID->378527014], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs3Qtc0+e9P/Bt3eXc9j87l6092znr2f1yurOu9851rbVWrfVaq1arVmtt rbVarbWu1toiIqgIoiCgCIKIIooggghyEciFhBBCQhKSQBIIISGEkIRcSHL+ zy+xjFmDiEl+BD7v1zNf28TwPM/vl1++3/x+z/P9yZpNC9d942tf+9rWvyN/ LFy9feqWLat3vPI98j9efX/r+rfff2vtrPc/fOvtt7Y8teY+8n/++Ztf+9pj 5D/Uf/8/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDT3oNNpMTr6DaRR/8VM Naelz2k1kTY40D84YHbZLIPe5rJbXfYBqjlsbqfd5bS7nQ6qDTo9rkG3a9Dj dnncbqp50T04AAAAAACgAckLSDZhN2otWkVfu8AgYemaKrrqi9Q1ucryDPmV JOnFgy05Ec0ZO3jJGzmH17IPLK/bM6/2i5dD1eaQX/dlm8+IXFAXuYCxdyEj 6hVm1CKGtzH3vcqMXuxtS1gxS5kxS1n7X/O2ZaS3VDv4en3sCvbBFfWxK6l2 aBXV4t7gxK3mxK+h2uE3SeMmrCUD5Ca8xT2yztvebjj6Dmm8xPUNiet5Se/y kjZQ7dh7jckbSeNRf77fmLKJf3yL8PQuyfloedHR9rJ0MnVdnCv65mqjvMHc IRno6SCJG8nC6D7UAAAAAAAh4nG7XTaLvU9n0baZlEJjK0cvqOriFHfU5imv ZyqKk6X5seJzkc2ZnzSmbiaxN4nYSZwfwixjsjcy2yQzImlOU9o2UfZuyYX9 JPVTXj9FDpC24WqPqKZP0WjWtNoMGpItkpyR7hMKAAAAAOD/PB6Pyz5gN+mt OmW/usUo4+qFN0j42sm4qKo8rShJaS2IF+dGNWfu5B/fwktcTyJeRtQi2mNv tMA2ckzr497gJW0QpG8XnflCevEgSTCVFVnkNOjmXetpqetra7J0yW29WpKT ksyU7tMWAAAAAMY7t9Pu6DdY9Wpzh8Qo5/WIaklgqWFeUlWdaSs9IStMEJ/f J8za1ZS2jZf0LolFmdGLa7+YQ3tgjBZubQ45czjxa3jJG5szdrSc3SPNP6S4 mqqqzNawCnT8coOYaVI2W7Rt9j4dyXzpflsAAAAAwL0iiYbNoDFrWvsUfIOY QUI+DbtQVZ3TXnZSXnRUkhcjzN4tOPkR79h7JEpkxSwN7dIMNLTRtrqIucyY pZzDa/mpm5szPxGf29taEE+SZXIyd7Ev65oqeqVsk0pk1SlJZk1Oe7rfeQAA AACTlMfttpv0JDDTN1d31OYpio+JciIak99n7X+N9pASDY2WRrJs9oHl3CPr qIX/WZ+Kz++TFSaQlLzDt/BfUNXbyulXi+19OjxdBgAAADAGgwNmq7bNIGFp 2JdJlCW5sF9w8iNO3Grc7EBDG3Mjbx9uwtrmU39pvRSnqszubiwztQtsvVqs 7gcAAABwDzptBk2fgk9iJHV1jqwwQXh6V0Pieiwev7f4cz5r/zJqJ97Yld69 eVewD75ONe+eveSvWPtfo/byjVnKjF7ibd49fve9Sm35S238+wq1D/DehdSG wJELyKvd3CU4Yq53rQ2W20zARg4uSfwF6dulFw+qKrK0DVf7FI02Qyd5h9J9 kQAAAAAIJI/H4zD3mjskPaLaTsZFRUlKy9nIxtTNJFqmPSQb541kBCSDoNZQ H3uPxI3C7N2SvBhvnY6TquocDbtQxy/vaWGQ5M6ikZEsz2E2hjKYpGox+soy UvUZXVShRtcg6YDb6fDWcLS7HDaq+Wo72q1UqUebZXDA7K3/2O+rBem09HlL QxrJSeKrF0k1U4/dpLf36ahm7Lb1akmzG8mfXWSY3tY50NNh1atJGyB/6lRW nZJq3e0WbZvV2yxahaVLTu2l1srRCSo17MvqG2fbrqVRWxzkRgkzd1LbNSe8 RZI13Izz3+aQDJd/Yis58ZTlGV2cK0YZl0w4FrkAAADAOEfiTxIc9rZyujjF yuunpPmxzRk7uAlr6/bMpzu+or9Rq5ujF3t3nX23KW2bMIuqBkiCZGqBc9UZ DfMStfGsqNYo55k7pSTexhrnELu5L3R3u0kppGpc8q9rWAXe7dqOtxbEk2xa kLGjMfl9zuE3qV0UqFtI9J9U9Db2geX841tIlkfSvS725V4pm8weNhkDAACA UPK4XXZjt0nZrGuq6KjJlRclCrN385I2MKOX0B4shaxRtS1iV/IS15PYrDlz JwnPSPjq3RL2dCfjorbhql54wyjj9qtbqJ2UTD0I2CaeQZuFvBEsWoWpXdDT wuhuLOtk5PsK3JCsXJQTIUjfTu0IF7d6su07TXK3xpRN4nOR5B1Bkm4yOZYu uctmofuIAQAAQBhzWk0WjcwgZmhYBW2lJ8Tn9zWlfVh/aNUE+8aYsXdhfewK 7pF1jTc3a40kgSVVRO96ZkdtXhenWC+oMrZyTErhzdoTqKMHd4+cM4MD/bbe LvKeMioae0S12obSzroL5DRTFB+TXDggOvP5zRo6h1YxJ+hiK+a+V0myJjrz hbz4GBk7mQRzp5RcZ+g+OAAAADBeuJx2q15tlPNIpKSqPN1aEC/M3EkCdRKx 0x7JjKGRvImEdo0pm6jydjkR0osH5VeSlOUZ6prcrvoivaDSIGH1tQssWoXd qCVBEfYmgvGJnJlOS5/N0Emid6OsQS+8oeWWdNSeJyezvCiRqtRz+jP+ia28 xPUks66LXED7W+9eGiPqlYbE9WREZGjkrapvru5Xtzj6DXQfBAAAAAgKX0EQ 8nHvKwgi/2tBkGW0hyVja8zoJd4vYD8nwUwHCWYElSZls93YjVwDJif3oNNh 7h3Qq8nbvLeVoxdUdXGuqG+cay87SS38P79PmPVpY/JG79Nl9L9/R5uzRC7g HlnXnLmTDEFVnaNrqjApheRShhuXAAAAYcFls/gKgnTVF7WXpVMFQdK3c+LX hOkeRCQy4Rxe25yxQ5ofq7ye2cUpJkGXVafE2g2AMXPZrZYueU8LQ8O8pLia Kj4X2ZiyiRmzlPb3++ibr0SLIGMHVaKliirR0tfWhBItAAAA9HL0G4wybkdt HgndG5M3hm1BkDn1sSv4qR+Iz+0lkVIn4+LNp9AtRronGGAScTls1CZ7UnYX +3LbtTRxbhT/+Bb2geV0Xx/uJmeJmFsf94avRIvyeqa24apRzrMZNB7XIN2z CwAAMNEM2iwmpbCLU6woPiZI/zjsNsVi7nuVeqQ8a5esMEFdnaPjl/cp+Agb AMY5t9MxoFcbZdwuzhVleYb0woGmtG31sSvDaucxqkRLU9qHkryY9rJ0b4mW BqzBBwAAGD23a9Da3a4TVJJgQHTmC078Gro/3EfV6vbMI10VpG+XXNhPxQD1 RQYJy6ptw/ahABMMuUbZDJo+RaO24aqqIkt68SD1BGnc6jB6gpR98HVh1q72 spPkSmvVKfFIGAAAwBB7n65Xyu6oySVRPS9pwzj/fGftX9aY/L4oJ0JefKyj Ns+3rw7WqAIAuQjYerWmdkF3Y5mqMrv1Ulzzqb+ERQFWRuSCxpRNpMMa5qW+ tibcWAEAgMljcKDfpGzWsC/Li442pW0bn5vnMPYu5B5ZJ8zc2VoQr6o8rW0o Ncp5Vr3ahWLlAHCXPB6P3aQ3KYW6pgr1jbOywgRh1qfjfLvy+kOrhNm728sz 9M3V5NKH714AAGBicA86LV1yHf9627U0YdYu8nlH+2fuUPMVBGlK+1B8fl9b 6QkNq8AgZlg0MnxnCACh4TD39qvF3h3Oz8uLEkXZuxsS14/DzT1IGsVP/UBW eFjDLjQpm/GoKgAAhAWPx2Pr7eppYairc0jAz0tcPx4e0KIKgiRtEGbv9hUE 8VYKQEEQABi/nFaTWdPaI6rtZFyUFx9ryYngHXtvXN1l5sSvIb1SVWSRTlI7 e3g8dM8ZAAAA9QHap+BrWAWywsP841uY9H3dR5UqSxgqCHIKBUEAYOJx2SwW rYIq0cIqUFxNbTlLlWhh7X+N9lSFXPz5J7bKLh/pqi8yqUQuu5XuqQIAgInP 7bSbO6XdvGvkM1GYuZPG/f/r9sxrSFwvPr9PXZ1DPqbtxm665wYAgDYu+4Cv RIvGV6Ll/D6qRMvB12nMVjiH3xSfi1RVZRvE5BKtpXuGAAAg7Hnc7oGejh5R jarydMvZSO6RdTTu6n9zYWZZuo5/3aJVuFEZBADgTtxOh/VmiZZiZXmGODeK c3gtLVdy5r5Xm9K2yYsSuzhX+tVil8NG99wAQIgYDAYOhyOVSgcG8CgL3B1v sfWGTsZFaf4hfupmGveQYcUs9X6KHdWwL5uUzYNYdwkAECBup71f3UJyBO9m iR/StIxlDvfIOpIrqatzeiUse5+O7lkBgAArKSmZOnXq97///a8N89BDD0VH R+v1erp7B+ORyz5APp603BJ58bHmjB00PrHMiFzAO/ae9MKBjprcXikbH1IA AKFkM2h6RLXKiixRToS33C0dN1aiFwvSt5PPI23DVXOnFBu2A4Sv9vb2l156 6Wv+kYTl4sWLdHcTaOZxu6w6pb65Wnn9VAv59Dn8Jn0PaM0hn32iM19QO+cL qrwlibFzPgDAeOGyD5iUwi72ZVlhAl2bnNRFzG04+o7kfLT6xrleab3dhG9Z AcJDf3//b37zmxESkyGZmZl0dxZCyltsvb6j9rzkwoHG5I2MyAU0ZSJUIXVB +seK4mNdnOJ+dQs2zgIACCMej2egp0MvvKG8fkp05vP6uDdo+ShhxiwVZOxQ lKR0866ZNTL3oJPuiQGAW5HLxfz584cnIA8//HBqamp1dXV+fv7GjRu/+c1v Dv3V3/3d3zU3N9PdZQiWQZuF+pqrvkhelCg4+REzegldmQhj78LGlE3S/NjO ugtGGdfRb6B7bgAAIJCoT5x2gYZV0FoQT9fixLo983hJ70ou7O+oPY/PGghf TqdTIpE0NjaazWa6+xIARUVFwxOTDz74wOX6m1pyXC73u9/97tAPrFy5kq6u QsDZDBpdU0V72UlR9m66vsWq9d525ya81XI2UklV4Kqx6tV4QAsAYFIhl32r TqUXVLWXpQvJR1LsSlo+j9gHlgszd7aVntDxy7GdI4xzFRUVL7/88s9+9rP7 7rtvKFD/z//8z2nTpqWkpIRvMdNVq1YNDefpp5++JTHxSU1NHfqZb3/72w6H I/T9hIAgF3+LRqZhXhLnRtG4az25+DdnfqIoSdE2lGK5IgAAfNXgQL9R0ejd 9TGWR9NDxXV75lO7rFw8SN3El/McZiPdswJAkUql8+bNG3khxhNPPMHlcunu 6V0jWcb3vve9oVEUFxff9sesVus3vvGNoR8Ti8Uh7ifcC5fD1qfgqyqzmzN3 MuhYjUh+Kf/4ltaCeJITkQ8ap6WP7ikBAIAwQ91Y6W7XNVW0XUsTZn3KPriC lu/W6mNXCE/vai87qRdUkv7gLj+Enlarvf/++++4SJy47777qqur6e7v3VEo FI899tjf//3f+9aSjFDN5F/+5V+GRlpVVRXKTsIYkPjfIGa0lR4nSUHdnnmh /ZZpXsPRd8S5UaqqM6QPNoOG7skAAIAJiHzSGWUNHbV5kgsHeEkb6vbMD32q woxeLDz9WUdNrkklwgNgEAIej2f69OnDE5Bf/OIX+/btKywsvHr1anx8/KOP Pjr8bx988EGTyUR3r++a2+2WSCQ3btzw9wMdHR3Dh9na2hrK7sEokSygu7Gs tSCee+Tt0H6JtFJ4epfv6VxsewIAALQgqYFFqyCfRG2lx5szP2EfWB7iPIUR 9Urzqb+oqrL7FHw8qwxBkpiYODwm37x5s81mG/4DLpcrJiZm+M+89dZbdPU2 eD777LOhAX7ve98bHMQ3A+PCzcUjrAJxblR9bIjubjOjFzelbZNdPtLFvtzX LhgcmAg7QgAAwMTj6Df0tnLUNbmSvJiGxPWhfIqgbs988lmpLM8gHcCm9xBA M2bMGIrJp06d6u/H1q5dO/RjP/zhD0PZw2DzeDxHjx4dnnzt2LGD7k5Nam6n nVo8UnUmNItHqGWASRvIVV1945xBwrIbu+meAAAAgLFwDzotGlk375qiJKU5 YwczZmmI8pSIufzUzYqrqT0tDKc1/J6ugfFjcHDwn/7pn4ZicoFA4O8ne3p6 hkfvWq02lP0MOIfDoVKp6urqkpKSHnrooeFDI//TaMQmFaH25eKREyFYPMKJ XyPM3t1elq4XVFq0bXh6FgAAJiq7Sd8rZatvnBWf38c98jZJIoKfqszhJW2Q FyXqm6tRTgXuFpPJHIrJv/vd7478wz/+8Y+HfrikpCQ0PQySS5cufe12pkyZ Eu5pVxihFo/wrskKDwd58cichsT11ANanCsmlchlt9I9bgAAAHq4nHZzp1Tb cFVRfEyQvj0EBYi5R9a1FsTr+OW2XsRXcGdcLnf16tUzZsx46KGHZs2aNfIP f//73x+K4cvKykLTwyCJj4+/bW7y2WefdXR00N27CStki0cYkQua0j5su5Zm EDMHB/rpHjcAAMA4ZTd2k89KVdUZ8bm9JI+o/WJO8D6d6+PekFw4oOWWWPVq uscNYU+hUAwF8F//+tfD/amnDz744La5CfH//t//q6iooLuDE4fbaTcqGslF T5j1KXPfq8G74vk2OVRV55jaBW4nSmcCAADcNZfD1q9u6eJckRclBvUpa/bB 18W5URp2oUWrCN/q3kCjt956ayh6/+Uvf0l3d+6VUCg8f/68VCptbm4+c+bM zJkzh6cn3/nOd8KujMu4ErLFI/WHVknOR1NXti45rmwAAACBRX3BKOcpr2cK 0rfXBa1sPStmqejMFx21eeZOKUo9wmg0NjYOr5n+5ptv0t2jwEtLS7vvvvuG xvjkk0/S3aMw46s8Iis83HD0neAlI9QKu8T1ssIEHf+63YgnVwEAAELE4xo0 KZtV1TnCrE+Dt4smeWXy+tRTEMpmDzargdvp7u7++c9/PhS0f+tb35qodQm3 b98+/O4Jnuwa2fDFI+yDQVw8UrdnPv/EViweAQAAGCdIDGDukHTU5onOfMEK 2k7FdZELBOkfqyqyjHKeG6Uewau/v/+RRx4ZHrHv3LmT7k4Fi91u/7d/+7eh kcbGxtLdo3HH9WXlkZAsHtmFxSMAAADjnMfjsWgVX35X+XrQvqicxz++pb3s ZK+UPWiz0D1ooIfZbJ46derwxGT69OnuCf0c4AsvvDA02A0bNtDdnXHBaTWF bPGI+Pw+LB4BAAAIX1a9uotTLL1woD7ujWDlKRFzeckbFcXJPaJap6WP7hFD iGg0mj/84Q/DE5NHHnmkt7eX7n7dNZvNJhKJLl++fPjw4crKypF/eMWKFUPj XbJkSWh6OA7ZeruweAQAAADuha1Xq+OXtxbEcxPeCl44wfNWMdMLKu0mPd0j hmARCoUPPvjgBEhMiP379w+NYurUqSP/8FNPPTX0w5988kloejgeUA+OhnLx SOkJg5jptJroHjcAAACEgqPfoG+ulhcl8pI2BK+KCjdhrTT/UDfvms2goXvE EDCVlZXf+973hicmU6ZMCdPEhCgrKxsayH333dfT0+PvJ8kY/+Ef/mHoh4uK ikLZz9CjFo+0NYVs8Ygai0cAAADgy8fFFVdT+ambg/e4OFVoIC+mi3PFqlPS PWIYu9OnT3/7298enpi88sorNpuN7n6Nnd1uH55xbN261d9Prly5cujHvv71 r4dvOjYCcjXoaQnh4hFWAbV4ZEKvUQIAAIAxc9kHjK2c9rL0prRtdXvmByks Ye1fJj4XqWFeMmtkCEvCSGRkJInJhycmmzdvngCL3+fOnTs86SguLr7lBzwe T1xc3PCBT6TFJrbeLh2/PPiLR17+cvFIORaPAAAAwN36cjvQbEHGDkbUK0EK V5jRi0XZu9U1uf3qFo/bRfegwa/3339/eHD+jW98Iz4+nu5OBYZSqfzXf/3X 4U92bdq0SaFQkJTEbDbX1NRMnz59+NgffPBBo9FId6/via1X28W+HLLKIz0t DCweAQAAgEBxuwZNKlFHTa7w9GckmwhSJEMyoObMT1SV2X1tTXjsfFzZtm3b 8OD8H//xHwsKCujuVCBdvnz5lltCxHe+852v/p/f/OY3SbZCd3/HwuN2m5TC 9rJ07yqzYOUjQ4tH8C4GAACAEPDu2NPaybjYcnYPa/9rwcpTIhcITn7UXp5h lHFd9gG6Bz2pxcbGDg/Ov//973O5XLo7FXinTp3693//96+N6PHHH29sbKS7 p3dncKBfJ6iUXjgQvMKs9bErfYtH8JQmAAAA0Mva3a5hX5acjw7ewyF1e+Y1 pm72bStKAi26Rzy51NfXf+tb3xoKzn/4wx+KxWK6OxUsvb2969ev/+Y3v/nV rOSBBx6Ii4sLo8U1Vp1SfeOcIH17XcTcYLwrhxaP2Hq76B4rAAAAwG3YDBpt Q6k0P5YTvyZIeQpVji1pg6I42SjnuV2DdI94gvN4PL/73e+G4nOSpNTV1dHd qaBzOBwCgeDs2bN79uxJSEi4fv26Tqeju1Oj4nY6els58itJnLjVQfiK4Gbl ESweAQAAgLBj79PpmipkhQncI28HKU9hRi8Wn99HfgtupgTJhQsXbrl98OvR +epWVxA8dpO+i1PckhMR8D0rhi8ecTntdA8UAAAAIAAcZmOPqEZefKwxeWMw Sj3W7ZknSP+4s+6CzdBJ91gnlIULF468/sKfjIwMuvs+wXk8nn51i/J6Jo96 TwXy3YTFIwAAADB5uGyWXgkreMXduEfWtV1LMymbEVbdu1/96lfITcaVQZtF L7whzY9l7V8WwHdNw9F3sHgEAAAAJjmXw2aUNSivn6JW7EYuCGySwtr/mvTi wR5RDbb5GrN//ud/HltukpOTQ3ffJxSrXt1Zd0GQ/nEA0/n62BXS/EM9olos HgEAAAC4hXvQ2dcuUFfnCDN3MqMWBTBJqdszvzlzp4ZdaDd2B7bPJFw0SFiB fU0AH49rkGTuipIUbsLawL0d5jSmbFJVZJk7JHSPDwAAACA8eNyufrW4ozZP dOZzZvSSAOYpvGPvKa9nBiow66ovIq8pyomw94XHPk4w/jn6DdqGUvG5SEbg MnTmvlfJWaptuOow99I9PgAAAIAw5vF4LF1yDatAfG4v+8DyAD7QIis83Cth 3cvuQ0YZ1/dqJIwkmRRWuMCYmTulqsrTjSmbApiJcw6vlRcfM8oasNs2AAAA QDBYu9vVN87yT2wN1H5fjL0LRWc+13JLHP2Gu+6MXv03N2WSNpiUwmCMGiYk l32gR1TbWhDPPvh6oPIR3551JFO26lR0jw8AAABgsnCYjdqGUlFOROAWp8zh p36grs6xaBWj7IN70PmVFGmOrPAw6q3ACGwGjYZ5SZi5s27P/EClJOwDyyUX DuibqwdtFrrHBwAAADB5kQShV8qWXT5Sf2hVwB6GiVstv5JklDd47vQwzG0f M2PtX9bNuxaa4UNY8LhdfQp+W+lx7pF1gTpLa73rp9rLM0wqkcfjoXuIAAAA APA3zJpWZUVWY/L7gYr9mPteFedG6fjl/vZZ5SVt8PdvBenbrTpliGcAxhWH 2djdWEZOIWb04oCdk1GLRGc+7+JccZh66B4fAAAAANyZ3aTvqi8SZu0KVNmU uoi5gpMfddTmDejVw3+RIP3jkf7VnnntZSfd97DcHsKRWSNTV+fwj28J1Koo 0jjxa+RFib3Sevegk+7xAQAAAMBYuBy2HlGtNP9QAPf4okrPlx43tQs8brco e/doospelEGZ6MiZZhAzZYWH62NXBupMI7ltU9o2dU2uRdtG9/gAAAAAIGA8 Ho9JJWovS29IXB+o0JEZs7Tms1k1n88ezQ+jDMqEZDdqNezCAN6h851XkrwY XVPF4ICZ7vEBAAAAQHDZDJpORr4gY0fdnnn3GEZe3/b0XcScN8uguOieALgn Hre7r13QXnYygHluLbUH9bvkNU3KZhTKAQAAAJiEBm0WnaBSkhcz5urzY8hu UAYlgNra2q5evXry5MmEhIT4+Pjjx49fvnxZLBa7gxDeO60mXVMFOVtYMUsD lY8w9i4UZu3qYl+2G7sD3mEAAAAACEfUN+EKvqIkhXN4bbBzE2+b01oQ72/v L7gjg8GQkZGxatWql/1YunRpYmKiWq2+82vdiUXbpr5xriltW13E3EClJPWH VskKEwxipgv7JAAAAACAf1adUl2TO5pYlHlv35+z9i/TNpTSPdww43A4Tp06 tWDBAl8O8tLM6TOef+rFZ34/fcr/UO2Z/50x9YmXZkzz/e3cuXPj4+P7+++6 FKbb6eiVsuVFifVxbwQqHyGnE//EVqq4Z5c8GDMDAAAAABOY09LXzbvWcjaS 4af0fED2/hKc/Mja3U73WMNDR0fHhg0bSNIxe/bsmc8/Pe3Jnz73hx/ctj3/ +IMznnt89uyXyA+vWrVKKBzVQ3T2Pl0X54owezdj78JApSTM6CUjl8gBAAAA ABg9j2uwt5Vzy7fo1TunVf1lamC+Ud8zr+1aWpDKoDidzv7+frs97J8dkkql y5Yto+6VzJg2lJXMevI/Plj860MbH0n7+MmTO55K2PToR8t+M2fKj77MUH48 a/qz5J8sWLCAwWDc9mU9brdJJVKWZ/COvReofKSW2mj67bbSE30KPrY+AAAA AIAgMWtkqspsfsqmq+t/Pcrdg0fZOHGre1puHz/fLaVSmZ2dvWPHDl8w7/Pq q69u2bLlxIkTIpEoIL8llDo6OnxjmfnCM1Mf+SHJO+ZO+VHytieaT82WZs+5 pYmzXj6964+Lp/6YylAeeWDG1Cd96Qmfzx96QZfNohdUSS4cYO1/LVBHkBG5 oDlzp4Z5ydbbReNcAQAAAMCk0ll3oeazWQFMTIaa6MwX91IGhYTf27dvH74q fPbsl2bPmjH7pVnD/8/169dXVlYGcEKCyuFw+B7lIonJc3+4n2QcW5f8uin9 pa9mJcNbS9bLUet+77uBMuO5x8k/X758ucFg6KjNE6Rvv/fto4ca++CK1oL4 npY6l32A7qkCAAAAgMnFrJExAldo76uNGbVIXZN7t88CWSyWmJiYm/nISzNn TH3ihad/OfXRHw0twZj6yA+nPfXzF5999KVZL/p+jGQxWq02SLMUQBkZGb5H uXx3TKLefnjkrGR4S/v4Se/w7581/c/kRfbu3ctL3hiIwzSnMXWzqirb3Cml e3oAAAAAYJJy2a13u8/w2Bov6V2TsnmUvers7Fy7dq03K5n14jO/n/rIfwyl JNMfe+DlP/5oxhP/MWyp+P3Tp/zWl6EsXbp0+JNO45DBYFiwYMHs2bOnPfET 0vkPl/5m9ImJr+1/9w9UavbYf/puHpWd3Df2tHHfqy1nI7UNpU6Lke6JAQAA AIDJriUnIgSJyVBrvRR3x/2dOjo6li9fTqLuWTOmPf/4j30JyLvzf5H+l6cY SS8Oheic1Jlnd0/Z9tpvpj16v+82yswXnvEtxGhoaAjN7I3ByZMnqae5nn/a t8bkjo9y3batmknlNS/++Q/kpT7dtulujwI34S1FSYpRznO7BumeDwAAAAAA ivJ6ZigTE19j7X9N23DVX5csFsubb7755SJx6ubIyhk/uRz97AiBelXCC+8t /KXvBsqM557wLZNXqVShnMnR8xVY9G3MlbztiTEkJqRdivozlY49+qPZs2fP mzevYs/iO0573Z55gowdnYyLVn0ACjgCAAAAAARQj6gm9InJUGtK22bRtn21 V1FRUd47Js/7EpPty38rvN3WVV9tB997ZOoj95P0ZOa0KeQVNmzY4HKNu91u FQqFr8Cib7vg2+7KNcq2fPp/kxfx3So6Hfmev3lmH1guzY/VC2+47Fa6Rw8A AAAAcBuWLjnTTwXGkDWqDErpCZfDNtSrhoYG3xqT5x/7LxJ473j9t3cVrids fsz7cNd/+AqpX7hwgcYZvq3i4mLSsRlTnyL9/GDxr8ecmJAW/c7D1GNdz/ye vGDs5x/dMreNye8rr2f2q8Uej4fuQQMAAAAA+EXiVcXVVFFOhDBrV/OpvzSl bWtM3cxL2sA9so4Tv6Y+dgUrZinJXAK4Le0IjRO32iC+WQZl69atJNKe/sz/ kqh71cyfiDLv+rbCR8t+Q/7ttKd+4dtid7yVaDxx4gTpGEkoSCfj3n/0XnKT nN1TyIu88PSvyAvu2vkJOVjkkLXkRGi5JQ5TD90DBQAAAAAIMI/b7XLaXTaL 02K09+lshk6rTmnRyPrVLX1tTUYZ1yBm6oU3dPzr2obSrvqiTka+uiZXVZnd Xp7RVnpCUXxMVpggzY+V5MWIz0WKsnc3Z34iOPkRP/WDxuSNDUff4Rx+sz52 JWv/a+QHRLx66qbJrBlTH3mARN3F+58bQ8TOSZ3p28Jr1ovPkVcrLy+newr/ Rnx8PJV8Tfkt6eHJHU/dS25C5ofKwp78KXnBbdu29avF7kEn3eMDAAAAAJgI 0tPTqXsKz1HPZW185ZdjDtr3eR92mj7lf8ir7d69m+5h/Y1Dhw6RXr3gzU0y Pnn6XnKTkgNTh3KTDz/8kO6RAQAAAABMHFu2bKE2sHrqFyTkPr3rj2MO2qsS XvDtYeXbsMvtdtM9sr9KSUkZemgtYfNj95Kb5H7xJ+/Ta7+knunatYvukQEA AAAATByLFi0iYbZvey5O6sx7idvnTqHKx780czp5wa6uLrpH9lcFBQXetfBP kO59vPzuVvrf0g5tfIS6PfTM/5IXTEpKontkAAAAAAATRH9/v3exyUwSb89+ +of3ErST9tacn1FLTqb/mbxmU1MT3YP7K5FI5NshmXRv3p/+U5z18pjHuPZl aowzp/2RvOC1a9foHhkAAAAAwASh0+mGCn+88ux/3WNusmnRr7xxO1XohM1m 0z24v3K5XEuWLCG9ev7xB0kPz3w2ZWwDvB4/zbdb8uyXZs2ZM6etmdOvFlu6 5Fad0mbQ2E16p6XPZbe6B53YQxgAAAAAYJQGB/p1gko5s4TKTWa9SELuuVN+ dI+5ybvzqUUrs7x1CRsbG+ke4t9ISEigHut67nHSw6XTHhzbrZP3Fv6SeqDr T78jL/Xxxx87rSZpfqz/OjLzGVGLWPtfq49dyTn8ZsPRdxqTN/KPbxGkb2/O /ESUvVt8LlKSF0NeQVaYIC8+1lZ6or08Q1WZra7J7WTkd9UXaRtKdU0VPaIa g5hplHH72pr61S0WjexmKtSnc1qMLpvF5bR7xtPqHgAAAACA0SBhbUfteRIe 10XMJfFzQ/KmefPmzZ49e+ojD0x95P7mjJfuJTdZPPXH1HoTbwXGtrY2usf6 N1Qq1Zw5c2bPfslXXzL6nYfvdnTpf3nqZonJWS+SATIYN6vD9LULeEnv0ltP 01dSkxm1qLuxjN55BgAAAAAYgdvp6G3lyK8kceJWfyWmnbNu7Rpqn64nfkIC 70tRfx5zYsJJnXnzeafZs0m+43A46B73rXw7Cc+a/ufn/nA/6SrJNUY/usvR z05/jKr/MmPqk77KJsNf2eN2ddTkktSA3vSEHGK65hYAAAAAYAT2Pl0Xp7gl J4IR9coIAe3e7RuGaqbveuOhMecmydue8BZMpzbX3bp1K92jvw2TybRixYqh DbumPnL/wfceGeUdE19iMvUxqqzJwoUL29vbv/r6dmO36MwXdCUmgowdeLIL AAAAAMYPEp32q1uU1zN5yRtHGdPm7l1PLTmZQa3yfvHxB5jHXhxDYiLKnP3K s/81tIFVbm4u3TNxewKBYMGCBV8uPKHunqx+6aeXo5/1N66K+GkbX6HWmJD2 zEM/mPLrB2bNeHHk7bkMYsbt7k8Ft3EOv+m0mkI2jQAAAAAA/rhsFr3whjQ/ lrV/2d2GtXVRr65auZIqm/40tcvW9jGV/0jY9Cj5t88//uPZs2eT4N9gMNA9 JX7V1tbOnz+ferjrhWemPvojX96x4sX/3v/uH859/qeSA1NLD049H/FM/PuP vjXnZ1MfofKX5x7+wZ9++4M//pJqCdtW3PFXuBy2ttITdXvmhSYxYUS9YtW2 BX/mAAAAAAD8surVnXUXBBk77jEMzjl+2LuT8AtTH6GeXErZ9sRdJSaF+56d 9igVw8984U/kdY4cOUL3xNwBj8dbtmwZVdjlpVkv/vnhqY/+0Jeh3KY9/IM/ /+4HU35FZSXP/uaBuFVPkunqaakbzW+xaNua0raFIDfp5qHMCgAAAADQwOMa NMoaFCUpnMNvBiq4lV059t5775FYfebzT5OAnCQao18nfjn62dlPU7H9i888 TF5h6dKlfX19dE/SnfX09ERERLzsNXs2Scv+9OIzv3/h6V9Oe/Kn0574ybSn fvH84z+n7pX86ubtktem/DRvy/O+6eIlbRj9yg5tw1XW/teCl5hI82ODOlEA AAAAALdw9Bu0DaXic5EB3AyKue9VUU4ECZ6dFmNbW9vChQtnvvDcM/9z85bB F2/+L//krBGykpasl49+8NgL3kXiL/zx17NnzyZxfm1tLd1TdReam5u/+OKL efPmvfwVZDjP/O5BkpUs/9PPkt+acsvUddSeH/1v8ZZBORTwrOTGZzMZkfMH rf3Bmx8AAAAAAB+Px2PulCorshpTNwcwpuUcXqsoSTHKuG7X4PBfR9KK5x7+ GYnG//Tbm+nJy3/80eFNj7JTZtySlTSmzUr7+ElfNRPvHZPf+xKTM2fO0DVX 98JkMlVWVqakpOzevfvDDz/csmXLp59+mpiYmJeeWPTxjNvOIWv/ssEB8939 FqUwsGVQrm99smrHn0mCKc6N0vGvYy08AAAAAAScyz7QI6ptLYhnH3w9UHFs 3Z55gvSPO2rzrDqVv9+r5ZYcXfP0n3/zAElPpvz6B8/+/q/LLpY8/+ONr/xy 22u/2fTqr5ZP/+/nfSvE//CD5x/7r5nTpvhuNGRnZ4dylkJDVpjgb0plhYfv 9tU8bpc6cGVQaj6b+TeHOGKuIH07dYj16mBMBQAAAABMHjaDRsO8JMzcWbdn fqBSEvaB5ZILB/TN1S67deTf7nLY6mNXkn+S/f5zs//wX75FFn/6DbUS/LmH v7JC/JEHpj318xnPP+W7XbJkyZIbN26EZpZCzN6nY+xd6C/dsxk6x/aaLTkR ATi+n/v9K27CW22lJ0ztAlQ8AQAAAIBRcrsG+xT8ttLj3CPrApWPkMY79l57 eYZJJfJ4PKPsiaL42NA/r9g1a+fC30/9n//wZSjPPvzzWTOenzltysznnyZ/ znpx6uyXZvnulcybNy8uLs5oNAZ1lujVUZvnb56F2bvH/LI9LfdUBoUTv2Y0 P8aKWSodXXIKAAAAAJOTw2zsbiwT50YxoxcHKh9hRi0Snfm8i3PFYeq52/7Y ersYkQtuecFrn8yMXvb48md+PmfWjFvWic+ZM2fjxo3Z2dk6nS4Y8zOuuJz2 +kOr/E17j2jsa//dTnvbtbSx7f/Mjl1xVz9Pfoswc6eGVWA3agM4OQAAAAAQ pswambo6h398S+0XcwKVknDi18iLEnul9e5B55g7Jjz9mb/XV5Zn2O12uVzO YrGqq6uZTKZYLLZYLAGclvHPIGb4m5+GxPX3+NyUtbtdcPKjuz3u1Tunjfmc 4SVtaC/P6Fe3jP62GgAAAABMAC6HzSBmygoTfKs5AtLq9sxrStvWUZNrCUQ1 8B5Rrd8v5w8sx7NAPt6M8vazRA7Evb++tqGUtX/ZKE+Aqr9MrfjwqXs/kcjx bS2I72lhuJ32ex8CAAAAAIxPdqNWwy4UZu366rNSY27MmKWSvBhdU8Xd7l47 Ao/bzUtc7+836purA/WLwl2/usXfLLH2v+ayBeBGktNqIpnCaO6p3dj1oih7 N8lP6yLmBibbjVxAXnBsDwQCAAAAwDhE4vy+dkF72ckRov0xNF7Su+Q1TUph MPZcUlfn+Pu9jSmbAv7rwprs8hF/c0VyikD9Fm8ZlA13PCu0DaX/501nunnX xOciGYGryMlP3ayqzDZrZIEaEQAAAACEDIkPdU0VkrwYZvSSQMWHjL0LhVm7 utiX7X1BXGxOej5Cn00qUfB+dThymHoYUa/c/r7DnnkBrCricbs6avNGLoOi YV76m3/iGjS2cuRFifVxbwTqJKw/tIpaytTKuZelTAAAAAAQAhZtm/rGuQA+ V+OLBmWFCQYx0xWS5/9JPuWvJ7LLR0LQgbDTWXfB34wJT38W2N9F0lKR/zIo yuuZ/v6hWSNTVWXzUzcHLFOOWtRyNrKbd81p6QvsGAEAAABgzEjK0CtlB/bb aZLa8E9sVVfnWLrkoRwLiWD9LW1gRi1y9BtC2Zlwcaf9hGsC/htJonrbUiYk h73jvyUHsYtzRZS921/5yDGcqyQZV9fkWnXKgI8UAAAAAEbD3qcjMZ4wcDEe Ff9HLxHnRun45U6riZZBjbBvrYZVQEuXwgJJFvzNG++e9xO+LbfT3l528pYy KM2ZO+/qFQxiRmtBPPvg64E6gTmH1ypKUvoUfI/bFfAhAwAAAMBwJMg0qUTK 8gzesfcCFc6Rxj3ydlvpCW9EF/ggdvS03BL/MeebHtcgjX0b//gntvqbPfWN s0H6pVadUpC+fdiJtG4ML+LxePrVLe3krB7FcvvRZ9nU9nH860FdGwUAAAAw CblsFr2gSnLhAGv/a4EK3hiRC4RZn2pYBbbeLrrHR7nDg0ktdXR3cLwzd0j8 BuoxSwO4w/NXdfOu+cqgkJPqHisnUttcswqaMz+p2zM/UKc6J36NND9W21Bq M2gCNWQAAACAycaqU3bU5gnSt9/y5My9NPbBFd7CdnUuh43u8f0NRUmKvz63 nN1Dd+/Cg7wo0d8cSvMPBfVXDw70+8qgBOo+hctu1TdXSy8cIIlVoE5+3/kv OR/dVV+ExSkAAAAAd+QedBplXEXxMc7hNwMXks1pTN2sqso2d0rpHt/t2Y3d dX7KQVIb4SKMHB1Hv8HfHr/eaVQFuwMmpXAgcLsW+1DPMbYL2kqPc4+sC2CS UustT0nS3k7GRbOmld6nGQEAAADGDxIXmTUyDaugJSdi5PoRd9WY+179cpNV I91DvAPST3+jaC/PoLt34YRE2v5mUnh6F929u1ck8aHuJJ78KIBbZN98s0Qv Fp7+rKMm16QSubGyCQAAACYZl9Pe19akrs4hESNJIgIYZXET3lKUpBjlvHAJ sUbYY4q1/zWXzUJ3B8OJ2+kYYStpfXM13R0MDKq0KL9cnBsV2PeOrzGiXmk+ 9RdVVXafgh+amj4AAAAAoUcCqp4WRlvpCf6JrQFcQlJLPbEzX5Cxo5NxMYB1 wEPD43aPsDuTrqmC7g6GH4OE5TdvPfL2BHt4iSo9L2+QX0nixK0OeJLie2c1 pW1Tlmf0tnJc9gG6hwsAAABwT+xGrY5fLitM4CWuD3jgxD6wXJofqxfecNmt dA90jDpqcv2NrjF54z1u+jRpkXDa36yqqnPo7l2wWLQKdXUOP/UDf+U77zVP iZjLT92suJpqEDPoKgAEAAAAcFc8brelS65hFYjP72MfXBGMGKkx+X3l9cx+ tTjcQ/fBgX6W/12Y+toFdHcwXJk7pf5mlUXtJ9xPdweDy9Fv6OZdk+YfCuiG Ere0ObykDfKiRH1zNfl1dI8YAAAA4K9cTrupXUAtHsn6lBm9OBixEDNqUUtO hJZbMpECIenFg/7G21oQT3fvwpv8SpK/uZXmx9Ldu9BxmHr0gkrZ5SPBuHE5 1LhH1pEzVscvt/Vq6R4xAAAATEZOq8kgZn65eCRgdeJuaZzDbyqKj/W2ctyD TrpHHGAWbZu/3ZYYUa+gnPc9utN+wpNxW2anpa9HVKsoTuYlbwz4Tl9DrT7u DcmFA1puSdgt/gIAAIDw4l08cj1Ii0eGh46C9O0dtecndgApSP/Y3wx0Mi7S 3buJQMO85G+GmzN30t07mg3aLL1Sdtu1NP7xLYHdmGJ4Yx9YLs6N0rAKrNq2 cH8CEwAAAGh3c/EIuzB4i0e+zEfmkxiprfSEQcyYDLvmdvOu+ZsKTtxqt9NB dwcnAvegkxO/xt886wVVdHdwvHA77UY5T1WRJUjf7q8G6L03VsxS0ZkvOmrz zB2SCbZbGgAAAASPb/GIyld5JDiLR3yNKveW9amq6sxkK6NAUo8RdnzVC2/Q 3cGJo1da72+euUfWedwuujs47nhcgyZls8q7dowRuEKotzTyytR7vzqH/C5P mNQhAgAAgJC5uXjkWlpQF4+QVh+70veMh0Ujm7TfnbaVnvA3P6Izn9Pdu4lG cPIjf7NN8mK6ezeukXeouUPSUZsnOvPFCBvK3WOri1wgSP9YVZFllPNcDhvd gwYAAAB6hGbxCGkNR9+RFR7ubiyzGTR0D5p+9j4dY+/C2wdpEXMt2ja6OzjR kCzYX70PZvQS1OkYJY/HY9W2UXuD50axD74erDxlzzzq2c5rab1S9uAkeLYT AABgMhtaPCI5H10fuzJ4ycjwxSOI/W4hPr/P37y1l52ku3cTk7z4mL85l1w4 QHfvwpJVr9ZyS6QXDtTHvRGsy0jEXF7yRkVxco+o1mnpo3vEAAAAEABup+Pm 4pEsLB6h3wjLH5iToCYgXRzmXn9LJ0gAbO1up7uD4c3Wq9Xxy1sL4rlH1gXv CsNLXC+7fEQvqLSb9HSPGAAAAO7C0OKRprQPg7p4hH1wBRaPjJ7H42lM3uhv Mrsby+ju4ERGzlJ/M9+c+QndvZs4HP0GfXO1vCiRl7TB36N09964CWul+Ye6 edfwmCgAAMD4NLR4pCHIi0e4R97G4pGx6ajN8/udcNIGJHdB5XENjrifcCXd HZyABgf6DWKG4moqP3Vz8Eqo1MeulOTFdHGuTOxySAAAAONcCBePzMPikXvn sllY+1/zN8l9Cj7dHZz4els5/r+Hfwv7CQeVyz5A5r+9LL0pbVvwbuay9i8T n4vsZOSbcScXAAAg+EK3eGTfq82ZO7F4JIBaL8X5m21pfizdvZssBOnb/R0F VVU23b2bLMglhVxYyIQ3n/oLI+qVYF3EoheLsnera3L71S1IPAEAAAIFi0cm AKtO6e+ZlrrIBXZjN90dnCzMI+0nvBi3BUPP7Ro0qUQdNbnC058F7/sW8i7j p34gKzysYRealM2DA2a6xw0AABBOvPvehGjxSGtBPBaPBFtz5if+DkFH7Xm6 eze5KEpS/B0LKfYTphVV6lHT2sm42HJ2zwgPQAakceLXtOREqCqyekS15Orn 8XjoHj0AAMA4Qj4ZLVrFzcUjh1YF7xP5y8Ujx7F4JGRImunvcJBjjUfmQsxh NjL3vXr7dwdqX44nVp1Sw74c7PV0vsaIeoVcGGWXj3TVF5lUIpfdSvfoAQAA QsrttJs1rd28ayRNaM78JBSLRyqzsXgk9KjtoQ6/6e/QGCQsujs4GXWxL/s7 IoKMHXT3Dm7DZtBoG0ql+bEjbLYW2MZNWCs+F6mqyjaIGXajlu4JAAAACCSP 220zdPaIasknnfjcXm+FsmDt/O9rNxePMC9h8Qi92svS/YbBJz+iu3eTFEkY SeTp77jo+Nfp7iCMxN6n0zVVUI+8Hn0nNHlKrfcbnqa0bfKixC5Ocb9a7HLY 6J4GAACAu+Aw9xplDZ2Mi9L8Q42pm+siF4Tiiz7f4hHUIxs3HKYepp9y5CQ5 tXTJ6e7g5NUjqvX3PuIcXut2DdLdQRgVh9nYI6qRFx/zVjUN7hc+t7x/uUfW iXOj1NU5vRIWSZfongkAAIC/ctkH+tVibcNVRXGyIGNHsFdxDrWhxSM9LXVO Sx/d0wC3asmJ8HfsyFGju3eTnTB7t7+jo6zIort3cNdcNgtJE9pKT5CrYvBK PfprzOjFgvTtJEsiHwTmTimengUAgJDxuF1WnUrfXK28ninKiRjh4ZCgfAJ+ uXjEqGh04+NvHDOpRP7DmCXYiIB2Fq1ipP2EkeyHM5fDZpQ1kEs0yRcYfu9d BrHVRcxtOPqO5Hy0+sa5XikbN1YAACCAyMdKr7S+o/a85MKBxuSNQS0ycttW H3tz8YhZ04rFI2HB4/E0pmzyd0C1DVfp7iBQFFdT/R0jSV4M3b2DwCBvRqte rRfeUF4/JTrzeX3cG6FPVUhjxiwVZOxQlKR0866ZNTL3oJPuiQEAgPDgsllM SmEX54q8KFGQvj2oO2iN0LB4JKx1MvL9HVle4nokmOOE09Ln/w0+x6JV0N1B CIpBcpFvF2hYBeQay0/dHLza9CO0uj3zeEnvSi7s76g9b5RxHf0GumcFAADG BY9r0KJt0wsq28vShdm7OXGraclEarF4ZAJx2a3sA8v9HWijrIHuDsJfddUX +TtSgvSP6e4dhILH7bbqlHpBFfUpcPqzEJRTuW1j7V8mzNzZVnpCx79u1bZh QwYAgEnC1qvtlbDUN85K8mJ4Se+GfsnkUCPha3PmJ4qSFGrtZIfE7XTQPTcQ GLLCBH8HHZXHxxs3VYBmhP2Ey+nuINBgcKDfqGj0brQYy0veGJqNFm9p1I2V Y+9JLx7srLtglPMcZiPdswIAAAHgtJqoe/fsQhIuNqV96K8edAgaI2oRP/WD 1oL4TkZ+n6IRS6EnqgG92l/Cy4hcYOvtoruDcCuDmOHvbcs5/KYHX19PetSN le52XVNF27U0Ydan7IOv0/IhUh+7Qnh6V3vZSb2g0qpTetwuuicGAADuwO10 WDQyHb+8rfQEuYbTdWu+1vuVF/fI2+LcKFVldk9LHdaMTB4kdPF3VqhvnKW7 d3B7ojNf+DtqyuuZdPcOxh2npc8oa+iozZNcOMBL2hD6DVJqvd91NCa/L80/ 5P2+i4/vuwAAaOfxeEjMTyJ/Ev+TLIDkAnURc+lKRkgeRLIh76PC5VQpdnzX OinpBJUjnCGoJT1uWbRt/q4ezH2vOi14nAZG4qbWLSq8X4sdb878ZITlZsH9 GDq0SpS9W1meoW+utupU2HMDACDYHGZjH/UMcL53c5UPaNlc5Wa4Er24Ke1D WWGChl1oahcMDpjpnhug38grFwxiBt0dhJG0lZ7wd+wk56Pp7h2EGUe/obeV o67JleTFNCSup2VhI2PvwsbUzeTjUsMq6GsXuGwWumcFACC8uRw2c4eEKrZe kkLjN1G11ANa86nNHvNi1DfO9kpYtl4t3XMD45Hyeqa/U4h/YivdvYM7cFpN I+wnbNbI6O4ghDGPa5CcQt28a9THWcYO1v7XaPksqz+0SpD+sTQ/VlmRRTpj VDTaertwlx8A4LY8bveAtzyWqiKr5ewe7/fPty/ZHILGiVstzN7dXpZOLTns bseSQ7gjh7nXf/npOeZOKd0dhDvr4lzxd00QpG+nu3cwodhN+l4pm9ox8nw0 vQ8kkwsUyVma0rZJLxxoL88g7wKjjDvQ0+Fy2umeJACA0HHZLFZtm0HC6qjN k+bHNia/T8smjb5GletN3y6/kkSuySal0GW30j09EH5azkb6O8EUxcl09w5G xeN2cRPe8nccu3nX6O4gTFhup8PcKaWeEyg+5q35u4S+VOWvrT52Bf/4FpI9 tZed7Kov6pXWW3VKl32A7tkCABgjj2vQZtD0tTXp+OXq6hxZYYIwa1dD4nr/ Xy+HotVRe5tslFw4QFXjbeXYTXq65wnCXr9a7DfzjV6MwgRhxCBm+juUnPg1 ePoFQsZu7CZno6rqjPjcXm/KTNuDBF9trP3L+KmbScfaSo9rWAWkn1Zt2yDW swDAuOG0GM2d0h5RbSfjouJqKrle8VM/qI9dMT6upXO4CWtFORHK65nYugSC hJzw/s7ALs4VunsHd4dcLvwdzfbyDLp7B5OUy2HrV7eQ64m8KLEpbRuNtbpG aMzoxY3JG8k7SFGcTOIBEhVYNDJsbgwAQeKyD1h1yt5WjpZbQuJ8aX6sIGMH 5/BaBn3PYt22sQ8sJx0jF0Ztw9V+tRi7tkKwadiF/s5G7pF1WKwUdqzd7f4e /mdELXKYe+nuIADF1tvl3UL/tHeF5pvj48tAPzlL1CJe0rvC7N0kseqozdM3 V5s7JNiaGwBGg8RRdmO3SSnUCyo7anLJZUR05nPesffGybOvtwsVXmlM3ewt PnXRKGtA2AAhRnL2EYpEG1s5dHcQxmKE/YTFuVF09w7gNsi1iHx2a9iXZYUJ /ONbmLQ+Oz3KVhe5gHvkbeHpXaTP6hvnSOBhUokcph6Px0P3dAJAqDmtJrNG 1tPC0LAK2q6lSc5HN6V9WH9oFa1bhYziOhYxl3tknfjcXlVVdo+o1mboxBUM 6EXyd3+nK4pihC/vfsL+vpCZY8F+wjDueWsTd/aIapTXM0VnvuDEr6H9E/wu Puv3zOccXtuc+UlrQbyq6oyOX97XLrAbu/FINkC4czntAz0dRjmvm3eNBPPk PS7M3Mk98jaNJQvvtrEPrmjO3NlWepwMwaxpdTsddE8qwF+Rj37yGervs5X8 Ld0dhLHTckv8XZea0rbR3TuAu+ayD1i0bb0SloZd2FZ6Qpwb1Zi6mcbCYWPK WeaRJGuoRIu2oZQq0WLQuLFJBcB44nG7HaaefnWLvrm6ozZPXnys5eyexpRN rP3LaL+M3G1jRC3in9hKFVtnFfQp+FhAB+OcKHu3v5NZVZlNd+/gnlD7CR9Z 5+/4kqCI7g4CBIbLabfqVMZWThfnirI8Q5IXQz6I2QfHyW42o2w3S7RILuz3 lmgpNsobrHo1vs8ECCqXzUJ94yFld9UXkauH9MIBQfp2Tvyauj3z6L4mjKUx IhdwE9Y2Z+yQ5seqqnMMYqbdiGLrEE70whv+Tu/62BUoATABGCQsf4eYXHvd g066OwgQRN4qAJ1GWYO24ary+ikJiTpOfsSJWx1eUQf74Ov841vE5/e1l53U sC+jRAvA3aIuBb1dvoIgqi8LgvCS3h2fuwWOos2hLgupH7ScjVSUpHh3FKwx d0iwYh3C3chfqpPznO4OQmCIz/ktqdlelk537wBo4N0zR9un4FOPi1eeluYf as7YwU1YG145C+kt+8BychknmYvw9C7J+WjZ5SMkf1HX5HZxruibq40ybr9a bNWrScSCwkYw4bmddke/4cuCIPlUQZDcKPLuGDcFQe66MaIWNSSu9221oao6 091YRq5a1COg+F4RJihVVba/twNJxunuHQSMVaf0F3ExoxaRKzndHQQYLzxu t71PZ1I26/jXvdWWD3uXuK6rG2eFBsbWyCjYB1fwEtc3pW0TZe+WXNgvL0ps L8/oqM3TNlztEdUY5TwS15HIx2k1Yet4oBGJvZ2WPnIqWjQyEo33tDDIW1LD LlTfOEuyb3nRUXL2CrN3C9K3NyZv5MSvYcYsDa8vFv7mjblnHiduteDkR9Tz nN57owYJy6JVDA6Y6T4OACHlMBuZ0Yv9vVP61WK6OwiBRC53/o61+NxeunsH EAZIFk+tihVUeWsTHKUeCElcHxa7HI+5MaIW1R9axUvaQCJA0ZkvpBcPyouP qSqyOhkXu3nXelrqSNBo1sjsRq3LZsH+Y3BbbtcgSXXJSUKC7b52AYm6dU0V XfVF6ppcZXmG/EoSOa9aciKaM3Y0Jr/PObyWfWC5v/15wr2x9r9GxthC1XU9 RtVIElSZVCK7SY/3DoCP+Pw+f28feVEi3b2DABsc6GfFLPV3xM2dUro7CBCu nJY+7zMkNSTYICEHVU8tacMI3/xM3DaHjJoTv6YxeSOJM1vO7pHmH1KUpKiq sjWsAh2/3CBmktDUqm2z9+mwWCYckRCaJKHk8Fm0bSal0NjKIdF1F6eYnPnK 65mK4mRpfqz4XGRz5ieNqZu5R9axD77O2LuQ7tMy1I0MmYyd2jz8Upyq8rS2 4apR5tvUwk73AQQY18gnqb9nL5n7XsVaqgmJXCH9XUuxnzBAwA0OmM0amUHM oJ57L0mhdh9Nfn+ErwgmW6uLmMuMWcpNWNuYsokEcuJze1sL4ttKT6irc7rY l3VNFb1SNgmArTqlw9SDuC6wPB4PSQ/tJj2Z3n51i1HG1QtvkM+ITsZFEk6T 05UcC3FuVHPmTv7xLbzE9fWxKxkT+hbhGM5eMif8E1vF5/eRk5Zk3+Sdbta0 Oi19dB9bgHBF3lD+3nHkQ4Hu3kFQeNxu7pG3/R138qlEdwcBJgVfiRbDsBIt /NQPwqtECz3R4NDC/9QPhFmfkphQVphALfy/cbajNo+0zroLJLT2tnwN8xLV WAVUYxeSzzUN+3JXfVEX58qXrVjLLSHXPW8r7eZdu9kay3T8ch3/OtWaKvSC StJ01J9V+uZqqglv9IhqekS1N1tLHQlKe1oYBjGzV8IyeBvJqnql9cZWTm8r h4T9RnmDUeZtcl6fotGoaOxT8Pvamkztgj5vMymbSRZGNZWIZAreJibN3CEx d0qppmm1aGQk1bV0yammVVi1beQssna3k+TC21TkT/Lz5FeQXpGBkOGrKrPJ CUZmicyVMGtXU9o2XtK79XFveG/qheXC8NA3Mle8pA3C7N3yoqPqG+fIKUGO l61Xi9VYAIFFLsv+3obchLdQ/2sCI5+V/g49+cBCGQUAGvlKtPR6S7S0l6VL 8mKa0j4MtxItaGjh1+r2zOcmrKXKoV48qLx+irwByWcltukGCBmXw1Yfu9Lf O7RXwqK7gxBc4nN7/R399rKTdPcOAG51s0SLnOct0ZIp8RWGi1vNmBBbh6Gh hayxD77emLr51oIg/QaPx0P3uxxgUpMXH/P3tsV+TZOBVafCfsIAE4N70Okw 95I3NbVkoJWjE1RS2x/dONd2LY16kse3XiD1A+6Rdaz9yybq3kdoaEONsXch SUC+LAhy2FcQxKhoREEQgHHL1tvl76s2Eq9a9Wq6Owih0F6W7u/CLj4XSXfv ACBYXA6bw9Rj7W43KYXUVq6+ghHVOW2lx1sL4lvORjaf+ktjyibO4TdZMUvr IubSHmqiTdpGYhWSUHMOr21Mfl+Q/nFLToTkwgF5UaKyPKOjJpfk4NRuCRJW X7vA0iUnsQ0q8gCEKfLu9ncdUFVk0d07CJHBATNzhP2EOyR0dxAAxgWX3erd MFZhahf0tDC6G8uoFdZV2YqSFGl+rCgnggSNVOW7uNVYXo3mr9XtmUdSXU78 Gt6x9wTp24XZuyV5MfKio+1lJ1XVOSQ71vHLydnlrZXTajNoHGYjFj8CTBI9 LXX+Lh3sA8vJZxDdHYTQ0TaU+jsZ+Ce20t07AAg/Hrd7cMBMldjTyIyKxh5R LbnOUHvSVmQpio9JLhwQnflccPIjXtKG+kOrJnbNyonbqBI29XFv8JLebUrb JszaJTkfLStMaCs9oao6Q/JWqiKnqNYo55k7pVa92tFvwObPAOAP+dTgJa73 d8HRC6ro7iCE1MjnQxenmO4OAsAE53G7nFaTzaAhcaxR1kDV1+CWdNTmtZdn yIsSJXkxwtOfNaV96C2usaIOC/8D3RhRi+pjV5Lp5R/f0py5U5wb1VoQr7ia qqo8TTJKbcNVckSMMm6/usVXYgabVgFAYKmqc/xdoBpTNtHdO6AB+dDxd0rU H1rlwpddADCeuAedTovRqleTaLn3ZkXyKx01uSSXaS87SVrbtbS20hPedpzE 2IqSlJutOFle/P/Zu8//pu50Ufv/4AFCqIEAMyEkwzBMymSYZDKTQ7CNccEU E3oNxJhO6L1bkm25IffebWRbsiyrr6V57Dw5JztzdAswtm9p6fp+/CrsF9fe 2/qVZenWwc7bBztuHZi69fyfnx/ab+xrv178y8/eqWP5rz8/7269uqv1atH0 z5WdLZcLW3/5ablcMHVdmv65mNd8ccfUSf7Xn/Pbm87lNJ/PaTqX3Via1VSa 1Xh22y8/3zeUbG0s2Tp1w2o4813DT981nPn31M/ULaDh9L/qT39b/+M/Xae+ qT/1jevk17/8/GP658SWl8f//svPV3XH/jb9c/TL6Z8jX9Qe+bzuyOdT+3Xt ob9O/dQc2lx7aHPNwb/UHNj0y8+fp36m/md++RbLnKn4qf+tex6dnrrrDTlv T/3fytvm9PU0TA53hcfdRmgybpra//8EkNGiAZ8jb4V0EPX1NmoHQsfUxir9 Vkzt79p1AAAAsKCWywXSEbT9erF2HdQERvqkecL23CVh34h2IAAAACzFP9gu jU/h+yzQ/fCUdG9tLM3SrgMAAICluE5skQ6fg46fteugzAhNlhd8IP2GTPQ1 aQcCAADAIoar70rHTufe9XEjph0Ifa9q7ku/JHVHv9SuAwAAgBUY0XDlrnXS sXO0yaYdiJQQN83qZPOEb2kHAgAAIO113j3CRwnwJrzt1cwTBgAAwBwJeYal L6uyZS8KuHu0A5FaWi7myfOEj2rXAQAAII01ncuRjpo9D09p1yHlhMYGxHnC 298Pj7u1AwEAAJCWPC3l0sWkvGCVEZrUDkQq6nl0WnwT4Nlt2nUAAABIP3HT rDmwSTpkuuseaQciRcWm5wmvkn5zfL2N2oEAAABIM30vLkjHy9pDm+PxuHYg Upe77qH4y3Pkc+06AAAApJNYcMKRv1I6Xo53u7QDkdKS/9FtsOKGdiAAAADS RuvVIulg2XZtj3Yd0sB4Z604T7horck8YQAAALyBwHCXLWth4lFLuUsYtYQ3 1HIpX7qedN45rF0HAACANOA6+bV0pBywXdauQ9oIjQ3ast9L+Itky1nMJRcA AADJvaq5L11MnHs+MqMR7UCkk57HZ6Rfp4aSrdp1AAAASF1TVw/n7j9Kh0lv m1M7EGnGCAcqCleL84R7GrQDAQAAkKK67h+XjpGuk19r1yEtueseSb9UdcwT BgAAQCLhcbd9+/uJPx2QtXByuEs7EGkpHo/XHPyLPE/4unYgAAAAUk7zxR3S AbLr/nHtOqSx8c466VerYucaIxLSDgQAAEAK8bY5pdOjI39lLDihHYj01nq5 UJwnfPuQdh0AAABSRTwerz20WTo6vqq5rx2ItJd8nnDIM6wdCAAAgJQwYLss XUxqDmyKm6Z2IKyg92mJ9GvWfCFXuw4AAAD6jNBkecEH0qFxvLNOOxAWYYSD SeYJe5hQDQAAkPHaru2RjoutV4u062ApI64n0i9b7aG/xuNx7UAAAACoCbh7 bNmLpE8BhL2vtANhKck/2TRYfk07EAAAAGrqT38rHRT7XlzQroMFjXe9lOcJ f2iEg9qBAAAAUJDkC7srd60zomHtQFhT65Wd8jzhg9p1AAAAmG9mLOrcu178 YHJLuXYgLCvsHbbnLE74i2effich84QBAAAyS8/DU9LFxHVii3YdLK736Vnp 16/pXI52HQAAAOZPxDfqyF0qHA4XTA51aAfC4qbnCe/8UPyzXWuldiAAAADm SWNplviG/7tHtOuQEUZcT+V5wpuZJwwAAJAJfD0N0pnQkbciGvBpByIj/DJP +K/Sr+KA/ap2IAAAAObW9IHw8GfSgXC4+q52IDLIeLdLnCdcuJp5wgAAANY2 6PhZOg3W7N8YN03tQGSW1qtF0i9kx8392nUAAACYK0Y4UFG4WjoKeturtQOR cUKeYZs8TzjkGdIOBAAAwJxov14sXUxaLhdo1yFD9T4rlecJZ2vXAQAAYPYF R/ps2Yt4QI1UY0RClUVrpOvJGF8DCgAAYDkNZ/4tHf96n5Vq1yGjjdQ/Ez8G dfAvzBMGAACwkiTfJVFZtNaIhLQDkenqjnwuzxO+ol0HAACA2WEaMefej6WD 32iTTTsQSPa1O7/MEw5oBwIAAGAW9D4+I536Xh7/SrsO+FXbz7vlecI/aNcB AADgXUX8HnvuUuHIt8A/0KodCPwqPO6W5gnbst8LjQ1qBwIAAOCdNJ/fLj6L vn1Quw74nb7n58V5wqVZ2nUAAACYuYm+Zumk58hbHvF7tQOB3zGj4cqiteI8 4WaHdiAAAABmqO7IF9Ixb8h5S7sOSGC08YU4T/jAprhpagcCAADgrQ1V3JDO eFX7PombhnYgkFhtknnCtsvadQAAAHg7RjiY5Lu2vW1O7UBA5OttlH51ywtW xUKT2oEAAAB4Cx0390unu+aLO7TrgNdou7ZH+gVuv16sXQcAAIA3FRobsGW/ J89iHdAOBF4jPO62b39f+B1exO8wAABAumgs2So9c+59WqJdB7yRvhcXpF/j xrPfa9cBAADg9ZKMOaosWmOEg9qBwBuZnie8a508T9iuHQgAAIBk4qZRte8T 6Tg30vBcOxB4C6ONZfI84T8zTxgAACCV9T4pkc5ydUe+0K4D3lrd0S+lX+n+ skvadQAAAEgs4vc68pZLB7mJvmbtQOCtTfQ1yfOEPzCYJwwAAJCSWi7mSae4 jpv7teuAGWq/Xsw8YQAAgDTiH2gt27Yg4fnNsWNZxO/RDgRmKOwbsecukeYJ B0b6tAMBAADwO3XH/iY9Wx6suK5dB7yT/rJL4jzhkq3adQAAAPjNkPOWdHKr Kt5gGjHtQOCdGEnnCY82lmkHAgAAYJoRCVUWrZWObZ6Wcu1AYBaMNdvFecL7 NzJPGAAAIBV03j4kndmazuVo1wGzJskbF/teXNCuAwAAyHQhz5A9ZzEfE0Ym 8Pe3SHcTR/7KWNCvHQgAAJDRmkqzpNNaz6PT2nXALGu/sU/6hW+7tke7DgAA IHMleQd+ReFqIxzQDgRmWWRizJG7VPpDYZA/FAIAAGiIm2bN/o3S3cTteqId CMyJAdtl6de+4cx32nUAAACZqO/5OemEVnv4s3g8rh0IzAkzGqnc/Qd5nvAL 7UAAAIDMEg34HHkrpOOZr7dROxCYQ2PNDumXv/qHPzFPGAAAYD61Xi6Uzmbt 14u164A59/L438V5ws/Pa9cBAABkCv9ge9m2BYknqeYujUyMaQcCc84/0Cq9 Csqn5wlPaAcCAABkBNeJLdIT4wH7Ve06YJ503NwvzhP+ebd2HQAAgPUNV9+V zmPOvevjRkw7EJgnyecJB9w92oEAAABWZkTDlbvWiROKmmzagcC8GrBfkecJ /1u7DgAAwMq67h2VTmJNpVnadcB8M2NR556PpBfFSP0z7UAAAABrCnmGbTmL eQcL8D+NtZRLd5OqfZ/ETUM7EAAAwIKazuVIZ7DuBye16wA1SeYJ9z4r1a4D AACwmiQPh8sLVhmhSe1AQI1/sE2cqp23IhrwaQcCAABYR9w0aw5sku4m7rpH 2oGAsiTzhFuvFmnXAQAAWEd/2UXp3FV7aHM8HtcOBJRF/B67NE84a2HgVbd2 IAAAgBXEghOO/JXS3WS826UdCKSEQcfP4jzh0//SrgMAALCC1qtF0omLL78G /q/XzBN2PdUOBAAASG+B4S5b1sKEZy177pLwuFs7EEghntZK5gkDAADMEdfJ r6WzVn/ZJe06IOW4Tv5DnCf89Kx2HQAAQLp6VftAOmU593xkRiPagUDK8Q+2 y/OElzNPGAAAYAamrh7O3X+U7iae1krtQCBFdd4+KM4TvrJTuw4AACD9dD84 IZ2vXCe/1q4DUld00uvYsUyaJzw53KUdCAAAkE7C42577hIOV8DMDJZfk672 9T/+U7sOAAAgnTSe/V46WXXdO6ZdB6S6uBFz7l0vzxN+oh0IAACQHsa7XdKZ ypG/Mhac0A4E0oCnzSmOktj7sWnEtAMBAABSXTwerz20WTpTvaq5rx0IpI0k I7h7n5Zo1wEAAKS6AfsV6TRVc2BT3DS1A4G0MTncKX116fQ84clx7UAAAIDU ZYQmyws+kO4m45112oFAmum8fUicJ3y5ULsOAAAgdbVd28P3MgCzKOL3OvKW yyPvOrUDAQAAUlHA3WPLXpT4EJWzOOx9pR0IpKXBiuviPOFT32jXAQAApKL6 099KJ6j+Fxe064B0ZU7PE/5YenG56x5pBwIAAKQW98vH0tmpctc6IxrWDgTS 2FizXXp9VRV/HGeeMAAAwP9hxqJJvidurNmhHQikvYaSrdJLrOfxGe06AACA VNH98JR0anKd2KJdB1hBYLhLnCe8Y1nE79UOBAAA0BfxjTpyl4pzhIY6tAMB i+i8c1h6CNByKV+7DgAAQF/TuWzpvDR1lNKuA6wjOjkuzRMu27bAP9iuHQgA AKDJ19MgXUwceSuiAZ92IGApgxU3xPdPnvyHdh0AAICaeDxee/gz6aQ0XHVH OxCwGtOIVRVvkOcJP9QOBAAA0DFYfk06I9Xs3xg3Te1AwILGmh3S68655yPm CQMAgAxkhAMVhaulM5K3vVo7ELCsxrPbxHnCj05r1wEAAMy39hv7GBkEqAi8 6k46T9ijHQgAADB/giN9tuxFCY9G9pzFIc+QdiBgcV33jooPBy7madcBAADM n4Yz/5bORX3PSrXrAOuLBnyOvBXSPOFJ5gkDAIDMMFL/TLqYVBatNSIh7UAg Iww5b4nzhE9s0a4DAACYc8lHmI42lmkHApkibhpV+z6RXoyvau5rBwIAAMyt nsdnpLPQy+NfadcBmWWspTzJPGEzFtUOBAAAmCsRv8eeu1R6i7t/oFU7EMg4 jaVZ0vWk++Ep7ToAAIC50nwhVzoFdd4+qF0HZKKAu0ccmpe7NDIxph0IAAAw +yb6mqWLiSNvecTv1Q4EMlTXvWPSa7P5Qq52HQAAwOyrO/KFdP4ZqrypXQdk rlhwojx/JW+2BAAAGWKw4oZ0Mana90ncNLQDgYw25LwtD6n4u3YdAADArDHC wcqiNdLJx9vm1A4EMt0v84Q/lV6kw9X3tAMBAABmR8etA7ybHUhxntZKcZ7w 7j+a0Yh2IAAAwLsKjQ3Yst9LeOCZ+u9T/6odCOBXzedzxHnCD05q1wEAALyr xpKt0mmn98lP2nUAfhNw90rzhB3MEwYAAGlutLFMuphUFq0xwkHtQAC/0/3g hPgOzPPbtesAAABm6JdP134inXNG6p9pBwL4b7Gg3yHOE/5f/v4W7UAAAICZ 6H16Vjrh1B35QrsOQGLD1XfFV+6xv2nXAQAAvLWI3+vIWy6dcCb6mrUDASQW N82a/RvlecJ3tQMBAADeTsulfOls03HzB+06AMl42pziJ8V2/8GIhrUDAQAA 3pR/oLVs24LE0352LIv4PdqBAF6j+fx2eZ7wCe06AACAN1V37G/SqWaw/Jp2 HYDXC4z0SfOE7blLIr5R7UAAAIDXG3Leli4mVcUbTCOmHQjgjXQ/OCnPE87R rgMAAHgNIxKqLFornWc8LeXagQDelBGaLC/4QJ5o0aQdCAAAkEznncM8aAUs Y7j6njhP+OiX2nUAAACikGfInrM44THGlr0oMNKnHQjg7cRNs1qeJzzkvK0d CAAAkFhTaZZ0hul59KN2HYCZ8HZUi/OEd61jnjAAAEhBo0126QBTUbjaCAe0 AwHMUPOFXOnV3XXvmHYdAADA7yT/IukR1xPtQAAzFxztF+cJb38/PO7WDgQA APhN3/Pz0sWk9vBn8XhcOxDAO+l+eEp6jTeWZmnXAQAA/Coa8DnyVkjnFl9v o3YggHcVm54nvIp5wgAAIMW1XC6UTizt1/dq1wGYHa9q7ovzhI98oV0HAADw H/9guy1rYcLjiiN3acQ3qh0IYHZMf6zswCZ5nvAt7UAAAJDpXCe2SGeVAfsV 7ToAs8nbUSPOEy5aazJPGAAA6EnyndHOvevNWFQ7EMAsa7mYJ88TPqpdBwAA MpQRDVfuWiedUkabbNqBAGZfaGzQlv0e84QBAEBK6bp3TJwpenabdh2AudLz 6DSvfQAAkDpCnmFbzuKEhxNb9qKAu0c7EMBcMcKBisLV4tjwngbtQAAAkFma zuVIJ5PuBye06wDMLXfdQ3me8OfadQAAIIN4WiukY0l5wSojNKkdCGBuvWae cOVN7UAAAJARkp9J3HUPtQMBzAdvZ620DlTsXGNEQtqBAADA+vrLLkkHktpD m+PxuHYggHnScilfWg067xzWrgMAABYXC0448ldKp5Hxbpd2IID5k2SesC1n cdj7SjsQAABYWevVXdLFZOqftOsAzLeex2ekNaGhZKt2HQAAsKzAcJcta2HC Q4g9dwnfuQZkICMcTDpPuF47EAAAWJPr5NfSCaS/7JJ2HQAd7rpH8mfQ/spn 0AAAwKxL8nUGzj0fmdGIdiAAHVO3j9pDm8V5whU3tAMBAIClTF09nLv/KJ09 PK0V2oEANI13vZTWh8qiNUY4qB0IAACso/vBCengUX/qG+06APpaLxcyTxgA AMy18Ljbnrsk8ZjQrIWTw13agQD0hTxD9pzFiWdlTM8THtYOBAAAVtB4dpv0 OLTr3jHtOgCpovdpibRWNJ3L0a4DAABpb7zbJR02HPkrY8EJ7UAAqWJ6nvDO D8UPprU5tQMBAEAaSz5+Z7j6nnYggNQy4noirRg1hzYzTxgAAMzYgP2KeMw4 sClumtqBAFLLLw80/iqtG4Pl17QDAQBAWjJCk+UFq6QzxnhnnXYggFSU5I2g FTs/ZJ4wAACYgfbre6UDRsvlQu06AKmr9cpOafXouH1Quw4AAKSZgLvHlr0o 8dzg6XGgr7QDAaSukGfYJs8TDnmGtAMBAEA6qT/9rfTYs+/5ee06AKmu9+lZ eZ5wtnYdAABIG0km7VTuWmdEw9qBAFKdEQ5WFq0R5wm3VmoHAgCANGDGos69 66UTxWiTXTsQQHoYcT0VB/0d/AvzhAEAwGv1PPpROk64TmzRrgOQTmoPfybO E3b8rF0HAABSWsQ36shdmvgj8FkL/YPt2oEA0omvp0GcJ1y42ggHtAMBAEDq aj6fIx0kOu8c1q4DkH5arxaJ84RvHdCuAwAAKSrJE05H3opowKcdCCD9hL2v pHnCtuz3QmOD2oEAACDlxOPxJO8MH3Le1g4EkK56n5WK84RLs7TrAABAyhks vyZO1Nm/MW6a2oEA0pURCVXsFOcJj7WUawcCAIAUYoQDFYWrpZODt71aOxBA ehupfyY+/TiwiacfAADg/+q4+YN0bGi5lK9dB8AKao98Lq0zA/Yr2nUAACAl BEf6bNmLEh4Y7DmLQ54h7UAAVuDrbZTuJuUFq2KhSe1AAACgr+HMv6UDQ+/T s9p1AKyj9eoucZ7wzf3adQAAQFmSN4FXFq01IiHtQADWER5327e/L88THtAO BAAAakwjVlW8QbqbjDaWaQcCsJq+5+elNafx7PfadQAAQE3vk5+kQ8LL419p 1wGwIDMarty1Tpwn3OzQDgQAAAoifo9jxzLhhLDAP9CqHQjAmkYbX8jzhP/M PGEAADJQ84Vc8UOptw5o1wGwsrqjX4rzhG2XtesAAMC8muhrlg4GjrzlEb9X OxCAlU30NcnzhD8wmCcMAEAmqTvyhXQwGKy4oV0HwPraru2RVqH2G/u06wAA wDwZqrwpHQmq9n0aNw3tQADWF/aN2HOXCPOEFwVG+rQDAQDAnDPCwcqiNdLd xNvm1A4EkCn6XlwQ5wmXbNWuAwAAc67z9kHpMNB8IVe7DkAGMV4zT9iuHQgA AOZQaGzAlv2e8CYKvpQZwHwbbSwT5wnv38g8YQAALKyxZKt0DOh5fEa7DkAm qjv2N2ld6i+7pF0HAADmRJLnk5VFa4xwUDsQQCZKNtI8f2Us6NcOBAAAsyxu GlX7PpEOACP1z7QDAWSu9ut7xXnC14u16wAAwCzre1Yqbf11R77QrgOQ0SK+ UUfuUmmecJB5wgAAWEjE73XkLZfuJhN9zdqBADJdf9lFaY1qOPOddh0AAJg1 LZfyxfdL8P3LAFKAGY1U7v6DtFKNNpZpBwIAgFngH2gt27Yg8edMdyyL+D3a gQAwbazZLt1Nqn/4E/OEAQCwgCTzOQfLr2nXAcBvXh7/Slqv+l5c0K4DAADv ZLjqjrTRVxVvMI2YdiAA/CbJ33nLp+cJT2gHAgCAGTIiocqitdLdxNNSrh0I AP+t/XqxtGq1XdujXQcAAGao885haYtvOpetXQcACUQmxpLMEw64e7QDAQDA Wwt5huw5i/m+AABpp7/skjxP+N/adQAA4K01lWZJm3v3w1PadQAgMqMR556P 5HnCL7QDAQDAWxhrdkjbekXhaiMc0A4EgGSSLGJV+z6Jm4Z2IAAAeCNx06zZ v1Ha1t0vH2sHAsDrvTz+d3Ge8PPz2nUAAOCN9L+4IG3otYc/i8fj2oEA8Hr+ wTbxe2PzVkQDPu1AAADwGlP79dSuLd1NfL2N2oEA8KY6bv4gzhP+ebd2HQAA eI3WKzv5agAA1hDxe+zMEwYAID35B9ttWQsTvwUid2nEN6odCABvZ8B+RZwn fPpf2nUAAEDkOrFF2sSn9nftOgB4a2YsmmSe8Ej9M+1AAACQwKua+9L27dy7 fmp/1w4EgJnwtJQzTxgAgDRiRMOVu9ZJ2/dok007EABmznXyH9L61vusVLsO AAD8Tte9Y9LG3Xj2e+06AHgnk4Pt8jzh5cwTBgAgdYQ8w7acxYyyAWBhHTf3 S09gWq8WadcBAIBfNZ3Lkbbs7gcntOsAYBZEJ72OHcsSP4TJWjg53KUdCAAA /uNprZQuJuUFq4zQpHYgAMyOAftVabmr//Gf2nUAAGS6uGnWHNgkbdavah9o BwLArIkbMefe9eI8YddT7UAAADJaf9klaZuuPbQ5Ho9rBwLAbPK0VojzhIs3 mEZMOxAAgAwVC0448ldK2/R4t0s7EABmn+vk1+I84adntesAAMhQbT/vZmoN gEwzOdRhy1oozhOeHNcOBAAg4wSGu6Td2Z67JDzu1g4EgLnSefug+GTmyk7t OgAAMk6SdzX0l13UrgOAORTxex15y+V5wp3agQAAZBB33SPpYuLc85EZjWgH AsDcGiy/Js4TPvWNdh0AAJli6uoxdQGRNuWxlnLtQACYc7/ME/5Ynif8RDsQ AICM0P3gJE8LAcDb5pTnCX8cZ54wAABzLDzutucukd9l3aUdCADzx3XqG3me cIl2HQAAFtdUmiVtxF33jmrXAcC8SjKx0JG3POL3agcCAGBZ490u6WLiyF8Z C05oBwLAfOu8fUicJ3y5ULsOAABriptm7aHN0hY8XH1XOxAAFEQnx6V5wmXb FkwOdWgHAgBgQQP2q9LFpObApqmbi3YgAOgYrLguLY+uk//QrgMAwGqM0GR5 wSpp8x3vrNMOBAA1phGrKt4grZDuukfagQAAWEr79WLeUA0AktEmu7RIOveu Z54wAACzJeDusWUvSrjn2re/H/a+0g4EAH0NJVul60nP4zPadQAAWET96W+l Dbfv+TntOgBICZNJ5gnvWBbxe7QDAQBIe27XE+liUrlrnRENawcCQKrovHNY WjBbLuVr1wEAkN7MWNS5d7201Y4127UDASCFRAM+R94KcZ7wYLt2IAAAaazn 0WlxMOaJLdp1AJByBitusGwCADDrIr5RR+7ShDusLWuhnweAAPD/iJtG1b5P mCcMAMDsajqXI22vnbcPadcBQIrytJSL84T3fGTGotqBAACkGV9Pg7S3OvJW RAM+7UAASF2NZ7eJ84QfndauAwAgncTj8drDn0kb65DzlnYgAKS0ZF8Llbs0 MjGmHQgAQNoYrLguXUxq9m+Mm6Z2IACkuq57R8V5whfztOsAAEgPRjhQUbha 2lK97dXagQCQBqIBX3n+SmmesH+gVTsQAIA00HFzP8/6AODdDTlvScvpy+N/ 164DACDVBUf6xPdI5ywOeYa0AwEgbfwyT/hT6XryqvaBdiAAACmt4cy/pW20 90mJdh0ApBlPa4U4T3j3H81oRDsQAIAUNdLwXNpDK4vWGpGQdiAApJ/G0ixp ae1+eEq7DgCAVBQ3YlXFG6QNdLTxhXYgAKSlgLtXeq+sg3nCAAAk0vu0RP7M 5lfadQCQxrruHZMW2OYLudp1AACklsjEmGPHMmZdAsBciAUnHEnmCfe3aAcC AJBCmi/ukJ7pddzcr10HAGlvyHmbv00DAPBaE33N0o7pyFse8Xu1AwEg7cVN s/qHP4nzhGvuawcCAJAS6o58IW2XQxU3tOsAwCI8bU5xFuLuPxjRsHYgAADK knxtcdW+T+OmoR0IANbRfD5HWnJ7mCcMAMhsRjhYWbRG2ii9bU7tQACwlOBI nzRP2J67JOIb1Q4EAEBNx+2D4ljL89u16wDAgrofnGDhBQDgv4TGBmzZ7yXc H6f++9S/agcCgAXFgv7ygg+k68lEX7N2IAAAChpLtkqbY+/jM9p1AGBZw9V3 peW37uiX2nUAAMy30SabOC6maI0RDmoHAoBlTc8T3r9RWoSnbi7agQAAzJ+4 aVTt+0TaFkdcT7UDAcDivB3V4gOiXeuYJwwAyBy9z0p5OwEA6Go+v11airsf nNCuAwBgPkT8XkfecmFDXMDHMAFgfgRH+5PMEw6Pu7UDAQCYcy2XC6Qnde3X i7XrACCDdD84Kc8TztGuAwBgbvkHWsu2LUi4Dzp2LIv4PdqBAJBBjNBkecEq eZ5wk3YgAABzqO7Y36RNcNDxs3YdAGSc4ep74gcAj3yhXQcAwFxJMlG/qniD acS0AwEg48RNs+bAJnGecNUd7UAAAGafEQlVFq2Vtj9PS7l2IABkKG9HjThP uGityTxhAIDldN49Iu19jaVZ2nUAkNGaL+RKS3TX/ePadQAAzKaQZ8ieszjh rmfLXhQc6dMOBICMFhobsGW/l3ie8Pb3mScMALCSptIs6Ylcz8NT2nUAgP90 PzwlLdRN57K16wAAmB2elnJpv6soXG2EA9qBAID/xEKTU2uytFz7ehq0AwEA eFfTE2D2b5Q2O3fdI+1AAMCvXtXcl5br2iOfa9cBAPCu+l5cEHe6w5/F43Ht QADAr5LPEx5y3tIOBABg5qIBnyNvhfgOgd5G7UAAwO94O2vFd+HuXGNEQtqB AADMUOvVImmPa7u2R7sOAJBA88Ud4jzhe8e06wAAmAn/YLsta2HC3c2RuzTi G9UOBAAkEBoblOYJ23IWh72vtAMBAHhrrhNbpCdvA7bL2nUAAFHPo9PiPGG+ LRcAkG6SDHtx7l1vxqLagQAAkREOJJ0nXK8dCADAmzKj4cpd66RNzdvm1A4E ALyGu+4hUxYBABbQdf+4tKPVn/5Wuw4A8HpTt4/aQ5vFecKVN7UDAQB4vZBn 2JazOPGHKLMXBdw92oEAgDcy3lkn3U0qi9YY4aB2IAAAr9F0LkccPnn/uHYd AOAttFzKl5b0zrtHtOsAAEjG2+aUdrHyglVGaFI7EADwFkKeIbv0p/DpecLD 2oEAACQWN82aA5uku8mrmvvagQCAt9bz+Iy0sDee/V67DgCAxAZsl8WhLoc2 M9QFANKREQ5W7PxQnCfc7dIOBADgv8WCE478ldLmNc7mBQBpy133SFrea3j0 BABIPW3X9kg7V+vVIu06AMDMTd0+apLME664oR0IAMBvAsNdtqyFCfcse+6S 8LhbOxAA8E583S7pblKx80PmCQMAUofr5NfSntX34oJ2HQBgFrRcLhDnCd85 rF0HAMC0JO9Ddu75yIxGtAMBALMg7BW/WteeszjkGdIOBABkuqmrx9QFRLqb eFrKtQMBALOm98lP0oLffD5Huw4AkOl6Hp6S9qn6U99o1wEAZpMRDlYWrRGf R7U5tQMBAJkrPO625y5JuEPZshYGhru0AwEAs2zE9US6m/BVVgAARY2lWeLn Iu8e0a4DAMy+qdtH7eHPpMV/sPyadiAAIBONy/MkHfkrY8EJ7UAAwJzw9dSL 84QLVxvhgHYgACCzxE2zVv4eruHqu9qBAIA51HK5UNoCOm4f1K4DAGSWQcfP 0q5Uc2DT1M1FOxAAMIfC3lfSPGFb9nuhsUHtQABApjBCk+UFq6S7ibezVjsQ ADDnep+USBtBY2mWdh0AIFO0Xy+W9qOWywXadQCA+WBEQhU75XnCrZXagQAA 6wu4e2zZixLuRPbt74c8w9qBAIB5MuJ6yvt7AQCK6k9/K+1Evc9KtesAAPOq 9sjn4jxhx8/adQAAK0vyiKxy1zojGtYOBADMK19PQ5J5wrHQpHYgAMCazFjU uXe9tAeNNtm0AwEAClqvFonzhG8d0K4DAFhT7+Mz0u7jOrFFuw4AoCM87rZv f1+eJzygHQgAsJqIb9SRuzTx1pO10D/Yrh0IAFDT96xUnCd8dpt2HQDAaprP bxf/ZM9XAANAZjOj4cpd66RtYqylXDsQAGAdST7q6MhbEQ34tAMBAMpG6p/J 84T/zDxhAMCsiMfjtYc/k3acIect7UAAQEqoO/qltFkM2K9o1wEArGCo4ob4 KGz/Rh6FAQD+fxN9TdJ+UV6wymCeMADg3RjhQEXhammv8bZXawcCAFJI69Vd 4ocTb+7XrgMApLeprUTaZZov7tCuAwCklrBvxJ67RJgnvCg42q8dCABIV8GR vqmtJOEWY89ZHPIMaQcCAFJO3/Nz0kOthpKt2nUAgHTV8NN30v7S+7REuw4A kIqM5POEmx3agQCA9DPa+ELaWSqL1hqRkHYgACBFjTQ8l3aQaoaoAADeUtyI VRVvkHaWqU1HOxAAkNKSzRO2XdauAwCkk94nJdKe8vL4V9p1AIBUN9HXLM8T /iAW9GsHAgDSQ2RizLFjmbCnLPAPtGoHAgDSQNu1PdL1pP3GPu06AEB6aLmY x3R6AMA7ivhGHblLxXnCI33agQCAVJfkr/COvOURv1c7EACQNvpfXBDnCf/0 v7XrAACpru7IF9I+MlhxXbsOAJBOpucJ7/6DPE/Yrh0IAEhdQ85b0g5Ste/T uGloBwIA0sxoY5k4T/iHPzFPGACQkBEOVhatkXYQb5tTOxAAkJZeHv9K2lz6 yy5p1wEAUlHn7UPS3tF0Lke7DgCQrvwDrWXbFiT+JGP+ylhwQjsQAJBaQmMD tuz3hGkq7039q3YgACCNtV/fK84Tvl6sXQcASC2NJVulXaPn0WntOgBAepv+ 5ix5nnDA3aMdCABIFWPNduliUlm0xggHtQMBAGmvv+yiPE/4O+06AEBKiJtG 1b5PpP3C7XqiHQgAsAIzGnHu/qO03Yw2lmkHAgD09T0/J+0UdUe/1K4DAFjH aJONSfUAAEnE73XkLRd2igUTfc3agQAAS3l5/O/S9aTvxQXtOgCAptbLhQxO AQDMmyTzhMvzV0YDPu1AAICOZAPndyyL+D3agQAAC2q/Xiw9Fmu7tke7DgCg o+7Y36TdYcB+VbsOAGBNkYkxO/OEAQD/w3D1XfEDicUbTCOmHQgAsKz+skvS HlR/+l/adQCAeWVEQpVFa6V9wdNSrh0IALAyMxZ17vmIecIAgCld945KO0JT aZZ2HQDA+kabxK/9rdr3CfOEASBDhDxD9pzF0ht9gyN92oEAgIzgOvkPcZ7w 8/PadQCA+dBUmiXtBd0PTmrXAQAyxeRguzguMm8F84QBwPLGWsqli0lF4Woj HNAOBABkkI6bP4jzhH/erV0HAJhDcdOs2b9R2gXcdY+0AwEAmSU66XXsWJb4 bcZZCyeHu7QDAQBzpb/sonQxqT38WTwe1w4EAGScAfsVeZ7wt9p1AIA5EQ34 HHkrpPXf19uoHQgAyERxI+bcu17ankYanmsHAgBmX+vVIt7TCwBIQR75s5B8 HTAAWI9/sN2WtTDxLJTcpRHfqHYgACCjuU5+LV1Pep+VatcBAGaT68QWac3v L7ukXQcAyHSTQx3iM7S85dHJce1AAMDseFX7QLqYOPeuN2NR7UAAAP7TcXO/ tFu1Xi3SrgMAzAIzGq7ctU5a7T2tldqBAABMi/i9jrzl0jzhAPOEASD9dT84 wWxGAEBaGLBflfYs16lvtOsAAO8k5Bm25SxO/Awqe1HA3aMdCADAb+JGrKr4 Y3GecP0z7UAAwMw1nv1eWuG77h3TrgMA4L95Wivkz0h+HGeeMACkJ29nrbS8 lxesMkKT2oEAACRQf+obaf/qY54wAKShuGnWHNgkre2vau5rBwIAkNjkcGeS ecIRv1c7EADwdgbsV6SLSe2hzVM3F+1AAABEnbcPivOEr+zUrgMAvIVYcMKR v1Ja1ce7XdqBAAAkE50cTzJPeHKoQzsQAPCm2q7t4XETACCtDZZfE+cJn/xa uw4A8EYCw13S23TtuUvC427tQAAAXs+cnie8QbqeuF1PtAMBAK/nOvm1tJL3 v7igXQcAwJvytjnlecLrmScMACnO/fKxuIzv+ciMRrQDAQB4C/U//lPa13qf lGjXAQBEU1ePqQuItIaPNTu0AwEAeDuT8huVHTuWRSeZJwwAKar74SnpYlJ/ 6hvtOgAAZqLz9iFxwMvlQu06AEAC4XG3PXeJNG4xMNylHQgAwExEAz5H3grh erJgcrBdOxAA8N+azmVLj5U67xzWrgMAYOYGK67L84T/oV0HAPid8W6XtGg7 8lfGghPagQAAzNz0POF9n4jzhF8+1g4EAPwqbpq1hzZLK/Zw1R3tQAAA3pWn pTzZIMpYVDsQADAtyTfn1hzYNHVz0Q4EAGAWNJRslecJ/6RdBwD4jxGaLC9Y Ja3V3s5a7UAAAGZHwN1jy16UcL+z5y6NTIxpBwJApmu/sU+6mLRcyteuAwBg NnXeOSzuepcLtOsAIKMle4K0/f2QZ1g7EACA2RQN+MrzV0rzhP0DrdqBAJC5 6k9/Kz0+6ntWql0HAMDsG6y4Ie19L4//XbsOADLUSP0zaXGu3P0HIxrWDgQA YPbFTaNq36fiPOG6R9qBAJBxzFjUuXe9tDKPNpZpBwIAMFc8rRXJ5glHI9qB AJBZeh6fkZZl14kt2nUAAMytxrPfi/OEH5/RrgOADBLxjTpylyZckG1ZC/2D 7dqBAADMrSTTYBzMEwaAedR8IVd6WNR5+6B2HQAA86Hr3lGm6AOALl9Pg7QU O/JWRAM+7UAAAOZDLDjhYJ4wAOiJx+O1hz+T7iZDlTe1AwEAmD9DzlvyPOGv tOsAwOKSDHWv2b8xbpragQAAzJ+pja/6hz9JO+Or2gfagQBgWbHQZEXhamkF 9rZXawcCADDfvG1OaWfk274AYO503DogLb/NF3K16wAA0NFUmiXtjz2PftSu AwALCo70ScMS7TmLQ54h7UAAAHQk2SKn5wn7RrUDAcBqGn76Tnoo1PvkJ+06 AAA0dd07Jr614OIO7ToAsJTRxjLxzbRFa41ISDsQAABNsaC/vOADaa+c6GvW DgQAi4gbsariDdJ6O1L/TDsQAAB9Q87b0l5Zd/RL7ToAsIjep2cZ3g4AQHLT 84T3bxTnCdfc1w4EgLQXmRhz7FgmrLR86S0AAL/xtleJb4HetY55wgDwjlou 5UvLbMfNH7TrAABILU3nssV5wg9PadcBQBqb6Gsu27Yg8VDEvOURv1c7EACA 1BJIMnI/d0nYN6IdCADpqu7IF9LDn8Hya9p1AACkoq77x8V5wnxVMQDMSJJ5 I1X7Po2bhnYgAACpyAhNlheskucJN2kHAkCaMcLByqI10rrqbXNqBwIAkLqG q+8yTxgAZkvnncPi36PP52jXAQCQ0uKmWXPgz9JOOnVz0Q4EgLQRGhuwZb+X cDmd+u9T/6odCABAqvO2VyeZJ2wyTxgA3kxjyVZx/uGjH7XrAABID03ncqT9 tPvBCe06AEgDo0128TlP0RojHNQOBAAgPSR5H4J9+/vhcbd2IACktLhpVO37 RLqbjLieaAcCAJBOuh+ckHbVpnN8fhMAkul7fp65IgAAzJZYaLKicLW0t/p6 GrQDASBFRfxeR95yYf1cMNHXrB0IAED6Ga6+J91Nao98rl0HACmq5XKhtHi2 X9+rXQcAQFr6ZZ7wJnGecNUd7UAASDn+gdaybQsSLpuOHcsifo92IAAA6Wq8 s1aeM7PWiIS0AwEgtbw8/pW0bA7Yr2jXAQCQ3pov5Er7bNf949p1AJBCkrwV tqp4g2nEtAMBAEhvobFB8XuNcxaHva+0AwEgJRiRUGXRWulu4mkp1w4EAMAK eh6ekucJZ2vXAUBK6Lp3TFoqG89u064DAMAijHAg6Tzheu1AAFAW8gzZcxYn /hNz9qLgSJ92IAAA1vGq5r44T/jwZ/F4XDsQADQ1lWZJi2T3gxPadQAAWErc NGsPbZZ23iHnLe1AAFDjaa2QlseKwtVGOKAdCACA1Yx31snzhNcY4aB2IAAo mP4qqP0bpeXRXfdQOxAAAGtqvrhDnCd875h2HQAo6C+7xFteAQCYf8k+7Jmz OOQZ1g4EgHkVDfgceSvkUSEN2oEAAFhZz6MfxXnCpVnadQAwr1qv7pKWxKl/ 0q4DAMDijHCwYueH4kPCbpd2IADME/9guy1rYcLF0JG7NOIb1Q4EAMD6XtU+ EN9cfeivvLkaQIZwndgiLYb9ZZe06wAAyAhTt4+aJPOEK29qBwLAnHPXPZSW Qefe9WYsqh0IAECm8HW7xGH+Oz9knjAAazOj4cpd66Rl0NNaoR0IAEBmabmU L+3LnXePaNcBwBzqfnBCWgDrT3+rXQcAQMYJe4dtwjxh+/Q84SHtQACYEyGP uPrZshcF3D3agQAAZKLex2ekJ4eNZ7/XrgOAOdF4dpu09PEttAAAaDHCwcqi NdIePd71UjsQAGaZt7NWWvTKC1YZoUntQAAAMpe77pE8T3gz84QBWEncNGsO bJIWveHqe9qBAABktKnbR+3hz8R5whU3tAMBYNYM2K8kexpjmtqBAABkOl9P vThPuHC1EQ5oBwLALIgFJxz5K8V3sXa7tAMBAMC0lssF4jzhO4e16wBgFrRf 3ystdC2XC7XrAADAr8LeV8nmCY8NagcCwDsJDHfZshYmXuVyl4TH3dqBAADg N71PfhLnCZds1a4DgHfiOvm1tMT1PT+vXQcAAH7HiIQqdorzhL2dtdqBADBD I64n0uLm3PORGY1oBwIAgP/mfvlY2r5rDmxigg2AdDR19Zi6gEiL22iTXTsQ AAAkVnvkc2kHHyy/pl0HAG+t59GP0rJWf+ob7ToAACDy9TQkmScc4xuTAaSV 8Ljbnrsk4Zpmy14UGO7SDgQAAMm0XC6Uricdtw9q1wHAW2g+n8OAdAAA0tf0 Y8bt7wuPGd8LjQ1oBwLAGxnvdkkXE0f+ylhwQjsQAAC8Xu+TEnGe8Nlt2nUA 8Hpx06w9tFlayoact7UDAQDAGzGj4cqiteI84TandiAAvMZg+TUGDwIAYA1u +esA2NYBpDgjNFlesEp8wMIXNgEAkG7qjnwhzhN2/KxdBwCijps/SMtXy6V8 7ToAAPDWJvqapM29vGCVwTxhACkp4O6xZS9KuHbZt78f8gxrBwIAgJlovVok zhO+dUC7DgASqD/9rbRw9T49q10HAABmKPnXlgVH+7UDAeB3RuqfSReTyt1/ MKJh7UAAADBzfc9KpY2+oWSrdh0A/MaMRZ1710tL1mhjmXYgAAB4J9PzhHet k/Z6T2uFdiAA/Kr3yU/SYuU6sUW7DgAAzIIk75Go3r+RecIAUkHEN+rIXZr4 PahZC/2D7dqBAABgdtQd/VK6ngzYr2jXAcB/mi/kMrsDAIBMkHSe8AexoF87 EEBG8/U0SGuUI29FNODTDgQAALOp9eou8Znkzf3adQAyVzwerz38mbRADVbc 0A4EAACzLOIbTTZPeKRPOxBAhhqqvMln4gAAyDR9z8+J84R/+t/adQAyUSw0 WVG4WlqavO3V2oEAAGBOGNFw5e4/iPOEW8q1AwFknM7bB6VFqflCrnYdAACY QyMNz6VjQA3vnQAwv4IjfbbsRQlXJHvO4pBnSDsQAADMrZfHv2KeMIBU0PDT d9Jy1PP4jHYdAACYc/7+lrJtCxLP6sxfGQtOaAcCyAijjWXSxaSyaK0RCWkH AgCA+dB2bY90JGi/sU+7DoD1xY1YVfEGaSEaqX+mHQgAAOZJZGLMkbtUmicc cPdqBwKwuL5npdLF5OXxr7TrAADAvOp/cUGeJ/yddh0AK5t+PLJjmbAELfAP tGoHAgCAeWVGI87df5SuJ6NNdu1AAJbVcimft5UCAID/KckHUav2fRo3De1A ABY00dckjuPIWx7xe7UDAQCAjpfH/y5dT/rLLmnXAbCguiNfSMvOYPk17ToA AKDGP9AqPcAsz18ZDfi0AwFYynDVHf5cCwAAJO3X94pv/L5erF0HwDqMcLCy aI204HjbnNqBAABAWWRizJ5snnCPdiAAi+i8c1i6mDSdy9auAwAAKaG/7KJ0 YKg//S/tOgBWEBobsGW/JzwGeW/qX7UDAQBASjBjUeeej+R5wjbtQABpr7Fk q7TIdD88pV0HAABSyNQFRP6A6id8QBXAuxhrdkgrTGXRGiMc1A4EAACpxXVi izxP+KJ2HYB0ZRqxqn2fSMuL++Vj7UAAAJByJgfb5S9EW8E8YQAz0//ignQx qTv6pXYdAABIUe3Xi+V5wnu16wCkn4jf68hbLiwsCyb6mrUDAQBAior4PY4d y6R5wpPDXdqBANJM65Wd0hOPtmt7tOsAAEBK6y+7JM8T/la7DkA68Q+0iu8U 3bEs4vdoBwIAgJQ2PU9473pxnnBjmXYggLTx8vhX0mIyYL+iXQcAANLAaJNd nCdcvME0YtqBANLAq5r7SVaSOCsJAAB4M66T/xDnCb+4oF0HINUZkVBl0Vpp GfG0lGsHAgCAtOEfbLdlLRTmCS+PTo5rBwJIaV33jkkXk8az32vXAQCANNNx 8wem6wCYgdDYoD1nsTTxLzjSpx0IAADSTHRS/FYCW9bCAPOEAQiaSrOkJxvd D05o1wEAgLQ0YL8iHTBcp77RrgOQijytldK6UVG42ggHtAMBAEBaihuxquKP pWPGSMNz7UAAqSVumjX7N0qLxqvaB9qBAAAgjXlayqVjhnPvx0wBBfA/Jfny 1trDn8Xjce1AAACQ3upPfSMdNvqen9OuA5AqogGfI2+FtFz4ehq0AwEAQNqb HO5MMk844vdqBwJICW0/75YuJq1Xi7TrAACARXTc3C8fOXZp1wHQl+xLkXKX Rnyj2oEAAMAiopPjSeYJTw51aAcCUOY6sUV6gtFfdlG7DgAAWMqA/ao4T/jk 19p1ADS56x7JQzPWm7GodiAAALAUc3qe8AZxnnD9M+1AADrMaLhy1zppcRhr KdcOBAAAFuRprZCOH1XFzBMGMlT3g5PSylB/+lvtOgAAYFn1P/5TnCf8rFS7 DsB8C3mG7dvfT/xhtOxFAXePdiAAALCsyeEucRTPjmXRSeYJA5mlqTRLel7R de+odh0AALC4jlsH+AoDAFO8nbXSalBesMoITWoHAgAAi0v61c8LJgfbtQMB zIe4adYc2CTdTYar72oHAgCAjDBYfk2eJ/wP7ToA8yHJXPHaQ5unbi7agQAA ICNMzxPe94l0LHG7nmgHAphbseCEI3+ltAiMd7u0AwEAQAbxtjmlY4lzz0d8 1Rpgbe3Xi8XPnV0u1K4DAAAZp+H0v6TDSe+TEu06AHMlIM/rs+cuCY+7tQMB AEDGCbzqtmUvEs4nSyN+j3YggDnhOvm19Fyi7/k57ToAAJChOm4flI4oLbyv A7Ait+tJsvdzRiPagQAAIEMlnyfsH2zTDgQwm6auHlMXEOluMtZs1w4EAAAZ bbDiunRQeXn879p1AGZTz6PT0uu9/tQ32nUAACDTxU2jat+n4jzhl4+1AwHM jvC42567JOEr3Za9KDDcpR0IAADwH09rBe8/Byyv6VyO9ErvvH1Iuw4AAOBX jSVb5XnCP2nXAXhX490u6TXuyF8ZC05oBwIAAPwq4O5JNk94Ykw7EMDMxU2z 9tBm6W4y5LylHQgAAPA7nXcOy/OEC7TrAMxckpEXNQc2Td1ctAMBAAB+Jxac KM9fKc4THmjVDgQwE0ZosrxglXQ38XbWagcCAAAkMFRxg3nCgMV03Nwv/kn0 Yp52HQAAQGJx06j+4U/iPOG6R9qBAN5Oso+SbX8/5BnWDgQAABB525ziPOHd f2SeMJBe6k9/K4/gK9GuAwAAeI3Gs9+Lh5nHZ7TrALypkYbn0mu5cvcfzGhY OxAAAOA1Au5e6U0gjtylEd+odiCA1zNjUefe9dLdZLTxhXYgAADAG+m8e0T8 8OylfO06AK/X+7REehW7TmzRrgMAAHhTsaDfIc8Tnuhr1g4EkEzEN+rIXZrw JWzLWugfbNcOBAAAeAtDlTelh651x/6mXQcgmeaLO6TXb8fN/dp1AAAAbydu mtX7N0rHm1e1D7QDASTm62mQXrmOvBXRgE87EAAA4K1526vEIT+71hkM+QFS Tzwerz38mfTKHaq4oR0IAAAwQ02lWdIhp+fRj9p1AP7bkPOW9Jqt3r8xbpra gQAAADMUGOkTv1Q6d0nYN6IdCOA3sdBkReFq6W7iba/WDgQAAHgnXfeOSUed 5os7tOsA/Kbj9kHx1Xp+u3YdAADAuzJCk+UFH0gHnom+Ju1AANOCSf7KmbM4 5BnSDgQAAJgFSd7BXnf0S+06ANMafvpOep32Pj6jXQcAADA74qZZc+DP4jzh mvvagUCmG22yiVP1itYakZB2IAAAwKzxtlcnmSdsMk8Y0BM3YlXFG6RX6Ijr qXYgAADALGs6ly3OE354SrsOyFy9z0ql1+bL419p1wEAAMy+4Gi/Lfu9xJ+0 3f5+eNytHQhkosjEmGPHMuFussA/0KodCAAAMCe67h8XJ5ReyNWuAzJRy+UC 6VXZfr1Yuw4AAGCuJP9mN19vo3YgkFkm+prKti1I+Hp05C2P+L3agQAAAHNo uOqOdDepPfK5dh2QWeqOfCG9HgcdP2vXAQAAzK1f5glvko5Dw9V3tQOBTDH1 cpNeiVX7Po2bhnYgAADAnBvvrOWbFABdRjhYWbRGeiV625zagQAAAPOk6VyO dCjqfnBCuw6wvs67R6TXYGNplnYdAADA/AmNDSabJ+x9pR0IWFlobEB6AU79 96l/1Q4EAACYV90PTkiPbZvO5WjXAVbWWLJVevXxRagAACADGeFAsnnCPQ3a gYA1eVrK5Q98rTHCQe1AAAAABUnGBNUd+Twej2sHAlZjGrGqfZ9Irzt33SPt QAAAAB3T84QP/kWcJ1x1RzsQsJq+FxfEBwJHv9SuAwAA0DTeWSedlCp28vYS YDZF/F5H3nLhFbdgoq9ZOxAAAEBZ84Vc6XrSdf+4dh1gHa1Xi6TXWtu1Pdp1 AAAA+kJjg/acxYnHmeYsDnmGtQMBK/APtJZtW5DwhebYsSzi92gHAgAApISe h6fkecLZ2nWAFbw8/pX0KhuwXdauAwAASBVGOFix80Pp4DTe7dIOBNLbq5r7 0uurqnhD3IhpBwIAAKSQJGen2kN/ZZ4wMGNGJFRZtFZ6fXnbnNqBAAAAqWXq 9lFzaLN0fBpy3tIOBNJV1/3j0iur4afvtOsAAABSka/bJc8T/pB5wsAMJJs1 kb0oONKnHQgAAJCimi/uEOcJ3zumXQekn6bSLGZ0AwAAzEDYO2wTnvHap+cJ D2kHAunE2+YU/xZZuNoIB7QDAQAAUlrPox/FecKlWdp1QNqIm0bN/o3Sq+lV zX3tQAAAgFRnhIOVRWvEecJdL7UDgfQwYLssvY7qjnzO7DsAAIA38ar2gTxP eDNnKuC1ogGfI2+F9Dry9TRoBwIAAKSHqdtH7eHPmCcMzFjbtT3SK6j1apF2 HQAAQDoZTzJPmM/wAkn5B9ttWQsTvnwcuUsjvlHtQAAAgDTTcilfup503j2i XQekLteJLdJrp+/FBe06AACA9BPyJJ0nPDaoHQikInfdI+liUlX8sRmLagcC AACkpd7HZ6RTVuPZ77XrgJRjRsOVu9ZJrxpPS7l2IAAAQLoyIqGKneI8YW9n rXYgkFp6Hp6SXi/1p7/VrgMAAEhvSd6gUnPwL3HT1A4EUkXIM2zf/n7CF4st e1HA3aMdCAAAkN7i8Xjdkc+l68lgxQ3tQCBVNJZmMT4CAABgTvl6GpgnDCTn 7ayVXiblBauM0KR2IAAAgEW0XC4QHwjfOaxdByiLm2bNgU3Sa2S4+q52IAAA gHWEx93yG+nfC40NaAcCmgYdP0sXk9pDm/lYFgAAwOzqffKTOE+4ZKt2HaAm Fpxw5K+UXh3j3S7tQAAAAKsxIqHKorXiPOGOGu1AQEf79WLpddFyuUC7DgAA wJrcLx+L84QPbOKNK8hAgeEuW9bChC8Ke+6S8LhbOxAAAMCy6o58Ic8Tvq5d B8w318mvpVdE77NS7ToAAAAr8/U2JhmUGmNQKjLJiOup9HJw7vnIjEa0AwEA ACyu5XKhOE/49iHtOmCeTF09pi4g0mthtMmmHQgAAGB90/OEc5dI84SDo/3a gcB86H18RrqY1J/6RrsOAAAgU/Q+KZFOZQ3ME0YGSHpDXxQY7tIOBAAAyBRm NFy5a504T7jNqR0IzK3m89ul3/+O2we16wAA+P/au/PoqOo87+M65zlznjnz /DNnzmgvTmvP9Gm72x67223aBWWRNYQAgqgIKiotIm4tqK1DKwTCGpYguwRk l1VWRUQEsu9kD9kqRRYqeyqVpVJVPjfEQcR8i+zfWt6vk9Onj6nc+txb94/f l7r3cwH/Ykk9LfcJv0yfMHxYTWGqdPJHL3qipaFOOyAAAIDfSdn4ptgnHHNI Ox3QK4y5O3ndDOnML40/ph0QAADAH9WZM+U+4Scd9AnDF5XGHpG/MeQJpAAA AGpyDobKfcJcdQ9fY0zcMYufEu+0yk/WDggAAOC/mmrL3bQVNZSbtQMCPSnv 6GppMMnau0A7HQAAgL8zn9kl9glv/7t2OqDH2CwmY+Ju91SPmj+2sapMOyAA AIC/c9ib4pY/K40nVTmx2gGBnpG29T3pPC/6Zod2OgAAALQqTzsj3h28ehp3 B8MHVGSck05yYzZ32pu0AwIAAOA75ze9Ja3ciqMOaqcDusXZYo9f+bx0hpen n9UOCAAAgO9ZL2ZHzAlsd+V2+Wl0Vu2AQNcVnd4hDSap4bO00wEAAOBaOQeX Seu3vKOrtdMBXdRcWxEdMq79Mrq5o6wludoBAQAAcC13S7jgIJulSDsg0BXZ excydAMAAHgd89ndcp/wbO10QKfVmtKlUzp64QS7rVY7IAAAANrntDfHL39O 7BPOjtEOCHSCy+VKXv+adD6XxB7WDggAAAB3ytPPSmu5xI9ecjkd2gGBjiqN PyaezJRjAwAAeIPzm2bKfcIHtNMBHdLSWB+7ZKJ0JlfnJmoHBAAAwPVZi3Ok PuGYRU9wiT68Qv7xddJgkrl7nnY6AAAAdNSFz5bL1UYfaacDrqOh3BwZHNTu CRw1b0xjVal2QAAAAHRUc11llLs+YZN2QMCd9O2zpeHadGqrdjoAAAB0zsVz e6TVXdrW97XTAaLKrCjp1I0LnexobtQOCAAAgM5p7RNeMUVa41VkRmkHBNrh crQkhL0onbeW1NPaAQEAANAVFRkR0hovYdVU+oThgdw8P/T8pre00wEAAKDr UsNnSSu9ixH7tNMBP9BcVxm9YLxwxgZai3O0AwIAAKDrrCUXpD7h6IUT6BOG R8nZv0QapXMPh2mnAwAAQHddOLSC9R48X505U56jH2+2VmsHBAAAQHc1W6uk 62Ra+4QvFWoHBFqlbHhDGqKLow5qpwMAAEDPuBixV+4Tfk87HfBtWeIXcm/D X+htAAAA8BnOFnv8yuflPuFI7YDwa46mhrjQSdL5WX0hXjsgAAAAepIxgLjp E3Y6WrQDwn8VnNgonZyZu+ZqpwMAAEDPS938ttwnvFc7HfxUY2VxZPBo4X6o 0cZvtQMCAACg51lLciPnjpJ6kOz1NdoB4Y8ydnwgjcyFJzdrpwMAAEBvyT0c JvcJr9ROB79TmR0jnZBxoZMcTQ3aAQEAANBb7PXV0Qsfb//6mbmjbGUF2gHh R5yOloRVU6XZxJJySjsgAAAAetfFiH1in/Anf9NOBz/ipto6ZeOb2ukAAADQ 61yOloSwF8Q+4YwI7YDwC26+wouYE1hnztIOCAAAgL5QkRklzSbxK19w0SeM 3pdzMFQ6CS98tlw7HQAAAPpO2pZ3xT7hc3u008HHWYtzIuYEtl8Zt2B8s7VK OyAAAAD6Tn1Zvps+4WZrtXZA+LLzm94SR+OIfdrpAAAA0Ndyj6wSL6o5tEI7 HXzWpeST0omXEPYilxQCAAD4oWaruz7h+tI87YDwQY7mxrjQydJsUpUTpx0Q AAAAOooj94t9wlve1U4HH1R4Mlw65dK3z9ZOBwAAADVOR0v8SrFPuDz9rHZA +JTGypKoeWPa/6ouOKih3KwdEAAAAJqqsmPki//pE0ZPytj5oXSyFZz4WDsd AAAA9KV98jdpxWg+u1s7HXxEdV6idJrFLpnoaLJpBwQAAIA+W1mB2Ce8YLy9 nj5hdJfL6UhaPU2aTS4lfakdEAAAAJ4i7+hqad2Yc3CZdjp4veKoA9IJlrLh dZfLpR0QAAAAnsJeX+OmT9hakqsdEF7MbquNXjhBmk1qTenaAQEAAOBZ3PzL durmt7XTwYtdOLRC/FbuwFLtdAAAAPA4TkdLwqqpYp9w2hntgPBK1pJc8W6m kHHNtRXaAQEAAOCJKuU+4fgVU5wtdu2A8D6p4bOkk+riuT3a6QAAAOC50re+ L/YJn9mlnQ5exnL+a+l0Sgh7gWkXAAAAbtguFUYGB0l9ws3WKu2A8BpOe1Pc smek2aQyK1o7IAAAADxd3rE1cp9wqHY6eI3Cr7ZIJ1La1ve00wEAAMALuG18 DbSWXNAOCC/QWFUWNX9s+63UwUE2i0k7IAAAALxDSfRnYp9w+CztdPACmbuD pVMo//P12ukAAADgNVxOh5s+YUvqae2A8GjV+cnSyROz+ClHY712QAAAAHiT qpw4d33C9mbtgPBQLqczac106eQpS/hcOyAAAAC8T/q2/5FWmEWnd2ing4cq iTkknTbJ62YYk4t2QAAAAHgfm8Uk9QlHhYxrrqvUDgiP09JQF73oCWk2qSlM 1Q4IAAAAb5V3fK20zszev0Q7HTxO7pFV4gmzb5F2OgAAAHixloa6GPGfwQOt xTnaAeFBbGUFkXNHCV+0PdZUY9EOCAAAAO/m5vaB85tmaqeDB0nd/I50qpjP 7NJOBwAAAK/ncjoSP3pJ7BM+/7V2QHiE8rQzFLsBAACgt7nrE17+HMtOGOeA MYBIJ0lFRoR2QAAAAPiOjB0fyH3C27XTQZnp623S6ZG25V3tdAAAAPApNkuR 1CccHTKuubZCOyDUNNVYokIea/fcMM4ZW1mBdkAAAAD4mvzP18t9wou100FN 1p4Q6cTIP75WOx0AAAB8UEuDVX6sXqD1YrZ2QCioLUyVBhPjbGlpqNMOCAAA AN9UGntEWoimfPxX7XToay6nM3ndDOmUKI07qh0QAAAAPstYiyatnib2Caec 0g6IPlUiz6pJa6YbZ4t2QAAAAPiyqgvx0nI0bvmzDnuTdkD0EUdjfczip6ST oTo/WTsgAAAAfF/Gzg/FPuGvt2mnQx/JO7ZGOg2y9oRopwMAAIBfsJWbpT7h qJDHmmrLtQOi19ksJvEcmD+2sapMOyAAAAD8Rf4XG8Q+4X2LtNOh16VtfU/8 7oxncQIAAKAPXb7X4ElpdVpnztQOiF5UkRHh5p4jJ/ccAQAAoG+Vxh0V+4Q3 vqmdDr3F2WKPX/m89NGXp53RDggAAAC/09onvOZluU/4K+2A6BVF3+yUPvTU 8Fna6QAAAOCnqvMSxWt7lj3DtT2+p7m2IjpkXLufeOTcUdaSXO2AAAAA8F+Z u+ZK44np1Cfa6dDDsvctkj7uvKMfaacDAACAX2uouBgZPFrsE66xaAdEj6k1 pUuDSfTCCXZbrXZAAAAA+LuCEx9LS9asvQu006FnuFyu5PWvSR90Scwh7YAA AADAty2tfcJPSavW2qIM7YDoAaXxx6WPOHH1NJfTqR0QAAAAaFUaf0zsE97w hnY6dJcxfsYumSh9xNW5idoBAQAAgO9c7hOeLq1dLyV9qR0Q3ZL/+Xrxsr1P 52mnAwAAAH6gOi9J7BMOnexobtQOiC5qKDdHBge13xs8b0xjVal2QAAAAOBa mbuDxT7hr7Zop0MXpW+fTU00AAAAvEtjZYnYJzx/bFP1Je2A6LSKzCi+DgMA AIA3Kvhyk3hjwp4Q7XToHJejJSHsRekDLU89rR0QAAAAEDmabG4KnWpN6doB 0Qnms59KH+X5TW9ppwMAAACuoyzhc7lP+HWXy6UdEB3SXFcZvWC88FEGWotz tAMCAAAA19HaJ7z2FWk8KUs8oR0QHZK9f4n0IeYeXqmdDgAAAOiQ6vxkaVkb u3SSo6lBOyCuo86cGTEnsN1PMHrh483Wau2AAAAAQEdl7p4njSeFJzdrp8N1 pGx4Q/r4iqMOaKcDAAAAOqGxsiRq3ph2F7eXH9hXph0QorLEE9JgkrDqLy6n QzsgAAAA0DmFJ8OlJW7m7nna6dA+R1NDXOgk6YOrvhCvHRAAAADoNGOVG7v0 aWmVW1OYqh0Q7Sg48bH0kWXsnKOdDgAAAOiissQvpIVu8rpX6RP2NI2VxZHB o9u/Ei94tPFb7YAAAABAFxnTR9K6GXKf8BfaAfEDGTs+kBsMwrXTAQAAAN1S U3BeWu7GhdIn7EGqcmL5pAAAAODbsvaE8K/xHs7paElYNVX6mCwpX2kHBAAA AHpAU3WZmz5h47faAfHtxYh90mCSsvFN7XQAAABAjzF9tUXuEw7WTufv7PXV 0QsfFz6gwDpzlnZAAAAAoMe4f2pGTcF57YB+LefgMumjMX6lnQ4AAADoYZeS vpQWwEnrZtAnrMVanBMxJ7DdzyV6wfhma5V2QAAAAKCHGdNH8rpXpfGkNP64 dkA/dX7TW9KHcjFin3Y6AAAAoFfUFKZKy+DYpU/TUtv3LClfSZ9IQtiLLkeL dkAAAACgt2TtXSAthgtOfKydzr84mhvjQidLH0dVTqx2QAAAAKAXNVaVRQp9 wlHzxjRWlmgH9COFJ8OlwSR9+2ztdAAAAECvM536RFoSZ+yaq53OXxhjoPjQ meCghnKzdkAAAACg1zmaGmKXin3C1fnJ2gH9QsbOOVxcBwAAAFxKPin2Ca99 xeV0agf0cdV5iWIpwZKJjiabdkAAAACgj7hcrpQNr8t9wse0A/oyl9ORtHqa dPDLEk9oBwQAAAD6VK0pnX+6V1EcdUA68sbAyEMwAQAA4Iey9y6Ub3nYqJ3O N9lttdELJ0iH3RgYtQMCAAAACpqqL0XNHytURY2mT7g35B5eKQ0m2fuXaKcD AAAA1BR9vU3sE945Rzudr7GW5EbOHdXu0Y4OGddcW6EdEAAAAFDj/tHk1XlJ 2gF9Smr4LOlQm89+qp0OAAAAUGZJOSX2Ca+ZTp9wTylPPS0d54SwF5wtdu2A AAAAgL6UDW9Iy+aS2CPa6XyB094Ut+wZ6SBXZEZpBwQAAAA8Qm1RhrRsjln8 VEtjvXZAr2c69Yl0hNO2vqedDgAAAPAg2fsWSYvn/M/Xa6fzbo1VZXIfWpDN YtIOCAAAAHiQphpLVMhjUp9wQ8VF7YBeLOvTecx9AAAAQMcVnd4uLaHTd3yg nc5bVecnu7lezsH1cgAAAMCPuL9fuzovUTug93E5nUlrpkuHtDT+uHZAAAAA wENZzn8t9wm/TJ9wZ5XEHBKP57oZHE8AAADAjZSNb8p9woe103mTloa66EVP SAezpjBVOyAAAADg0erMmfL9EU9yf0TH5R39SDqS2fsWaacDAAAAvEDO/iVi r9TxddrpvIOtrCAyOKjdYxgV8lhTjUU7IAAAAOAFmmrL5T7hIFu5WTugF0jd /I403xV9s1M7HQAAAOA1ir7ZIS2tM+gTvp7ytDPS0YtfMcVpb9YOCAAAAHgN h70pbvmzYp/whXjtgJ7LGD2MAUQ6dBUZEdoBAQAAAC9jST0t9t+unkb/rcTN IyzTtryrnQ4AAADwSikf/1XsE445pJ3OEzXVWNzdqlNWoB0QAAAA8Ep15qyI OYHtrrSjFz3R0mDVDuhxsvaESNNc3rE12ukAAAAAL5ZzYKncJ7xWO51nqS1M lY7V5VGuTjsgAAAA4MWaayuiQ8aJFylZirQDegqX05m8boZ4CVzsEe2AAAAA gNcr+mantORO3zZbO52nKI07KlYHrJlOdQAAAADQfa2luMufkxbeVTmx2gH1 ORrrYxY/JVYu5ydrBwQAAAB8hJuHCSZ+9JLL6dAOqCz/+Frp+GTtCdFOBwAA APiU85tmSsvv4qiD2uk02SymyOCgdo9M1PyxjVVl2gEBAAAAn2ItzpH6hGP8 u4Qqbet70tRm+nqbdjoAAADAB+UcDBUf3nF0tXY6HRUZEdIxiVv+rNPepB0Q AAAA8EHNdZVR7vqETdoB+5qzxR6/8nlpNilPO6MdEAAAAPBZRWd2yX3C/6Od rq+Z5aORGj5LOx0AAADgy1r7hFdMEfuEs2O0A/Ydd0+lnDvKWpKrHRAAAADw cW76hBNWTfWfPuHsfYuk45B7ZJV2OgAAAMAvpIbPkvuED2in6wu1pnTpCEQv nGC31WoHBAAAAPyCteSC1CfsDytzl8uVvP41aTYpiTmkHRAAAADwIxc+Wy73 CX+kna53lSV8Lu174uppLqdTOyAAAADgR5qtVdELxot9wpcKtQP2lpbG+tgl E6XZpDo3UTsgAAAA4HfMZz8V+4S3vq+drrfkf75e2uvM3cHa6QAAAAB/1Prk QblPuCIzSjtgz2soN0cGB7X/bdG8MY1VpdoBAQAAAD9VkXHOTZ+w09GiHbCH pW+fLe1v4VdbtNMBAAAAfi1189vScv1ixD7tdD2pMita2tO40MmO5kbtgAAA AIBfs5bkRs4dJfQJP26vr9EO2DNcjpaEsBel2cRy/mvtgAAAAAC+vXBohbRo zz0cpp2uZ1w8t0fax/Ob3tJOBwAAAKCVvb5a7BOeO8pWVqAdsLua6yqlHYyY E2gtztEOCAAAAOA7ZvlrhbRP/qadrrtyDiyV9u7CoRXa6QAAAAB87/LtGC/I fcKR2gG7rs6cGTEnULqhptlarR0QAAAAwA9UZESIfcJhL3pvn3DKhjek/SqO OqCdDgAAAEA70ra8K/cJ79VO1xWXkr4UB65Vf3E5HdoBAQAAALSjvjTPTZ+w 113+lJWWuvm14RunPnTuw4Af71H1hXjtgAAAAABEuYfD5D7hldrpOsFkMv3z P/3fGy779PUB1+xLxs4PtQMCAAAAcKfZWh298HGpT7i+LF87YIc4HI6B/fvd 8L+umU0ig0c3VhZrZwQAAABwHRcj9ol9wlve1U53fU6nc/LkyTdc5ZrZpPBk uHZGAAAAANfncrTEr5T7hDMitAO609jY+Nxzz93wQ1fPJnGhkxxNDdoxAQAA AHRIZVaU3Cf8gstT+4TPnj17++233/AjV88ml5JPascEAAAA0AmpbvqEz+3R Tnctq9X6yiuv3HjjjT8eTK6eTVI2vqmdFAAAAEDn2MoK3PQJ2+s9qE/4iy++ uPXWW9udSn44mwTWmbO0wwIAAADotNwjq6SvTi4cWqGd7nvXDCb/+H/+4a8j f/+Lf/3na2aTnIOh2kkBAAAAdIW9vsZNn7C1JFc74Heunk1++W//b+v0h42E 18wm0QvGN1urtJMCAAAA6KLiyP3SVyepm9/WTvedttnE+N/3Jz16evaItnjX zCYXI/ZqxwQAAADQdU5HS8KqqXKf8DntgK2efvrpjRs3FsefuDrb1bPJZ3+f 4LHdYgAAAAA6qDIrWppN4lc+72yxawds5WhujAudLM0mCSf3awcEAAAA0APS tr4njSfms7u107UqPLn5mmBXzyZ5eXnaAQEAAAD0ANulwsjgoPb7hD3gHvPG ypKoeWOYTQAAAAB/kHd0tfTVSc7BZbrZMnfN/XEqZhMAAADAJ9lttdELJwjj SaC15IJWsOq8xHZTMZsAAAAAvqo46oDYJxw+SyWSy+lIWj2N2QQAAADwK8Yg 4KZPuDztTN9HKo46KOW59eZ/YTYBAAAAfFVldozYJ7xiitPe3Jdh3F5mNvJX /3EbswkAAADgw9K2vi/2CZ/Z1ZdJcg+Hibfn719y++23M5sAAAAAPsxmMUl9 wlEh45rrKvsmhrUkN3LuqPZrjY0YtRXMJgAAAIDPyzu2Ru4TDu2bDKnhs8Sv by4/DpLZBAAAAPB5dlttzKInxD7h4pzeDmBJPS0NJglhLzhb7N8ymwAAAAD+ oST6M2k6OL9pZq++tdPeFLfsGendK7Oi2l7GbAIAAAD4A5fTkfjRS2KfcOo3 vffWplNbpfdN2/relZcxmwAAAAB+oionTuwTXv5cL/UJN1aVRc0f2+6bRgYH 2SymK69kNgEAAAD8R/r22dJ4UvTNzt54x8zd86R3zD++7upXMpsAAAAA/sNm KZL6hKN7oU+4Oj9ZGkxiFj/laKy/+sXMJgAAAIBfyTu+VpoXsvcv6cE3cjmd SWumS+9VGn/smtffeeedbYPJjTfeaDabezAJAAAAAA/U0lAX7aZP+GJ2T71R SexhaTBJWjfDmFx66o0AAAAAeKmSmENyn/BbPfIWbiegkTWFqT3yLgAAAAC8 WuvVVqunyX3Cp7v/FnlHV4tXju1d2P3tAwAAAPANVRfipdkhbvmzDntTdzZu KyuQ7riPCnmsqcbSU3sBAAAAwAekb/+73Ce8oztbTt38jrjl093aMgAAAADf 01BudvftRm151zZbnn5WGkziV0zppSc8AgAAAPBq+Z+vl/uEF3dhg8boYQwg 0jYrMs71+C4AAAAA8AEtDdaYxU9Ko0SdObOzGyz6Zoe0tbQt7/bGLgAAAADw DaWxR6RpImXjm53aVFONJSrksXY3FRkcZCsr6J09AAAAAOALLj+9/WVpPLGk nOr4prL2LpC2k3d0de/tAgAAAADfUJ2XKPYJL3vG2bE+4drCVGkj0YueaGmo 6+29AAAAAOADMnZ+KE0Wpq+3XffPXU5n8roZ0hZKY4/0wS4AAAAA8AENFRcj g0eLfcLXe1piafwxaTBJWjPdmFz6Zi8AAAAA+ID8LzaIfcL7Frn5Q0djfczi p6S/rc5P7rNdAAAAAOAD3I8YtUUZ0h/mHV8r/VXWp/P7chcAAAAA+IbSuKNi n/CGN4wXWK3WvLy8tLS0zMzMkpISp9Nps5jEh8vPH9tYVaa9TwAAAAC8z+U+ 4enXjBjnPgwIn9bvteG/ezJo6MgfGjNmzJSR9wdPuPv4O0N+PJsUdeAmegAA AABoV3Ve0tXzxZrnHxhz760P/Pom4+eh390yYtiQ4UMGDh/88PAh/UcMGzzk kQfaftXvNze/PvyO4+9+P6HELX+2g+XDAAAAANCujJ1zjOHixN+GThnw67bR 48Hbb+r3+5se+cNN/f/0w58/3vzwfxkzy01tLxt4x09XPvvnttmkPPUb7f0A AAAA4N0aK4sPzhw64k+3tE0lxvRxZRgZcu9PJg6+beqoX70w8j/H9Lvl+yHl D99PKO8E3ZkaPkt7JwAAAAB4vZKSkqCBf24dTH7TOnQYo8fAu25+e+LvDi94 JGNrQM6OwCs/seuHrpt53/gBv2ibUB7+fduXLDcvXzhXeycAAAAAeLeGhoap U6eOGD6s3x0/7f/H1onjhZH/eWrFoKtHkmt+jIFlzV/vHXLvT4wXP3LnTQPu vWPkyJFHjvAseAAAAABdt3LlSmOyGDF0UP+7WmeN9ybfcc13JdLPF0sHBD3U epXXow/8tq3Cy2w2a+8NAAAAAK+Uk5MTGBgYEDBi4L23GlPGzCd/25Gp5MrP V8sHDb3vp8YfDh3w38Z4Mnv2bO0dAgAAAOCV5s6da8wUQx65y5gvnnz01rRP OvSNydU/W9+/3/jbAXf/LGDEMGNTxrCjvU8AAAAAvExVVVVQUFBAwIgBd//c mC/2zHmos4NJ28+UEf/R2uj1yF3GbBIWFqa9WwAAAAC8zLFjx4xpYtigB4zJ YvKwX3ZtMDF+9gf3a632uvdWY2sTJ07U3i0AAAAAXmbRokXGNDH4wTuMySLs 9Xu6PJtkbRsZcP/PjI2MGDbY2KDJZNLeMwAAAADeZMaMGcYoMei+XxpjxfHF /bs8mxg/Mx77tbGRYYMeNDZ49uxZ7T0DAAAA4E0mTpxojBJtN5vEbxjWndlk zvN3trZ19b/X2OChQ4e09wwAAACANxk/fnzrbHJXawlw6uYR3ZlNFr70xyu3 w+/Zs0d7zwAAAAB4k6effvrK9yZx64d2Zzb5cMp/8b0JAAAAgK557bXXrtxv cnRRt+43mT72+/tNIiIitPcMAAAAgDdZunRpa0/XQ783xoplM+7q8mCSuW3k 8P9uvTBsxPAhxgbNZrP2ngEAAADwJidOnLj8fJOHjLHiqcG3dXk22f3Bg63P N7nvNmNrkyZN0t4tAAAAAF6mtrZ29OjRAQEBA+65xRguts9+oAuDSfb2kZOG 3HblZpO1a9dq7xYAAAAA79P2+EVjrDCGi3H9/z0lfHhnZ5MNs+4z/nbA3T8P GDE8MDCwoKBAe58AAAAAeB+TyRQUFBQQENB2R/wrY3+dtW1kxweTY4v7D77n J613wQ+835hx5s2bp71DAAAAALzVhg0bjLFixLDBbWXCbzz+m7QtHXrWycH5 Dwfc/zPjTwb3u9PYwrhx4y5duqS9NwAAAAC8ld1uf/XVV43hYviQ/gPubp01 Jg6+7cjCR9xMJec3j1jy8p8G3X2z8eJHH/htQECA8eenTp3S3hUAAAAA3q2i omLKlCmXvz15dOC9txoTR9v1Xbs+eDB50w/uQDm1YtDSV+4a9eDP214z5OE/ tQ0m27Zt094JAAAAAL7AYrFMmzbNmDICRgwf0u8PA+76Sdv0YfyM7nfLxMG3 TRj4iyH3/fTKfxx03y+HD37YeH1gYODu3bu14wMAAADwHQ0NDaGhoSMvCxg+ dEj/ewb9+VdXDymtDzG5598HP3jH8Ef7tb1s0qRJcXFx2sEBAAAA+KCUlJSZ M2eO/F8BAa1fpAwfOnDE0EHG/7vy38ePHx8eHm6z2bTzAgAAAPBlubm5mzZt evXVV0ePHj3yKhMnTgwODj5x4gRTCQAAAIC+5HQ6LRaLyWQqLi62Wq3acQAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4 iv8PWr1qzA== "], {{0, 543.}, {538., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538., 543.}, PlotRange->{{0, 538.}, {0, 543.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.797974671247343*^9, 3.79856729946168*^9, 3.7989249051604204`*^9}, CellID->189474592] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CausalConnectionGraph | Example Notebook", Visible->False, FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "12.3 for Mac OS X x86 (64-bit) (May 11, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[634, 23, 168, 7, 70, "Subsection",ExpressionUUID->"dd27506e-268c-4573-9c90-62f8c994c515", CellID->462042388], Cell[805, 32, 145, 3, 70, "Text",ExpressionUUID->"503f2273-4dac-45c5-a321-473971932319", CellID->392348587], Cell[CellGroupData[{ Cell[975, 39, 952, 27, 70, "Input",ExpressionUUID->"50635dcf-2c85-40c8-867d-dfee75ddc767", CellID->977997418], Cell[1930, 68, 33482, 640, 70, "Output",ExpressionUUID->"c31f0973-d492-4462-b7c7-d4ecf86f9c38", CellID->25524369] }, Open ]], Cell[35427, 711, 310, 7, 70, "Text",ExpressionUUID->"65990fa2-bab8-4958-a8bb-ff3b5556c47d", CellID->302225489], Cell[CellGroupData[{ Cell[35762, 722, 8476, 210, 70, "Input",ExpressionUUID->"973e0d45-1b44-4930-80b6-e72820727f8c", CellID->408094487], Cell[44241, 934, 8455, 146, 70, "Output",ExpressionUUID->"11f421c9-ef4e-4336-bdd2-3e664909f8c4", CellID->23710824] }, Open ]], Cell[52711, 1083, 225, 4, 70, "Text",ExpressionUUID->"a003e33f-45bf-46e9-a1e3-4d12c2bef8c8", CellID->994918320], Cell[CellGroupData[{ Cell[52961, 1091, 8524, 211, 70, "Input",ExpressionUUID->"d211d7af-e290-4ea6-8310-54e1742ad1b2", CellID->73934910], Cell[61488, 1304, 11518, 196, 70, "Output",ExpressionUUID->"ebe371e7-2cc0-4109-9d84-60d7faa6c4d6", CellID->455735240] }, Open ]], Cell[CellGroupData[{ Cell[73043, 1505, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"d7033c76-8f03-4f3b-a026-2446c0c4b5fe", CellID->224031726], Cell[73190, 1511, 606, 16, 70, "Text",ExpressionUUID->"48541752-7749-4cb4-bbdd-92be15dc38d3", CellID->413773499], Cell[CellGroupData[{ Cell[73821, 1531, 404, 12, 70, "Input",ExpressionUUID->"a8ecb6f2-61b0-437a-89f0-8ba2497d658f", CellID->932462749], Cell[74228, 1545, 1591, 32, 70, "Output",ExpressionUUID->"4d8b9369-a900-4147-b9ee-66e73b2f45c6", CellID->781399318] }, Open ]], Cell[CellGroupData[{ Cell[75856, 1582, 7495, 189, 70, "Input",ExpressionUUID->"dfcc6a6e-d5b3-4b2b-9fb8-f55b1c4c5288", CellID->326532586], Cell[83354, 1773, 7259, 126, 70, "Output",ExpressionUUID->"a00b83d5-66b7-405c-8417-c734d3bd91c0", CellID->956743912] }, Open ]] }, Open ]], Cell[90640, 1903, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"4096f41d-3b45-4064-a8fb-a54c101859ef", CellID->224031727] }, Open ]], Cell[CellGroupData[{ Cell[90821, 1912, 159, 7, 70, "Subsection",ExpressionUUID->"9dc8d185-fff3-436e-a6c3-1841e4fc24b5", CellID->964056545], Cell[90983, 1921, 153, 3, 70, "Text",ExpressionUUID->"1bba681a-bd1d-4ce9-a48c-fdab9ae8b07a", CellID->351228799], Cell[CellGroupData[{ Cell[91161, 1928, 432, 12, 70, "Input",ExpressionUUID->"2a4f3555-48bb-47c1-a1a4-8e2bc8e3214c", CellID->798710134], Cell[91596, 1942, 2078, 44, 70, "Output",ExpressionUUID->"90f4052d-2697-448f-be5d-2d97208cf32b", CellID->531288684] }, Open ]], Cell[CellGroupData[{ Cell[93711, 1991, 7475, 188, 70, "Input",ExpressionUUID->"3f44d9c9-8e5c-4b5b-95ef-e487306a11dc", CellID->893111481], Cell[101189, 2181, 5227, 93, 70, "Output",ExpressionUUID->"08ca0bb1-05d4-47c5-ba04-0772857bc3c9", CellID->657234658] }, Open ]], Cell[CellGroupData[{ Cell[106453, 2279, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"7c4b6e29-483c-447d-8ebf-9c980b1465be", CellID->224031728], Cell[106600, 2285, 139, 3, 70, "Text",ExpressionUUID->"17d417d1-1ddd-4871-9444-b7043d9ebdbd", CellID->730134774], Cell[CellGroupData[{ Cell[106764, 2292, 518, 14, 70, "Input",ExpressionUUID->"3b6495dd-4a5e-4c1d-8f28-ba64e5230a65", CellID->231566424], Cell[107285, 2308, 2431, 51, 70, "Output",ExpressionUUID->"f7872408-3b51-4a7b-873d-e9601f09315a", CellID->891045156] }, Open ]], Cell[CellGroupData[{ Cell[109753, 2364, 7486, 188, 70, "Input",ExpressionUUID->"e05c5125-b9f9-46b2-becd-992d69e52d26", CellID->378527014], Cell[117242, 2554, 61121, 1009, 70, "Output",ExpressionUUID->"7f58af4c-4c66-4ab7-9077-4795ab730575", CellID->189474592] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)