한자로

페이지를 파싱하기 어렵습니다.(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 123443, 3332] NotebookOptionsPosition[ 118805, 3164] NotebookOutlinePosition[ 119179, 3181] CellTagsIndexPosition[ 119136, 3178] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Bowling", "Title"], Cell[CellGroupData[{ Cell["Author", "Subsection"], Cell["\ <\ eric="" w.="" weisstein="" february="" 14,="" 2008\="" \="">", "Text"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/Games/Bowling.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/Games/Bowling.nb"], None}], "." }], "Text"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/Bowling.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/Bowling.html"], None}], "." }], "Text"], Cell["\ <\ \[copyright]2008="" wolfram="" research,="" inc.="" except="" for="" portions="" noted="" otherwise\="" \="">", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Figure", "Section"], Cell[BoxData[ RowBox[{ RowBox[{"Pin", "[", RowBox[{"pos_", ",", "n_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{"pos", ",", ".3"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{"pos", ",", ".12"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"n", ",", "pos"}], "]"}]}], "}"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Pin", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "-", RowBox[{"y", "/", "2"}]}], ",", RowBox[{"y", "-", "1"}]}], "}"}], ",", RowBox[{ RowBox[{"y", RowBox[{ RowBox[{"(", RowBox[{"y", "-", "1"}], ")"}], "/", "2"}]}], "+", "x"}]}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], "]"}]], "Input"], Cell[GraphicsData["PostScript", "\ <\ %!="" %%creator:="" mathematica="" %%aspectratio:="" 1="" mathpicturestart="" abs="" {="" mgmatrix="" idtransform="" mtmatrix="" dtransform="" }="" bind="" def="" absadd="" {="" mabs="" 3="" -1="" roll="" add="" 3="" 1="" roll="" add="" exch="" }="" bind="" def="" %%="" graphics="" %%includeresource:="" font="" courier="" %%includefont:="" courier="" ourier="" findfont="" 10="" scalefont="" setfont="" %="" scaling="" calculations="" 0.367725="" 0.26455="" 0.103175="" 0.26455="" [="" [="" 0="" 0="" 0="" 0="" ]="" [="" 1="" 1="" 0="" 0="" ]="" ]="" mathscale="" %="" start="" of="" graphics="" 1="" setlinecap="" 1="" setlinejoin="" newpath="" 0="" 0="" m="" 1="" 0="" l="" 1="" 1="" l="" 0="" 1="" l="" closepath="" clip="" newpath="" 0="" g="" .5="" mabswid="" [="" ]="" 0="" setdash="" newpath="" .5="" .10317="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .5="" .10317="" .03175="" 0="" 365.73="" arc="" s="" [(1)]="" .5="" .10317="" 0="" 0="" mshowa="" newpath="" .36772="" .36772="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .36772="" .36772="" .03175="" 0="" 365.73="" arc="" s="" [(2)]="" .36772="" .36772="" 0="" 0="" mshowa="" newpath="" .63228="" .36772="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .63228="" .36772="" .03175="" 0="" 365.73="" arc="" s="" [(3)]="" .63228="" .36772="" 0="" 0="" mshowa="" newpath="" .23545="" .63228="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .23545="" .63228="" .03175="" 0="" 365.73="" arc="" s="" [(4)]="" .23545="" .63228="" 0="" 0="" mshowa="" newpath="" .5="" .63228="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .5="" .63228="" .03175="" 0="" 365.73="" arc="" s="" [(5)]="" .5="" .63228="" 0="" 0="" mshowa="" newpath="" .76455="" .63228="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .76455="" .63228="" .03175="" 0="" 365.73="" arc="" s="" [(6)]="" .76455="" .63228="" 0="" 0="" mshowa="" newpath="" .10317="" .89683="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .10317="" .89683="" .03175="" 0="" 365.73="" arc="" s="" [(7)]="" .10317="" .89683="" 0="" 0="" mshowa="" newpath="" .36772="" .89683="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .36772="" .89683="" .03175="" 0="" 365.73="" arc="" s="" [(8)]="" .36772="" .89683="" 0="" 0="" mshowa="" newpath="" .63228="" .89683="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .63228="" .89683="" .03175="" 0="" 365.73="" arc="" s="" [(9)]="" .63228="" .89683="" 0="" 0="" mshowa="" newpath="" .89683="" .89683="" .07937="" 0="" 365.73="" arc="" s="" newpath="" .89683="" .89683="" .03175="" 0="" 365.73="" arc="" s="" [(10)]="" .89683="" .89683="" 0="" 0="" mshowa="" %="" end="" of="" graphics="" mathpictureend="" \="" \="">"], "Graphics", ImageSize->{204, 204}, ImageMargins->{{61, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\ <\ ejztxftzvdcmpuzz7cuqar3fyg6shis0dkz9k5cwciw89k1qoc000mzaq6cd="" ys/kp21jyzgzj5+88vrs2c1mm0pssliky7ysyz78tp/m5cff+29evdgf7r3e="" flqxf/du/9/foqvj4piukt+zcsxh10wpw/3o4ofw4rkek5kzqo/e8gphnf="" 6qadv2u72h+m+k1qk67wcrwnjpqvcskn/e9xaccyrngcuo8a2bod/f0ae8zk="" jwhqfqb7xospaoodnfwxgpoiwjiueahqnwdyq5182f1ecqczesmhwsmkrhs/="" aegq9ohora9ghqdrprhtgvkgup91tsyifrzmfohoyshyivtxwava2v+lwhbr="" j6zcs3zcqeljt/tusg0ts7/ckc8hcgkxqio/wwjejclqnbhmwsc/irxhhpxj="" appudznxdwhme+xelsjxa0k74uua89sb7as0mkts+51rtwva3pqap2mubcq0="" k7qe9zxrb9lqgaggqkcx4p4r+k65q67wc7x7jloreodpuiownsb+zplbajgp="" jlsh2bct3oggtwa5ilagrjrmv3wpuciqwtpsmb/io4b6d8a+m9ixv+imqkgw="" b61rrhdtz4swilrlio4gs72rwqlrxu9jazvmhc1n367mz5hz6udbxgnr1zvr="" frgketdegdwaokp8knyimmj3s4z+se1rkilgetvrjibewdw0dhhbvmu1rxnz="" 0vzgdtx0xfpc6ik6l1xzu79hdivg1q50irlkdfmjq4lyikuiwad3azk/gxuh="" wq5nujzuhcnrbvnufeznzgdrikd2qw1yguprrwj8p6x7q5lxsw4qpeyii+5x="" vbhynkmzflwvcb5v20y2qrawt4rfupxrbkdispcxos1fddgnklemkq1hsc+0="" wsaqzfssmb+yzigspvcdriyc0k8bdfner+u3aaodrs4bgjrj/mxxw3rex96b="" yconnjsafsby5wabjnk/mas6thjnx1db4zcq3wxypvfqwfrlqe0xaieozupf="" f64463sk2rlovsywotivfinfcfmwynlsr7e7lcaqnzfaphh2rwoits0slgpu="" f4tzegdvowwg44ndbqlaiwodpnfst66ktra6cvdwgyvs07rwn1j8bkbz/vfo="" yiai3uprc9zmootfz2crqzfuxdoallxviuxjdo36wksuc9k2foghjiaawta6="" qyhw7lgmugpieyxscgsl5ypjfgoxsgcxkcwidnzkfr7bayn5yjkjcz2wvmej="" eespog6+nrgemqhb5nhabejmwprhasqqjcnykgnnprsm2ureyfgvq60pouas="" d2i5escagzhoqs4ankmsmippram6p84oqx9pxgkhl5gjudivrtrrlletrptx="" xbzintsd8911a54tdglirman3qwxnnaajp6es+ksf72h0niaavujrzy4pidf="" pntkdxqtmjtbpbyoe5jewiuhzkxwu28onrdvpthp6miaiz4nfeop7nzsyyzs="" fsq+ziiodmkcvmmozo2oxraz3qjeofks9jye0xnxieuxnhohq4ds3obu0msx="" tt75boa4cq1dllzf689k51oiloyktfdqo1lrrwfxmawltikg+8rveuo1q0y0="" eilfx9dmopjmg61g/en9gac0bo9lyo44jjjtcqyu2iqzrrc9oqok6ggi0qxe="" qekazv2oadcexz8zlmmfgdjcliydqaewyi0d29ffi/k6u9xwog4zzbfg3alw="" kx1hptdaawipstjf1ltuynuhd4ioq2ey6lst10sqns+ymhcn+uqod3ktphbo="" yu3vxz/zimtawkw6gx9cjblfdcs5ie+krulzxnj7xacvc6reakbrusvn0jrz="" ku7d+jvoxnldzmtnevlmgms1wud9vm87e/gmfw+j8iw2befxhadlo3oti7rk="" s7/o5y3hbc51aqw4mn/rqxbvqfqduj0bwper0oygpo63uoh5lnkvxrmtni6m="" jn96povyizoyehadp830ia4nxwywq0niclze1ennusj9lf5pvnmet5hsw3nq="" cb8zbrwxjszqbyicvinm+/vqcarndffq+tmjnuwpx2xo2c96dennejhpsjdl="" uyql747r4wj9noe4ppcoyh7kqahpddxn/+ktciqyhqilcrmrhektf33wlkdx="" e83heex0knxinq+ji0mrzkt5spk76jvuka8krz+obxmtbjyqsigrzvozvpwk="" 06szxlwjtxiqf5sewwwwqoevldb/myasgu6oen2wcecedf0tiy5euvxrmzwf="" ubsragu3ewi2ky3cjr/fb/foenhxgkk3jf6omxzdwzz5d5wvu3o="\" \="">"],ImageRangeCache->{{{0, 203}, {203, 0}} -> {-1, 0, 0, 0}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Number of Bowling Games", "Section"], Cell[CellGroupData[{ Cell["Lower Limit", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox["11", "10"], "//", "N"}]], "Input"], Cell[BoxData["2.5937424601`*^10"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Actual Number", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"games", "=", RowBox[{ SuperscriptBox["66", "9"], " ", "241"}]}]], "Input"], Cell[BoxData["5726805883325784576"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input"], Cell[BoxData["5.726805883325784`*^18"], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Games with a Given Score", "Section"], Cell[BoxData[{ RowBox[{ RowBox[{"\[ScriptCapitalA]", "=", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "/.", RowBox[{"{", RowBox[{"ToRules", "[", RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "+", "y"}], "\[LessEqual]", "9"}], "&&", RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "10"}], "&&", RowBox[{"0", "\[LessEqual]", "y", "\[LessEqual]", "10"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "Integers"}], "]"}], "]"}], "}"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"\[ScriptCapitalB]", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "0"}], "]"}], "&"}], "/@", "\[ScriptCapitalA]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#1", ",", RowBox[{"10", "-", "#1"}], ",", "#2"}], "}"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "9"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}]}], "]"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "y", ",", "z"}], "}"}], "/.", RowBox[{"{", RowBox[{"ToRules", "[", RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "+", "z"}], "\[LessEqual]", "10"}], "&&", RowBox[{"0", "\[LessEqual]", "y", "\[LessEqual]", "9"}], "&&", RowBox[{"0", "\[LessEqual]", "z", "\[LessEqual]", "10"}]}], ",", RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], ",", "Integers"}], "]"}], "]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"10", ",", "10", ",", "#"}], "}"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", "1"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[ScriptCapitalT]", "=", RowBox[{"(", GridBox[{ { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"#1", "+", "#2"}]], "&"}], "@@@", "\[ScriptCapitalA]"}], ")"}]}], RowBox[{"10", SuperscriptBox["t", "10"]}], SuperscriptBox["t", "10"], "0"}, { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{ RowBox[{"2", "#1"}], "+", "#2"}]], "&"}], "@@@", "\[ScriptCapitalA]"}], ")"}]}], RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"#", "+", "10"}]], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "9"}], "]"}]}], ")"}]}], SuperscriptBox["t", "20"], "0"}, { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{ RowBox[{"2", "#1"}], "+", RowBox[{"2", "#2"}]}]], "&"}], "@@@", "\[ScriptCapitalA]"}], ")"}]}], RowBox[{"10", SuperscriptBox["t", "20"]}], "0", SuperscriptBox["t", "20"]}, { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{ RowBox[{"3", "#1"}], "+", RowBox[{"2", "#2"}]}]], "&"}], "@@@", "\[ScriptCapitalA]"}], ")"}]}], RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"#", "+", "20"}]], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "9"}], "]"}]}], ")"}]}], "0", SuperscriptBox["t", "30"]} }], ")"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[ScriptCapitalC]", "=", RowBox[{"(", GridBox[{ { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"#1", "+", "#2", "+", "#3"}]], "&"}], "@@@", "\[ScriptCapitalB]"}], ")"}]}]}, { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{ RowBox[{"2", "#1"}], "+", "#2", "+", "#3"}]], "&"}], "@@@", "\[ScriptCapitalB]"}], ")"}]}]}, { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{ RowBox[{"2", "#1"}], "+", RowBox[{"2", "#2"}], "+", "#3"}]], "&"}], "@@@", "\[ScriptCapitalB]"}], ")"}]}]}, { RowBox[{"Plus", "@@", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{ RowBox[{"3", "#1"}], "+", RowBox[{"2", "#2"}], "+", "#3"}]], "&"}], "@@@", "\[ScriptCapitalB]"}], ")"}]}]} }], ")"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"(", GridBox[{ {"1", "0", "0", "0"} }], ")"}]}], ";"}]}], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"expr", "=", RowBox[{ RowBox[{"Expand", "[", RowBox[{"\[ScriptCapitalR]", ".", RowBox[{"MatrixPower", "[", RowBox[{"\[ScriptCapitalT]", ",", "9"}], "]"}], ".", "\[ScriptCapitalC]"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"scores", "=", RowBox[{"CoefficientList", "[", RowBox[{"expr", ",", "t"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "20", ",", "210", ",", "1540", ",", "8855", ",", "42504", ",", "177100", ",", "657800", ",", "2220075", ",", "6906900", ",", "20030010", ",", "54627084", ",", "141116637", ",", "347336412", ",", "818558424", ",", "1854631380", ",", "4053948342", ",", "8574134256", ",", "17590903116", ",", "35084425512", ",", "68153183370", ",", "129156542039", ",", "239128282128", ",", "433093980298", ",", "768175029950", ",", "1335679056261", ",", "2278764308864", ",", "3817721269708", ",", "6285424931278", ",", "10176048813473", ",", "16210652213304", ",", "25423690787719", ",", "39274771758064", ",", "59789973730461", ",", "89736657900900", ",", "132834787033075", ",", "194006223597572", ",", "279661205716974", ",", "398018151390200", ",", "559449136091831", ",", "776838931567572", ",", "1065940588576732", ",", "1445705502357343", ",", "1938561121705315", ",", "2570605432880903", ",", "3371684590465908", ",", "4375319099346208", ",", "5618445228564793", ",", "7140942201229333", ",", "8984922304030443", ",", "11193770355829009", ",", "13810930667765157", ",", "16878453276117746", ",", "20435326129713654", ",", "24515635362932954", ",", "29146610869639549", ",", "34346628376654913", ",", "40123251227815383", ",", "46471404549689351", ",", "53371780703441318", ",", "60789577452586487", ",", "68673668434334934", ",", "76956298564663402", ",", "85553384395717227", ",", "94365480254213528", ",", "103279445170253902", ",", "112170812747354087", ",", "120906827121834566", ",", "129350064451661348", ",", "137362512979745598", ",", "144809940796620325", ",", "151566341291631624", ",", "157518221668013078", ",", "162568486673578693", ",", "166639683923175378", ",", "169676402232105648", ",", "171646676234883305", ",", "172542309343731946", ",", "172378125687965848", ",", "171190226627438257", ",", "169033430825208027", ",", "165978103316094584", ",", "162106654714921075", ",", "157509948809043576", ",", "152283892386077931", ",", "146526364181517039", ",", "140334651650668803", ",", "133803399444707801", ",", "127023103852577896", ",", "120079021507938035", ",", "113050455155943519", ",", "106010240661754449", ",", "99024411737621323", ",", "92151904402003308", ",", "85444345654857875", ",", "78945863453573001", ",", "72693023944120045", ",", "66714881583314335", ",", "61033240145235763", ",", "55663091133973346", ",", "50613244155051856", ",", "45887089510794122", ",", "41483436078768079", ",", "37397371704961189", ",", "33621048067136846", ",", "30144388614623696", ",", "26955619314626157", ",", "24041709119775647", ",", "21388640692533960", ",", "18981680119465910", ",", "16805547548715206", ",", "14844654231857239", ",", "13083276623221517", ",", "11505812292077067", ",", "10096971927616045", ",", "8842020009154293", ",", "7726929590817265", ",", "6738528470417086", ",", "5864552560171552", ",", "5093653838062639", ",", "4415377510495980", ",", "3820097597373727", ",", "3298981687014508", ",", "2843905747206868", ",", "2447444695948898", ",", "2102793053565659", ",", "1803790254604935", ",", "1544848145184291", ",", "1320992367181792", ",", "1127775864826813", ",", "961294388171457", ",", "818085023387881", ",", "695128788327698", ",", "589753122859383", ",", "499630252931260", ",", "422696870992462", ",", "357151976811922", ",", "301400973036441", ",", "254052574077937", ",", "213889601295347", ",", "179862464456172", ",", "151065169242834", ",", "126722015973414", ",", "106169469752641", ",", "88840622360686", ",", "74252067274687", ",", "61990415093876", ",", "51701385089887", ",", "43082666091665", ",", "35870481552300", ",", "29843343433392", ",", "24808172866872", ",", "20607116162379", ",", "17101443169235", ",", "14181008701762", ",", "11747089496422", ",", "9723545122578", ",", "8040378083433", ",", "6644452641044", ",", "5486702080236", ",", "4529003381568", ",", "3736165201688", ",", "3081105018158", ",", "2539255963377", ",", "2091793858275", ",", "1721930513702", ",", "1416734360140", ",", "1164733232308", ",", "957190045595", ",", "785911852914", ",", "645295369580", ",", "529489941608", ",", "434606120455", ",", "356481490646", ",", "292487050484", ",", "239755303889", ",", "196550315542", ",", "160954253448", ",", "131791387388", ",", "107847709116", ",", "88241591630", ",", "72162948863", ",", "59038079745", ",", "48284335855", ",", "39509743432", ",", "32308399043", ",", "26423428886", ",", "21582203262", ",", "17624621529", ",", "14368737009", ",", "11720626558", ",", "9552812749", ",", "7790240907", ",", "6351933169", ",", "5185250585", ",", "4232118751", ",", "3457204258", ",", "2821392492", ",", "2302090127", ",", "1874802017", ",", "1526313637", ",", "1239515641", ",", "1007719386", ",", "818568928", ",", "666193896", ",", "542061609", ",", "442072320", ",", "360234562", ",", "293886739", ",", "239045260", ",", "194337731", ",", "157306293", ",", "127325163", ",", "102799565", ",", "83194097", ",", "67300605", ",", "54691522", ",", "44477808", ",", "36317458", ",", "29606794", ",", "24117404", ",", "19554213", ",", "15820964", ",", "12736481", ",", "10258846", ",", "8244157", ",", "6659561", ",", "5381526", ",", "4385243", ",", "3576841", ",", "2930385", ",", "2376760", ",", "1924226", ",", "1541327", ",", "1231527", ",", "975760", ",", "777090", ",", "617547", ",", "498228", ",", "404981", ",", "335065", ",", "275998", ",", "226966", ",", "183727", ",", "148442", ",", "117291", ",", "93525", ",", "73010", ",", "57960", ",", "45826", ",", "37965", ",", "31193", ",", "26131", ",", "21406", ",", "17422", ",", "13613", ",", "10696", ",", "7975", ",", "6005", ",", "4374", ",", "3534", ",", "3016", ",", "2635", ",", "2264", ",", "1933", ",", "1603", ",", "1323", ",", "1045", ",", "810", ",", "585", ",", "406", ",", "277", ",", "258", ",", "227", ",", "206", ",", "173", ",", "150", ",", "115", ",", "90", ",", "53", ",", "26", ",", "15", ",", "15", ",", "14", ",", "14", ",", "13", ",", "13", ",", "12", ",", "12", ",", "11", ",", "11", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Check Total Number of Games", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plus", "@@", "scores"}]], "Input"], Cell[BoxData["5726805883325784576"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"games", "\[Equal]", "%"}]], "Input"], Cell[BoxData["True"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plot", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"scores", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"n", ",", SubscriptBox["s", "n"]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJxd2H1cTncfB/ATMsVyjXilWS5JmbKaHsiir0pSHq7Sc6lTioi6ysNkqaNF mey+NkbLPbsYmpdMW54mcpKt0bq1VGseS5vaULEQd9Z9zvl9eu1e/fN9vV/f 3/d8zrkezvldjY9NDogfwHHcFAOOkyv763T/Z+WIFSfUIazSSljFqiofNlWq 4FcOm7Fa/is8Vqn8PsPZzGrFqpFWsKVsYVQnwVZK3zAsHLaWrZ9gvgaeJJsP HfYBPFn22W21ethO9s32khPwW7IfmMf/ADvIXnfjwA34bcniU1+ndniq3M9s 7+yFHSU7bOmNUXn8/bpovlkarIadJZuOyThnD7tIDkkKHDELniZ5yIBdDX7w dOIEy1UFzmGwK3Hiz3vCIpbBM4jT5F+9krwGfkean5+Zs0uA3YjjkyKHV26H ZxI3vdL04q3d8CziPI7m7ck6ALsTp+WDitKPwURczn2TleNOMwuSu28l2N8s R382CQsLRmxwqEJ/NnFhW5ZHLq9D34PEnjsfc0630fcggQs2WGxyD31PEl9G h7tUdaDvScKFlEkPP3+KvhdpbVdrTap70fci/b4sL3fTwZ6sP4ea/nrttfN+ JszCHEq/ddQ2dbsp+t6Ut27CuZS819H3JpOMqORWT0v051Lbsn09Jk9s0J9L ZB737Zej7dH3Iddmo+mPnzii70OjVF62h6Nc0Z9H9629Zp2/747+PMqta+KD 73qi70u1Fm6d7+X6oO9Lad91fpT03wXo+1GG3cnctdYB6PuRi7HmivP3QejP p+jDtcZ2LWHozyfVrdbfsjdHob+ASpeMWpD+Uwz6C8jg7LBm+y/i0F9IzhtL Zx8tWY7+Qrqg9fzw+V8r0V9Ee1M/rPbNTEJ/EeVcTc1dNzoFfQ0VXmvJn9ib ykwauv7DmA0mXWuxXkOG/xpXWt6+nlnU0F+6zEl2bRsw708HPc3ulTduxLw/ 3TV2tis5k455fzpR/fygjZCBeX96ZHj5ZdlIAfMBpL4Q5/39NZgCaH/s5taO 9M2YD6CGqxaJacOyMB9A7lUPve0FmFtMDekfLspogGkx5Vy/3bnJ5H3ML6ZX 5mzLeWwDi4tpTtKhjrkTYC6QXKa41mcbwBRIcwf1jJx+CccTAqnLwfBQzOq+ /EAaZKqyDuvF+XFB1FVrfqqk73wpiFrT1020bcP1CEG0x3rjZzlesBhEuuFB XWPezMR8MO3zvP7tzyc3YT6YvBPWa1c79b1+wZSsuXO+5AheXzGYtnrUfWFn nob5EJr45kijnm3vYj6EnBMiGu/2rMN8CIW8sbZkxnq8n2IIGU15eOdxN95v LpSe2894f0cOPg8USskrbp2xsNJiPpROvEUFBfrVmA+le+OrRhwzT8R8GK0S Lk1+80wC5sPoj5BfvIdvXIb5MEqZdHHERR6fVzGMXjg+arFYFYv5cBo1k7u0 ey+P+XAKtCnXfXBzCebDaa1VQ5jx9+GYD6e9pel5vZ0hmI+gtkndh9eE4/tE EfTNrGNlLr1937cIav/awbHjhgbzEbS07rHr3Ot9389IsquzdvwoyhfzkbTV qObGJzPnYj6SBld4/Oym9cJ8JI0+v9Xt447ZmF9CT0aXOX+3AvcHWkKPXnv3 5adr3sH8Eioru3y/sHMa5peQuuCNvMp6J8xHkX2cvuSw2VTMR1Hjw3H81mjc n4QomvUiX3fayhbzUj/BeniNFvczLpq+3FJ0dYizFeaj6ZJbonvT0vGYj6ZV Vc+/+KP5DcxH01hj4RPrA2Mwz1NeY8mf47pGMat5EnrtB5Z9NwLH46nrK7dx 1warmHmehuymwOCAoTg+Tz45Z8aE0yvMep50bQO8zpYPRB5PZ/wmVg2q4Jib eBK33y/duawH9/8Yajq4acewV7qZ1TGk/iW4ataCLmaKId23Dyyejn/EzEv9 jLoprc0P8LyIIT6j4JSBfxuzPoaE80WXj6f+yizGEIUbTt9p18zcJPWN6uzf rrmJ/FgizZOYpgmNyI8l4fWpyU6OeL5RLIkdvYbGd2uQH0vcjLagAw4/Il9a f/xIaH1WJfIl+4zY/N6eCuRL6xsuF95ZJCJfcnHU3RSrUuQvlZ7X1YHmulPI l+x3suHZ+W+QL/nws5aNrx9HvuTsx93bq44gX/KPqW9PjjqEfMlW7a1Nx/cj X/LB/dn29BnyJWusnqjt8pEfJ51PxamWJzuRL5l7dcfTNB3yJYtn4q3tsb/g JWtXRBokbkW+5Nxn+aVpWciX7NA+8gNtBvIl87WtxSZpyJePZ2V34bO1yI8n jvxsux9rkS+Z/3Pc5zcSkS/323/LvIP9EC9ZODbzWmUs8iVz5vUDa6OQL1nc XGk5H/spUV5/8lnPhUDky+tn7ogf7I/8ZVK/rdrzd+zH1JK5oa2Fzd7Il+0l XD3ngXzZPS/449jPCbLPpbiOdUW+7IX1e7c7IV92r4t7tQPyZQ9wadlki/zl km+/7HzPGvmydV89jLdEvuxh9g9GWyBfdujYhr1myJfdPfHTMabIlx2XY7QS +1NRdu60vApj5Mvu3F5XZ4j8BMkJDZZVBsiXXewTbviS7XdJtqqj6MgzZl62 zt/Y/09mQXbTO+rcDma9bBpkdvF3ZlG28GqM4W/MTcr6lBbrZuynV8jrQ6s7 sP9WKz6yqqwB+Yoz+A21yJfNPZw35D/IV6y179vP6xV3FV6vQL5swbTARkS+ 0uc2hZ1FvvI7xqNsw0nkKx4Zkf018hWbjcosQr7iracnFyJf8cq94gHkKy5a FLEP+YqdlmblI1/xpYr6nchPVM63ZKgO+YpVLqb4PUOKhUTnLchXrPPx34x8 xfrpbunIVywace8iX7HmxaFU5LPjmU5JQv4q2eoe3wTkKxYdP1qKfMXUkRqN fOaNy8OQr1iIzwlEPptff1aDfNYf5OuHfOaECG/kr5bNjbX0QD5zVuRM5DNf zZ6GfObCK1ORz6yunIJ85kGnbZDPvLvREvnMNQkWyE9SXHfaDPnMcWtMkc+8 oVGFfObiE0ORj/7qwchnrrEYgHysP9BDLJ9ZU/+UmUtm53/tEbOamVvwgFVi Jv4eM8+s33aXWUB//W1mPbOY/QuzyCy01iEfHvgT8rXMu68wq5i5Xy/hfGCb C6w6wOtO4/zg0V+zqoH/fRTnC+sKWdXCuw/i/OHi/VgHO+3D9cDDPsU6uGgX rg8O1LFaA2u24XphnyxWO2E+jVUuBetRVSn/vG41zD730vXDIruPcATLz53/ P4783Ffm+hzJqhaW9vWs9tmXVR0s/+5Xjtvnt1gt7mexz3as1vRzU58ns9rZ z1wq6iRWVf2s7rM1qw79TH3G/4s0/cz3s7afhX7W9bO+n4v7Weznmr/9P/dR WRU= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["n", TraditionalForm], FormBox[ SubscriptBox["s", "n"], TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"FindFit", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ",", "#1"}], "}"}], "&"}], ",", "scores"}], "]"}], ",", RowBox[{"a", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "mu"}], ")"}], "^", "2"}]}], "/", "var"}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "1.7*^17"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "77"}], "}"}], ",", RowBox[{"{", RowBox[{"var", ",", "500"}], "}"}]}], "}"}], ",", "s", ",", RowBox[{"EvaluationMonitor", "\[RuleDelayed]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"a", ",", "mu", ",", "var"}], "}"}], "]"}]}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"1.7`*^17", ",", "77.`", ",", "500.`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6828012248170458`*^17", ",", "78.87627867798193`", ",", "343.33119627089826`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.710856063386086`*^17", ",", "78.53309774372522`", ",", "351.8452091647012`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.71321190404473`*^17", ",", "78.55121603716564`", ",", "350.10820773451474`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7131604859026035`*^17", ",", "78.54833791971355`", ",", "350.15845738465003`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7131753570950685`*^17", ",", "78.54841988610747`", ",", "350.14632077623895`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7131752097722336`*^17", ",", "78.54840004983923`", ",", "350.14644159559293`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.713175317752549`*^17", ",", "78.54840024729567`", ",", "350.1463533183939`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.713175318912205`*^17", ",", "78.54840010302169`", ",", "350.14635237035105`"}], "}"}]], "Print"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7131753197444368`*^17", ",", "78.54840010147227`", ",", "350.1463516899702`"}], "}"}]], "Print"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "1.7131753197444368`*^17"}], ",", RowBox[{"mu", "\[Rule]", "78.54840010147227`"}], ",", RowBox[{"var", "\[Rule]", "350.1463516899702`"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"scores", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"TraditionalForm", "/@", RowBox[{"{", RowBox[{"n", ",", SubscriptBox["s", "n"]}], "}"}]}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "mu"}], ")"}], "^", "2"}]}], "/", "var"}], "]"}]}], "/.", "fit"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "300"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{".02", ",", ".02"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJxd2H1cTncfB/ATMsVyjXilWS5JmbKaHsiir0pSHq7Sc6lTioi6ysNkqaNF mey+NkbLPbsYmpdMW54mcpKt0bq1VGseS5vaULEQd9Z9zvl9eu1e/fN9vV/f 3/d8zrkezvldjY9NDogfwHHcFAOOkyv763T/Z+WIFSfUIazSSljFqiofNlWq 4FcOm7Fa/is8Vqn8PsPZzGrFqpFWsKVsYVQnwVZK3zAsHLaWrZ9gvgaeJJsP HfYBPFn22W21ethO9s32khPwW7IfmMf/ADvIXnfjwA34bcniU1+ndniq3M9s 7+yFHSU7bOmNUXn8/bpovlkarIadJZuOyThnD7tIDkkKHDELniZ5yIBdDX7w dOIEy1UFzmGwK3Hiz3vCIpbBM4jT5F+9krwGfkean5+Zs0uA3YjjkyKHV26H ZxI3vdL04q3d8CziPI7m7ck6ALsTp+WDitKPwURczn2TleNOMwuSu28l2N8s R382CQsLRmxwqEJ/NnFhW5ZHLq9D34PEnjsfc0630fcggQs2WGxyD31PEl9G h7tUdaDvScKFlEkPP3+KvhdpbVdrTap70fci/b4sL3fTwZ6sP4ea/nrttfN+ JszCHEq/ddQ2dbsp+t6Ut27CuZS819H3JpOMqORWT0v051Lbsn09Jk9s0J9L ZB737Zej7dH3Iddmo+mPnzii70OjVF62h6Nc0Z9H9629Zp2/747+PMqta+KD 73qi70u1Fm6d7+X6oO9Lad91fpT03wXo+1GG3cnctdYB6PuRi7HmivP3QejP p+jDtcZ2LWHozyfVrdbfsjdHob+ASpeMWpD+Uwz6C8jg7LBm+y/i0F9IzhtL Zx8tWY7+Qrqg9fzw+V8r0V9Ee1M/rPbNTEJ/EeVcTc1dNzoFfQ0VXmvJn9ib ykwauv7DmA0mXWuxXkOG/xpXWt6+nlnU0F+6zEl2bRsw708HPc3ulTduxLw/ 3TV2tis5k455fzpR/fygjZCBeX96ZHj5ZdlIAfMBpL4Q5/39NZgCaH/s5taO 9M2YD6CGqxaJacOyMB9A7lUPve0FmFtMDekfLspogGkx5Vy/3bnJ5H3ML6ZX 5mzLeWwDi4tpTtKhjrkTYC6QXKa41mcbwBRIcwf1jJx+CccTAqnLwfBQzOq+ /EAaZKqyDuvF+XFB1FVrfqqk73wpiFrT1020bcP1CEG0x3rjZzlesBhEuuFB XWPezMR8MO3zvP7tzyc3YT6YvBPWa1c79b1+wZSsuXO+5AheXzGYtnrUfWFn nob5EJr45kijnm3vYj6EnBMiGu/2rMN8CIW8sbZkxnq8n2IIGU15eOdxN95v LpSe2894f0cOPg8USskrbp2xsNJiPpROvEUFBfrVmA+le+OrRhwzT8R8GK0S Lk1+80wC5sPoj5BfvIdvXIb5MEqZdHHERR6fVzGMXjg+arFYFYv5cBo1k7u0 ey+P+XAKtCnXfXBzCebDaa1VQ5jx9+GYD6e9pel5vZ0hmI+gtkndh9eE4/tE EfTNrGNlLr1937cIav/awbHjhgbzEbS07rHr3Ot9389IsquzdvwoyhfzkbTV qObGJzPnYj6SBld4/Oym9cJ8JI0+v9Xt447ZmF9CT0aXOX+3AvcHWkKPXnv3 5adr3sH8Eioru3y/sHMa5peQuuCNvMp6J8xHkX2cvuSw2VTMR1Hjw3H81mjc n4QomvUiX3fayhbzUj/BeniNFvczLpq+3FJ0dYizFeaj6ZJbonvT0vGYj6ZV Vc+/+KP5DcxH01hj4RPrA2Mwz1NeY8mf47pGMat5EnrtB5Z9NwLH46nrK7dx 1warmHmehuymwOCAoTg+Tz45Z8aE0yvMep50bQO8zpYPRB5PZ/wmVg2q4Jib eBK33y/duawH9/8Yajq4acewV7qZ1TGk/iW4ataCLmaKId23Dyyejn/EzEv9 jLoprc0P8LyIIT6j4JSBfxuzPoaE80WXj6f+yizGEIUbTt9p18zcJPWN6uzf rrmJ/FgizZOYpgmNyI8l4fWpyU6OeL5RLIkdvYbGd2uQH0vcjLagAw4/Il9a f/xIaH1WJfIl+4zY/N6eCuRL6xsuF95ZJCJfcnHU3RSrUuQvlZ7X1YHmulPI l+x3suHZ+W+QL/nws5aNrx9HvuTsx93bq44gX/KPqW9PjjqEfMlW7a1Nx/cj X/LB/dn29BnyJWusnqjt8pEfJ51PxamWJzuRL5l7dcfTNB3yJYtn4q3tsb/g JWtXRBokbkW+5Nxn+aVpWciX7NA+8gNtBvIl87WtxSZpyJePZ2V34bO1yI8n jvxsux9rkS+Z/3Pc5zcSkS/323/LvIP9EC9ZODbzWmUs8iVz5vUDa6OQL1nc XGk5H/spUV5/8lnPhUDky+tn7ogf7I/8ZVK/rdrzd+zH1JK5oa2Fzd7Il+0l XD3ngXzZPS/449jPCbLPpbiOdUW+7IX1e7c7IV92r4t7tQPyZQ9wadlki/zl km+/7HzPGvmydV89jLdEvuxh9g9GWyBfdujYhr1myJfdPfHTMabIlx2XY7QS +1NRdu60vApj5Mvu3F5XZ4j8BMkJDZZVBsiXXewTbviS7XdJtqqj6MgzZl62 zt/Y/09mQXbTO+rcDma9bBpkdvF3ZlG28GqM4W/MTcr6lBbrZuynV8jrQ6s7 sP9WKz6yqqwB+Yoz+A21yJfNPZw35D/IV6y179vP6xV3FV6vQL5swbTARkS+ 0uc2hZ1FvvI7xqNsw0nkKx4Zkf018hWbjcosQr7iracnFyJf8cq94gHkKy5a FLEP+YqdlmblI1/xpYr6nchPVM63ZKgO+YpVLqb4PUOKhUTnLchXrPPx34x8 xfrpbunIVywace8iX7HmxaFU5LPjmU5JQv4q2eoe3wTkKxYdP1qKfMXUkRqN fOaNy8OQr1iIzwlEPptff1aDfNYf5OuHfOaECG/kr5bNjbX0QD5zVuRM5DNf zZ6GfObCK1ORz6yunIJ85kGnbZDPvLvREvnMNQkWyE9SXHfaDPnMcWtMkc+8 oVGFfObiE0ORj/7qwchnrrEYgHysP9BDLJ9ZU/+UmUtm53/tEbOamVvwgFVi Jv4eM8+s33aXWUB//W1mPbOY/QuzyCy01iEfHvgT8rXMu68wq5i5Xy/hfGCb C6w6wOtO4/zg0V+zqoH/fRTnC+sKWdXCuw/i/OHi/VgHO+3D9cDDPsU6uGgX rg8O1LFaA2u24XphnyxWO2E+jVUuBetRVSn/vG41zD730vXDIruPcATLz53/ P4783Ffm+hzJqhaW9vWs9tmXVR0s/+5Xjtvnt1gt7mexz3as1vRzU58ns9rZ z1wq6iRWVf2s7rM1qw79TH3G/4s0/cz3s7afhX7W9bO+n4v7Weznmr/9P/dR WRU= "]]}}, {{}, {}, {RGBColor[0, 0, 1], Dashing[{0.02, 0.02}], LineBox[CompressedData[" 1:eJwVlvc/FXwfh5WRIlnJ3nuvYx7nfM73e2yKbGWTkTsdK6WsZGTcRkSESkmy IiVbGQ2SSCQiGiKyK+m5n5/er+t1/QHXW8wz6LDPTjo6OskddHT/3zr7rbWF ylHS7Xf9Bhd95ynJ3a4j1ukPyDeO5EUP5C9QMsbiIoXTe8jtrqa0grffKZdm LvUxpI+Q9ctDrk+2LlH0SqJyomnvyROyPUpZwT8oS0r1yufuTJHbOJdDspWW Kblfr65vpH0mrxJ0XCserVD8e7Kc70fPkSOXiytd0lYpxJuJrcG0BXIQHMe5 fmsUWo3O4/A7P8jst32ZVnQ3KAcCxVN+pG2Qmzebdc8f/k2heydoMMD0kxxD JVAiQ7Yoc6YHFquif5GHwnOKGEv+UJplWG0CaX/IBLdp3gE2OnQrl4nRfG6b 3FHHZvvqAR3qjYt5d0mNDjrng8XTfXeg2h9n0kLu7IBNRT5sNL4TSctFfJo+ thN0+Bzv912jR1fcw8iHJehhxVZZVi6IAcW/DPqhWsgAOxXp72aKMyGHSm+7 72m7IN04HlHXdqMXMx5VLmbMQFMKTQrdyYJA0G1XH9Nu8E9LomrwsyL5FKfG iug9MKJkOb8ZwIaKOu05BYgsoGUZd3ekdB/i+mVz/OImC+DIYt8zYexoy++g kD9tL9wEqsTHfg5EKzEPf6vEBnFRbg8aL3CiTyMmL43n2ICO2hJ+G3MhvxvX IFuNHYpjfRo+DHMja87CZdodDrDhQUFPj/Ai1ir+4nJmTiCRy5pdbfhQt2m+ +dQxTuANtWAPs+VHerG5pVYSXPBs+OvCv6GCaFVwv3VSLBfYLteJHr4khKof Zv9pm+SCTLn8j+xtwkhyKcNepZAb3NhyGrIKRNFEyj5631/cUG2J0u4gMZQv k15d5LgfMqRT7vEviSE2txRmtv08cJNIi1lxlUAbfRcezacdAMsF1tbUbGnk Td6jw7F6AE65N7aUJ8qgwZr0+wRnXlg9zbr86IIsqsq+XBMlzQc3A4/SLK/J I0FGQeUbqXwgUJb9+1qbAkoOL6noWeaDBKbiqMyvisjbqfwWexs/tFQd7OL2 VEGDz5QkCVICYPVHKKvfURUB8d41pxQB0LJg22G3Sw0JiDQVXncQBIsIje2G 0+pocOZFluaSEDzf/Dn2uImAwN6a3cleGFTMy9yirmmhqp7htHPNwlAqJnTc JUMbJd+ZSOpOEoFxAaffPy7qonUBL6Zv30VgD0eElvdlPXSve6UjUV4UuFua i0Or9JGoTgT5boYo/PLJNmffNkAjJ/WiWh+Lwm8VV8UwbTJKL99qHlgXBUKZ 6vscEqAt/li9taNiUKKp29dwmYJG/iQTSHLiUPh9dFdlERWla1mEWh0Vh5MG B8VuhBgiahBbnee/4lCinZH13soI3fuQpZq4Jg6HWvx3uUiZIH8+u6B8WQmw kTGeNBYyRaKHD1RVHJEAvvqlz53CZij9cYHCQIcEZJ5dsHtDtkCGWy4B06sS YB6jrajkbom2NEXLV2UkQebkH/PMlIMo4FapNF+6JIjtYWHMirNChsmVYp7O UsAi0XXjnbEN2uoIcg9NkwJbhzDrw3ts0b1fasUJ7VJAzFzvlByyRaKBDYIV 0tLgpEVrX4yyRyOlEUdanKTBIaO/+JS7A0p/r3flZao0tA3Rc5wxc0RbB9sO rC5Lw4cTvKxyus6oLjHWnklaBvJmGGJOk46ggHacw+skAyzSzAmplkfRW7Ve ToM2GRCqqMjyuOiK6rhf7U1IkQXRv8N2pU88UDNNYIbQJAu5RVJdj3090ZN+ n0ezc7Iw5cs6EcXuhd4k/TpmaCYHfekHH10I8UYTs1SDtdNyYJ4VzKip7IM+ o3+5bpbLwXJ8mwhe9EGbWxLtDLvlQc+Wi875gi/a4Xwit15HHuJ/H2V+5eyH 9jx4GOjtJw8Rj7vPJmr7IwGaJd+THnl4vuZwonTXcUSaDQ8+n6AAAanK3qW7 g5Ax6jDRaFCAo4mNDszsJ5FVMYvIx1kF8E1MtvhafBJ5OJU8R4aKkPuJKmPY T0MBDXPXlkMV4bUYqX7fP8EomIsQcb1UEc4zyARJcoSg+L6nkjsZlODJ7yrV Uf9QlCbP/btWQwkij/W9HhQOQ7mJrq88vJTAmkZdejoahsooK+c6OpXgvMOP gWDPU+jZfcGRmFhl4JCtWLB6cgYNcvpWqtYqw8Pc6ur+qkj0Lqj2/IcPyrAq zNuyVnIWzcsZqQKoAHffq0zNq1FoLSGDaSlIBWzmog2el0Wj7Y9j48XFKtDF zZQS7xKD9hUFJf/dVgG6Q5F+RlGxKPXPeLXDAVUY5GkNr9kfh9gVdxaoqKhC 3hltr63aOMSXbEGbdFUFqZrMnNc/zyN5PCVEblWFevzj+PKzBFRFY9p94I0q JLDFk0bSEpFGicLq9wVVCI6WiF20T0LEP2HPioTUgCVKou7MVjJqVyi4H05Q g7oCbi3r0YuI6txectBSDcr0sad4SwqyfLDn1PZZNfj4qyw75UoaGpxV8Xxz SQ2uEDifZV1KR/bcdpZVd9VA13FBJCT3X+RKK5ZwHVeDLa61Uw6jGeikguZA i746cO5/wUEnn40mtI3/CtmoQ87tnpN3urORJdVZOSpAHegZz47t97uE5F1i Ukn56mDKc321qTEH5ftnNxXVqMMD7Yx95IBcxBx+a267Rx0elkzv5xa9jGbT X5i0ratDZPuXC4cK85BtweQpETYN2OKotWHyykedZcu3oqU0wN//8VS1yhVU 0s7LCLYa8KDswefEdwXIedm7o71WA0yCi3OoccWod/vUkuhTDYDxptAOUgnS ZkkRif2gAS/YLtLztJcgbsnac5R9mvCW76GRaf811G/3R7czUBM60JUvMwKl iOjJ7i8erwlCdNUG2o9KUcUJiby4Ak0okPPwknK5iZISTdfRM004WqbVYF97 C+HGnHuPZQgQyqzL3ZNbju513Z6SIBOAefmt8F2XO0h0sIk93p4AcZXY2ki+ Am3PTZ2gXiBAJ8trNp3hu+ihoLJC1zQBOAf0hyz0a/7rO8VZ6hcB7vKI8Q0/ qEE5BNvkCxxaYBDcte+jdi0KPnjmsyFoQcGpko+L6B5SjOm+0X1VCzyUZBdS E+vRldTRQen7WsD8k6tiW/w+2p0/vyPxhRbMJjCc6eq8jz7Vcrob/9YC/uBc 2e59D9C1j66CvY7aMBYx/Xd2uhGxL9HMZU9qg+HMoS+WpY9Q1Fb8maREbXgg vofEeLwJHd1f8dakQRsqI0W7FphbEI/xxqWnXDqQYMzectiwHS33mm9KKunA dwpTaGZPO+ozKzkSY6QDZlQGwg3LDhR/0FRc+7QO+F+oPFDh04mW7QqqSyd0 4MvB7nn33ieof2SRk25TBz6MtfKaBHahcidq+BEOXQhaVn02x92N3F0WiJxU XahK7JmaCe1Bfd7kZ9HluvDJWyTdN+QZuv0pW+ldpy4IP7Kxm4LnKN7vS4bW uC4kXLktr8r9AukFZjossOnB6zVX5bkXfeh2yMcZ51A9SKp0Id3uGkDxa9om DWl68En51v11w1fI7VRqBUeZHpQyWXiNPn2FeCIJwb2jejC+X+J94/ggio9L /Esg64PBVv/pArVh5M4w7pnpqA8PR3U0iK+GkX6Cavc8TR9eyJObiGFv0HLy aOqNUn3Yvplq2P9sBLlnKvBz7CECxaQz6UT1GCJyxZwLlCDCIbehDmrYO3Qg Z+hDD/E/nvWe/wfGUX/eubKoICKk6TY+In9+j4glLzXnh4jQ8Xr1xtGWD4hX XDLP+DsRdkUvHDinPYVWbkT8vr7LAJ6wa8aN1E+hO2VinU56BtDwoYPhYuM0 4q0OOdRTbADiT35qKy7MoFXV3nvijQagXu721+38LHp5T5AnatAAzMkGtyKE PqGEhq5xTUYSWI5n1DS4fEYrLQcCrgeQoG733lkujjm0aa2abxFHggd0VvV3 m+fQ1qxJ73o+CWzYj/k7BH5DDGxnpM2fkkDKcFiA+HYe8biOT6/IkIH0mmrY N7OI+JdXOYrIZKjwqk9pdVpCwgl7KSYOZLCOH0iJeryEZKpIxYUJZGjZtXAl oOgH0tkuOWI4SwbPG3duBYSsIGJW48XFLTLc8aM/dnpxBYlyfR232APQZnB5 l+uJVSRVtoN1Qwzgrmtz2kzoGlJ+qR5gbg0gwL19JffWBlLla4sVdQGoXli/ ulN/E6l7meev+QFczi4v6xzcRFobXr3FMQB6fPzC51l/IbJIjvRqNYCdr8zO 1TtbCPmLkZ42ATTNr9bMH/mDqHWVdkU9ACWfOu4+Zd9GJsbd8SaTAKSxyvCo hL/IKmhjupCNAtdPytnSH96BDzee/0Xjp0CCMi1MrmkHtqVn5zSWpsA3RpOJ bOmd2OmyLOWHAQUe5e9+7MFAjz3bnIoN/6FAI0u3sdh7Buy9+1MD/2kKOPud nS1zYsTHbIL7F+MpMHE2bfzlW0Z8/PPFP/mFFGgP1hkiTDLh0H3NR74/p8Cx zaDwzr278QU3Yd7L8giqRnyUe/7sxSTv50/9tRHQicieN25kw+t+EZFEKoLB jmvDsxH7sF/w4MSUC4J8g6eOx+LYsdmFhJuKmQi4p/0WO2U58c6LGg5/ryI4 8m+xnUAeJ25K/8A8eOe/m8qzZ/HNbi6smKcXeOrJf95Y93npKhdmq/iu3rmB 4FK20eXJL/txd3XBzCUGDF8fh3+7FMiDo+tNcn05MDCeftjLssKDl1qu/2RV wBDzs+X4SWZe/HrAvt3BFYNBqOO3KHt+nLfearnwBANHZ51ieooItvp9/G/b KwyrIvXbfaKieDcdX23WBAY28zGT0nOi+MzuEG6dTQzVn8M73hPFsIugzLs4 BSp4fvFKdR8UxzxiQ6l2OlTIqsqXbyVK4H6pWJKsIRXmvmbSK5RLYFB5d63P lQpvr+/ca5skicXRv368WVQQnMtVHnKXxmNGRP5vRVSo431ZXTAujbPNvz5v qaDC+fkg/ofOMpjBDqt4dVGh8CAfmdtVFn/23Vir3KRCQSPPlGucPL6b5nYe uxlC3kbBdK2pCnaOpXcYO24I8hILpoR5FcwcViZPizCE4WNXg3pMVLHX0cVX RZmG4GOSgcOXVTG/QrTor8eGULbJONvgoI57hSVWMwYMYXIYMU/Wq+Nwzp4e mfeGULMyrFnApYFf/WQLsls3hGmC/9uZYQ2c1FvUUiNrBB7eW8k2JwhYqxll GhOMQK7zn/XatwQ8U/3Je4JiBF4fRmpeUrUw+bIyK+sRI2h1Ubd1E9fG6z6t zr5pRmDZNL4YuKKDveknNoSWjcD1Q4WH0TIRc27EPq/fNoLuJnkFw0gD3D4n VWzOYgybdRcuuzGRsMDgP0anJY2hJLkS/xUn48GSP5eG7I0hMvyanGkTYCAJ qac0GcOYieMhBSOMv6t1MIr3GkOu+q/U5UKMC6V8Rh8OGUPzZLLe5irGG6yV MZ8WjCHtfZ/S89tUXPWO+JIiagLdXI4+syJGWOD00cDNeBNg03TnzTtoiifC pm82ZJhAVk7AhE+dKS4J9psMLTSBpWbvxWA+MywZGHr4R50JvG34WWT71Qwr uqXqzE2bQG/vE/fTeRaYZNjMMA6mkFhB+6ogYIXpECJdsTCFrgs1BgKOVriT 1HvK0dEUZJ+LjTXnWGFjnaG5oSBTKF2zthTgssZWCvMDfUWmsJejmODFcxh7 cAhebdsyBVpLpA4T2GJJtutvzjGbgY7y37zLSbb40x5ZdiK3Gbh5DP3z7ZUt DmDQPP9QwQxcnVcZJo7Z4eANc/9aZzMQoH5dZrpij+PfRxJuPDQDxSmLo3zS Tris/F1fQqg5FFodT2obdcWiHnHXUKw51JlVVllT3XAer1zYdpo5xMfZXJqo dsMXE8MFw8vMISwlsHOV6o4DfTiO+4yZg8azcMYZSQ+sKmbMTAULMLpId/zw lid+lHcP7WC1hA4PfRt1Zl+sbuXE08JrCbFThOg1C19csYtuLkLKEtyifa8r Z/niwnDLzCWSJZwM7lejE/bD0bZfJidpltBYNlrMqu+P+7hbd4XkW0Kc0fVv ZaIB+H+lKSet "]], LineBox[CompressedData[" 1:eJwUl3k4lO8XxilbUnYJyVIUylaRzMx537HvhOzLmH2xRyVEi8hSoU3KLlsk JCER+iIkWUq2UpZCIkvoN7+/5prrec85932fzzPXvPIEPzvSFg4OjkNcHBz/ /yy+JWVuc9YJoo2yZvLl6Pjtff0m+uedICP8TsjlDRpeZCqVd1e0E6S0oEqm NTS85PrJll8xTqB83fcfPZSGV1LoxucnO8GfQNxg+wIVD75vsCJFThB3sapC dJaCD+Z5fmRy0Am6Tcdu6CyT8Od2h/5uHHGC9Ht6qGINCR+ldrQ8fcIJsvs+ nzkdTsIn2j1RP/nLCZrbVL5YcZPwjx4UqNTzOQNx98W44d1E/NCxe3IpOs4Q +vrv5iNHAn7c1GnEF+MMIs1nZ/fIEfBTbhIPTPHOUOsturY+5Y3/E31T+p+V M6RWBpSvRnjjhbriJOhkZ6i5sHN4tsQLb0gJE4BUZyiMrf4Zi/PAP77ttjKz 4Az35rwu3shxwgvxqV4yXHWGrUvbdVvMnPCBZ1YFH/5zhuMcE2NTv07hjzrf UrYTcIF3RpTENfQUvlaq27F6vwv01QrIKM874NvS8ZWXnFxgbaX9Scvpk3i1 nSLIsIcL9L9UvxSkchKfGDHaoUNygWMNas6bI3Z4W8/wr9MBLjDbkbizwNIO PyD3TNT2mgto9Eg0H9a2xX/LVgncU+8CpeohSg/MrfAmYqsbIa9dIJ422BHW ZYkvvNQa293mAqHWI/+m7C3xLBIx82K/C0jk2JoziRb4RaUH3VPzLkAN+K5W mWqG31IorF6l6Arv+38MlWGN8USp0RpBFVfQim48dvijEb4l7rERTcMVui/x +mwPNcLHMsw9ZDCuYNu6t3CgwhAvdOhyQrSjKzC/FPwhgwFetmxlxirWFdy0 vnDfSEHw/PurVfSTXEHBS03hsymC/3M3lHYw1RUcLKwlNTgQfOfFP9+2ZrrC vcl18qgf4CNOLY5VV7vC3bguc+MqLH54c65fYdIVdo9gD3DX6+HbgkolhGZd 4avdllIZYz181aSvw8ZvV3ipw8G/8O44PrHnZ0//P1e4WIQZbPyhi8fmzbyN 3+UGIONkG3JMB//A8nvTHyM3uH+7xGOrxBF8XGPelq8WbqBAS7eur9bGh+iQ kXd2bvDWSlHzh5s23kp+or7Iww2OoUm/Egu08JuL48+9QtzAOq7i8OmTmvhp WtaK5Xk3+GtyQs+CUxPfN+ytcyLaDVq+OVkElWngH78ZrRBPdAPa2bcPMkQ0 8B73h0vbct3ghOzMIE/HIbyZ8IPZZ0VuYIK+7Wo/cQh/7Ir7odwnbqCX9ad/ tkQNv9N/qDCyzg1qd9WfVL+riq/Hf8w98sENepRXuV7GHcTvmfmQ9oDLHSqk LcLOvN+PJ9bl5vNvd4ePhpr7WW778cVJp5+GCLtDzYsiq/vf9+H1joi3W8m6 Q0bRcfEYrn14x3D7tU0dd8iVzDZ9cEoBn269j4eBdQd6uPC+kF/y+K/yi8L9 Bu4Qvqe/3SBBHh/Uknyw1NYd/uNIoea1yeGvC7538mS4g03NIgP7TBbfP5ZF bA9wh94TZxhZfLJ42YpAf50z7PnVAfZn3PfgS5xErgpedgfeT29CccIy+LZM 22cvH7iDgVe/QPHD3XiuI93icj3uYMwM2CJlIY4358mQjx9wByM3a3P5TjH8 zQG/QyvD7nD4dJN4s50YXj5c0LB7xh1uHB9oKfcRxWNbrIIvcHvA6NHywS9Z wvjLd2Qv/NjuARcyzhhe0xXGd9BnrzmJeICYKy05uFsI7yKYmK2x1wOUTknG jPMI4UOd3vaM6npA7/FmX0mpHfh6lfRhC5wHtGW68xtQBPA8G8zpakMPGBm9 LmhXvR2fkimw5YadB8zqEE3aSPz4smlzTYTpAZasKI7DP3jxy7XSmJJAtp7j HVSWIy8emzRjsvusB+QVvPfjeM2Df6t9zevXZQ+o+rd2cOQRN376fFtS5kMP 4DeIe1J/eyu+uCW1eC7XA/TfGh6W3LMV7yvk/R+m2APSGrY9O5S7Bf8re3nL x2oPuJa7b9WhjhO/0rYvRKTHA55XtYkrC3Dga8Tmb3oNsPuPXXPsM/+Hnvd4 Ufp42ANkPAhYnkub6L9ftlNmMx4w5DSvucG5gfLsjnS7yOUJ2/s1Bus019A3 BLOz7/g9gRihqbIcs4rGFYvf2ivsCR92G4YojK+gO6C468UeT+BkfQ7+m7mM ilEG0cVjnhBR9qo62nIJ7SvL8UQxnpASKvhN7NUiemfN7/x1vCcctEqz/6uz iEon8lSp2XjC+TsaZefVf6MKldoHSTRPkLPAddPwv9Cvm5uGT/08oXlih2hF 1zyaZ9JG4AzxhCRXT0abxzx6cMjrfnq0Jxx57mGrxz+HamxNFOxL8wSfPySW 39gMumDhrLYvyxNWVd62nVOcQStu7TMNfOQJyyfeE47Qp1EdlRfROys9Qa3O p9qYewrF2k4uGXV6gmlm8F95v28oR9pTkdReT0i2H6d3vp9AG79GqH/56AmF cifkvPUnUMMz4rTI755Aefz4xrDkVzTPWn7WlcMLppWPmfSvj6Exi1fWo7d6 wXPykJVNxBhKvfuDv5DHC8pEsVe5t46hKl+eKa8IeEFd8K3kfvFRtCTEyjtl txegr0V0VOqH0PfpaqaXZbwgm3lygLH5CV19za8ZstcL1GWmfRzxn1BD0VYO p/1eoP8nx7f24yD6uRSXIa3pBdLH3Xu5MP3o1v49VwWOeMGqHuls48M+9ODm X7+NY17wFHoeE3j60NMW1bgRfS/4Oef8aX64F90xpTGSZeIFLjwVnJM1Pai2 kGBrsrkXyPEtpbno9aDOOj8fX7LyAgfWKxZv3Ts093JBBNneC2b1XZKb2rtR jIKCrIqXF3DLjT5N2N2J+phy8Ej7eEFvAyNSxOQtGus//HM72Qs4K0pk58I6 0A/19+p+Mryg6PQNX/XfbSjLVdT9SagXvJZMtfaTeYMmR/8yyDrnBe7tDpU2 ga3o84IuteRwL+j/d932XkcLyr1ybT34ohccro0/uZbQjKancN3XTfKCb37a O6SRJrTpxfjFgze9IHfQlE551ohOjTcwpFK9wNe9dedJzUb0qGb4ifV7XlBD SFwsUX+Fvn279PFlnhcMp+oPqD2qR38vvm8sK2Cf39Lb+/e/OnS3THlhZrEX PHweYFr9qxYl0X3PXSz3YvM0OUW1e4Fu8HzfbVzP3q9pr1iVfTWqeLiZU/eV F2xoDk/zZj1DTR2ypw689oK19gBXzcUqNDXb8zl/mxeEJHvoJ+ZVoodgwKnz gxecTL/jchieohy3sPmbA17wzFZ5m3huOdo7k7N0eIg973621r2d5ej52wE3 k8bZ59vXvq7PlqE2P/tHX054wYrc5OY9UhmqiMeqz096wfrxpVNPGkrRtln+ Dps5L1iQJjPONpWgDwwCpKIWvOCxbd3Pk93FaMC9fuqTJS/AyO6RiP1ahEoa 5XCLrLOfT9NaO6xQiJLTMbj3fN6g7R96/PuPPFTvd3bCVgFvSN+72cWvnofu MOUf0hb0ho8Sz/9uCc1FKxb7zqSIe8P+By3/Ne/KQa+aYVpfS3pDuNmvbIx/ NuqWkS2+JO0N1XH1wV/fZqFbLfzLHRS8YayDi7r/Tibal9nHcWW/N3x9EO90 misTLVzWt6464A1/kxo7PU9noHbZ235IqHsDVuD05aU3D9CMtaz9Aye8IWWb SnDQ5D002GZbMB/OG6x2jZYmbb2HGuf5Neqi3tAXgw2d2n8XnbXV97xr4g3P VxRfnY28jTbmZ5X8Z+4N/kNu8kZVt9BbG3zrq1bs70WFFWG/U1FMwYc7Lg7e cGUSf8DjQgoq9O/E9zgntt8a55PFXcnoV/usoy9cvSEt4tuRvH3JaDyHX480 wRsuprwTmR2+gX48xSfw2dcbzlDv3bwpl4Q+LvF12RHoDcgvR75OoUQ0auuH R5jT3iC1HGQ3vi0BPVCaafggzBu4WKN/IsWvoetcfCmdEd6QsePyvYvKcWiX i+/4ZpQ3PBweibVHYtEQnhORnle9gUdySw3lWgxq5pb5NukaO5/DWYe0X1xB 95TzyjQkesOn1i/Hh39dRl+791bLpXrDiv5T7ZXAS6hoJWthLNMbrh137Lxd H4WqJVhIDeV4wzGHcREhlSjUgKSK9uV7g86g2LtD9y6gIeJTN9pKvOFoQPqF e4KRaOLP1uevy7wh1t3QWoI/As1vzhurf+oNo7p23W8FwtGB00TNp8+9IeCz FGbpYBj6yxLvXFLLnmcjeuIH/hzKr6QQlf/SG1L36qyokc6iJ/pGutOavaGY QwBTXBuKPjjm6n/pnTcYlHPJfn4ejD7bqXcnotcb9LXWw2z5gtHub5INZ/q9 gXfqEM8ZtyCU83afIOuzN7w8uOeGinggKuVXqUMZZftXeq/nfTYA1TJO8fT+ 4g3RzRK2D8f9UeKybanDlDdc0Fx5eSDGDw3v0ui3/uENbsemtv477Yveyhf8 ZzrnDfkWZ/MqWCy09dRbK+ySN1huFzqXF8JAVapNZpU4CbCmtEXS/zsFxV9X lpDnIsCGE6Z3Q5yCulF5sNK8BGBNcp73NSejCZKvEwR3ECDx/IVimTYimjef VblNiAAC1stO8yJEtP5N1OetogR4+V1C/r23Dzp/BndoRZIAe1y2GW8VJqDb bGUdFqQJIHNAe3rB3xtVOLhx/ocsAd6blcke6/NCTw7WdIzuI8AZXus+cS9P tOr4MeZ/GgSQL13J39R1RbuExVOatAnAZ9WurGTogk5O/X5Rd4wAC9lbXl10 dkZ333uyvVyfAG4qwQd6755CtQKvaxfjCNBgoplk2OyImpn5ueahBEg+/FN+ etkBPb+mVnTPhAA9N+DUSIA9mtKz/X2KOQFCKlnv6qpPoiWF02uJVgTop17c PsN9Eh12eWR20Z4Afls7yV7ltijyQnGa4UWAi4nWqiX3rdBd1hekTvkQYD9H mMC3WEv05/iQGUomgHZe/X3qBQv0Lv+tIkkmAXYIUPIkr5qhfg8WPm31I4C/ ++jv8jumqKGWtcBcAAEu3DA47f/EBP3lzMdqDiXA/Dxd13jNCG39SUwvO0cA ndLsN8MHjdD0qFdv08IJcF1Bmv+WlyFqWnDucOBFAuip/ls6PY5HM1d+zMkm EaCl+fP3MU0EDY03leO/SQAFiy/J1imAWsrl2SylEGC8T2DEYwWHrhp7Pmm/ R4DL/p4l0s8waNenF2NV6QQgH7VTo+bqo7l+kiJZGQS4UUQo0Uk/gdrefhd4 Jo8AgeeNimUeHUeVVQ9n+xQQgDeAIHa7RhfdqI97b1XM7hespurxQQct+IY/ sr+cADtVPw5XKRxDOY9VLb2rI4BPw8BTK3FttP8/EaW6BgL0Pn72aZCghZa4 +zk+amL7SzF6XF6liTpfPvAs4j8CiMXuOh/kr4Gq7778ndZBAImGjrmJInWU u2Rsl0MXAVbfdPAMRx1Gn/TeO6P6gQAV2+RV9S3V0Bjq8iOJAQI8ZjCsZxBV 1H395CDnJwLEKasm7QcVdNu+HXoDo2x+C/AtP08dQL2DIv9e+kGA24uH7hn8 2Ifq8A6p+s+x9Z2cuFK6bx+6I03XzXWBACqFS0OWREX0eeOvWs0VAjw7wKOt tCKPJjla/ZT5y87rm9+xb+byKGm6cA/fJgGsGIyYiVw5VFiEGDG81QeiUjcX Yvpl0e+5DY//4/GBM/I/aAGP96B1x/eMVGzzAWFLq0fq12VQmncf7pqgD3jz lZjkB0qhr8pMOHWlfeDtfOLswwIJ1CDo0B2CrA/sr3mfNlojjr45KqKeIO8D ay/4JB99EEO7az65jSv7wJ7T7c8dlURR+/CG3wKqPqD1Nnh3vKsI2o/LjdM5 7AP2e56Ff70jjA6/9q2OP+IDHQL2wvUqQigh5qT1Mx0fuOn5Wd5yYyc6Yar7 bUzPBxb22m1yPN2B/ujkFNNBfCDvt03CjOF2dG0gxW/M0geUpM49+PyXB41I O8sjYOsDi8re+8q4eFBOD4/0Y/Y+oBsdlnZ7FzfK90W5/ZqLD3CpbkkVdtmK xucKEKrcfUDj8LOmL1e3oELUXyujXj7wn9eLRdMGTnTXzxqlYxQfcB0L+XDG mAO9V/qwzovuA4n0rLXjh/4hsoGX7K+xfKB37d7TXR83EKVly+jRIB9onci5 Y+D+FznCOfY57oIP7D10ZVfQ2h+kuqk5uPKiDwwcfp9gtrmEnLhSuH30ig/Y 3bbZyBZYQtDtwcePJvhA9cBl88PGv5GWt07dntd9wJoMnjcDFxCz6xhKXLIP fOjduDyc9wuxFedNHbnrAxSJE3sbDswjvf0zqvzpPnDRcK+C1cws4nSvu/FI hg+Ev3v8QDPlJ+K19958bJ4PfP4dHPlGaAbxPXjI4shTH1D57drll/sNWZgR /uJRxd5vxVrxUv4Ecvrxn7Oxz32ALuzxn0HlV+S8dkP+8EsfGN7SvHFudhzh +JOD3dbkA8tlDP9ru8eRi9WxH7RbfCBBojDimeUYEoc5uTW2wwf2qSu8aX44 guzk0L33tIutT3RayklvGLnRKKM53MPmJarVweTrEHLH+JuH9qAPjDk0fn/m 8xGR4W9fch/yAcbYmOUW3UEko6M0/uqID7S8ua0DuweQfNuzNZ8nfABXqGTp x9GH+N/qU+mZZOcb8OHUG/EPiO4n7bSWGTZ/o1oX8o/0Im3E2bDSXz6gajMu GpbQg9wsMP+RvegDl2ibW2ta3iGus4/c7iz7gNGnv32ifO+QH6E+mKgNH/BT +R2Yg+9CKmsbSk5zEMEoguuEzu+3SASnrCx9KxEYJ6tybpZ1IILXBjbtthHh 55Uh5xC7NkTrgWXDPnEiHPAz8fu0rwX5O16osVuSCNMPvauCjzQjr5X5MndI E0Fe79H2f5avEYcnjVF/5IiwvapY3Ta9EZH9s3dhWpEIv6t5OZx6XiHf9MIJ I0pEeGhYl/pW8BVy5rUO/o0aEVqmZpIcDV8iyLbUp7XqRDCZCBz7PFuH8Fst KD7RIsJRyVxGWV4tktZfzHVPlwgYFDk2ja1B6qflWxgGRHAW7HLv2VKFxKhH HvMyJgITB2oFgpWITfBQnr0ZEczrLKfrlCqQsY1bMRgbIvAZ1B1YDihHCtHF Zc2TRCjKPK9lm/sECYyxpSo5svNIPzFzcqwM4RIWMBV0Y/uNPbD1/ZfHyFsH 2vOtnkTw0skZzrhWgty613JwxZsIw81p/wmixYjyvij+MQoRvtiGhtEHChAz nT/t5UFEoH1KfnQ7LRcRPX9SPz+ECNxn8lhNj3KQoYay4rSzRNBVvy7q3JCN sMwYCZciiVD5+kQa344s5FjSm40z0UQ48vfkbxskE9l8v9+XdZm9vz9z9Z4R Gch191Erx2tEWF+P46pSeIA4ZWFemiUSwUJ4Da/29j4i//2eOu4GEW6phvjT rqQh5f4OQgduE0Hhqz+pQeEuElZZfkHmHhHizS9hHnPdQQzWBH8JpRMh9in6 gP/3LeTDxbZ3q1lEqNjjUb6ykIJYLJc+OpRHBNYV2tKfuWSkkZ4a6V1AhKxl cyeN1ZvIY1uvQ/+VEqHOei5j9+EbyL5mQ66NcnaePZlctU7XkTRd1U8aVUS4 kH76x1+pJOTq3j9X79QSIbeZQt2uHI9s3vzk2fGSCJL1xJ6+1jgkmOfVMY4m IhTuOSzgdTYW8f557SvlP/a+82+M3doegwx4BbxI62D3y6dqd09fRqx6HW92 dRHhHwmz+rn/EqL3Qh50+th6lNEv3weikbLDvLsYg0Sof/JSonQmClHO+vHz wRC739auI6PbohCx2GdpPF+IoDR2hr+xIwKJW78fqPeNCCoaZ7S8jcMRDv9o U98pIojTIu739IYhPx0tlz/MEUHf2v34o31nEWKbVue230SYMMSrEydCkY8Y yVzMHyLcHojmzKwMQVr2fbHLXSdCTsiGa0VUMKJ/583BwX9EaLwSPaZ6Pgh5 uv0xx46tJHBXbzlDuhiIZCyceRy8jQT8r+vXqir9EQmyx+VHAiRQlK295PzS D4kfxLsNCZLAqbLQG3fAFznbsJPfQIIEbcG+SRxHGci89uJo6G4SgPNSxXof DSHnDz4rkiFB8UhavXYcFbFLzCGJKpJgLWVkjF+ejLzhjNM3ViLB4ORA2d6t JAR32k807CAJetsCpk799kHU3PRejauTwMZpmBHx1xvJ6tp7R0KbBFqqi7NK It6IJJ7bz+wYCQKGTZLIR7wQbpVumXJ9ElhI/1Mf13JHzqdX/p7AkcBzcDjR s8oVWRBKa9uNJ0FWfS/PoIULMrxMOhNlSoIm5wkNidJTiD3D3LrSggTDqtm5 cmcdkfZhDaUpa3Y+dS1lT+0ckOrmv+9tHEmAVfh31l/zJHL4+FjhJWcSOCu9 zVE/aofkFLdEVbuRQEbYmphpaIvcSL6hLudDgt9RQTNGYtYIH28ojz2ZBOcm PxiKnbNEIs65fY6hkUDKyKj9waI5QvdWvjbnRwIT1bKwIUVT5MH1OLpYEAkK ncy1U4eMkXcvf5oeDyHBO8Ej+Rm5RoiubAXfxfMkIOk2jlwlGSBMy12T+ZEk kP51QWHaBY9knD/X2hFNggM1I8fz3FGE9xNckYhl7/OKxvvbVwHR488hnYhn 7+tpzR5VTxzie5zX0CuJBNdKFYr+NmKQvttvtxamkoDH5qfhp1Y9hL9V40vn HRLI+UrFT5OPI5g/yY2/00hwUj1GrnOXLpJj7xKFySJBstXvw6lFR5GBi3Ve hFwSGFx23Poh/giy/akcxDxi93th0J9xXhsJFP6+2f2YBGdP2VdyXNZE8sBs eOkJ2++I54r+fQ3ko19JnVQlCWhPLIsLItQRpDPoPPEFCX52dCdfsFRDgjf6 XGPrSVDrYsi79F4FeaSmd+LxK7Yf/qCh56yDiNA1jrXlVjZfiYaFXv1KiEGN z6BMOwnUt0VfCsndj4ROtVQjnSTION7pgb+4Dxk2Tgi91svOp1PHaIyugIiE zjuW9ZOgud0iWC9IHjHMO3nsw0c2/9NDC85X5ZBiLqkl2TES+GpZI7XFe5BR 7fBe/Ff2+fOtUnIyMoiYz+hT6nd2PjVH1/AZUkjYq7zA8p8kuJAwRMkc34U8 nt9m1z9PAns52apvDySQ8b0szfXfJHho/t1wC1McMYvQnjdcI8EPPcWjp46K IhElt7roGyTw4HotuqougjwZWn2cxEGGtez5fYiuMCJ5ooE1yEOG5IMBvziG dyIWdEXLzW1kyOW9cshJdwcSefeKmuIOMlz+9COq/dF25NuyxQxTlAz7vk81 x7TyIVLKZW03JMgQIdpEqQziRSwdRQurdpPBfL+1dKsmD1JRMUjlkCPDnJBw zdzIVmTyi77JfkUyeOzXS7Lp3IJIi2YomymRIZvLQO5AOycSHUD+lqxGhun3 mWNXP/6Dqoz/mqvVyUBqFbAxV9iE6S613M9aZCjftDvEiFoH28O/fZSPk+H7 Vl7uxQur0DbSKSOhT4a/Dil+NsdWAL1R+IELRwalmaMyiut/4Miit/G4ARn+ jNo0rVcuQnEuhuOdMRl6j9k3XXr0G/af2v38pRkZvhl+U770aAEkarpV0m3I IGz629qicx6SGMVfrp1k+5/QOVU5MQd8e67eP+dIhu0v9Z59MJiF1UjcTic3 MsTjw371wwwEakq3GnmSISTOfrPy0xRMj/+JPEogQyhv9MfEq5MwZPj4lwiV DFeLKbgSsW/gsBxbyMkgg41VBrfFwlfofETymWex570b3Xl7+Au83L7nw9sg MijbVY/YjI6Bbt1KQm0I27+hoh9pcRTKfHuNis6y817sWvYXG4Wsd9eqr0aS gWBXTFD8MQTSFykBodFkEM1wVd7F+gQpR/Aq5MtkICe9wMRxfoTLt9fS8NfI QDl/MVvUux82TfrstRLJcCJMv9hFpQ9C1p7skL9Bht31kbZRWz8A1Z0WuXmL DGa/OWSNx3tgbKeh7s+7ZCire9fG+PYOXBrkfn26TwZX6Seq55a7wVxxgPA8 iwwnpdccLoZ1wuvep9KPcsnwJL+t6NqXDtC/ktR76xEZ5om5/De92uHwlJFR 8GMyiOsUZ5FT30D+PYV/hCdkOPjy3Yi+eSvIWWw+s60gg0XIsa97RVpAuLTy oHoNGZqZx+MzupogzuvG+J46MvQ99A/Kft0IW0RYaQINZHhPUL93vvUVLAbv 2zHdTIbwL5XV3d9fAkuJo2XgDRkYtyX+OenWw7f+TxGt7WTwetuhZPewFvr1 kudz3pHhjGWL4M7i52Dzw7cguZcMq+HSMWXW1fAm3YwQ3U8G7k6pkSjuZ1DD saXX8zMZ0gvu8nDmVIBW+ed4q1EyGPxRsF+MewpFPs8NMV/IkLYt6GTGhXK4 3+L/TGqK7c96WVcxtQzEz1j4b/vB1k92tdpPKoXEgwcOrsyS4dyZltcfnpVA ZPzIvQ+LZEgRyWh8+7AQ8pj4mq0rZHiVPTcwIlYAHRb5g5p/ydAtQH15PiMf JHf4SSZyUqDp+se5U39yAPuzR6eWiwK/m0SuoPXZQHp77NQ0LwVu2nJl7LyT BeUJm6lGOykwFM771SY8AwZYhMpgYQqUKQc/HdzxEDYtW3qzxCjwZFizjYpJ B/OdiaL/pCgw7prNoztzFwJnf2kdkqXAVRPs9GXyHbjT6WDnKk+BlwGXuQxW bsHXxD03nilToLbc9C+fSwrw+0WVTaiw60uPJ1UrJ4Om9USX6GEK4HI9e5V5 b4KTuukcokkBceUbF04uX4cIwZKd/kcogOevLE+YTYKcOaHDD3QosFJp3XFU IBHauoItO/QooDyg4TpjGA+7ruvHH0AosGp85cwB3ljA+mcUORpQYO+b+3F1 12KAaMPVfsmYAlJtZXfOKF2BOA3qdLkZBc6QLqeK9l2CMqGObWOWFOBhVk+6 3L0IffPqBwVtKbBDqIKi5hcNG93JJhh7Ctyt5XIPcYwCsxuuMXddKGByVN/u d2EE+Ae8zGt1p0Ce0t/Kp33n4ZatYsuSFwVG4n4jG3vCoFYzZkKRSAHDOeNo nciz8EV4hsuOQoFoYr3N2Eoo8C9Y7btAp8CeTxOXk2JDQKOnHP+YRYEj+ypr Z9RPw/mb56L5gykQwmscUlkdCFmBw5m6oRRoD7jV9v5OAPxnh74in6NArN1c 7b9Yf5jXyhtNCafA9ScaQ8ESfiAhys/RdIECp9sXLJR1WKD/m7X310UKbFPL 2WoXzADC+3fYvTEUePo30tKsgwalyXfDwxIo8PrQ04DAFjanQRv3C65TYLpx ndFIIsH6Se/a/mQKOEmJFeyRYv+vP9L8ifs2BTRn2k2MxwlgInbwr/Y99vld WqtYnTf4LsZLEdIpEDN19RezwAtSe+ePX8+ggHu2WGeChSeMp1Sf+ZFHga6Y 4uu2aa7Ad1rmjlQhe7+cPWPdP5zhsMOFZyYlFGj+8SlK3ckJ7I9+7QspY5/r fP7z9ZMjhImb/Ml5SoHvRdFPIkMcIGupSPx9FQUoQf+9yFayhzcfBI9y1lBA KOe/c9tm7EDsVn+QewMFyKkvzn0ssoELK0+ZDk0UMOuS/rDEsoYZl+skyxYK JIyf655/aAmNe01PYToo4MPHrF61MYPD0fttjnZRQD5W1lT9rQnc/cppeqiH Aid95uYZnsbgX1Cjt2eAAsdj91rJvDKAoe23tcU/UYBL9O9180Q8GPsGqe0Y pkDpjkOHlpkoyGqryW58oYAXv+TncReA2FS+XUvfKLBWuxpR0I2FxeWvgj+n 2PwZPdUz48VAe2065+c5CuwM72m89eo4HNt7bq13gQJbKvKkfFBdyIpy/N2x RAGtq/5yqoPH4IyR4ETtXwoEz+ivN+OPwNdHM58rNtn8Bl87aCOuDdbb3/QV c1KhPbagA13RBKXuC2/u81LB2cCt9s+QOtzUcn+Vwk8FFVGfjrF/h2Aj5XhN /A4q/Np/X9EZqwbUZfGnl4SosDgY8Kvtlgr0Oi8UnRelwqYc/+oL3oMAtZ05 wRJUoGjr2bYkKUORbFE6czcVFKxnj945pATRX3yS3PZS4YK8RkFBriLMGsJV ewUqNMTm5GeEK4DzI5koi/1UCFbdJd9BlofX/KtnDQ5Q4YryepC6lxxosD4E 6qtSwZaTkFz9Thbudz1hHDlMhTMyIylf/skAr1YiUU2TCstKP6t1TKVh+I+R o4wOFZIFdl3XVJYEM2dFazE9KkQGmn9arZaAyhf/jAUwVOjJteY47CUOcrJD wAVUGHb87n5DWgziL1QfX0ep4L6X2211SgSWx1O0Fg2pcI0URrVoEwaCYYDq DxMqqN3m2RL1QgiO86vsGbKiQptn2R3K3R2Qw+SR6LWlQqGO/EDnh+0g1DW+ s8OeCtl2T9ra1fghTPMl7+tT7HyrX0703OeDb8lpHLUuVNAsrbD028cLdn9C V5+6U+GNze0EpJEb6pzsF4q8qHBQ9pfXZjAXpOzZ8TWNTAURB50+qtgW4Lgw NZRMo4KvkdX3j5scwBhv/nCNSQX6cuzn87//4foMsjov+lHhy+wDJz2+TRya H9EaFkiF6Onww7J667jH21wbgk5T4W1ImGxQzBpuN1PnOeMMFbzmXTTTZ1dw 8xrzha4RVHj6Y8fLEK4/uN3WZsUGUWx+nuHTR6oWcSgrp+TQJSoU3bD2bzv/ G0e/tvlYIoYK19/u75RwWMAlFziV/YulguC7rroK7C9cbWv5k8l4dn3f07Zs 3Xnc1wmBp++SqNDRtWr69eIs7pjCq8rsVHZ+hY25JzencZ4g/Sz+DhX2xvBI fiFM4a56nK4+ncbe70LJcP7Id1zZ+a7nHg+oEO5wveN40Dfc4L2DL4wzqZB0 S9zTUGYCt+X5xVqNHCpwjhffjBv8glPp/1y3O58KGy/XWz8VjOPOi95smCmm wn8Sp84jkaO4XM0fr3pLqeC6JKiZxjWC67Q2aqorp8Kor5lB3oHPuD+sjNd5 lVRYSH7Z/YX6Cbc3fq05qZoKokGxziVNgziTQvvWMy+oUC9X2hGsM4Dzf/P4 jXc9Fbgv3ZJtauzDNXL5tGu/poIWedeFi1K9uGmFug6ZViqb4xR5v689OFFk Vyd3GxWqS7Ujexre4fQ9A7pmO6jgYn7S+/bjbhwxvL27v4sKTYkXQv2cu3AJ aft7Gnqo8MQu7MLZ4Le4queR7ws+UMFqcWk9rLgdx/tHuy/sEzs/o6VHxcw3 OA2xxH7iMBX+0p651fxqwTlpTQ5YjlHhjmbak/MJzbgoG/Tjsa9UGPMJP5uG fY0r9L3/ae93Kry+XpLfs7UJ1xP/Z4hvmv17ouuk/OvTK9zfQpvhXz+oYNIw 0djf3ICz+M411rTAvl9bM9zzU+twp7k9x4uXqHAug/hxqfUF7oHi8y+pK2y9 sQMVkhI1uBZEdCLiL/u+E66fo0RU4+Y8Wd8om2z++W9W2P2rwklGtH634aQB PS0jiHC7Egf35aeOc9GAlvLx1xHDCtzNgQ8z2/lpsG0pUHfL5ye4F3/Ufy4K 0GBIDcOd/roM91UsbvazIA2kT5k2+J8rxQlof51rEaHBzKk7rQ+uleCO2mJ/ lYrT4KqSNmawpgjn4Xdn4Y4kDd4lZTva8RTiriQs/I6SpoHvG/nHp5iPcAP/ 5f05KU+DvVcOzNZG5eI4JzlW9PfRwLAXw6N9OAenwuO6ul+ZBnLNussec1k4 u32VaztVaKCwrsrL+ToTF4YKri+rsetBNu5HYQYux4u2MapOg8+tjZd3GD3E dUQ0bf6nRYPDFdoF1xzTcbIvQjnv69LAbnmL4NPuu7hFXhfa6xPsfnR+jd3i d3Bt9vrvfmBpcM2zWm4x5BYuI1P2uDhKg51IxzP7xRRc6CxHJsaQBolWNXOM a8k4qxNf+MgmNKgc4Om/qncTt+9qs3+iOQ2OyAhkSXDcwHXLx8GILQ30nj9k UG4k4PJ8mY94HWhQGF86rHbzGi78hZWQhhMN5pHZZ9KVsTh7Ps0zTq406NWy Xf+1HINTcRAdveDBzmvyTHCy0xUcR9aScYE3DZ4fP6vP++ESrm+2v/QdkQYR Hf5hpxkXcRev3o9UYNDY/1NNo8+NXMC5fIj4buZLg7bI0AuTQZE4DQVv66AA GgS/sop2sAnH8fjhn6UF0+D3jM5Imm0YbujF/r2vQ2lQ4XI90/j0WVw5H1/M j3M0yNMwPrjzeSgu1mF6ViyCBgm5fmHtUiG4Y3OP60mXaNC6O+izhUYQTkD/ hlJiDA0+Cso4BY8G4MavBiVWxbH3mWih7pDvj6v+4PBnOIEGbprtC+95/HBJ CroevDdooDzIPJD4jYkj+0m1qKfQYM3/+LTmDB2nX7t+yOk2DWSaFFUMRWi4 SYdXG4/SadBSeuZaZj0JV5+VTXqXQYP27t/i9TgiLnXu8tvVbBpExw78mvlI wDH1qUcV8tnzsiRSaIneODTWLN2skAaqq6mkZCcvnGSfGndQCQ1GrRVTmvw8 cLMKgqy0MhqoZBYndTq44dJq3+v/qKKBQ5mVVkWCEy5wW1WOWA0NGnub3Rs+ OuJMHO8IYOpoQKiambtt6ICTzT4XTGqgQWDEzKejHSdxi3NuQwlNbD6MDV49 Y9rh2vRxBlUt7Psjr/bQdb8tLjNWvnj4P7ben4LufyetcVaK38LUu9n3ydlq 2T/DHLfP/82XU+9pUCV/4pVshSlurbbQ/EIfDbzyjJpqpoxx3dsSnj4apIFT tEfYItYIl+/oJ/1uiAac4WbE7CcGuIhs24urIzS4ucvH7DUOj7Of156R/0ID 6iuPtyHfERxH3EpN4BQNQleSfnmsYnF9fR8V0n6w9R4febCnUx9XolgX1zRH g8cZBKLbf3q4S/4PF2YW2Hxpe7eETOriXOqiXMT+0OCRs+yJPwd0cBr8xEb9 VRp8O5QvlnT1KI7nlJEKaZ0GOWV7Hu7hPoJ7Os+/VrmFDvaXH34xsNTEdb4k nXjETYfFfCnjcwc1cNOJDefv8dEBnJjRAZqHcdwe0vXx2+ngp7+hc01bDSd3 KORfxE463KXsD190VMHpr3dDgDAdBmTVui7fPYA71a4a7SNGh7xzG8t6q0q4 RNoYl4kUHdLHrqhn8+3DFerqG+ntoYMDD+vrdIUCrpn3doyaHB1EjcNnw0Ll caN9v97IKtKhZ3H1xRcrOdx6rgW/sBIdrvw5KZ0UJIuTPJ1vvvUgHZI4Jyea WTI4bYMtCUuqdLjKaKgViJPC0cefCX7UpMOXnYxjgnK7cFeeiNh2HKHD7HKm T0uqOC7zAutmvQ4dHoXHqF7YL4artX7zvkyPDkbJp9Ni34rgBmQVxbMxdKCL B42axwvjFn+GO6YCHW5FxZ0z8xLCCdYN3I7B0yGQ+4YU/vpOnJFrohTTlA48 9UJrIff5cQSVKVcPCzq4mh7RMenlw4Wv4tNtrOmgO1m3002FF3fnzYNh1I4O wyq0h5X3uXEVt1f3HnWgg6ekvNzZg1y4LrK9t7ITHSSRqvqpzi246aOlWbtd 6fCfp2Um5RonTr6XuH/Ti63vIZesYswmVj/7JXnehw71HReFNs6sY50CpR6N k+mQu7n352zCGjYIOT3VS2PrE0k4nt+0gk0U6lZpZdLh3bWvFn93LWMLR1SY z/3ooOxr3vH16hK2+fHlkqJAOlww67SJFFvErluc0Lh+hg45E/9F9gT/wkrK 3AqIDqODv23EFmejeaz2zHx5cAQdCPEfN22cZrFWNeaL5Cg6OJ5S+Ndl+gNL j8076nyJDkVZyucKPaaxV5w4Q81j6OC1yG93JWUSm6nsVo2Jo8O/6kkRzalv 2IFm4RMK1+nwRCg/dPTbF+xiCvO8WDIdCq6ICWvEj2MFia11PLfoINiutmfU ZAyroq3wb+UOHUarNYa8pEexRlvCYSaNnZfKfY5zXMNYwrv+qM8P2Hm/9P+q vvIJG56h1dSVSQfV4H9EJ8GP2ArspGFFPntfExlHCh/0Ybt34GPyCulA7nY/ GCfyATszlP7mTglb//U93wwy32N5ile2XSujA+9XWoGAaQ9WIeykefhTOtxI /k7T4nuHxZg9jverooMYNS3DuKYL67R7W6f3czo065jk9cS/xSY9q7cxekkH qdyJPTKZ/2GdKjNXQhvpYKdVu0x/3opVeHopo6CZDtXHegQeLTVjZ8ooJp/e 0OGFj3y/9snX2IrHZvMCHex99zzyftjViA0vPnQH28X2pz/59hH1FdaoUAj8 e+iAGkRJ6so0YAdy+5LeD9ChzlqXkXTrBTYz+7kO9xAdrAJvZjy48hxLz7w/ cmyEDm2xARUd6c+w2g8jY6jjdNA5laitN1iJXb9PUL83wfZ/es8hzLEKbPM9 w/72STqEbMs45V5ejk28cyByY4YO5pP7z9uYP8HKpcx2ei3QYUfhzFr5rRLs 1I13ITeX6KDuripo6l6ELU+qkH29QofY01BvZVWADUu43bL0lw6JfoWpmeR8 rMG1c77K/+jAkrs27Jydi90R6y7hvIUBbwciXFs4c7B9V6A+jpsBHBov7KmR WVhqNM/O2e0MiMh9Hxjw4CFW88JU5V5BBpDBVDtBLx27Ft7hbivCgMVxj+uX udKwTWGl3BfFGSAu8spgYeUONv7szZIKSQYIkv/hi8RuYx1CTzt8k2aw319N t7+2T8XKnnba2LWXAbcMu0xiqpKxZf6ylmH7GaDhvvZT+8N17FlfzqXiAwzw gZ1pxtJJWJT59f6wKgOUi11artbFY7fTWw2E1BkQKORbfy4hDttLKfyBaDEg 5o/nYHnMVWw6KSEl6CgDag7EA2/BFSzZx18/V5cB+qJDh+JmL2FXPI7F8+HY 5w7YopBPUdhXbruP6KEM2KPbNcQfcQEb57L+iWHIgOK4kZ06IRHYk04jF9NN GOD+6rW6o/x5rIxjo2qXOQP4uf3GmlbPYidO5r7nsGZAv9fH47vWQ7GPba+G adkxgD7C73tgfwgWsbRqT3ViQFkhzmbnaCCW31wzqNWV7c+ui1HKDMD2mohJ r3owAF87ZvRQ3B+bbrTcqEJggGboaZvgJyws2eAj3Y3EgBVvu1f8VAZWHa0T SaSy5594Hu5kTsOu4DJqXjLYel3wZ9dOUbBxJ8j8ioEMSEhjFs2N+mBPHjct tz/NgIoHdWalpwhYGR01lytnGDBJP++Q/MMLO3FEcEt1GAPOjhyIzdLzxD7W WiiYimBAUEXS1dQuN2yoxgdb6WgGYIQW3oqluGDhcPWqxWUGcLbzHoq65ITt ORhhWnaNASE+WNLGJ3vsaMFgW1Ei20/kc4PEUyexswePWuTfYEDbCwUJpTlb 7HrB9bdZKQzYIMT6NmXYYPlVflg9uM3ezwQuQ+SDFVay0Lj77j0GCJX1HDmb aoFVUsm2TU1nAG3xmM3FSDMsXsXFPj6bAf6Od043vzbC2hVWfojJY8DPgRmn bClDrJeK8KmLBWw/0cI7aUl4rG8hcyCimM2Xv9iZz3Io9rzKG+dzpQw4sndS eL4DsHGFip9Ol7Pz8FXZy1TEYe+oRLoFVLLvx1I7qeujPrZC5Zgn9QUDEqP2 bMi26GIbC2+M+tQzQPrX6uTexWPYbpWf3p6vGPBt1WfnboOj2OFCky8ur9m8 SKZmpj7Vxv5UySE6tjKAKkz7aQla2PXCfxO2bQz4eLhRdt+kBpZf1ZVi+ZYB DZXRyaidOlZJVYRu8J7Ntw7fzNthFeyRItYMro8BvaobTgPjB7Co6n/ME4Ps /LXmT0kJKGNtivbNHhtiQPPVDdbIqf1YD9ULflojDIiX/LY9t0kRyyz6NH9o nAGdZuV/JSwVsOdUdQIPTrDr/QSEBBbksLdVZ4PlZhiQ/6aoHLdjDzavyPSP 9CwD8oYSgm0npLAVqrmhu34xwL5AY5b3myS2sYhjVWSRAYpdf//RBXZhu1Xd zu1cZsBq8ucHzx3EscNFz/5uW2OAyoLgCOmlKPaHqmg49wYD1loEjIWNRbB8 am2R61uY8DPL2CLWWhArUbyfc4WbCYf08PX1qwLYfWpR0b/5mCAy66qm1c2P 1Soe2jq3nQlOQ5E/srv4sIia7uXpnUxw7S2YFFriwdoUJ/N8E2ZCe/Ft7GMM N9ZDbS5mTIwJ+WX16hN5W7Hn1PLiBqSYILZAgKfvOLBXizkFevcwYVsOaYFT 9h/mlpp7QpccE04mJ4Q+eLOOySmu3tmuyISUv2XiTx6uYcrVxK63KDGh8q+j 3q+HK5iGYj/hxoNMiA1KmDzZ8gfTqdZ+s06NCd0ceByv0BJmRi06tUKLCa+8 faz3bF3ArBV/lig7yoRiMt+PD/nzGL5Dx+8U6TLh4l6yEt/bWYxEScru/BNM 2PF4f87pcz8w+w7N38vCMkGV/9AawX4ao1ViLvMAYcJz+rho9KlJDBzKT79r wIT7MbSjTRe+YdwOeWRcN2OCZeRzp1i9L5gDNB2VcEsm2F66IcnzdgzzO0eo gmbDhDClMeOgc6OY+tEpjONJJvx3Ked3WdQwJk6mqRV1ZEILg1DTpD+EcXS6 b6vuzASTugDtFwofMfIppz9JuzFhKmHXi0CNAUz19gNzi95MUHvvUFn6rBdz yZjz7BiRCWltQz3/VN9jrC9+3NJJYcIGmtSSXvcOI/XyaXwNnQk9PwoOEujd mG9r8RL5LCb0Jv27m+bViXlyjJyR7M8E77srD3dId2DOB+JULgQxgU9P/2MR RxtGdPoXxvksExyb7cXmoAUzvL+91fA8E9ynNMonUl9jCr1zbLUimSAszGBm 8zdhTqeHf5KNZoK1kR2x6/4rDAw6krZfZkLpbu0WfbMGjIC4xtxyDBPMrapU uuTrMf02285+jWPz6BlL/vL5Bcb3zYv4uutMGG0hvSzrfYbR40qVKExmwnkX IlF/WxWGG3wzbt1iwpAN+bqCVwWmO8xY5eJdJoTcl7ja11eOuf9MrsLvPhOu v23L+Ut/gqH+XsW4PWTCrc+D3d5SZRht9fetJllsP7yecVwtJZi2vMuf5B8x Iea0q5ByQAHm1rgHaWcRE7AhMj6Ol/Ix3rK6c2slTFifGSy6VpuLUXMRPvu9 jAm8b9wEuXblYFZSp7f0PmXzFXKcW/NGFub1u6b4hiom6GwOR1YcyMQk7UiX KHnOhLvy1dU1VQ8xSpetVa68ZELQBMXTWiwNs9BwoCKwkQlG32Q/OHDfxdSt c2I9m5lg1f/qkKLsbcxV3U+t5m+Y8NJuwr7WNRVjH1xhq9vOhEjG5orHi2TM 3rKET/s6mSC+UOoSrncTMz1DJgm/Y0JBXyG9pu86Jspn99npPiZkdUpMLb6I x1g8XNjSP8iEvGeEk+pxcRjJT+3xTUNMuKFntJfr4lXMF4lcibIRJjQedJDE Zl/BPLaLyLg/zgRJnkHGxPdLmHOJp1RiJ9i8HhGWPmF1EWPYplFxepLNl6ph U8X7KMwQ8qXVapYJ6kINjytIEZhH4bW2J34xIbTpv+QSofOYoOepn5QXmUC8 33xPceosBrvkSxJbZudtndmUOxOK4dc0meNYY9f/fHScWzwE08eUP/tznZ3P ejHRhhCMyXy0tuXjPyZE02+f6uwOxOjKlUg85WYBTw9TOYrXH/MkbifvCB8L SnllEg76sDAqS37L/AIscNeWXpqco2OyPd99PybIglrz3+/vllExMm1aAwQR FvRslc74k0HGpB5JeZMozoLy7WelROuImJ0Pl6prJFnw/liYsAOnD4YjuPqu yF4WTMr83p0/7Yk5O7w7DqvAgs+x793OYt0xCyZh5+j72fPXLIO0210wjKdD 9FsHWFDJq8GrEO+E+boH69qoyoJLWVdPL553xLhffWg+e5gF3HLizRV37TF9 Cxz6UlosOKPEgW8YtsP819okE6jLgheHE10tCqwxqNb+HQ9OsKCQleyM/rPA 1N6/svEflgVilENreolmmKO8kz+XEBbM3ZO8fc7WBPM4wHRY3pAF5Lpk3wID I4zyUGGnpQkLroaLhLT7GGAyjARenjVnQZ3D9n7dIhSz+wmrNNeKBauLyny3 dyGYm9JdD9/ZssCDFvgjxxyH2X5F4/qGPQsOK+QQNPP0MZfmb1w46MQCl8PP lPKO62E2XH77O7iy4Fp6ejGeUxcT0mzvHeXBzt9zl0LpylHMnHqVbYk3CxSv /N03LX0EQ723Cx0ksuByUK+SOUULM8Z1VoubygLKfw1+If0aGBe/jwqaDBaI dDhTSnsOY94PnhB192XB9gvcbrpH1DAWBulbYwNYEDnbEuDSeRDT/Hjzd0Uw C74b1Bc53lfGYHd7fR0NZYGh4zDm/d39mGcXX/UKhLFgwYl5+H2jIkZjVqFZ N4IFAxL++Y9FFTAFTpcqiVEscH1eO7U9Vg6j0DSRe/0SC1TdWh89wcli0g4Z 36qNYcFH/cnJ2EJpjNidR1cm41gQvfKf4hnL3ZiELfyhYoksyF4c8mhU3IXh YTEocIPN08rAd9GD4pjI/o5TzBS2X1/LqWBnUcwKctjkzm0W3JCSfYI+EcYE FCfpvr7HAqbtqXsHDglhpiV+HZhPZ8EYZWq3dsoOjE+U3W6ZTBb03bqzM4V/ O2Zo5uk2kxx2fXSmuUM1H8bBUXwtKJ8FfzlvYlru8GA6G0KmHxayIOLwlE1a PhfGWHXgY3sJ2z9URU2MbsE0pB5vXy5jAfr8zAN+hBNznCPthWIFC1gOax7n Y//pl9PXi6yfsfP7ZjW99G5dX/WD+/2wGhbwbfcdW3VY08/BvYzPr2NBjeHh gVChFf09hXLh7xtY8HDpzI+O9SX9W2LRrH9NbJ5hKKVGYlFfMPKLu2orC2R/ 4rU9XBb0r04ZWJ1qY4FuZLrrwdfz+lvs87AX37L97N8SWZk5qx9Wz6te2s2C Y8+IhLm1GX29orGVnPdsfiK7o45WTemv3H7ReK+PBWrGez8aZHzXr7qUGn99 kAXmy5cLPCon9IMD/ByvDLGApDPAFFr4oj9vpjgdMM6CW/X5tu0fRvWZ+/rD 3SdZkDXHubxKG9Kf3IgTNp1lwd6VW8V6q/36pH5s7pFFFmQ+ay/ec7xXf7xs QVdujQUa1TpJzjvf6XvE5XVs5/CFc1PT+KKmDv2PPi5ey9y+cJcnyE0A3ug7 YnYujm/3BTR/dn+T/2t9MZXJuoGdviBxIn3n+6ZG/R6JxphOYV8gFkbO9h5/ pW89f1q6Zhf7+f0Kt9R56/R3fraeKJXyhcHCa80VOTX6Hf8dLM3d4wu3ZduZ IsHV+ibZn9Ebir6wEx+3ef5OhT44GtKp6r5QtjpE/6Zdor+J7j3ioeULnYTe S0Lthfq16qsbJ4/6gr9OAue7lEf6uttKbuBO+EKgY3bUj9Icfc1asecSxr4g v6Vnmmiarq+g8JW32cMXpslocqhxgj73bHSufKIvaJmET2dvMPX9t018cLzh Cweaxm7MudH1h/YZ88Sn+ELBqcHYjysU/QrX7ZQ/93yBUCoxa/POR5/4X/KB 9nx2/3iDlUphV/3GnJyi4Fe+sFGX3FVw2FSf/Vb8pHXRF1I71BYkEvfr/3mz rZ7l6geRjSwNtf/N8p71nJP/f9UKFThM9Wf/GCbgY534ncutoaDA4fzmG15s 1gesbv6STsq/VuCw7EFnQNovRauvbrZrZ5oWOrQrlhvZ5XRa7uIS43g6qdBh /kUpm4MXPlgYLfliLPuj0GFm9M+YCh8XC7+2x30TwoocJDafE/dLWWAua3dj 14c9RQ598sFreSyem5npX/7+B8gvbdKsW6r43CxA4ZwJ594ih7u9H28Ecz83 a2E6sk4RyH+w6+HND/eemb06tn5REJAv9DnqjGb7M7Nt/u1dW4B8venCZ1pv PzULSDSLqthX5HB/dsudmMlPzLKCDKe3APkVzC9SGuqfmDU761yZAOTfc97P vj37idk2VSW/lUD+a6n5wbEuT8xkX/E63QLyN5ufYe/59tjsVdFTTZv9RQ6J x6aZJ8U9NmNJeZDmAeRvmMz0Y533YzPZ0NuLQ4D8nfWM23gtH5sFmF+UzQXy vbedfcog8ths2+89gvOA/KazJ033nHpkduHNdr9VQL57dwvz9B2PzF7e3dS9 DcjP813q1rzskZnMgRWs54F88TWmr/qbHpmZbVzsdBvIb58Vrbmh4JFZwKJ5 9c+B/OWCIbMfxj0yy5o8c89nIF/r/kJ9Fd9HZs0tU37+B/IdJ12/Wm79yAwA zFXmow== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["n", TraditionalForm], FormBox[ SubscriptBox["s", "n"], TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ranks", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"order", "=", RowBox[{"Reverse", "[", RowBox[{"Sort", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#1", ",", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "}"}], "&"}], ",", "scores"}], "]"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"172542309343731946", ",", "77"}], "}"}], ",", RowBox[{"{", RowBox[{"172378125687965848", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"171646676234883305", ",", "76"}], "}"}], ",", RowBox[{"{", RowBox[{"171190226627438257", ",", "79"}], "}"}], ",", RowBox[{"{", RowBox[{"169676402232105648", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"169033430825208027", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"166639683923175378", ",", "74"}], "}"}], ",", RowBox[{"{", RowBox[{"165978103316094584", ",", "81"}], "}"}], ",", RowBox[{"{", RowBox[{"162568486673578693", ",", "73"}], "}"}], ",", RowBox[{"{", RowBox[{"162106654714921075", ",", "82"}], "}"}], ",", RowBox[{"{", RowBox[{"157518221668013078", ",", "72"}], "}"}], ",", RowBox[{"{", RowBox[{"157509948809043576", ",", "83"}], "}"}], ",", RowBox[{"{", RowBox[{"152283892386077931", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"151566341291631624", ",", "71"}], "}"}], ",", RowBox[{"{", RowBox[{"146526364181517039", ",", "85"}], "}"}], ",", RowBox[{"{", RowBox[{"144809940796620325", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"140334651650668803", ",", "86"}], "}"}], ",", RowBox[{"{", RowBox[{"137362512979745598", ",", "69"}], "}"}], ",", RowBox[{"{", RowBox[{"133803399444707801", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"129350064451661348", ",", "68"}], "}"}], ",", RowBox[{"{", RowBox[{"127023103852577896", ",", "88"}], "}"}], ",", RowBox[{"{", RowBox[{"120906827121834566", ",", "67"}], "}"}], ",", RowBox[{"{", RowBox[{"120079021507938035", ",", "89"}], "}"}], ",", RowBox[{"{", RowBox[{"113050455155943519", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"112170812747354087", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"106010240661754449", ",", "91"}], "}"}], ",", RowBox[{"{", RowBox[{"103279445170253902", ",", "65"}], "}"}], ",", RowBox[{"{", RowBox[{"99024411737621323", ",", "92"}], "}"}], ",", RowBox[{"{", RowBox[{"94365480254213528", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"92151904402003308", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"85553384395717227", ",", "63"}], "}"}], ",", RowBox[{"{", RowBox[{"85444345654857875", ",", "94"}], "}"}], ",", RowBox[{"{", RowBox[{"78945863453573001", ",", "95"}], "}"}], ",", RowBox[{"{", RowBox[{"76956298564663402", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{"72693023944120045", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"68673668434334934", ",", "61"}], "}"}], ",", RowBox[{"{", RowBox[{"66714881583314335", ",", "97"}], "}"}], ",", RowBox[{"{", RowBox[{"61033240145235763", ",", "98"}], "}"}], ",", RowBox[{"{", RowBox[{"60789577452586487", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"55663091133973346", ",", "99"}], "}"}], ",", RowBox[{"{", RowBox[{"53371780703441318", ",", "59"}], "}"}], ",", RowBox[{"{", RowBox[{"50613244155051856", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"46471404549689351", ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{"45887089510794122", ",", "101"}], "}"}], ",", RowBox[{"{", RowBox[{"41483436078768079", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"40123251227815383", ",", "57"}], "}"}], ",", RowBox[{"{", RowBox[{"37397371704961189", ",", "103"}], "}"}], ",", RowBox[{"{", RowBox[{"34346628376654913", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"33621048067136846", ",", "104"}], "}"}], ",", RowBox[{"{", RowBox[{"30144388614623696", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"29146610869639549", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"26955619314626157", ",", "106"}], "}"}], ",", RowBox[{"{", RowBox[{"24515635362932954", ",", "54"}], "}"}], ",", RowBox[{"{", RowBox[{"24041709119775647", ",", "107"}], "}"}], ",", RowBox[{"{", RowBox[{"21388640692533960", ",", "108"}], "}"}], ",", RowBox[{"{", RowBox[{"20435326129713654", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"18981680119465910", ",", "109"}], "}"}], ",", RowBox[{"{", RowBox[{"16878453276117746", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"16805547548715206", ",", "110"}], "}"}], ",", RowBox[{"{", RowBox[{"14844654231857239", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"13810930667765157", ",", "51"}], "}"}], ",", RowBox[{"{", RowBox[{"13083276623221517", ",", "112"}], "}"}], ",", RowBox[{"{", RowBox[{"11505812292077067", ",", "113"}], "}"}], ",", RowBox[{"{", RowBox[{"11193770355829009", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"10096971927616045", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"8984922304030443", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"8842020009154293", ",", "115"}], "}"}], ",", RowBox[{"{", RowBox[{"7726929590817265", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{"7140942201229333", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"6738528470417086", ",", "117"}], "}"}], ",", RowBox[{"{", RowBox[{"5864552560171552", ",", "118"}], "}"}], ",", RowBox[{"{", RowBox[{"5618445228564793", ",", "47"}], "}"}], ",", RowBox[{"{", RowBox[{"5093653838062639", ",", "119"}], "}"}], ",", RowBox[{"{", RowBox[{"4415377510495980", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"4375319099346208", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"3820097597373727", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"3371684590465908", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"3298981687014508", ",", "122"}], "}"}], ",", RowBox[{"{", RowBox[{"2843905747206868", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"2570605432880903", ",", "44"}], "}"}], ",", RowBox[{"{", RowBox[{"2447444695948898", ",", "124"}], "}"}], ",", RowBox[{"{", RowBox[{"2102793053565659", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"1938561121705315", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"1803790254604935", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{"1544848145184291", ",", "127"}], "}"}], ",", RowBox[{"{", RowBox[{"1445705502357343", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"1320992367181792", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{"1127775864826813", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"1065940588576732", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"961294388171457", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{"818085023387881", ",", "131"}], "}"}], ",", RowBox[{"{", RowBox[{"776838931567572", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"695128788327698", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"589753122859383", ",", "133"}], "}"}], ",", RowBox[{"{", RowBox[{"559449136091831", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"499630252931260", ",", "134"}], "}"}], ",", RowBox[{"{", RowBox[{"422696870992462", ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{"398018151390200", ",", "38"}], "}"}], ",", RowBox[{"{", RowBox[{"357151976811922", ",", "136"}], "}"}], ",", RowBox[{"{", RowBox[{"301400973036441", ",", "137"}], "}"}], ",", RowBox[{"{", RowBox[{"279661205716974", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"254052574077937", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"213889601295347", ",", "139"}], "}"}], ",", RowBox[{"{", RowBox[{"194006223597572", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"179862464456172", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"151065169242834", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"132834787033075", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"126722015973414", ",", "142"}], "}"}], ",", RowBox[{"{", RowBox[{"106169469752641", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{"89736657900900", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"88840622360686", ",", "144"}], "}"}], ",", RowBox[{"{", RowBox[{"74252067274687", ",", "145"}], "}"}], ",", RowBox[{"{", RowBox[{"61990415093876", ",", "146"}], "}"}], ",", RowBox[{"{", RowBox[{"59789973730461", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"51701385089887", ",", "147"}], "}"}], ",", RowBox[{"{", RowBox[{"43082666091665", ",", "148"}], "}"}], ",", RowBox[{"{", RowBox[{"39274771758064", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"35870481552300", ",", "149"}], "}"}], ",", RowBox[{"{", RowBox[{"29843343433392", ",", "150"}], "}"}], ",", RowBox[{"{", RowBox[{"25423690787719", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"24808172866872", ",", "151"}], "}"}], ",", RowBox[{"{", RowBox[{"20607116162379", ",", "152"}], "}"}], ",", RowBox[{"{", RowBox[{"17101443169235", ",", "153"}], "}"}], ",", RowBox[{"{", RowBox[{"16210652213304", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"14181008701762", ",", "154"}], "}"}], ",", RowBox[{"{", RowBox[{"11747089496422", ",", "155"}], "}"}], ",", RowBox[{"{", RowBox[{"10176048813473", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"9723545122578", ",", "156"}], "}"}], ",", RowBox[{"{", RowBox[{"8040378083433", ",", "157"}], "}"}], ",", RowBox[{"{", RowBox[{"6644452641044", ",", "158"}], "}"}], ",", RowBox[{"{", RowBox[{"6285424931278", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"5486702080236", ",", "159"}], "}"}], ",", RowBox[{"{", RowBox[{"4529003381568", ",", "160"}], "}"}], ",", RowBox[{"{", RowBox[{"3817721269708", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"3736165201688", ",", "161"}], "}"}], ",", RowBox[{"{", RowBox[{"3081105018158", ",", "162"}], "}"}], ",", RowBox[{"{", RowBox[{"2539255963377", ",", "163"}], "}"}], ",", RowBox[{"{", RowBox[{"2278764308864", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"2091793858275", ",", "164"}], "}"}], ",", RowBox[{"{", RowBox[{"1721930513702", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"1416734360140", ",", "166"}], "}"}], ",", RowBox[{"{", RowBox[{"1335679056261", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"1164733232308", ",", "167"}], "}"}], ",", RowBox[{"{", RowBox[{"957190045595", ",", "168"}], "}"}], ",", RowBox[{"{", RowBox[{"785911852914", ",", "169"}], "}"}], ",", RowBox[{"{", RowBox[{"768175029950", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"645295369580", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"529489941608", ",", "171"}], "}"}], ",", RowBox[{"{", RowBox[{"434606120455", ",", "172"}], "}"}], ",", RowBox[{"{", RowBox[{"433093980298", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"356481490646", ",", "173"}], "}"}], ",", RowBox[{"{", RowBox[{"292487050484", ",", "174"}], "}"}], ",", RowBox[{"{", RowBox[{"239755303889", ",", "175"}], "}"}], ",", RowBox[{"{", RowBox[{"239128282128", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"196550315542", ",", "176"}], "}"}], ",", RowBox[{"{", RowBox[{"160954253448", ",", "177"}], "}"}], ",", RowBox[{"{", RowBox[{"131791387388", ",", "178"}], "}"}], ",", RowBox[{"{", RowBox[{"129156542039", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"107847709116", ",", "179"}], "}"}], ",", RowBox[{"{", RowBox[{"88241591630", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"72162948863", ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{"68153183370", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"59038079745", ",", "182"}], "}"}], ",", RowBox[{"{", RowBox[{"48284335855", ",", "183"}], "}"}], ",", RowBox[{"{", RowBox[{"39509743432", ",", "184"}], "}"}], ",", RowBox[{"{", RowBox[{"35084425512", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"32308399043", ",", "185"}], "}"}], ",", RowBox[{"{", RowBox[{"26423428886", ",", "186"}], "}"}], ",", RowBox[{"{", RowBox[{"21582203262", ",", "187"}], "}"}], ",", RowBox[{"{", RowBox[{"17624621529", ",", "188"}], "}"}], ",", RowBox[{"{", RowBox[{"17590903116", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"14368737009", ",", "189"}], "}"}], ",", RowBox[{"{", RowBox[{"11720626558", ",", "190"}], "}"}], ",", RowBox[{"{", RowBox[{"9552812749", ",", "191"}], "}"}], ",", RowBox[{"{", RowBox[{"8574134256", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"7790240907", ",", "192"}], "}"}], ",", RowBox[{"{", RowBox[{"6351933169", ",", "193"}], "}"}], ",", RowBox[{"{", RowBox[{"5185250585", ",", "194"}], "}"}], ",", RowBox[{"{", RowBox[{"4232118751", ",", "195"}], "}"}], ",", RowBox[{"{", RowBox[{"4053948342", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3457204258", ",", "196"}], "}"}], ",", RowBox[{"{", RowBox[{"2821392492", ",", "197"}], "}"}], ",", RowBox[{"{", RowBox[{"2302090127", ",", "198"}], "}"}], ",", RowBox[{"{", RowBox[{"1874802017", ",", "199"}], "}"}], ",", RowBox[{"{", RowBox[{"1854631380", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"1526313637", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"1239515641", ",", "201"}], "}"}], ",", RowBox[{"{", RowBox[{"1007719386", ",", "202"}], "}"}], ",", RowBox[{"{", RowBox[{"818568928", ",", "203"}], "}"}], ",", RowBox[{"{", RowBox[{"818558424", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"666193896", ",", "204"}], "}"}], ",", RowBox[{"{", RowBox[{"542061609", ",", "205"}], "}"}], ",", RowBox[{"{", RowBox[{"442072320", ",", "206"}], "}"}], ",", RowBox[{"{", RowBox[{"360234562", ",", "207"}], "}"}], ",", RowBox[{"{", RowBox[{"347336412", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"293886739", ",", "208"}], "}"}], ",", RowBox[{"{", RowBox[{"239045260", ",", "209"}], "}"}], ",", RowBox[{"{", RowBox[{"194337731", ",", "210"}], "}"}], ",", RowBox[{"{", RowBox[{"157306293", ",", "211"}], "}"}], ",", RowBox[{"{", RowBox[{"141116637", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"127325163", ",", "212"}], "}"}], ",", RowBox[{"{", RowBox[{"102799565", ",", "213"}], "}"}], ",", RowBox[{"{", RowBox[{"83194097", ",", "214"}], "}"}], ",", RowBox[{"{", RowBox[{"67300605", ",", "215"}], "}"}], ",", RowBox[{"{", RowBox[{"54691522", ",", "216"}], "}"}], ",", RowBox[{"{", RowBox[{"54627084", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"44477808", ",", "217"}], "}"}], ",", RowBox[{"{", RowBox[{"36317458", ",", "218"}], "}"}], ",", RowBox[{"{", RowBox[{"29606794", ",", "219"}], "}"}], ",", RowBox[{"{", RowBox[{"24117404", ",", "220"}], "}"}], ",", RowBox[{"{", RowBox[{"20030010", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"19554213", ",", "221"}], "}"}], ",", RowBox[{"{", RowBox[{"15820964", ",", "222"}], "}"}], ",", RowBox[{"{", RowBox[{"12736481", ",", "223"}], "}"}], ",", RowBox[{"{", RowBox[{"10258846", ",", "224"}], "}"}], ",", RowBox[{"{", RowBox[{"8244157", ",", "225"}], "}"}], ",", RowBox[{"{", RowBox[{"6906900", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6659561", ",", "226"}], "}"}], ",", RowBox[{"{", RowBox[{"5381526", ",", "227"}], "}"}], ",", RowBox[{"{", RowBox[{"4385243", ",", "228"}], "}"}], ",", RowBox[{"{", RowBox[{"3576841", ",", "229"}], "}"}], ",", RowBox[{"{", RowBox[{"2930385", ",", "230"}], "}"}], ",", RowBox[{"{", RowBox[{"2376760", ",", "231"}], "}"}], ",", RowBox[{"{", RowBox[{"2220075", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1924226", ",", "232"}], "}"}], ",", RowBox[{"{", RowBox[{"1541327", ",", "233"}], "}"}], ",", RowBox[{"{", RowBox[{"1231527", ",", "234"}], "}"}], ",", RowBox[{"{", RowBox[{"975760", ",", "235"}], "}"}], ",", RowBox[{"{", RowBox[{"777090", ",", "236"}], "}"}], ",", RowBox[{"{", RowBox[{"657800", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"617547", ",", "237"}], "}"}], ",", RowBox[{"{", RowBox[{"498228", ",", "238"}], "}"}], ",", RowBox[{"{", RowBox[{"404981", ",", "239"}], "}"}], ",", RowBox[{"{", RowBox[{"335065", ",", "240"}], "}"}], ",", RowBox[{"{", RowBox[{"275998", ",", "241"}], "}"}], ",", RowBox[{"{", RowBox[{"226966", ",", "242"}], "}"}], ",", RowBox[{"{", RowBox[{"183727", ",", "243"}], "}"}], ",", RowBox[{"{", RowBox[{"177100", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"148442", ",", "244"}], "}"}], ",", RowBox[{"{", RowBox[{"117291", ",", "245"}], "}"}], ",", RowBox[{"{", RowBox[{"93525", ",", "246"}], "}"}], ",", RowBox[{"{", RowBox[{"73010", ",", "247"}], "}"}], ",", RowBox[{"{", RowBox[{"57960", ",", "248"}], "}"}], ",", RowBox[{"{", RowBox[{"45826", ",", "249"}], "}"}], ",", RowBox[{"{", RowBox[{"42504", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"37965", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"31193", ",", "251"}], "}"}], ",", RowBox[{"{", RowBox[{"26131", ",", "252"}], "}"}], ",", RowBox[{"{", RowBox[{"21406", ",", "253"}], "}"}], ",", RowBox[{"{", RowBox[{"17422", ",", "254"}], "}"}], ",", RowBox[{"{", RowBox[{"13613", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"10696", ",", "256"}], "}"}], ",", RowBox[{"{", RowBox[{"8855", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"7975", ",", "257"}], "}"}], ",", RowBox[{"{", RowBox[{"6005", ",", "258"}], "}"}], ",", RowBox[{"{", RowBox[{"4374", ",", "259"}], "}"}], ",", RowBox[{"{", RowBox[{"3534", ",", "260"}], "}"}], ",", RowBox[{"{", RowBox[{"3016", ",", "261"}], "}"}], ",", RowBox[{"{", RowBox[{"2635", ",", "262"}], "}"}], ",", RowBox[{"{", RowBox[{"2264", ",", "263"}], "}"}], ",", RowBox[{"{", RowBox[{"1933", ",", "264"}], "}"}], ",", RowBox[{"{", RowBox[{"1603", ",", "265"}], "}"}], ",", RowBox[{"{", RowBox[{"1540", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1323", ",", "266"}], "}"}], ",", RowBox[{"{", RowBox[{"1045", ",", "267"}], "}"}], ",", RowBox[{"{", RowBox[{"810", ",", "268"}], "}"}], ",", RowBox[{"{", RowBox[{"585", ",", "269"}], "}"}], ",", RowBox[{"{", RowBox[{"406", ",", "270"}], "}"}], ",", RowBox[{"{", RowBox[{"277", ",", "271"}], "}"}], ",", RowBox[{"{", RowBox[{"258", ",", "272"}], "}"}], ",", RowBox[{"{", RowBox[{"227", ",", "273"}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"206", ",", "274"}], "}"}], ",", RowBox[{"{", RowBox[{"173", ",", "275"}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", "276"}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", "277"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "278"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "279"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "280"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "282"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "281"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "284"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "283"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "286"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "285"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "288"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "287"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "290"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "289"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "300"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "299"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "298"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "297"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "296"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "295"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "294"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "293"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "292"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "291"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ranked", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Sort", "[", RowBox[{"Last", "/@", "#"}], "]"}]}], "}"}], "&"}], "/@", RowBox[{"Split", "[", RowBox[{"order", ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"172542309343731946", ",", RowBox[{"{", "77", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"172378125687965848", ",", RowBox[{"{", "78", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"171646676234883305", ",", RowBox[{"{", "76", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"171190226627438257", ",", RowBox[{"{", "79", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"169676402232105648", ",", RowBox[{"{", "75", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"169033430825208027", ",", RowBox[{"{", "80", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"166639683923175378", ",", RowBox[{"{", "74", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"165978103316094584", ",", RowBox[{"{", "81", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"162568486673578693", ",", RowBox[{"{", "73", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"162106654714921075", ",", RowBox[{"{", "82", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"157518221668013078", ",", RowBox[{"{", "72", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"157509948809043576", ",", RowBox[{"{", "83", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"152283892386077931", ",", RowBox[{"{", "84", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"151566341291631624", ",", RowBox[{"{", "71", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"146526364181517039", ",", RowBox[{"{", "85", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"144809940796620325", ",", RowBox[{"{", "70", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"140334651650668803", ",", RowBox[{"{", "86", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"137362512979745598", ",", RowBox[{"{", "69", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"133803399444707801", ",", RowBox[{"{", "87", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"129350064451661348", ",", RowBox[{"{", "68", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"127023103852577896", ",", RowBox[{"{", "88", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"120906827121834566", ",", RowBox[{"{", "67", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"120079021507938035", ",", RowBox[{"{", "89", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"113050455155943519", ",", RowBox[{"{", "90", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"112170812747354087", ",", RowBox[{"{", "66", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"106010240661754449", ",", RowBox[{"{", "91", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"103279445170253902", ",", RowBox[{"{", "65", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"99024411737621323", ",", RowBox[{"{", "92", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"94365480254213528", ",", RowBox[{"{", "64", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"92151904402003308", ",", RowBox[{"{", "93", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"85553384395717227", ",", RowBox[{"{", "63", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"85444345654857875", ",", RowBox[{"{", "94", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"78945863453573001", ",", RowBox[{"{", "95", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"76956298564663402", ",", RowBox[{"{", "62", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"72693023944120045", ",", RowBox[{"{", "96", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"68673668434334934", ",", RowBox[{"{", "61", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"66714881583314335", ",", RowBox[{"{", "97", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"61033240145235763", ",", RowBox[{"{", "98", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"60789577452586487", ",", RowBox[{"{", "60", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"55663091133973346", ",", RowBox[{"{", "99", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"53371780703441318", ",", RowBox[{"{", "59", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50613244155051856", ",", RowBox[{"{", "100", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"46471404549689351", ",", RowBox[{"{", "58", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"45887089510794122", ",", RowBox[{"{", "101", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"41483436078768079", ",", RowBox[{"{", "102", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"40123251227815383", ",", RowBox[{"{", "57", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"37397371704961189", ",", RowBox[{"{", "103", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"34346628376654913", ",", RowBox[{"{", "56", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"33621048067136846", ",", RowBox[{"{", "104", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"30144388614623696", ",", RowBox[{"{", "105", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"29146610869639549", ",", RowBox[{"{", "55", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"26955619314626157", ",", RowBox[{"{", "106", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"24515635362932954", ",", RowBox[{"{", "54", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"24041709119775647", ",", RowBox[{"{", "107", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"21388640692533960", ",", RowBox[{"{", "108", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"20435326129713654", ",", RowBox[{"{", "53", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"18981680119465910", ",", RowBox[{"{", "109", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"16878453276117746", ",", RowBox[{"{", "52", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"16805547548715206", ",", RowBox[{"{", "110", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14844654231857239", ",", RowBox[{"{", "111", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"13810930667765157", ",", RowBox[{"{", "51", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"13083276623221517", ",", RowBox[{"{", "112", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11505812292077067", ",", RowBox[{"{", "113", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11193770355829009", ",", RowBox[{"{", "50", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10096971927616045", ",", RowBox[{"{", "114", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8984922304030443", ",", RowBox[{"{", "49", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8842020009154293", ",", RowBox[{"{", "115", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7726929590817265", ",", RowBox[{"{", "116", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7140942201229333", ",", RowBox[{"{", "48", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6738528470417086", ",", RowBox[{"{", "117", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5864552560171552", ",", RowBox[{"{", "118", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5618445228564793", ",", RowBox[{"{", "47", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5093653838062639", ",", RowBox[{"{", "119", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4415377510495980", ",", RowBox[{"{", "120", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4375319099346208", ",", RowBox[{"{", "46", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3820097597373727", ",", RowBox[{"{", "121", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3371684590465908", ",", RowBox[{"{", "45", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3298981687014508", ",", RowBox[{"{", "122", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2843905747206868", ",", RowBox[{"{", "123", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2570605432880903", ",", RowBox[{"{", "44", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2447444695948898", ",", RowBox[{"{", "124", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2102793053565659", ",", RowBox[{"{", "125", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1938561121705315", ",", RowBox[{"{", "43", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1803790254604935", ",", RowBox[{"{", "126", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1544848145184291", ",", RowBox[{"{", "127", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1445705502357343", ",", RowBox[{"{", "42", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1320992367181792", ",", RowBox[{"{", "128", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1127775864826813", ",", RowBox[{"{", "129", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1065940588576732", ",", RowBox[{"{", "41", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"961294388171457", ",", RowBox[{"{", "130", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"818085023387881", ",", RowBox[{"{", "131", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"776838931567572", ",", RowBox[{"{", "40", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"695128788327698", ",", RowBox[{"{", "132", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"589753122859383", ",", RowBox[{"{", "133", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"559449136091831", ",", RowBox[{"{", "39", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"499630252931260", ",", RowBox[{"{", "134", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"422696870992462", ",", RowBox[{"{", "135", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"398018151390200", ",", RowBox[{"{", "38", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"357151976811922", ",", RowBox[{"{", "136", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"301400973036441", ",", RowBox[{"{", "137", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"279661205716974", ",", RowBox[{"{", "37", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"254052574077937", ",", RowBox[{"{", "138", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"213889601295347", ",", RowBox[{"{", "139", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"194006223597572", ",", RowBox[{"{", "36", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"179862464456172", ",", RowBox[{"{", "140", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"151065169242834", ",", RowBox[{"{", "141", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"132834787033075", ",", RowBox[{"{", "35", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"126722015973414", ",", RowBox[{"{", "142", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"106169469752641", ",", RowBox[{"{", "143", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"89736657900900", ",", RowBox[{"{", "34", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"88840622360686", ",", RowBox[{"{", "144", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"74252067274687", ",", RowBox[{"{", "145", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"61990415093876", ",", RowBox[{"{", "146", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"59789973730461", ",", RowBox[{"{", "33", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"51701385089887", ",", RowBox[{"{", "147", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"43082666091665", ",", RowBox[{"{", "148", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"39274771758064", ",", RowBox[{"{", "32", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"35870481552300", ",", RowBox[{"{", "149", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"29843343433392", ",", RowBox[{"{", "150", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"25423690787719", ",", RowBox[{"{", "31", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"24808172866872", ",", RowBox[{"{", "151", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"20607116162379", ",", RowBox[{"{", "152", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"17101443169235", ",", RowBox[{"{", "153", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"16210652213304", ",", RowBox[{"{", "30", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14181008701762", ",", RowBox[{"{", "154", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11747089496422", ",", RowBox[{"{", "155", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10176048813473", ",", RowBox[{"{", "29", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9723545122578", ",", RowBox[{"{", "156", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8040378083433", ",", RowBox[{"{", "157", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6644452641044", ",", RowBox[{"{", "158", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6285424931278", ",", RowBox[{"{", "28", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5486702080236", ",", RowBox[{"{", "159", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4529003381568", ",", RowBox[{"{", "160", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3817721269708", ",", RowBox[{"{", "27", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3736165201688", ",", RowBox[{"{", "161", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3081105018158", ",", RowBox[{"{", "162", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2539255963377", ",", RowBox[{"{", "163", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2278764308864", ",", RowBox[{"{", "26", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2091793858275", ",", RowBox[{"{", "164", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1721930513702", ",", RowBox[{"{", "165", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1416734360140", ",", RowBox[{"{", "166", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1335679056261", ",", RowBox[{"{", "25", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1164733232308", ",", RowBox[{"{", "167", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"957190045595", ",", RowBox[{"{", "168", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"785911852914", ",", RowBox[{"{", "169", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"768175029950", ",", RowBox[{"{", "24", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"645295369580", ",", RowBox[{"{", "170", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"529489941608", ",", RowBox[{"{", "171", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"434606120455", ",", RowBox[{"{", "172", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"433093980298", ",", RowBox[{"{", "23", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"356481490646", ",", RowBox[{"{", "173", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"292487050484", ",", RowBox[{"{", "174", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"239755303889", ",", RowBox[{"{", "175", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"239128282128", ",", RowBox[{"{", "22", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"196550315542", ",", RowBox[{"{", "176", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"160954253448", ",", RowBox[{"{", "177", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"131791387388", ",", RowBox[{"{", "178", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"129156542039", ",", RowBox[{"{", "21", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"107847709116", ",", RowBox[{"{", "179", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"88241591630", ",", RowBox[{"{", "180", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"72162948863", ",", RowBox[{"{", "181", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"68153183370", ",", RowBox[{"{", "20", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"59038079745", ",", RowBox[{"{", "182", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"48284335855", ",", RowBox[{"{", "183", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"39509743432", ",", RowBox[{"{", "184", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"35084425512", ",", RowBox[{"{", "19", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"32308399043", ",", RowBox[{"{", "185", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"26423428886", ",", RowBox[{"{", "186", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"21582203262", ",", RowBox[{"{", "187", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"17624621529", ",", RowBox[{"{", "188", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"17590903116", ",", RowBox[{"{", "18", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14368737009", ",", RowBox[{"{", "189", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11720626558", ",", RowBox[{"{", "190", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9552812749", ",", RowBox[{"{", "191", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8574134256", ",", RowBox[{"{", "17", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7790240907", ",", RowBox[{"{", "192", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6351933169", ",", RowBox[{"{", "193", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5185250585", ",", RowBox[{"{", "194", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4232118751", ",", RowBox[{"{", "195", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4053948342", ",", RowBox[{"{", "16", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3457204258", ",", RowBox[{"{", "196", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2821392492", ",", RowBox[{"{", "197", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2302090127", ",", RowBox[{"{", "198", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1874802017", ",", RowBox[{"{", "199", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1854631380", ",", RowBox[{"{", "15", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1526313637", ",", RowBox[{"{", "200", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1239515641", ",", RowBox[{"{", "201", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1007719386", ",", RowBox[{"{", "202", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"818568928", ",", RowBox[{"{", "203", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"818558424", ",", RowBox[{"{", "14", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"666193896", ",", RowBox[{"{", "204", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"542061609", ",", RowBox[{"{", "205", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"442072320", ",", RowBox[{"{", "206", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"360234562", ",", RowBox[{"{", "207", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"347336412", ",", RowBox[{"{", "13", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"293886739", ",", RowBox[{"{", "208", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"239045260", ",", RowBox[{"{", "209", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"194337731", ",", RowBox[{"{", "210", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"157306293", ",", RowBox[{"{", "211", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"141116637", ",", RowBox[{"{", "12", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"127325163", ",", RowBox[{"{", "212", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"102799565", ",", RowBox[{"{", "213", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"83194097", ",", RowBox[{"{", "214", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"67300605", ",", RowBox[{"{", "215", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"54691522", ",", RowBox[{"{", "216", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"54627084", ",", RowBox[{"{", "11", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"44477808", ",", RowBox[{"{", "217", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"36317458", ",", RowBox[{"{", "218", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"29606794", ",", RowBox[{"{", "219", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"24117404", ",", RowBox[{"{", "220", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"20030010", ",", RowBox[{"{", "10", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"19554213", ",", RowBox[{"{", "221", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"15820964", ",", RowBox[{"{", "222", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12736481", ",", RowBox[{"{", "223", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10258846", ",", RowBox[{"{", "224", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8244157", ",", RowBox[{"{", "225", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6906900", ",", RowBox[{"{", "9", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6659561", ",", RowBox[{"{", "226", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5381526", ",", RowBox[{"{", "227", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4385243", ",", RowBox[{"{", "228", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3576841", ",", RowBox[{"{", "229", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2930385", ",", RowBox[{"{", "230", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2376760", ",", RowBox[{"{", "231", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2220075", ",", RowBox[{"{", "8", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1924226", ",", RowBox[{"{", "232", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1541327", ",", RowBox[{"{", "233", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1231527", ",", RowBox[{"{", "234", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"975760", ",", RowBox[{"{", "235", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"777090", ",", RowBox[{"{", "236", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"657800", ",", RowBox[{"{", "7", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"617547", ",", RowBox[{"{", "237", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"498228", ",", RowBox[{"{", "238", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"404981", ",", RowBox[{"{", "239", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"335065", ",", RowBox[{"{", "240", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"275998", ",", RowBox[{"{", "241", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"226966", ",", RowBox[{"{", "242", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"183727", ",", RowBox[{"{", "243", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"177100", ",", RowBox[{"{", "6", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"148442", ",", RowBox[{"{", "244", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"117291", ",", RowBox[{"{", "245", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"93525", ",", RowBox[{"{", "246", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"73010", ",", RowBox[{"{", "247", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"57960", ",", RowBox[{"{", "248", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"45826", ",", RowBox[{"{", "249", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"42504", ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"37965", ",", RowBox[{"{", "250", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"31193", ",", RowBox[{"{", "251", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"26131", ",", RowBox[{"{", "252", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"21406", ",", RowBox[{"{", "253", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"17422", ",", RowBox[{"{", "254", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"13613", ",", RowBox[{"{", "255", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10696", ",", RowBox[{"{", "256", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8855", ",", RowBox[{"{", "4", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7975", ",", RowBox[{"{", "257", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6005", ",", RowBox[{"{", "258", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4374", ",", RowBox[{"{", "259", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3534", ",", RowBox[{"{", "260", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3016", ",", RowBox[{"{", "261", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2635", ",", RowBox[{"{", "262", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2264", ",", RowBox[{"{", "263", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1933", ",", RowBox[{"{", "264", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1603", ",", RowBox[{"{", "265", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1540", ",", RowBox[{"{", "3", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1323", ",", RowBox[{"{", "266", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1045", ",", RowBox[{"{", "267", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"810", ",", RowBox[{"{", "268", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"585", ",", RowBox[{"{", "269", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"406", ",", RowBox[{"{", "270", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"277", ",", RowBox[{"{", "271", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"258", ",", RowBox[{"{", "272", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"227", ",", RowBox[{"{", "273", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"210", ",", RowBox[{"{", "2", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"206", ",", RowBox[{"{", "274", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"173", ",", RowBox[{"{", "275", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"150", ",", RowBox[{"{", "276", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"115", ",", RowBox[{"{", "277", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", RowBox[{"{", "278", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", RowBox[{"{", "279", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", RowBox[{"{", "280", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", RowBox[{"{", RowBox[{"281", ",", "282"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", RowBox[{"{", RowBox[{"283", ",", "284"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", RowBox[{"{", RowBox[{"285", ",", "286"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", RowBox[{"{", RowBox[{"287", ",", "288"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"{", RowBox[{"289", ",", "290"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{ "0", ",", "291", ",", "292", ",", "293", ",", "294", ",", "295", ",", "296", ",", "297", ",", "298", ",", "299", ",", "300"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Mode", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ranked", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"172542309343731946", ",", RowBox[{"{", "77", "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Mean", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "scores", "]"}]], "Input"], Cell[BoxData["301"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mean", "=", FractionBox[ RowBox[{"scores", ".", RowBox[{"Range", "[", RowBox[{"0", ",", "300"}], "]"}]}], "games"]}]], "Input"], Cell[BoxData[ FractionBox["125572265", "1574694"]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input"], Cell[BoxData["79.74391532577123`"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Raw Moments", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Plus", "@@", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["#1", "games"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "n"]}], "&"}], ",", "scores"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["125572265", "1574694"], ",", FractionBox["67353059128325", "10289050596"], ",", FractionBox["12386863947426455191", "22409552198088"], ",", FractionBox["21683530730957701752071", "451925969328108"], ",", FractionBox["255266012946115593893065615", "59654227951310256"], ",", FractionBox["15586235620962868295254616645", "39769485300873504"], ",", FractionBox["4396126224522175825294810669409", "119308455902620512"], ",", FractionBox["70685151378783291847977600504889", "19884742650436752"], ",", FractionBox["5246201956664132127599025881701105", "14913556987827564"], ",", FractionBox["1419606815932863752724582257986818815", "39769485300873504"]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "79.74391532577123`", ",", "6546.090769007334`", ",", "552749.2846770633`", ",", "4.7980271554642595`*^7", ",", "4.2790933972771144`*^9", ",", "3.9191444151329083`*^11", ",", "3.684672801490526`*^13", ",", "3.554743082241034`*^15", ",", "3.517740241946357`*^17", ",", "3.5695881030214975`*^19"}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Central Moments", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Plus", "@@", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["#1", "games"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1", "-", "mean"}], ")"}], "n"]}], "&"}], ",", "scores"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", FractionBox["115923378174025", "619915298409"], ",", FractionBox["446285478805881392036", "488088450456430923"], ",", FractionBox["237156986808941798514385349449", "2049573211741437428966832"], ",", FractionBox["8983800545463036662083229304054856655", "4841175958634956606154244824112"], ",", FractionBox["528836252207087410786564906539097499497486345", "3811685367503357178985726199530110864"], ",", FractionBox["8634295330635286951857310484810813668202543284459229", "2000746026031777176535249710680956132291872"], ",", FractionBox[ "10390634485272564008976169004419779972748351606913779626688477", "37806753152592999950723982094932450429398605046016"], ",", FractionBox[ "188744390058524989495770042579456203170272205614793001660401138006615", "14883516837217320366101337565249390024117851743582779776"], ",", RowBox[{ "21059725682678218360948834856356905506143707270338909444910097784061099813\ 85", "/", "2604109406940565675175286628441424774959804048167704646287616"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "186.9987375235617`", ",", "914.3536963198825`", ",", "115710.42471200107`", ",", "1.8557062627395508`*^6", ",", "1.387407934337124`*^8", ",", "4.315537913505345`*^9", ",", "2.7483540951889215`*^11", ",", "1.2681437601263424`*^13", ",", "8.087112479433116`*^14"}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Can be Bowled in the Same Number of Ways", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sort", "[", RowBox[{"Select", "[", RowBox[{"ranked", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Last", "[", "#", "]"}], "]"}], ">", "1"}], "&"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{ "0", ",", "291", ",", "292", ",", "293", ",", "294", ",", "295", ",", "296", ",", "297", ",", "298", ",", "299", ",", "300"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"{", RowBox[{"289", ",", "290"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", RowBox[{"{", RowBox[{"287", ",", "288"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", RowBox[{"{", RowBox[{"285", ",", "286"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", RowBox[{"{", RowBox[{"283", ",", "284"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", RowBox[{"{", RowBox[{"281", ",", "282"}], "}"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "/@", "%"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"14", ",", "13", ",", "12", ",", "11", ",", "10", ",", "0"}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{834, 855}, WindowMargins->{{62, Automatic}, {Automatic, 21}}, ShowSelection->True, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 24, 0, 92, "Title"], Cell[CellGroupData[{ Cell[628, 26, 28, 0, 44, "Subsection"], Cell[659, 28, 59, 3, 49, "Text"], Cell[721, 33, 255, 7, 30, "Text"], Cell[979, 42, 289, 10, 30, "Text"], Cell[1271, 54, 99, 2, 30, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1407, 61, 25, 0, 80, "Section"], Cell[1435, 63, 355, 11, 28, "Input"], Cell[CellGroupData[{ Cell[1815, 78, 740, 23, 46, "Input"], Cell[2558, 103, 4347, 153, 212, 1770, 109, "GraphicsData", "PostScript", \ "Graphics"], Cell[6908, 258, 134, 4, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7091, 268, 42, 0, 80, "Section"], Cell[CellGroupData[{ Cell[7158, 272, 33, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[7216, 276, 76, 2, 32, "Input"], Cell[7295, 280, 44, 0, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7388, 286, 35, 0, 44, "Subsection"], Cell[CellGroupData[{ Cell[7448, 290, 104, 3, 32, "Input"], Cell[7555, 295, 46, 0, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7638, 300, 54, 1, 70, "Input"], Cell[7695, 303, 49, 0, 70, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7805, 310, 52, 0, 70, "Section"], Cell[7860, 312, 5597, 175, 70, "Input"], Cell[13460, 489, 346, 10, 70, "Input"], Cell[CellGroupData[{ Cell[13831, 503, 123, 3, 70, "Input"], Cell[13957, 508, 6461, 90, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20455, 603, 49, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[20529, 607, 58, 1, 70, "Input"], Cell[20590, 610, 46, 0, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20673, 615, 60, 1, 70, "Input"], Cell[20736, 618, 31, 0, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20816, 624, 26, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[20867, 628, 375, 9, 70, "Input"], Cell[21245, 639, 3836, 70, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25118, 714, 1003, 33, 70, "Input"], Cell[CellGroupData[{ Cell[26146, 751, 96, 2, 70, "Print"], Cell[26245, 755, 146, 4, 70, "Print"], Cell[26394, 761, 144, 4, 70, "Print"], Cell[26541, 767, 144, 4, 70, "Print"], Cell[26688, 773, 146, 4, 70, "Print"], Cell[26837, 779, 146, 4, 70, "Print"], Cell[26986, 785, 146, 4, 70, "Print"], Cell[27135, 791, 144, 4, 70, "Print"], Cell[27282, 797, 145, 4, 70, "Print"], Cell[27430, 803, 145, 4, 70, "Print"] }, Open ]], Cell[27590, 810, 232, 5, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27859, 820, 1256, 34, 70, "Input"], Cell[29118, 856, 32667, 545, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61834, 1407, 27, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[61886, 1411, 375, 12, 70, "Input"], Cell[62264, 1425, 21351, 604, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83652, 2034, 547, 18, 70, "Input"], Cell[84202, 2054, 28169, 869, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[112420, 2929, 26, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[112471, 2933, 82, 2, 70, "Input"], Cell[112556, 2937, 115, 3, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[112720, 2946, 26, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[112771, 2950, 64, 1, 70, "Input"], Cell[112838, 2953, 30, 0, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112905, 2958, 168, 5, 70, "Input"], Cell[113076, 2965, 62, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[113175, 2971, 54, 1, 70, "Input"], Cell[113232, 2974, 45, 0, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[113326, 2980, 33, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[113384, 2984, 475, 16, 70, "Input"], Cell[113862, 3002, 776, 16, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114675, 3023, 54, 1, 70, "Input"], Cell[114732, 3026, 372, 7, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[115153, 3039, 37, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[115215, 3043, 491, 16, 70, "Input"], Cell[115709, 3061, 1123, 22, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116869, 3088, 54, 1, 70, "Input"], Cell[116926, 3091, 352, 7, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[117327, 3104, 62, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[117414, 3108, 241, 8, 70, "Input"], Cell[117658, 3118, 880, 29, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118575, 3152, 54, 1, 70, "Input"], Cell[118632, 3155, 121, 3, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)