(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 78290, 1823] NotebookOptionsPosition[ 76662, 1782] NotebookOutlinePosition[ 77231, 1805] CellTagsIndexPosition[ 77188, 1802] WindowTitle->Examples for The Scarlet Letter WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the text:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.886239532433077*^9, 3.8862395354158707`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.6882335590460978`*^9, 3.688233562986697*^9}, {3.702911206019575*^9, 3.702911241038163*^9}}], Cell[BoxData["\<\"Doubtless, however, either of these stern and \ black-browed\\nPuritans would have thought it quite a sufficient \ retribution\\nfor his sins that, after so long a lapse of years, the old \ trunk\\nof the family tree, with so much venerable moss upon it, \ should\\nhave borne, as its topmost bough, an idler like myself. No \ aim\\nthat I have ever cherished would they recognise as laudable; \ no\\nsuccess of mine--if my life, beyond its domestic scope, had ever\\nbeen \ brightened by success--would they deem otherwise than\\nworthless, if not \ positively disgraceful. \\\"What is he?\\\" murmurs\\none grey shadow of my \ forefathers to the other. \\\"A writer of\\nstory books! What kind of \ business in life--what mode of\\nglorifying God, or being serviceable to \ mankind in his day and\\ngeneration--may that be? Why, the degenerate fellow \ might as\\nwell have been a fiddler!\\\" Such are the compliments \ bandied\\nbetween my great grandsires and myself, across the gulf of \ time!\\nAnd yet, let them scorn me as they will, strong traits of \ their\\nnature have intertwined themselves with mine.\"\>"], "Output", CellChangeTimes->{ 3.6882329108360233`*^9, {3.688233563945778*^9, 3.688233566841044*^9}, { 3.702911215601206*^9, 3.7029112414347143`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Generate a WordCloud:", "Text", CellChangeTimes->{{3.6830348500302467`*^9, 3.683034859734131*^9}, { 3.6833756137501287`*^9, 3.683375617260816*^9}, {3.702911187796034*^9, 3.702911190722906*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.683033945828113*^9, 3.683034015624926*^9}, { 3.6830348076341476`*^9, 3.6830348407195807`*^9}, 3.683035540973732*^9, { 3.683035579770043*^9, 3.683035601172921*^9}, 3.6882335956163692`*^9, { 3.702911194873376*^9, 3.7029112002774973`*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Hester\"\>", StripOnInput->False, FontSize->Scaled[0.21212121212121213`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"PEARL\"\>", StripOnInput->False, FontSize->Scaled[0.13306982872200263`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-0.5, -44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thou\"\>", StripOnInput->False, FontSize->Scaled[0.14323357801618672`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-0.5, 46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"minister\"\>", StripOnInput->False, FontSize->Scaled[0.0963674007152268], FontColor->RGBColor[1, 0.75, 0]], {-0.5, -74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.14210427253905514`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {16.5, 75.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Prynne\"\>", StripOnInput->False, FontSize->Scaled[0.09467344249952946], FontColor->RGBColor[0.571589, 0.586483, 0.]], {92.5, 38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"LETTER\"\>", StripOnInput->False, FontSize->Scaled[0.08507434594391115], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-0.5, -100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Dimmesdale\"\>", StripOnInput->False, FontSize->Scaled[0.06644080557124035], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-0.5, 106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"SCARLET\"\>", StripOnInput->False, FontSize->Scaled[0.07321663843402974], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-82.5, 77.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Old\"\>", StripOnInput->False, FontSize->Scaled[0.12968191229060794`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-103.5, -41.5}, Center, Automatic], InsetBox[ StyleBox["\<\"child\"\>", StripOnInput->False, FontSize->Scaled[0.11274233013363448`], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-86.5, 46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mother\"\>", StripOnInput->False, FontSize->Scaled[0.08225108225108226], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {99.5, -36.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Chillingworth\"\>", StripOnInput->False, FontSize->Scaled[0.049501223414266896`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-0.5, -119.5}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.08281573498964803], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {90.5, 63.5}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.09297948428383211], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {87.5, -68.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.11161302465650291`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-91.5, -70.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.07603990212685866], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {83.5, -93.5}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.09523809523809523], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {114.5, -8.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.07265198569546395], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {87.5, 86.5}, Center, Automatic], InsetBox[ StyleBox["\<\"answered\"\>", StripOnInput->False, FontSize->Scaled[0.046677959721437984`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-6.5, 124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"physician\"\>", StripOnInput->False, FontSize->Scaled[0.044419348767174856`], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-87.5, -92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.06305288913984566], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-85.5, 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thee\"\>", StripOnInput->False, FontSize->Scaled[0.06248823640127988], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-121.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.07547524938829286], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {-121.5, 20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.06474684735554301], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {82.5, 107.5}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.05458309806135893], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-78.5, -110.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Roger\"\>", StripOnInput->False, FontSize->Scaled[0.05232448710709581], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {51.5, 127.5}, Center, Automatic], InsetBox[ StyleBox["\<\"human\"\>", StripOnInput->False, FontSize->Scaled[0.051759834368530024`], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-30.5, -133.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.07716920760399022], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {65.5, -123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"woman\"\>", StripOnInput->False, FontSize->Scaled[0.057971014492753624`], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-72.5, 126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"years\"\>", StripOnInput->False, FontSize->Scaled[0.054018445322793145`], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-81.5, -124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"clergyman\"\>", StripOnInput->False, FontSize->Scaled[0.036514210427253904`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {108.5, -110.5}, Center, Automatic], InsetBox[ StyleBox["\<\"New\"\>", StripOnInput->False, FontSize->Scaled[0.057971014492753624`], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {96.5, 121.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.05853566723131941], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {105.5, -130.5}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.0461133069828722], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {21.5, -136.5}, Center, Automatic], InsetBox[ StyleBox["\<\"nature\"\>", StripOnInput->False, FontSize->Scaled[0.05119518162996424], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-2.5, 137.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mother's\"\>", StripOnInput->False, FontSize->Scaled[0.03820816864295125], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-54.5, 139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.04498400150574064], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {128.5, 14.5}, Center, Automatic], InsetBox[ StyleBox["\<\"bosom\"\>", StripOnInput->False, FontSize->Scaled[0.044419348767174856`], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {46.5, 142.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.041596085074345944`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-130.5, 97.5}, Center, Automatic], InsetBox[ StyleBox["\<\"character\"\>", StripOnInput->False, FontSize->Scaled[0.03594955768868813], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-38.5, -147.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.03707886316581969], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {67.5, -145.5}, Center, Automatic], InsetBox[ StyleBox["\<\"better\"\>", StripOnInput->False, FontSize->Scaled[0.04498400150574064], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {132.5, -87.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Governor\"\>", StripOnInput->False, FontSize->Scaled[0.03256164125729343], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {127.5, 104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.041596085074345944`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-84.5, -140.5}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.051759834368530024`], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {134.5, -56.5}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.043290043290043295`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {133.5, 85.5}, Center, Automatic], InsetBox[ StyleBox["\<\"towards\"\>", StripOnInput->False, FontSize->Scaled[0.03594955768868813], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {-123.5, -109.5}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.054018445322793145`], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {93.5, 140.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Reverend\"\>", StripOnInput->False, FontSize->Scaled[0.03256164125729343], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-129.5, 113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"public\"\>", StripOnInput->False, FontSize->Scaled[0.04103143233578016], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-99.5, 139.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.04724261246000376], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-136.5, -91.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thy\"\>", StripOnInput->False, FontSize->Scaled[0.05627705627705628], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-138.5, 51.5}, Center, Automatic], InsetBox[ StyleBox["\<\"speak\"\>", StripOnInput->False, FontSize->Scaled[0.040466779597214377`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-125.5, -123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"brought\"\>", StripOnInput->False, FontSize->Scaled[0.03256164125729343], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {109.5, -145.5}, Center, Automatic], InsetBox[ StyleBox["\<\"strange\"\>", StripOnInput->False, FontSize->Scaled[0.034255599472990776`], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-124.5, -138.5}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.049501223414266896`], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {137.5, 56.5}, Center, Automatic], InsetBox[ StyleBox["\<\"forest\"\>", StripOnInput->False, FontSize->Scaled[0.039337474120082816`], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {134.5, 114.5}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.04893657067570111], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-134.5, 126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.035384904950122344`], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-3.5, 149.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Hester's\"\>", StripOnInput->False, FontSize->Scaled[0.03312629399585921], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {9.5, -153.5}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.040466779597214377`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-146.5, -59.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stood\"\>", StripOnInput->False, FontSize->Scaled[0.04103143233578016], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-44.5, 153.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looking\"\>", StripOnInput->False, FontSize->Scaled[0.03256164125729343], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {134.5, -71.5}, Center, Automatic], InsetBox[ StyleBox["\<\"aspect\"\>", StripOnInput->False, FontSize->Scaled[0.03199698851872765], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {35.5, 155.5}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.046677959721437984`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {74.5, 154.5}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.03707886316581969], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-145.5, -12.5}, Center, Automatic], InsetBox[ StyleBox["\<\"forth\"\>", StripOnInput->False, FontSize->Scaled[0.040466779597214377`], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-142.5, -73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"truth\"\>", StripOnInput->False, FontSize->Scaled[0.0399021268586486], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-76.5, 153.5}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.049501223414266896`], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-80.5, -156.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shame\"\>", StripOnInput->False, FontSize->Scaled[0.031432335780161864`], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {48.5, -156.5}, Center, Automatic], InsetBox[ StyleBox["\<\"smile\"\>", StripOnInput->False, FontSize->Scaled[0.03707886316581969], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {132.5, 128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.03707886316581969], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {140.5, -123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"black\"\>", StripOnInput->False, FontSize->Scaled[0.03707886316581969], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-108.5, 153.5}, Center, Automatic], InsetBox[ StyleBox["\<\"breast\"\>", StripOnInput->False, FontSize->Scaled[0.03199698851872765], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {110.5, 152.5}, Center, Automatic], InsetBox[ StyleBox["\<\"deep\"\>", StripOnInput->False, FontSize->Scaled[0.035384904950122344`], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {148.5, -20.5}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.036514210427253904`], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {148.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"kind\"\>", StripOnInput->False, FontSize->Scaled[0.039337474120082816`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-150.5, -28.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.03707886316581969], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {149.5, 68.5}, Center, Automatic], InsetBox[ StyleBox["\<\"soul\"\>", StripOnInput->False, FontSize->Scaled[0.03877282138151703], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-150.5, -42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"voice\"\>", StripOnInput->False, FontSize->Scaled[0.031432335780161864`], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {149.5, -100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"days\"\>", StripOnInput->False, FontSize->Scaled[0.03199698851872765], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-111.5, -153.5}, Center, Automatic], InsetBox[ StyleBox["\<\"poor\"\>", StripOnInput->False, FontSize->Scaled[0.03369094673442499], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {142.5, -135.5}, Center, Automatic], InsetBox[ StyleBox["\<\"spirit\"\>", StripOnInput->False, FontSize->Scaled[0.034255599472990776`], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-137.5, 142.5}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.04216073781291173], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {93.5, -158.5}, Center, Automatic], InsetBox[ StyleBox["\<\"knew\"\>", StripOnInput->False, FontSize->Scaled[0.030867683041596088`], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {141.5, 140.5}, Center, Automatic], InsetBox[ StyleBox["\<\"kept\"\>", StripOnInput->False, FontSize->Scaled[0.03199698851872765], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {150.5, -42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"wild\"\>", StripOnInput->False, FontSize->Scaled[0.035384904950122344`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-151.5, 15.5}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.03199698851872765], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-139.5, -151.5}, Center, Automatic], InsetBox[ StyleBox["\<\"earth\"\>", StripOnInput->False, FontSize->Scaled[0.030303030303030304`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-151.5, 66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hath\"\>", StripOnInput->False, FontSize->Scaled[0.036514210427253904`], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {142.5, -150.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dark\"\>", StripOnInput->False, FontSize->Scaled[0.031432335780161864`], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-151.5, 27.5}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.03369094673442499], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {152.5, 27.5}, Center, Automatic], InsetBox[ StyleBox["\<\"love\"\>", StripOnInput->False, FontSize->Scaled[0.030303030303030304`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-150.5, 78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"far\"\>", StripOnInput->False, FontSize->Scaled[0.039337474120082816`], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-154.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"else\"\>", StripOnInput->False, FontSize->Scaled[0.030867683041596088`], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {153.5, 37.5}, Center, Automatic], InsetBox[ StyleBox["\<\"evil\"\>", StripOnInput->False, FontSize->Scaled[0.03199698851872765], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-76.5, -3.5}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.03256164125729343], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-76.5, 19.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sin\"\>", StripOnInput->False, FontSize->Scaled[0.031432335780161864`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-50.5, -51.5}, Center, Automatic], InsetBox[ StyleBox["\<\"let\"\>", StripOnInput->False, FontSize->Scaled[0.030867683041596088`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {157.5, 94.5}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-165., 165.}, {-165., 162.}}]], "Output", CellChangeTimes->{3.6882336072419*^9, 3.702911214906543*^9}] }, Open ]], Cell["Show the most frequently used of proper nouns:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, { 3.683294908678198*^9, 3.6832949116374936`*^9}, {3.683376844887498*^9, 3.683376859973558*^9}, {3.683392725792314*^9, 3.683392733768087*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}], "//", "Reverse"}], ",", RowBox[{"BarOrigin", "\[Rule]", "Left"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.6832887705512333`*^9, 3.6832888072249002`*^9}, { 3.683294093657347*^9, 3.683294095105347*^9}, 3.6882336329522343`*^9}], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{0., 0.13851851851851854`}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.5370370370370371}, {23., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 89.0265653003411}, {66.31463171160657, 74.58877884107261}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", {}, StripOnInput -> False]], Annotation[#, Style[23, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5370370370370372`}, {23., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 89.0265653003411}, {57.91855281178326, 66.19269994124929}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", {}, StripOnInput -> False]], Annotation[#, Style[23, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.537037037037037}, {25., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 90.57235358732729}, {49.522473911959935`, 57.79662104142597}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", {}, StripOnInput -> False]], Annotation[#, Style[25, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.537037037037037}, {29., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 93.66393016129965}, {41.126395012136626`, 49.400542141602656`}}], StatusArea[#, 29]& , TagBoxNote->"29"], StyleBox["29", {}, StripOnInput -> False]], Annotation[#, Style[29, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.537037037037037}, {30., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 94.43682430479274}, {32.73031611231331, 41.00446324177934}}], StatusArea[#, 30]& , TagBoxNote->"30"], StyleBox["30", {}, StripOnInput -> False]], Annotation[#, Style[30, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.537037037037037}, {32., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 95.98261259177892}, {24.334237212489995`, 32.608384341956025`}}], StatusArea[#, 32]& , TagBoxNote->"32"], StyleBox["32", {}, StripOnInput -> False]], Annotation[#, Style[32, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6.537037037037037}, {34., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 97.5284008787651}, {15.93815831266668, 24.21230544213271}}], StatusArea[#, 34]& , TagBoxNote->"34"], StyleBox["34", {}, StripOnInput -> False]], Annotation[#, Style[34, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7.537037037037037}, {34., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 97.5284008787651}, {7.54207941284335, 15.816226542309394`}}], StatusArea[#, 34]& , TagBoxNote->"34"], StyleBox["34", {}, StripOnInput -> False]], Annotation[#, Style[34, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.537037037037038}, {36., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 99.07418916575128}, {-0.8539994869799585, 7.4201476424860715`}}], StatusArea[#, 36]& , TagBoxNote->"36"], StyleBox["36", {}, StripOnInput -> False]], Annotation[#, Style[36, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 9.537037037037038}, {38., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 100.61997745273747`}, {-9.250078386803281, -0.9759312573372512}}], StatusArea[#, 38]& , TagBoxNote->"38"], StyleBox["38", {}, StripOnInput -> False]], Annotation[#, Style[38, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 10.537037037037038`}, {38., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 100.61997745273747`}, {-17.64615728662659, -9.37201015716056}}], StatusArea[#, 38]& , TagBoxNote->"38"], StyleBox["38", {}, StripOnInput -> False]], Annotation[#, Style[38, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 11.537037037037038`}, {42., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 103.71155402670983`}, {-26.042236186449912`, \ -17.768089056983882`}}], StatusArea[#, 42]& , TagBoxNote->"42"], StyleBox["42", {}, StripOnInput -> False]], Annotation[#, Style[42, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 12.537037037037038`}, {45., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 106.0302364571891}, {-34.43831508627322, -26.16416795680719}}], StatusArea[#, 45]& , TagBoxNote->"45"], StyleBox["45", {}, StripOnInput -> False]], Annotation[#, Style[45, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 13.537037037037038`}, {72., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 126.89837833150257`}, {-42.83439398609654, -34.56024685663051}}], StatusArea[#, 72]& , TagBoxNote->"72"], StyleBox["72", {}, StripOnInput -> False]], Annotation[#, Style[72, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 14.537037037037038`}, {77., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 130.76284904896804`}, {-51.230472885919866`, -42.95632575645382}}], StatusArea[#, 77]& , TagBoxNote->"77"], StyleBox["77", {}, StripOnInput -> False]], Annotation[#, Style[77, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 15.537037037037038`}, {102., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 150.08520263629532`}, {-59.62655178574319, -51.35240465627713}}], StatusArea[#, 102]& , TagBoxNote->"102"], StyleBox["102", {}, StripOnInput -> False]], Annotation[#, Style[102, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 16.537037037037038`}, {121., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 164.77019136266404`}, {-68.02263068556651, -59.74848355610045}}], StatusArea[#, 121]& , TagBoxNote->"121"], StyleBox["121", {}, StripOnInput -> False]], Annotation[#, Style[121, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 17.537037037037038`}, {152., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 188.7299098109499}, {-76.4187095853898, -68.14456245592378}}], StatusArea[#, 152]& , TagBoxNote->"152"], StyleBox["152", {}, StripOnInput -> False]], Annotation[#, Style[152, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 18.537037037037038`}, {217., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 238.96802913800082`}, {-84.81478848521313, -76.5406413557471}}], StatusArea[#, 217]& , TagBoxNote->"217"], StyleBox["217", {}, StripOnInput -> False]], Annotation[#, Style[217, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 19.537037037037038`}, {353., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.75, 344.0816326530612}, {-93.21086738503645, -84.93672025557039}}], StatusArea[#, 353]& , TagBoxNote->"353"], StyleBox["353", {}, StripOnInput -> False]], Annotation[#, Style[353, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.13851851851851854`}, {0., 20.869451851851853`}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5370370370370371}, Offset[{-6., 0.}, {0., 0.5370370370370371}]}], LineBox[{{0., 20.462962962962965`}, Offset[{-6., 0.}, {0., 20.462962962962965`}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.462962962962963}, Offset[{-4., 0.}, {0., 1.462962962962963}]}], LineBox[{{0., 1.5370370370370372`}, Offset[{-4., 0.}, {0., 1.5370370370370372`}]}], LineBox[{{0., 2.4629629629629632`}, Offset[{-4., 0.}, {0., 2.4629629629629632`}]}], LineBox[{{0., 2.537037037037037}, Offset[{-4., 0.}, {0., 2.537037037037037}]}], LineBox[{{0., 3.4629629629629632`}, Offset[{-4., 0.}, {0., 3.4629629629629632`}]}], LineBox[{{0., 3.537037037037037}, Offset[{-4., 0.}, {0., 3.537037037037037}]}], LineBox[{{0., 4.462962962962963}, Offset[{-4., 0.}, {0., 4.462962962962963}]}], LineBox[{{0., 4.537037037037036}, Offset[{-4., 0.}, {0., 4.537037037037036}]}], LineBox[{{0., 5.462962962962963}, Offset[{-4., 0.}, {0., 5.462962962962963}]}], LineBox[{{0., 5.537037037037037}, Offset[{-4., 0.}, {0., 5.537037037037037}]}], LineBox[{{0., 6.462962962962963}, Offset[{-4., 0.}, {0., 6.462962962962963}]}], LineBox[{{0., 6.537037037037037}, Offset[{-4., 0.}, {0., 6.537037037037037}]}], LineBox[{{0., 7.462962962962963}, Offset[{-4., 0.}, {0., 7.462962962962963}]}], LineBox[{{0., 7.537037037037037}, Offset[{-4., 0.}, {0., 7.537037037037037}]}], LineBox[{{0., 8.462962962962964}, Offset[{-4., 0.}, {0., 8.462962962962964}]}], LineBox[{{0., 8.537037037037036}, Offset[{-4., 0.}, {0., 8.537037037037036}]}], LineBox[{{0., 9.462962962962962}, Offset[{-4., 0.}, {0., 9.462962962962962}]}], LineBox[{{0., 9.537037037037036}, Offset[{-4., 0.}, {0., 9.537037037037036}]}], LineBox[{{0., 10.462962962962962`}, Offset[{-4., 0.}, {0., 10.462962962962962`}]}], LineBox[{{0., 10.537037037037036`}, Offset[{-4., 0.}, {0., 10.537037037037036`}]}], LineBox[{{0., 11.462962962962962`}, Offset[{-4., 0.}, {0., 11.462962962962962`}]}], LineBox[{{0., 11.537037037037036`}, Offset[{-4., 0.}, {0., 11.537037037037036`}]}], LineBox[{{0., 12.462962962962962`}, Offset[{-4., 0.}, {0., 12.462962962962962`}]}], LineBox[{{0., 12.537037037037036`}, Offset[{-4., 0.}, {0., 12.537037037037036`}]}], LineBox[{{0., 13.462962962962962`}, Offset[{-4., 0.}, {0., 13.462962962962962`}]}], LineBox[{{0., 13.537037037037036`}, Offset[{-4., 0.}, {0., 13.537037037037036`}]}], LineBox[{{0., 14.462962962962962`}, Offset[{-4., 0.}, {0., 14.462962962962962`}]}], LineBox[{{0., 14.537037037037036`}, Offset[{-4., 0.}, {0., 14.537037037037036`}]}], LineBox[{{0., 15.462962962962962`}, Offset[{-4., 0.}, {0., 15.462962962962962`}]}], LineBox[{{0., 15.537037037037036`}, Offset[{-4., 0.}, {0., 15.537037037037036`}]}], LineBox[{{0., 16.462962962962965`}, Offset[{-4., 0.}, {0., 16.462962962962965`}]}], LineBox[{{0., 16.537037037037038`}, Offset[{-4., 0.}, {0., 16.537037037037038`}]}], LineBox[{{0., 17.462962962962965`}, Offset[{-4., 0.}, {0., 17.462962962962965`}]}], LineBox[{{0., 17.537037037037038`}, Offset[{-4., 0.}, {0., 17.537037037037038`}]}], LineBox[{{0., 18.462962962962965`}, Offset[{-4., 0.}, {0., 18.462962962962965`}]}], LineBox[{{0., 18.537037037037038`}, Offset[{-4., 0.}, {0., 18.537037037037038`}]}], LineBox[{{0., 19.462962962962965`}, Offset[{-4., 0.}, {0., 19.462962962962965`}]}], LineBox[{{0., 19.537037037037038`}, Offset[{-4., 0.}, {0., 19.537037037037038`}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox["\<\"Dimmesdale's\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Wilson\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Mistress\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Pearl's\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"The\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"New\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"England\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Custom-House\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Reverend\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Governor\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"A\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Hester's\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Thou\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Chillingworth\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Roger\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Dimmesdale\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Mr.\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Prynne\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Pearl\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Hester\"\>", Offset[{-2., 0.}, {0., 20.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, BoxID -> "{\"type\":\"Image\",\"message\":\"RasterizedDueToUnsupportedContent\",\"\ imageData\":{\"imageSource\":\"data:image/png;base64,\ iVBORw0KGgoAAAANSUhEUgAAAWgAAAC+\ CAYAAAAY9ZVTAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOxAAADsQBlSsOGwAAIABJREFUeJzt3X\ uUXHWVL/Dv/p2qVHfSLG1eFzs6oneEK+\ MKgsjDByAsFjMgaHgYFgTadOqcIglRXt4wQSdmZmDJldzWNEm6flXpmEw60MYQGPXiGG4uAUGdDMZc\ zTVwM0sGQ8BrkCYPQnfV+e37R84JJ0WdenSq65zu3p+1WEmfx++3zzHuPuvU/\ u0ChBBCCCGEEEIIIYQQQggROcdxOOoYhBATh4o6ACGEEOVJghZCiJiiqAOoheM4rLWmattqHOtHWuv\ PV5svbF/L65vrnVIIMYEt3bBrxHk20chAxogrqx0Qlvgdx+El885sfERCiHHprmXbj+n8MZ+\ gu7q6OizL+h6AC4hoG4BZWut/T6fT05VSA8xMAHYw83yl1NPAO0/\ fYec6jsPMfCeAG3O53CejujYhxMQ2ZhJ02GsHy7K+C6BveHj46paWlunM3AvgMiLqB9A/\ ODiYPv7446czc5/\ WmoKvRsLO9Ybe29LScmkzrk0IIcoZMwm63DtoACCiSwBcl0qlwMwAcNDbvgDAN9vb21cwc4/W+\ rTSMcPOBQDXdR/\ r6enZP2oXJIQQVYyZBF2BVSgUTl61atWfghu11j2ZTGanMeYCInrUtu0Hc7lctpZzAaCvr0+\ SsxAiUmO+zI6Zn04mk3ffcccdrbZtZ2zbfg4AbNve4bpue0dHx/\ 3MvBzAfd7xZt68eSdUOlcIIeJgzD9Bu647P5FI9B08eHAvEe0kopsBgJlnE1Hvnj17+omIjTEzvFN+\ UigUXgYwJexcIYSIgzFRBx2Vch9Maq23RRGLiL2pAF6JaO4tEc0ranPHSE8c80/\ QwFGJlJn590qpW7PZ7KZGjB38cNJxHC5svvasRowrxqWTmz3hXcu2Y+mGXWc3e17RHGP+\ HbRPa01aa0sptYCZH4w6HiGEOFbj4gk6gA8ePPhEa2vrGiB8EYvjOOcxczcRTQOwj4juyWaza2SBih\ AiTsbNEzQAXH/99VZra+\ s1AHYCRy1EOYmIVgDo9Q5dBWAJgHZjzFXMvCQwjCxQEULEwrh5gvaefg0RvQjABsIXoiSTyc8WCoU5\ zHyjUuosACf648gCFSFEXIybBB3S4KjsQpRCofAYgH4iWk5ELzPzi/4+\ WaAihIiLcZOgywksRPnmgQMHbgHQmcvlPsXM05j59kQi8QdjzH+\ POk4hhCgn1gn6WMvnwhaiENFCAJtc130LwBIiuqmGGAAAyUs2SB10Y0RZNxwkNcQitmK9UCXQeY4ym\ cy1zPwNrXVkDZkdx+FlN7we1fSiwZKXbPgOjmERgRCjLdZP0AFHlc+VlsM5jvO/lVLX9/\ b2vuA4zokAtr3vfe/70KuvvloAcC8z20Q01RgzI5/Pb/Seit+\ 1PawsL7KrFkJMaGOizK60fM4TLIdbZ4y5wfv7jQA2LF68uOj9nGprazvDGDNDKTUQOP9d2yuU5QkhR\ NPF/gm6XPkccHQ5XLFYfNiyrP8BYDGATmOM4x9XLBYf7O7uPgRgo+M4yUrbK/\ WHFkKIZot9gg77fsBgOVxfX99/OI7zZ8dxZgBozefzz5c7Luz8gND+\ 0EII0WyxT9B1WMfMS4nouyMdIKwsr4ExCiFEzcbEO+\ haKKU2ENFJxWKxf6RjuK47H8A5Xlmeo5RKNzBEIYSoS6zL7Oph2/ZFRPSA1vr8Ro1Zrh90y+\ ubGzV8bD29fS8uPPPE6geOcUs37JIyOxFr4+YVBxE9CuDLYftt2/41My/L5/M5f1s6nbaJaF4ul/\ t4M2IcK+KUnJdu2DVuHiKEqNeE+cfvVYNsSyaTFy5fvvxAV1fXcZZlbSWi08M+\ iCw3hixUaR6vGf2E+\ TcqRKlx8wRdCyLaODw8fBmAjYlE4jJmfgLA6cC7F79EGqgQQmAcfUhYC2PMABFdCQDMfAWAx0oOkV7\ QQojYmFAJOp/\ Pv0hEpwAgIjp3cHDwZ8H93uKXfRGFJ4QQR5lQCdrzTDqdTjPztvXr17vBHdILWggRJxPqHTQAENGAU\ morgEzUsQghRCUTLkFns9mXbNv+7aFDh/\ 6l2rHl6qDvWrZ9dAIbRROlrlmI8eaYS5hKkljBb93p76u1hG00VYsjbH+5BK21/\ k6j45sgZEGIEHVqyBO0n9zS6fR0pdTadDo9M5/\ Pb4xDcj4WpfE7jsOFzdfeHlU8Y5XXGF8IUaeGvuLI5/Mb0+n0TK+/8iT/\ ydRxHCaiNDN3A1gAIAXgPmPMTL+BfqX9YY30vV8IA8xMAHYw8/\ x8Pv9MJpM51RizjojOQKBFqeM45zFzNxFNA7CPiO7JZrNr/P3SsF8IEScNr+LwXm8kS7czs2WM+\ Rwzf5WZ/2CMmRlsoF9pf1gjfSLqB9A/ODjYopT6R6VUnzfWQ0T0ZLFY/\ ACAcwJhrAKwBEC7MeYqZl4SjFEa9gsh4qRpZXZDQ0Nr8vn8r4jo9MHBwR+WJvJK+\ 4noEiJ6OJVKHWLmdQAu8LYvAHB1e3v7CmZ+QWt9mjfcxQCW9PX17Xdd9wF/jmQy+Vki+igzP6KUWg/\ gqE/OwuYRQogoNLyKI51OTwdQKN2+evXqt/2/r1+/frjO/WUb6WutezKZzE5jzAVE9Kht2w/\ mcrksM3MikVAAYFnWkV9ChULhMQD9RLSciF5m5hdrmUcIIaLQ0Cdo/\ 0NCY8yMRo4baKTfatt2xrbt5wDAtu0druu2d3R03M/MywHcBwBE9KTrugtnz579UWZ+\ LjDONGPMVqXUb5h5Ua3zCCFEFBryBB0oRzuqzK5RXNedn0gk+rxG+juJ6GYAYObZRNS7Z8+efiJi/\ xcDEd3GzA9bljUdwM0AnvO2LwSwyXXdtwAsIaKbaplHCCGiMObK4Epqk11m/\ gMz39noXwpl5gIAaK23NXqeBpkK4JUGj7mlgWNJHbQQdRqTKwn9+\ mTHcZLMfDkR5QA0PEGH1EGf1eh5GujkRg3k1S5LUhUiQmMyQQcppaYwswsA6XT6/\ UqpNQDOZeZfMPOX8/n87q6urg8mEokBAKcy898T0TKtNYXVPUtvaCFEHIzJbnaO47D3+\ mEYwCKl1CwAUEr1MPPPU6lUBxFtJaKHgCP1zU+mUqnTiOhD/\ jhV6p6lN7QQIlJjMkFrrSmVSr0HwBNE9A/ZbHaTt+vC4eHhb/f09OwbGhp6gIgu9rZfCuDbPT09+\ yzLut8fp1Lds/SGFkJEbcy+4ujp6dk3a9aszmQy+UvHcTZprfci8Atn8uTJVCwWLQAgoqK/\ 3XVdKzBMaN2z9IYWQkRtTD5B+7zEuoyZbwIAZn5m0qRJX+vq6jquWCwuIKJnvUM3MfPdc+bM+TCAx/\ 3zpe5ZCBFnYzpBA0AqlXqIiC4CDtcxA/iUZVl/JKJPE9GtAFAsFm8H8BnXdTcD+A4zHwocf45X9+\ wopdJRXYcQQpSquw7atu3bANyFw30sfppIJNIrVqx4o1JPZb+jXbk/G3ANNXMcJwmgE8CtWutzvG0/\ 0lp/PhhrMPbSMSLoB30RGluPXA8psxMiQnW9g3YcpxPAbNd1r2Dm3YlEYnGxWFwG4Mawc8KScDOTs+\ M4K5l5OoApALYbY4JPylfWM9ZXrv3LKPpBj3rt9dINu6TuWYiYqfdDwvnMfPvKlSt/\ BwAzZ878Rmtra6e/M5PJ3GKMWUhEH/\ aXfNfyZA3gXma2iWiqf15Y7bJt2zuI6Fqt9c5MJvNpZv4ZM1+cy+W2ZDKZj3i9NzqMMf+\ ppCZ6Wi6X2+31nv6cbds5IjonGEuZa7gmuELRcRxeMu/Mum/yWLB0w66oQxBClKjrHTQzn0FEv/Z/\ Xrt27cFcLrfc/9kY8zEiOs8YMyPY67kGqba2tjOC54XVLgMYAPBFL56rAbwM4Grv5+\ sBrNNaF8Jqoj17W1paLvWTcvAXyDFcgxBCNFS9HxK+jTKtRH1tbW2LtNZvhjXtD1MsFh/s7u4+\ VHJe2dply7KOJGgAVwGY6/0JZr7OGON/Q0pYTXTFGueRXoMQQjRaXQmaiJ4EcHZwWzqd/oT/9+\ 7u7kMjCaJczXFY7XJvb+8LAFKO41wK4JDW+sdE9HYmk/kCEU3K5/\ PPe4ceVRPNzEfGqFTjPNJrEEKIRqsrQRtjFjPzt+\ bMmfPhrq6u4xzHWUxEDe39HFC2dtmz3lv5twEAmHmAmVcDWO0fUKEm+\ ijMbObNm3fCKF2DEEKMWF0JOp/P7yCi5a7rPmNZ1m5m/\ sDw8PDfjUZgYbXLngEiOtkY8wMAMMYMAGgrFov9/gFhNdFl/\ KRQKLw8GtcghBDHIvb9oMvVLjdx7nfVQbe8vrkpcz+9fS8uPPPE6gc2iJTZCRE/\ se3FUaV2ufTYcgtKIlkM0yjVkvPSDbvG5HUJIWo3rv5PXm4lYCMTtOM4vOyG1xs13IjdtWy7JGghJo\ DYPkE3SrnFM2GN/\ Uc7wQshRD3GfLOkasotPKmyiEUIIWJh3CfokIUnoYtYhBAiLsZ9gg5ZeBK6iMXX2dn53lENTAghqhj\ 376DLCSxi+VbJIpZCOp2ezsxblFKPRBqkEGLCG/\ dP0OWELWLx31MrpXYBeCzaKIUQE10sKhTKVUuMtIIi2ID/WOb3t5du01pvqzemElMBvHIM5/vN+\ 2VRiRDj3Hh8xVFXA34AYOYD5baX+\ 6VR2HxtI5rnnzySk5KXbJDVfkJMILFP0F1dXR2WZX0PwAVEtA3ALK31v6fT6elKqQFmJgA7mHm+\ Uupp4J0n4rBzHcdhZr4TwI25XO6TRLQZAMqNmc/nn4nkwoUQE15sEnS51wnAkcb9fcPDw1e3tLRMZ+\ ZeAJcRUT+A/sHBwfTxxx8/\ nZn7Spd3h53rDb23paXlUgDQWn8BAMqNCeAjo3vlQghRXmwSdLnXCQBARJcAuC6VSoGZAeCgt30BgG\ +2t7evYOYerfVppWOGnQscadq/v+\ T4qmMKIUSzjIUqDqtQKJystSbvvzYA0Fr3ENENzLwbwKO2bTu1nguUb9pf45hCCNEUsU/\ QzPx0Mpm8+4477mi1bTtj2/ZzAGDb9g7Xdds7OjruZ+blAO7zjj/SgD/\ s3DBhYwohRBRi84ojjOu68xOJRN/Bgwf3EtFOIroZAJh5NhH17tmzp5+I2Bjjf7OL34B/\ Sti5YSqMKYQQTReLOui4GoU66JHWQG8J/F3K7ISYICRBBziOMwPAIwBu0FoPlNnf9H7QUvssxMQV+\ 3fQTdYJoN/7UwghIiUJ2jN37txTmPlcAPOY+dy5c+\ eeEnVMQoiJTRK0p1AozCSijVrrN4no8UKhMDPqmIQQE5sk6Hd0AlgHAMYYec0hhIicJGgAjuOcTUQf\ A7DZcRxWSv1PIvqY4zhnRx2bEGLiin0ddJN0ArhHa/2Av8FxnHu87b+\ KLCohxIQ24RO04zhJZv4b13U/UbJrBYBBx3G+Etx417Ltdc/x9Pa9uPDME48hSiHERNT0Omi/\ pSeAJDMPEdHVWuufNjuOWpRbqNLy+uamxrB0wy6pgxZigmpqgvaS81pjzMx8Pr/RWxiSY+\ arcrnclqoDREwWqgghmqmprziUUgPGmBn5fH4jAGitB9LpNCulzgGwJZ1Ov18ptQbAucz8C2b+\ cj6f323b9m+MMV9auXLl7zKZzEeY+VkAU4vF4km1NOT3noTvZWabiKb6MYTNV3p+M++\ REEL4ml3FkfSTsy+fz39fa70EAJRSPcz881Qq1UFEW4noIe+wdUqpawCAma8FsE5rXQg05D+\ JiFYA6A0MfaQhvyfV1tZ2hv/FsFXmK3e+EEI0VaRldo7jsP+ft+nC4eHhb/\ f09OwbGhp6gIguBgCl1MNENN075hql1GrgcEN+Ino4lUodYuZ1AC7wx/Ya8u/\ zfy4Wiw92d3cf8n5BJCvNV+\ 58IYRotmYn6EI6nfYTLbTWZIy5BkChNJ7JkycTM1sAkM1mX2LmtzOZzBUAUr29vX5HuZob8pdr0B82\ X4XjhRCiaZqaoL3XC2v9JB340HAGADDzM5MmTfpaV1fXccVicQERPeufS0QPM/\ OPAaz2t9XbkL9UpfmEECJqTf2Q0PtgbqZSasBxnCSAQvBDQ9d151uW9T3Lsv5IRM8HG+\ wXCoXvJ5PJB13X7fe31duQv1Sl+YDyZXZSBy2EaJamldmVJDuXmf/AzHeWfmgYJ1HXQS/\ dsEv6dQsxgTX1Cdr/5m5v9d7lRJQDENsEDRz9beOO4/\ CSeWc2Zd6RPKkLIcaXyJZ6K6WmMLMLAF1dXR3l6pmPtf45bNywuuhMJnOqMWYdEZ0BwI7gtgghxBFN\ /ZAwUFI3DGCRUmoWAFSoZz6m+\ ucqx72rLpqZHyKiJ4vF4gcAnDNqN0IIIWrQ1ASttaZUKvUeAE8Q0T9ks9lNQHg987HWP1c6LqQu+\ mIAS/r6+va7rnuks50QQkSh6a84enp69s2aNaszmUz+\ 0nGcTVrrvfDqmVetWvWn4LHZbPYl27bfzmQyVzDzu+qfS48H3lW/\ XOtxAABm5kQioQDAsizplS2EiFQkSchLmMuY+Sagcj3zsdQ/\ 11snTURPuq67cPbs2R9l5rpqqoUQotEie0pMpVIPEdFFwOF6ZADnePXMjlIq7R9XKBS+D+\ Dt0vrnsOODaj3OR0S3ATjPsqwfEpF85ZUQIlJSZ1tBuTporfW2csdWMRXAK3WeswXSZlSICY0AwLbt\ 2wDcBeBEAD9NJBLpFStWvFHvYI7j/Ehr/fkGx+iPzcGa5LBto6lZ/\ aClB7QQAgCU4zidRDTbGHOF67odRPQfxWJx2QjHu7Kh0QkhxASWADCfmW9fuXLl7wBg5syZ32htbe0\ E3v2E6v/sf20VMxOAHcw8Xyn1dMkxoc3wiSjNzN0AFgBIAbjP/5aVkVxEpblqjT+\ fzz8TtrBlJDEJIcSxSjDzGUT0a3/D2rVrDwJYXukkIuoH0D84OJg+/\ vjjpzNzn9aaggnRb4bf0tLyxaGhob8F8BCALwIAM1vGmM9549zLzDO9xSKTKs1b7p1wtblqjR/\ ARwILW65uaWmZzsy9AC6rFJMQQoyWBIC38U4/5poQ0QIA32xvb1/BzD1a69PKHHbh8PDwrFwut6+\ zs/OBVCr1kr9jaGhozerVq4ccxzn9jTfe+OH69euHve52cBznv+\ DwgpHgfHuZGeXeQVebq574iegSANelUikwMwAcrPmmCCFEgykiehLA2cGN6XT6E6UHdnZ2vtf/\ u9a6h4huYObdAB61bdspN7b/l9Jm+KtXr34bAAPA+vXrh4MnMfNxzHxqyX8d1a4jbK464w/\ 9AgAhhGi2hDFmMRFl58yZc8vQ0NCfEonE3czcCuB5eN+AwsxblFKP+CfZtr3Ddd3FU6dOvX/\ Pnj37AdwHIMvMZt68eScsW7bs9UAz/G/V0ww/l8ttBbC1dLvjON8NO6fCXPXG7y9s+\ eaBAwduAdCZy+U+VUvcQgjRaIl8Pr/DcZzlrus+Y1lWGzNvGB4engsc+QaUAWY+\ AODr8N7HMvNsIurds2dPPxGx/40oAH5SKBReBjClWjP8ckLqjquW0ZXOBeAzI4m/\ 9AsAAJxdGpNXAlePi3C4plkIIeoSq4UqjaprbuQ4pdua0bB/\ 6YZdUgcthIiuH3Q9wvo3d3V1fTCRSAwAOJWZ/\ 56IlpWU1Z3HzN1ENA3APiK6J5vNrqmnH3QUDfuXbtg16nMIIeIvdgm69Kk1kCBTbW1tZ+zfv/+v/\ ZI8ryzuyVQq9d+Ghoa+UWa4VQC+AeCfjTHTlFI/AbAmbLxAP+jLE4nE10fpEoUQoiaxS9Bhryb8/\ s0ANvoleQAuBdDZ09Ozb86cOfe7rnt38JxkMvnZQqEwh5lvVEqdhcNL2SuNdzGAm/r6+\ vbPnj37Acuy/mujr08IIWo1Znoel+vfTERF/++\ u676rtK5QKDwGYC8RLSeiy6uNx8zs94GWftBCiKiN9SS0iZnvnjNnzocBPF66k5mnGWO2KqV+\ w8yLqg0m/aCFEHESu1ccFd5Bv0uxWLzdsqx+13VvBvA1Zj4ruJ+IFgLY5LruWwCWENFNleYmotuY+\ WHLsqYDuBmAJGkhRGRiVWY3Ut475E4At2qtG/Zlr40os3t6+\ 15ceOaJ1Q8MkDI7IQQQwyfoejiOs5KZpwOYgsNVGF8v2d/\ UftHljCA5j4tfmkKIYzdukoHjOMzMvyWiz2it3/S3NTJBj3bD/ruWbZcELYQ4Ykw/\ QZdSSn3HGPMPAL4S3B7W59m27R1EdK3Wemcmk/k0M/+MmS/O5XJbMpnMR7wPCju01nV1+\ xNCiEYY61UcR8lms31EdFY6nf54cHugz/NJRLQCQK+3awDv9Ki+\ GsDLAK72fr4ewDpJzkKIqIyrBA2AlVJfUUotReD1DRFdQkQPp1KpQ8y8DsAFAGBZ1pEEDeAqAHO9P8\ HM1xlj1kAIISIy3hI0ent7twHYbtv2rMDmsn2ee3t7XwCQchznUgCHtNY/\ JqK3M5nMF4hoUj6ffz6KaxBCCGCcvYMO+Hqw/3SVPs/\ rmXkdEX3XO3YAwGoc7hEthBCRGXdP0ACgtX6TmR/wf3Zddz6Ac7w+z45SKh04fICITjbG/\ AAAjDEDANqKxWJ/k8MWQoijjOuSrrAvAKi1/C7k/\ G11hDAVwCt1HL8FskBFCOEZ1wnaV5qQR1ofPZp10N43tUhyFkIcMV7fQVeVyWRuMcYsJKIPB74AoGy\ 9dMShCiEmqHH5DroWxpiPEdF5/vcWAhXrpYUQoukm7BN0W1vbotKG/\ UR0CYDrUqkUmBkADkYZoxBiYpuwCdpLzqWsQqFw8qpVq/\ 7U9ICEEKLEhE3Q5VSplxZCiKaSBB3guu78RCLR59VL7ySim6OOSQgxcU2IMruROsY6aKmBFkIckzGR\ oAOJkpn590qpW7PZ7KZGjFvvwpXRqIOWPtBCiHLGTJmd1+TIUkotYOYHGzk2Mx9o5HhCCNEIY+\ 0dNB88ePCJ1tbWNUB4I37Hcc5j5m4imgZgHxHdk81m13jfunIngBtzudwn/\ UGJaDMApNPp6UqpAWYmADuYeX4+n3+m+ZcphBBj6AkaAK6//\ nqrtbX1GgA7gYoLS1YBWAKg3RhzFTMvCQyzt6Wl5dLguFrrLwAAEfUD6B8cHGxRSv2jUqpvtK9JCCH\ CjJknaO/p1xDRiwBsIHxhSTKZ/GyhUJjDzDcqpc4CcOSbW13Xfaynp2d/\ uTmIaAGAb7a3t69g5h6t9WmjfV1CCBFmzCTokA/xyi4sKRQKjwHoJ6LlRPQyM7/o7+\ vr6yubnL05ejKZzE5jzAVE9Kht2w/\ mcrls465CCCFqN6ZecZQKLCxptW07Y9v2c972acaYrUqp3zDzolrHs217h+\ u67R0dHfcz83JI034hRITGzBN0OWELS4hoIYBNruu+\ BWAJEd1Uy3jMPJuIevfs2dNPRAwgWVoLfdey7TXF9vT2vbjwzBOrHyiEECEir721bfvXzLwsn8/n/\ G3pdNomonm5XO7j1WqUHcf5kdb686MRW7mFKi2vb27Y+FL7LISoJPInaCI6E8CcuXPnPrx8+\ fIDXV1dxxHRXUR0OhD67jnoytGKrXRux3F4ybwzGzJ2rU/iQoiJK/\ IEDQBEtHF4ePgyABsTicRlzPwEgNOBd1b7latRVko9HTymtM45rE46rN5Z6qCFEHESiw8JjTEDRHQl\ ADDzFQAeKz2mXI2y/4Rb8qR7pM45rE46rN5Z6qCFEHESiwSdz+\ dfJKJTABARnTs4OPiz0mO8GuWrvRrlF8JqlL06533eOZcQ0cOpVOoQM68DcEGlsWqdQwghmiEWCdrz\ TDqdTjPztvXr17ulO7XWPUR0AzPvBvCobdtOuUFK6pytQqFwstfHg7TWbZXGqnUOIYRohtgkaCIaUE\ rdT0SPl9sfVqPMzGbevHknlDsnrE46bCypgxZCxEksPiQEgGw2+\ 5Jt2789dOjQv5TbX1qjbIyZ4e36SaFQeBnAlNJzwuqkw8ZqVB201EALIRoh9nW4juO8ZIz5TD6f3+\ 39PAPAI8x8XS6X2wAA6XT6/UqpnwH4YD39nWuYe1TqoJdu2PUdSHN+IUQVsXmCruApy7LOB/AD7+\ cZONxn40sANgCAZVnnM/NTWusvN3Li0aqDXrph1zGPIYQY/\ 2KfoI0xTymlzgfwg7lz57YVi8VPAvgYgP8zc+bMKWvXrj3IzOcbY54qfXKuUO/\ 8fqXUGgDnMvMvmPnL+Xx+t/fEfC8z20Q01RgzI5/\ Pb4zmyoUQE11sPiQMY1nWU8x8PgAUi8WrmXmj1vpNZv7nyZMn+\ 0u8z7Ms66nSc8PqmpVSPcz881Qq1UFEW4noocBpqba2tjOMMTOUUgOjfX1CCBEm9gk6m82+\ REQnOI6TZOYvWZa1ytvVB+DGRYsWJQCckM1mXyo9t0Jd84XDw8Pf7unp2Tc0NPQAEV3sn1MsFh/\ s7u4+5D05J0f36oQQIlzsE7TnlwAcAFN7e3u3AUAul9sK4C9effXVuQD+tdxJFeqaj1z35MmTiZkt/\ +dK/aKFEKKZxkSCNsY8BeAh75VF0GoA3/\ X2v0uF2ulnJk2a9LWurq7jisXiAiJ6djTjF0KIkRgTCdp7v1woFAqlCXotgOFy75+BI3XNC/\ fs2XOIiB5gZhs4XB8N4FOWZf2RiD5NRLeOZvxCCDESsa+\ DjlK5Omit9bYqp00F8EoNw589oqCEEBNG1QRdkqQKwdKzRi0IOVY1NPU/\ pv3B45bd8PpIwzwieckGWagihKiqplccfrMhr/RsbTqdnu5vH93wmoOZD0QdgxBClKproUo+n9+\ YTqdnevXBk4KN8okozczdABYASAG4zxgzM5/Pb6y2v97G+\ plM5lRjzDoiOgOA7cfnOM55zNxNRNMA7COie7LZ7Bp/f9g8RLQZCF/\ YMuK7K4QQx6DuDwnD6oOZ2TLGfI6Zv8rMfzDGzAwu9Ki0v97G+\ sz8EBE9WSwWPwDgnEAYqwAsAdBujLmKmZcEYwybR2v9hUrzCSFEFBpWxTE0NLQmn8//iohOHxwc/\ GFHnu6pAAAEUUlEQVRpIq+0v97G+gAuBrCkr69vv+u6D/\ hzJJPJzxLRR5n5EaXUegBHtZQLmyewXxr2CyFio+4E7b1/LpRuX7169dsAGADWr18/XOf+\ uhrrMzNblqUAwP8TAAqFwmMA9hLRciK6vEz4ZefxScN+\ IUSc1JWgvXe0awO9mBui3sb6RPSk67oLZ8+e/VFmfi4wzjRjzFal1G+YeVGt8/ikYb8QIk5q+\ pAwUGpXGI0Ob/U21iei25j5YcuypgO4GcBz3vaFADa5rvsWgCVEdFMt8/j8+\ V599dUBIiq9dgBHSuQquQjAlhHfjBGIS7ljKYmrPnGNC4hvbBKXOKLcwpVa90d17lgdO65xjebYcY1\ rNMeOa1yjOXY9546Jpd5CCDERySN4GdV+\ wwkhxGiTVyRCCCGEEEIIIYQQQgghRpO8hK7Ca8D0CBFNBbCTmefncrmm1jn7MpnMqcz8++\ A2r1lVJDGm0+n3E9HWXC73Pn9bWCzNjLFcXFHfO8dxLgCwnJlPB7CTiByt9b/F4X6FxRb1PUun03+\ llMoD+DiA/wvgq1rr/xX1PQuLazTul5TZVcHMf0tEDxaLxRMAPEJEd0YVi+\ u6FzPzmsBSdYoqRm9V6VNEdEpwe1gszYoxLK4Y3LvvAfi74eHh44lIez9Hfr8qxRb1PVNKrQWwLJVK\ vdcYs9DrnxP5PQuLazTulyTo6s5JpVL/\ 5DVmWonDvzUjoZS6GMCTZXY1PUYiclzXvaqOWJoSY1hcUd87rfXpWusfrl69+\ u0pU6asxuFv3qk0f9P+Nw2LLQb37Cyt9drXXnuNlVLvJaLXqswfaVyjcb/q6gc9ERHRST09PfsBYN+\ +fXvb29vfV+2cUXQxgA/Ztr2ciH7rum7XypUrfxdFjLlc7m8AwHGO7icVFkuzYgyLCzG6d2+\ 99dZnADwORH+/KsWGGNyzrq6u4yzL2g3gOGbuBOJxz8rFhVG4X/\ IEXV1h0aJFwXf1kS1i0VqfmsvlLuro6HiPMSZtWdZqb1dsYkR4LJHGGJd7N3v27OONMfMBfLXK/E2/\ X6WxxeGe9fX17c/lcu8xxtxMRN+qMn+kcY3G/ZIEXd1ru3fvfi8AtLe3twP4fxHHg8WLF5upU6f+\ DsAZ3qY4xRgWSyxijPLezZ079xTLsnpc152vtX6zyvxNvV8hsQGIx7+3SZMmPc7M7VXmjzouAI29X/\ KKo7pfKqVuvOOOO1YeOHDgJiL6t6gCcRznBSK6+c9//vPzu3fv/\ ivLsp6NW4wVYok0xqjvXTqdvrxYLN7ruu71fX19fwzsivx+hcUW9T2zbXsnEaXfeOONf3Vd96/\ xTpfISO9ZWFyjcb8kQVdBRDkA/3TgwIFuItoD4IaoYjHGdCqlcu3t7f+\ ZmZ8zxnTFLcawWKKOMep7p5TSAP7CsqzX/PfjWmuKw/0Kiy0G9+wWY4xub2//S2Z+lplnV5o/\ 6riivl9CCCGEEEKI/w/K+lj5gi2j3AAAAABJRU5ErkJggg==\",\"boundingBox\":{\"width\":\ 360,\"height\":190,\"baseline\":98}},\"plotRange\":[0,1,0,1],\"\ requestedImageSize\":[\"Automatic\",\"Automatic\"]}", AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.13851851851851854`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {1., FormBox["\"Dimmesdale's\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"Wilson\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"Mistress\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"Pearl's\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"The\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"New\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"England\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"Custom-House\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"Reverend\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"Governor\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"A\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"Hester's\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"Thou\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"Chillingworth\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"Roger\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"Dimmesdale\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"Mr.\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"Prynne\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"Pearl\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"Hester\"", TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}}}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.05]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, None}]], "Output", CellChangeTimes->{3.688233655568946*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{Automatic, 62}, {Automatic, 0}}, WindowTitle->"Examples for The Scarlet Letter", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[625, 23, 36, 0, 70, "Subsection",ExpressionUUID->"1d67b0f9-88e7-4172-8e65-38c1e42d1a6e"], Cell[664, 25, 256, 3, 70, "Text",ExpressionUUID->"6557c0d0-2cdf-4877-a4aa-69a264bef60b"], Cell[CellGroupData[{ Cell[945, 32, 393, 9, 70, "Input",ExpressionUUID->"2823de3e-6fec-4cbf-b6da-69cb15fbd411"], Cell[1341, 43, 1301, 18, 70, "Output",ExpressionUUID->"bfc7e61f-b19a-4809-b9f5-2a284857073c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2691, 67, 35, 0, 70, "Subsection",ExpressionUUID->"5fb86004-7531-432a-9bed-6ad526369b85"], Cell[2729, 69, 205, 3, 70, "Text",ExpressionUUID->"2b9204d0-8217-4390-bf22-dd5411a4d9e8"], Cell[CellGroupData[{ Cell[2959, 76, 440, 8, 70, "Input",ExpressionUUID->"e191cc0b-3dcb-4c0b-96d6-d1f889ad9833"], Cell[3402, 86, 23815, 561, 70, "Output",ExpressionUUID->"8dba94b3-7218-44db-b194-568090bd1978"] }, Open ]], Cell[27232, 650, 274, 3, 70, "Text",ExpressionUUID->"173362b1-f73f-4123-bec6-f086ecdbc34f"], Cell[CellGroupData[{ Cell[27531, 657, 635, 15, 70, "Input",ExpressionUUID->"09e43331-62db-4391-81a8-7b0a64b36cd5"], Cell[28169, 674, 48465, 1104, 70, "Output",ExpressionUUID->"cdaf8a59-e899-4b2a-860c-70f9722a2257"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)