(* 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[ 89026, 2231] NotebookOptionsPosition[ 86761, 2180] NotebookOutlinePosition[ 87321, 2203] CellTagsIndexPosition[ 87278, 2200] WindowTitle->Examples for Prufrock WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Prufrock\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Love Song of J. Alfred Prufrock, by T. S. \ Eliot\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Prufrock\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"The Love Song of J. Alfred Prufrock, by T. S. \ Eliot\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Textual Data\"", "\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Text\"", "\"English\"", "\"Eliot\"", "\"Poem\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{DataResource`Private`typesetstorage$$ = DataResource`Private`typesetstorageLocation, DataResource`Private`info$$}, DynamicBox[ToBoxes[ DataResource`Private`info$$ = DataResource`Private`resourceInfo[ "be13c168-cdb6-447e-8291-1dcb29c62dea"]; If[ AssociationQ[DataResource`Private`info$$], DataResource`Private`typesetstorage$$[ Lookup[ DataResource`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"be13c168-cdb6-447e-8291-1dcb29c62dea\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Content\"\>", "\[Rule]", "6184"}], "\\[RightAssociation]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Author\"", "\"Content\"", "\"FormattedText\"", "\"FullTitle\"", "\"Language\"", "\"Lines\"", "\"NotebookExpression\"", "\"Title\"", "\"Words\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[<| "Name" -> "Prufrock", "UUID" -> "be13c168-cdb6-447e-8291-1dcb29c62dea", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "The Love Song of J. Alfred Prufrock, by T. S. Eliot", "ContentSize" -> <|"Content" -> 6184|>, "ContentElements" -> { "Author", "Content", "FormattedText", "FullTitle", "Language", "Lines", "NotebookExpression", "Title", "Words"}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.683390162757771*^9}] }, Open ]], Cell["View the data:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "20", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.683390201288554*^9, 3.6833902065015917`*^9}, {3.702905251737268*^9, 3.7029052575701303`*^9}}], Cell[BoxData["\<\"Shall I part my hair behind? Do I dare to eat a peach?\\nI \ shall wear white flannel trousers, and walk upon the beach.\\nI have heard \ the mermaids singing, each to each.\"\>"], "Output", CellChangeTimes->{ 3.683390164335557*^9, {3.683390207849524*^9, 3.683390210153713*^9}, { 3.702905254593812*^9, 3.702905257903452*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Generate a word cloud:", "Text", CellChangeTimes->{{3.683378641916754*^9, 3.683378649323968*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.683032640005966*^9, 3.6830326503422127`*^9}, 3.683035633524098*^9, 3.68339033922945*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.2147239263803681], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"known\"\>", StripOnInput->False, FontSize->Scaled[0.1411042944785276], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-6., -37.}, Center, Automatic], InsetBox[ StyleBox["\<\"window-panes\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {5., 41.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.1411042944785276], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {0., -67.}, Center, Automatic], InsetBox[ StyleBox["\<\"worth\"\>", StripOnInput->False, FontSize->Scaled[0.10429447852760737`], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {17., 62.}, Center, Automatic], InsetBox[ StyleBox["\<\"Shall\"\>", StripOnInput->False, FontSize->Scaled[0.10429447852760737`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-7., 85.}, Center, Automatic], InsetBox[ StyleBox["\<\"streets\"\>", StripOnInput->False, FontSize->Scaled[0.08588957055214724], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-31., -96.}, Center, Automatic], InsetBox[ StyleBox["\<\"question\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-69., 62.}, Center, Automatic], InsetBox[ StyleBox["\<\"hair\"\>", StripOnInput->False, FontSize->Scaled[0.10429447852760737`], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-93., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"presume\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {-80., -60.}, Center, Automatic], InsetBox[ StyleBox["\<\"white\"\>", StripOnInput->False, FontSize->Scaled[0.08588957055214724], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {73., -61.}, Center, Automatic], InsetBox[ StyleBox["\<\"evening\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {99., 22.}, Center, Automatic], InsetBox[ StyleBox["\<\"overwhelming\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {0., 110.}, Center, Automatic], InsetBox[ StyleBox["\<\"Michelangelo\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {80., -80.}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {95., -28.}, Center, Automatic], InsetBox[ StyleBox["\<\"smoke\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {99., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"dare\"\>", StripOnInput->False, FontSize->Scaled[0.08588957055214724], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-96., 28.}, Center, Automatic], InsetBox[ StyleBox["\<\"yellow\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-104., -24.}, Center, Automatic], InsetBox[ StyleBox["\<\"formulated\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {71., 87.}, Center, Automatic], InsetBox[ StyleBox["\<\"meant\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {91., 57.}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.08588957055214724], FontColor->RGBColor[1, 0.75, 0]], {48., -101.}, Center, Automatic], InsetBox[ StyleBox["\<\"Lingered\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-78., 82.}, Center, Automatic], InsetBox[ StyleBox["\<\"arms\"\>", StripOnInput->False, FontSize->Scaled[0.08588957055214724], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-17., -116.}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.08588957055214724], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {0., 129.}, Center, Automatic], InsetBox[ StyleBox["\<\"Let\"\>", StripOnInput->False, FontSize->Scaled[0.08588957055214724], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-73., 98.}, Center, Automatic], InsetBox[ StyleBox["\<\"revisions\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-105., -42.}, Center, Automatic], InsetBox[ StyleBox["\<\"Talking\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {44., -120.}, Center, Automatic], InsetBox[ StyleBox["\<\"universe\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-101., -78.}, Center, Automatic], InsetBox[ StyleBox["\<\"trousers\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {82., 103.}, Center, Automatic], InsetBox[ StyleBox["\<\"hundred\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-29., -134.}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {110., 41.}, Center, Automatic], InsetBox[ StyleBox["\<\"settling\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {60., 123.}, Center, Automatic], InsetBox[ StyleBox["\<\"asleep\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-75., -112.}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-57., 123.}, Center, Automatic], InsetBox[ StyleBox["\<\"minute\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {-100., -94.}, Center, Automatic], InsetBox[ StyleBox["\<\"voices\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {108., -99.}, Center, Automatic], InsetBox[ StyleBox["\<\"matter\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {94., -117.}, Center, Automatic], InsetBox[ StyleBox["\<\"Prince\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-117., 98.}, Center, Automatic], InsetBox[ StyleBox["\<\"tea\"\>", StripOnInput->False, FontSize->Scaled[0.06748466257668712], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {123., -48.}, Center, Automatic], InsetBox[ StyleBox["\<\"pillow\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-81., -128.}, Center, Automatic], InsetBox[ StyleBox["\<\"brown\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-106., 119.}, Center, Automatic], InsetBox[ StyleBox["\<\"begin\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {107., 119.}, Center, Automatic], InsetBox[ StyleBox["\<\"dying\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {91., -133.}, Center, Automatic], InsetBox[ StyleBox["\<\"women\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {30., -133.}, Center, Automatic], InsetBox[ StyleBox["\<\"shawl\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-117., 134.}, Center, Automatic], InsetBox[ StyleBox["\<\"wept\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-118., -109.}, Center, Automatic], InsetBox[ StyleBox["\<\"times\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {117., 134.}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-122., -128.}, Center, Automatic], InsetBox[ StyleBox["\<\"grow\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-130., 49.}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {129., -62.}, Center, Automatic], InsetBox[ StyleBox["\<\"days\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-130., 65.}, Center, Automatic], InsetBox[ StyleBox["\<\"afternoons\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {84., 71.}, Center, Automatic], InsetBox[ StyleBox["\<\"table\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {50., 139.}, Center, Automatic], InsetBox[ StyleBox["\<\"floor\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-47., 139.}, Center, Automatic], InsetBox[ StyleBox["\<\"braceleted\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {0., 144.}, Center, Automatic], InsetBox[ StyleBox["\<\"waves\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {23., -146.}, Center, Automatic], InsetBox[ StyleBox["\<\"meet\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {130., 75.}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-129., 81.}, Center, Automatic], InsetBox[ StyleBox["\<\"chambers\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-66., -146.}, Center, Automatic], InsetBox[ StyleBox["\<\"butt-ends\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-115., -145.}, Center, Automatic], InsetBox[ StyleBox["\<\"chimneys\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-15., 156.}, Center, Automatic], InsetBox[ StyleBox["\<\"argument\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-23., -156.}, Center, Automatic], InsetBox[ StyleBox["\<\"senza\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {134., 91.}, Center, Automatic], InsetBox[ StyleBox["\<\"attendant\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {30., 156.}, Center, Automatic], InsetBox[ StyleBox["\<\"afternoon\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {71., -148.}, Center, Automatic], InsetBox[ StyleBox["\<\"coat\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-139., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"rubs\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-143., 16.}, Center, Automatic], InsetBox[ StyleBox["\<\"asserted\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-5., 26.}, Center, Automatic], InsetBox[ StyleBox["\<\"bald\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {145., -17.}, Center, Automatic], InsetBox[ StyleBox["\<\"cautious\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-59., 154.}, Center, Automatic], InsetBox[ StyleBox["\<\"Like\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {140., 56.}, Center, Automatic], InsetBox[ StyleBox["\<\"Beneath\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {72., 152.}, Center, Automatic], InsetBox[ StyleBox["\<\"wear\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {135., 104.}, Center, Automatic], InsetBox[ StyleBox["\<\"thin\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-138., -57.}, Center, Automatic], InsetBox[ StyleBox["\<\"bottoms\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-99., 148.}, Center, Automatic], InsetBox[ StyleBox["\<\"brought\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-144., -91.}, Center, Automatic], InsetBox[ StyleBox["\<\"che\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {148., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"fall\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-148., -17.}, Center, Automatic], InsetBox[ StyleBox["\<\"certain\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-87., 43.}, Center, Automatic], InsetBox[ StyleBox["\<\"Advise\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {-142., 30.}, Center, Automatic], InsetBox[ StyleBox["\<\"beside\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {144., -31.}, Center, Automatic], InsetBox[ StyleBox["\<\"pin\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {150., 19.}, Center, Automatic], InsetBox[ StyleBox["\<\"cheap\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {145., -76.}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-149., -33.}, Center, Automatic], InsetBox[ StyleBox["\<\"cakes\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-51., -74.}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.049079754601226995`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {81., 136.}, Center, Automatic], InsetBox[ StyleBox["\<\"claws\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-147., -70.}, Center, Automatic], InsetBox[ StyleBox["\<\"beach\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {147., -90.}, Center, Automatic], InsetBox[ StyleBox["\<\"blows\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {134., -113.}, Center, Automatic], InsetBox[ StyleBox["\<\"blown\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {126., -130.}, Center, Automatic], InsetBox[ StyleBox["\<\"bitten\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-144., 112.}, Center, Automatic], InsetBox[ StyleBox["\<\"black\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {141., 115.}, Center, Automatic], InsetBox[ StyleBox["\<\"afraid\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {107., 148.}, Center, Automatic], InsetBox[ StyleBox["\<\"alcun\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {107., -150.}, Center, Automatic], InsetBox[ StyleBox["\<\"chin\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {151., -43.}, Center, Automatic], InsetBox[ StyleBox["\<\"bare\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-149., -103.}, Center, Automatic], InsetBox[ StyleBox["\<\"ball\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {150., 33.}, Center, Automatic], InsetBox[ StyleBox["\<\"ask\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-150., 95.}, Center, Automatic], InsetBox[ StyleBox["\<\"bit\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {-156., 42.}, Center, Automatic], InsetBox[ StyleBox["\<\"al\"\>", StripOnInput->False, FontSize->Scaled[0.03067484662576687], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {27., 22.}, Center, Automatic]}, DefaultBaseStyle->{ "Graphics", FontFamily -> "Helvetica", FontWeight -> Plain, FontTracking -> "Plain", FontSlant -> Plain, FontVariations -> {}}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-163.5, 162.5}, {-163.5, 163.5}}]], "Output", CellChangeTimes->{3.683390342837924*^9}] }, Open ]], Cell["Show the most frequently used verbs:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, { 3.6832949032376537`*^9, 3.6832949042537556`*^9}, 3.683385198322204*^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.683390263671146*^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}, {3., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 74.69528893368725, 83.78065141579322}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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`}, {3., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 65.4230974530128, 74.50845993511876}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {3., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 56.15090597233836, 65.23626845444433}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {3., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 46.87871449166392, 55.964076973769885`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {3., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 37.60652301098948, 46.69188549309544}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {3., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 28.334331530315033`, 37.419694012421}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {3., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 19.06214004964059, 28.147502531746554`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {3., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 86.44515306122449}, { 9.789948568966139, 18.875311051072103`}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "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}, {4., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 101.51020408163265`}, { 0.5177570882916882, 9.603119570397652}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "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}, {4., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 101.51020408163265`}, {-8.754434392382748, 0.33092808972321563`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "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`}, {5., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 116.57525510204081`}, {-18.0266258730572, -8.941263390951235}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "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`}, {5., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 116.57525510204081`}, {-27.298817353731636`, -18.21345487162567}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "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`}, {6., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 131.64030612244898`}, {-36.571008834406086`, \ -27.485646352300122`}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "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`}, {7., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 146.70535714285714`}, {-45.84320031508052, -36.75783783297456}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "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`}, {7., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 146.70535714285714`}, {-55.115391795754974`, \ -46.030029313648996`}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "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`}, {7., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 146.70535714285714`}, {-64.38758327642942, -55.302220794323446`}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "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`}, {7., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 146.70535714285714`}, {-73.65977475710388, -64.5744122749979}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "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`}, {9., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 176.8354591836735}, {-82.93196623777833, -73.84660375567235}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "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`}, {10., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 191.90051020408166`}, {-92.20415771845275, -83.11879523634677}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "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`}, {20., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{40.74999999999999, 342.5510204081633}, {-101.4763491991272, -92.39098671702122}}], StatusArea[#, 20]& , TagBoxNote->"20"], StyleBox["20", {}, StripOnInput -> False]], Annotation[#, Style[20, {}], "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["\<\"meant\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Let\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"shall\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"was\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"presume\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"Would\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"do\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"come\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"seen\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"dare\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"go\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"am\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"been\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"known\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"should\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"be\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"say\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"is\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"will\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"have\"\>", Offset[{-2., 0.}, {0., 20.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, 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["\"meant\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"Let\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"shall\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"was\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"presume\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"Would\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"do\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"come\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"seen\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"dare\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"go\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"am\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"been\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"known\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"should\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"be\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"say\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"is\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"will\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"have\"", 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.683390264745411*^9}] }, Open ]], Cell["Compare word lengths:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033641819641*^9}, 3.6833802022113237`*^9, {3.683380323142227*^9, 3.683380325019231*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"words", "=", RowBox[{"TextWords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"(", RowBox[{"StringLength", "/@", "words"}], ")"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6830333795804577`*^9, 3.683033425254339*^9}, { 3.6830334646198807`*^9, 3.6830335879807243`*^9}, {3.683033646860409*^9, 3.683033691272203*^9}, 3.683035619972542*^9, 3.683390300134181*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.693], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.693], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 76}, "RoundingRadius" -> 0]}, ImageSizeCache->{{26.25440352281825, 51.7713401490423}, { 31.67624482360972, 93.07506440173809}}], StatusArea[#, 76]& , TagBoxNote->"76"], StyleBox["76", {}, StripOnInput -> False]], Annotation[#, Style[76, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 172}, "RoundingRadius" -> 0]}, ImageSizeCache->{{51.2713401490423, 76.78827677526635}, {-45.248579906657696`, 93.07506440173809}}], StatusArea[#, 172]& , TagBoxNote->"172"], StyleBox["172", {}, StripOnInput -> False]], Annotation[#, Style[172, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 243}, "RoundingRadius" -> 0]}, ImageSizeCache->{{76.28827677526635, 101.8052134014904}, {-102.14089819675131`, 93.07506440173809}}], StatusArea[#, 243]& , TagBoxNote->"243"], StyleBox["243", {}, StripOnInput -> False]], Annotation[#, Style[243, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 231}, "RoundingRadius" -> 0]}, ImageSizeCache->{{101.3052134014904, 126.82215002771446`}, {-92.52529510546786, 93.07506440173809}}], StatusArea[#, 231]& , TagBoxNote->"231"], StyleBox["231", {}, StripOnInput -> False]], Annotation[#, Style[231, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 126}, "RoundingRadius" -> 0]}, ImageSizeCache->{{126.32215002771446`, 151.8390866539385}, {-8.388768056737888, 93.07506440173809}}], StatusArea[#, 126]& , TagBoxNote->"126"], StyleBox["126", {}, StripOnInput -> False]], Annotation[#, Style[126, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 93}, "RoundingRadius" -> 0]}, ImageSizeCache->{{151.3390866539385, 176.85602328016256`}, { 18.054140444291534`, 93.07506440173809}}], StatusArea[#, 93]& , TagBoxNote->"93"], StyleBox["93", {}, StripOnInput -> False]], Annotation[#, Style[93, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0}, {8., 67}, "RoundingRadius" -> 0]}, ImageSizeCache->{{176.35602328016256`, 201.8729599063866}, { 38.88794714207229, 93.07506440173809}}], StatusArea[#, 67]& , TagBoxNote->"67"], StyleBox["67", {}, StripOnInput -> False]], Annotation[#, Style[67, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {9., 36}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.3729599063866, 226.88989653261063`}, { 63.728255127887806`, 93.07506440173809}}], StatusArea[#, 36]& , TagBoxNote->"36"], StyleBox["36", {}, StripOnInput -> False]], Annotation[#, Style[36, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0}, {10., 23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{226.38989653261063`, 251.9068331588347}, { 74.14515847677819, 93.07506440173809}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", {}, StripOnInput -> False]], Annotation[#, Style[23, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {11., 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{251.4068331588347, 276.92376978505877`}, { 84.56206182566856, 93.07506440173809}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", {}, StripOnInput -> False]], Annotation[#, Style[10, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0}, {12., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{276.42376978505877`, 301.9407064112828}, { 90.17116362891723, 93.07506440173809}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.4407064112828, 326.95764303750684`}, { 86.96596259848943, 93.07506440173809}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13., 0}, {14., 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{326.45764303750684`, 351.97457966373094`}, { 90.17116362891723, 93.07506440173809}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.74, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1., 14.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.683390300912487*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 873}, WindowMargins->{{145, Automatic}, {Automatic, 2}}, WindowTitle->"Examples for Prufrock", 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[615, 23, 36, 0, 70, "Subsection",ExpressionUUID->"39120ac6-d7fb-4d39-bc8c-d2373b2f9627"], Cell[654, 25, 215, 3, 70, "Text",ExpressionUUID->"ac85ad2a-4f49-4d33-bca7-c41c3cfbb81f"], Cell[CellGroupData[{ Cell[894, 32, 205, 3, 70, "Input",ExpressionUUID->"4124c664-3a62-4e27-ab6d-d26e746d8a5d"], Cell[1102, 37, 14665, 327, 70, "Output",ExpressionUUID->"469fe042-9c2c-49b6-871a-bc0ced15910e"] }, Open ]], Cell[15782, 367, 204, 3, 70, "Text",ExpressionUUID->"b2c4152d-3b05-4076-a276-0eb04d86d265"], Cell[CellGroupData[{ Cell[16011, 374, 385, 9, 70, "Input",ExpressionUUID->"c753da12-5d54-4c41-838b-f6dc674711a6"], Cell[16399, 385, 349, 5, 70, "Output",ExpressionUUID->"d4e60a09-e6a7-44c9-81c8-be7b2a452f72"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16797, 396, 35, 0, 70, "Subsection",ExpressionUUID->"09e7a162-cf7c-4291-a3ce-22009b69120f"], Cell[16835, 398, 104, 1, 70, "Text",ExpressionUUID->"85b82c78-dc6f-491d-8fc0-cb6995eccec7"], Cell[CellGroupData[{ Cell[16964, 403, 277, 6, 70, "Input",ExpressionUUID->"d2751556-ae81-4002-9cc6-b8291bd8b1a4"], Cell[17244, 411, 23743, 563, 70, "Output",ExpressionUUID->"0281bf76-a76e-4a58-8f46-be7c90a09599"] }, Open ]], Cell[41002, 977, 194, 2, 70, "Text",ExpressionUUID->"0ae65321-1771-463b-ad30-613a50599108"], Cell[CellGroupData[{ Cell[41221, 983, 517, 14, 70, "Input",ExpressionUUID->"6d9d59da-4343-4af2-aacf-d2019c4219b9"], Cell[41741, 999, 35223, 893, 70, "Output",ExpressionUUID->"97dd22de-3f60-450d-a233-5e29b01b3435"] }, Open ]], Cell[76979, 1895, 177, 2, 70, "Text",ExpressionUUID->"194b730f-30b0-46df-b538-88be79a726fa"], Cell[CellGroupData[{ Cell[77181, 1901, 647, 15, 70, "Input",ExpressionUUID->"26d4a384-73c9-420a-a893-6905ce19d040"], Cell[77831, 1918, 8902, 258, 70, "Output",ExpressionUUID->"37350670-5245-48aa-860f-2fe0e454f9c4"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)