(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 80854, 1988] NotebookOptionsPosition[ 78737, 1928] NotebookOutlinePosition[ 79365, 1951] CellTagsIndexPosition[ 79322, 1948] WindowTitle->Examples for An Enemy of the People WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"e5ec1895-2bba-4ec9-89db-f67795d10bc9"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}},ExpressionUUID->"14e33d4f-407a-4294-aa59-\ 3ecf052273cb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"7a7fe308-d939-4a89-8336-\ 6678b580cba8"], 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["\<\"An Enemy of the People\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Henrik Ibsen's \\\"An Enemy of the \ People\\\"\"\>", "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["\<\"An Enemy of the People\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Henrik Ibsen's \\\"An Enemy of the \ People\\\"\"\>", "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[{",","\",\"","\"play\"","\"text\""}, "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[ "db2c44af-918d-4023-8131-788ef567b17c"]; 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["\<\"db2c44af-918d-4023-8131-788ef567b17c\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Plaintext\"\>", "\[Rule]", "175616"}], "\\[RightAssociation]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Plaintext\""}, "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[ Association[ "Name" -> "An Enemy of the People", "UUID" -> "db2c44af-918d-4023-8131-788ef567b17c", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Henrik Ibsen's \"An Enemy of the People\"", "ContentSize" -> Association["Plaintext" -> 175616], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.68364966805997*^9},ExpressionUUID->"f043f843-37fc-486a-8815-48e90da0ca7c"] }, 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}},ExpressionUUID->"7c7d5834-cde8-49e0-adee-\ d6e383c7fb45"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"20", ";;", "25"}], "]"}], "]"}], "//", "Column"}]], "Input", CellChangeTimes->{ 3.683649683304636*^9, {3.702835739519609*^9, 3.702835784893195*^9}},ExpressionUUID->"b5cffa9b-1aa1-4e9d-aeee-\ e94e051ad62b"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"(PETER STOCKMANN comes in. He wears an overcoat and his official \ hat,\\nand carries a stick.)\"\>"}, {"\<\"Peter Stockmann. Good evening, Katherine.\"\>"}, {"\<\"Mrs. Stockmann (coming forward into the sitting-room). Ah, \ good\\nevening--is it you? How good of you to come up and see us!\"\>"}, {"\<\"Peter Stockmann. I happened to be passing, and so--(looks into \ the\\ndining-room). But you have company with you, I see.\"\>"}, {"\<\"Mrs. Stockmann (a little embarrassed). Oh, no--it was quite by \ chance\\nhe came in. (Hurriedly.) Won't you come in and have something, \ too?\"\>"}, {"\<\"Peter Stockmann. I! No, thank you. Good gracious--hot meat at \ night!\\nNot with my digestion.\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{{3.683649688542016*^9, 3.683649729062508*^9}, { 3.702835742630178*^9, 3.702835785289404*^9}},ExpressionUUID->"3f16a846-fc23-4dfd-803c-\ dfd0b1bc2247"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"ca728f0e-8a5c-44f2-b3f6-0935ade19a4d"], Cell["Generate a WordCloud:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.702835678052586*^9, 3.702835681128907*^9}},ExpressionUUID->"14597c80-172f-40e1-a3b6-\ 292ac9d79b6e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.702835682249086*^9, 3.702835692450074*^9}},ExpressionUUID->"0343645e-8af8-4b7c-bf8e-\ 6bf3b6e33417"], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Stockmann\"\>", StripOnInput->False, FontSize->Scaled[0.20172910662824206`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"Hovstad\"\>", StripOnInput->False, FontSize->Scaled[0.08499880356641246], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {7., -36.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Dr.\"\>", StripOnInput->False, FontSize->Scaled[0.1212039243021671], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {5., 34.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Aslaksen\"\>", StripOnInput->False, FontSize->Scaled[0.06231858425493399], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {0., -59.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Peter\"\>", StripOnInput->False, FontSize->Scaled[0.0723062037682456], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {10., 63.5}, Center, Automatic], InsetBox[ StyleBox["\<\"PEOPLE\"\>", StripOnInput->False, FontSize->Scaled[0.0388060633173462], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {52., 35.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Petra\"\>", StripOnInput->False, FontSize->Scaled[0.051498663115513064`], FontColor->RGBColor[1, 0.75, 0]], {-46., 41.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Katherine\"\>", StripOnInput->False, FontSize->Scaled[0.03651723384554562], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {0., -76.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Yes\"\>", StripOnInput->False, FontSize->Scaled[0.06107013181577003], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-42., 59.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Billing\"\>", StripOnInput->False, FontSize->Scaled[0.045464476326220624`], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-70., -30.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs.\"\>", StripOnInput->False, FontSize->Scaled[0.058157076124387475`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {59., 51.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Thomas\"\>", StripOnInput->False, FontSize->Scaled[0.039222214130400855`], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {2., 81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Messenger\"\>", StripOnInput->False, FontSize->Scaled[0.030483047056253182`], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-76., 27.5}, Center, Automatic], InsetBox[ StyleBox["\<\"community\"\>", StripOnInput->False, FontSize->Scaled[0.03110727327583516], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-70., -51.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Morten\"\>", StripOnInput->False, FontSize->Scaled[0.04192719441525609], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {68., -56.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Horster\"\>", StripOnInput->False, FontSize->Scaled[0.036101083032490974`], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {83., -29.5}, Center, Automatic], InsetBox[ StyleBox["\<\"understand\"\>", StripOnInput->False, FontSize->Scaled[0.030274971649725858`], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-48., 75.5}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.04463217470011132], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {47., 77.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.045464476326220624`], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-50., -73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Town\"\>", StripOnInput->False, FontSize->Scaled[0.042343345228310736`], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-12., -90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"doctor\"\>", StripOnInput->False, FontSize->Scaled[0.03859798791081888], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {48., -75.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.04192719441525609], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {25., -90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"suppose\"\>", StripOnInput->False, FontSize->Scaled[0.030483047056253182`], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {83., -40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"People's\"\>", StripOnInput->False, FontSize->Scaled[0.029858820836671206`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {0., 94.5}, Center, Automatic], InsetBox[ StyleBox["\<\"majority\"\>", StripOnInput->False, FontSize->Scaled[0.030899197869307834`], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-88., 40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Baths\"\>", StripOnInput->False, FontSize->Scaled[0.039222214130400855`], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-44., 87.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.030483047056253182`], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {-81., 57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"opinion\"\>", StripOnInput->False, FontSize->Scaled[0.031315348682362486`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-52., -87.5}, Center, Automatic], InsetBox[ StyleBox["\<\"certainly\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {76., 64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.03901413872387353], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {98., 30.5}, Center, Automatic], InsetBox[ StyleBox["\<\"coming\"\>", StripOnInput->False, FontSize->Scaled[0.03110727327583516], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {41., 93.5}, Center, Automatic], InsetBox[ StyleBox["\<\"ENEMY\"\>", StripOnInput->False, FontSize->Scaled[0.029858820836671206`], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-13., -104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.04171911900872876], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {97., 44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"public\"\>", StripOnInput->False, FontSize->Scaled[0.03443647978027237], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {59., -88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Captain\"\>", StripOnInput->False, FontSize->Scaled[0.029026519210561902`], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {0., 106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.04317564685442004], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {-41., 101.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.03589300762596365], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-85., -65.5}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.0379737616912369], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {22., -106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.031315348682362486`], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {86., -70.5}, Center, Automatic], InsetBox[ StyleBox["\<\"citizen\"\>", StripOnInput->False, FontSize->Scaled[0.031731499495417134`], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {36., 104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mayor\"\>", StripOnInput->False, FontSize->Scaled[0.03214765030847179], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {82., 78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"certain\"\>", StripOnInput->False, FontSize->Scaled[0.029442670023616554`], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {-50., -100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"matter\"\>", StripOnInput->False, FontSize->Scaled[0.03360417815416307], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-112., -27.5}, Center, Automatic], InsetBox[ StyleBox["\<\"father\"\>", StripOnInput->False, FontSize->Scaled[0.031523424088889807`], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-92., 68.5}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.03859798791081888], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-78., 85.5}, Center, Automatic], InsetBox[ StyleBox["\<\"brother\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-87., -78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.03943028953692818], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {51., -105.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.04484025010663865], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {73., 90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"really\"\>", StripOnInput->False, FontSize->Scaled[0.03193957490194446], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {-111., -41.5}, Center, Automatic], InsetBox[ StyleBox["\<\"voices\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-35., 112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Goes\"\>", StripOnInput->False, FontSize->Scaled[0.03297995193458109], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {107., -54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.029650745430143885`], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-47., -112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.03984644034998283], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {118., -28.5}, Center, Automatic], InsetBox[ StyleBox["\<\"speak\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {91., -83.5}, Center, Automatic], InsetBox[ StyleBox["\<\"house\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {68., 104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"article\"\>", StripOnInput->False, FontSize->Scaled[0.029026519210561902`], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {111., 57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"water\"\>", StripOnInput->False, FontSize->Scaled[0.029650745430143885`], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-76., 98.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.04359179766747469], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {-88., -90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"course\"\>", StripOnInput->False, FontSize->Scaled[0.03110727327583516], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-12., -113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.029650745430143885`], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {118., -39.5}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.029858820836671206`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {-113., 49.5}, Center, Automatic], InsetBox[ StyleBox["\<\"door\"\>", StripOnInput->False, FontSize->Scaled[0.03506070599985435], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-113., -54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"boys\"\>", StripOnInput->False, FontSize->Scaled[0.030483047056253182`], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {76., -101.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thank\"\>", StripOnInput->False, FontSize->Scaled[0.03110727327583516], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {-67., 111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.031523424088889807`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {111., 69.5}, Center, Automatic], InsetBox[ StyleBox["\<\"comes\"\>", StripOnInput->False, FontSize->Scaled[0.030483047056253182`], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-85., -102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.03734953547165493], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {124., 42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {130., 26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stand\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {99., 88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"work\"\>", StripOnInput->False, FontSize->Scaled[0.029650745430143885`], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-105., 80.5}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.030483047056253182`], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {117., -67.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.03402032896721772], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {-117., -67.5}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.03193957490194446], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-119., 61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"table\"\>", StripOnInput->False, FontSize->Scaled[0.030483047056253182`], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {97., 100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"want\"\>", StripOnInput->False, FontSize->Scaled[0.031731499495417134`], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {102., -94.5}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.03402032896721772], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-78., -113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mean\"\>", StripOnInput->False, FontSize->Scaled[0.03339610274763574], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {-109., 92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Look\"\>", StripOnInput->False, FontSize->Scaled[0.031523424088889807`], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-118., -80.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stick\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {118., -80.5}, Center, Automatic], InsetBox[ StyleBox["\<\"paper\"\>", StripOnInput->False, FontSize->Scaled[0.02881844380403458], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-140., -37.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dare\"\>", StripOnInput->False, FontSize->Scaled[0.029026519210561902`], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-94., 108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.031731499495417134`], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-138., 40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"truth\"\>", StripOnInput->False, FontSize->Scaled[0.030899197869307834`], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {135., -53.5}, Center, Automatic], InsetBox[ StyleBox["\<\"able\"\>", StripOnInput->False, FontSize->Scaled[0.029234594617089233`], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {141., -26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.030274971649725858`], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {122., 79.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hear\"\>", StripOnInput->False, FontSize->Scaled[0.031315348682362486`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-129., 70.5}, Center, Automatic], InsetBox[ StyleBox["\<\"got\"\>", StripOnInput->False, FontSize->Scaled[0.034228404373745046`], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {-137., -49.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Oh\"\>", StripOnInput->False, FontSize->Scaled[0.03672530925207295], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {136., 53.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Kiil\"\>", StripOnInput->False, FontSize->Scaled[0.03693338465860027], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {93., 111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"true\"\>", StripOnInput->False, FontSize->Scaled[0.031523424088889807`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {101., -106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.029234594617089233`], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {143., -38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"kind\"\>", StripOnInput->False, FontSize->Scaled[0.029442670023616554`], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {-115., -93.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Men\"\>", StripOnInput->False, FontSize->Scaled[0.030066896243198537`], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {-142., 52.5}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.031523424088889807`], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {144., 36.5}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.03526878140638167], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-111., -105.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sort\"\>", StripOnInput->False, FontSize->Scaled[0.030066896243198537`], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {122., 90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hall\"\>", StripOnInput->False, FontSize->Scaled[0.029442670023616554`], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {-140., -64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Ah\"\>", StripOnInput->False, FontSize->Scaled[0.030274971649725858`], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {136., 65.5}, Center, Automatic], InsetBox[ StyleBox["\<\"let\"\>", StripOnInput->False, FontSize->Scaled[0.03297995193458109], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {-114., 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.030899197869307834`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-127., 80.5}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-174.5, 172.5}, {-120., 120.}}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.702835705580658*^9},ExpressionUUID->"bd932016-8f49-44eb-89f4-\ bdf31a7206d8"] }, Open ]], Cell["Show the most frequently used verbs:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.6833729230254655`*^9, 3.6833729249134655`*^9}, { 3.6833743418977623`*^9, 3.683374346568762*^9}},ExpressionUUID->"ec527162-d524-4f22-8f3d-\ 6d2359a86ebf"], 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.683649796382625*^9},ExpressionUUID->"3cb6f7f3-539f-40fd-88f2-\ cedf113e13ca"], 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}, {60., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 65.85}, {75.95230291729708, 85.09633458716495}}], StatusArea[#, 60]& , TagBoxNote->"60"], StyleBox["60", {}, StripOnInput -> False]], Annotation[#, Style[60, {}], "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`}, {64., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 67.95666666666666}, {66.61674871383978, 75.76078038370765}}], StatusArea[#, 64]& , TagBoxNote->"64"], StyleBox["64", {}, StripOnInput -> False]], Annotation[#, Style[64, {}], "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}, {64., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 67.95666666666666}, {57.28119451038249, 66.42522618025035}}], StatusArea[#, 64]& , TagBoxNote->"64"], StyleBox["64", {}, StripOnInput -> False]], Annotation[#, Style[64, {}], "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}, {67., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 69.53666666666666}, {47.945640306925206`, 57.08967197679306}}], StatusArea[#, 67]& , TagBoxNote->"67"], StyleBox["67", {}, StripOnInput -> False]], Annotation[#, Style[67, {}], "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}, {71., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 71.64333333333333}, {38.610086103467914`, 47.75411777333577}}], StatusArea[#, 71]& , TagBoxNote->"71"], StyleBox["71", {}, StripOnInput -> False]], Annotation[#, Style[71, {}], "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}, {71., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 71.64333333333333}, {29.274531900010622`, 38.41856356987848}}], StatusArea[#, 71]& , TagBoxNote->"71"], StyleBox["71", {}, StripOnInput -> False]], Annotation[#, Style[71, {}], "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}, {79., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 75.85666666666665}, {19.938977696553323`, 29.083009366421187`}}], StatusArea[#, 79]& , TagBoxNote->"79"], StyleBox["79", {}, StripOnInput -> False]], Annotation[#, Style[79, {}], "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}, {81., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 76.91}, {10.603423493096031`, 19.747455162963902`}}], StatusArea[#, 81]& , TagBoxNote->"81"], StyleBox["81", {}, StripOnInput -> False]], Annotation[#, Style[81, {}], "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}, {83., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 77.96333333333334}, {1.267869289638739, 10.411900959506596`}}], StatusArea[#, 83]& , TagBoxNote->"83"], StyleBox["83", {}, StripOnInput -> False]], Annotation[#, Style[83, {}], "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}, {84., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 78.49}, {-8.067684913818553, 1.076346756049304}}], StatusArea[#, 84]& , TagBoxNote->"84"], StyleBox["84", {}, StripOnInput -> False]], Annotation[#, Style[84, {}], "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`}, {90., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 81.65}, {-17.403239117275845`, -8.259207447407988}}], StatusArea[#, 90]& , TagBoxNote->"90"], StyleBox["90", {}, StripOnInput -> False]], Annotation[#, Style[90, {}], "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`}, {90., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 81.65}, {-26.738793320733137`, -17.59476165086528}}], StatusArea[#, 90]& , TagBoxNote->"90"], StyleBox["90", {}, StripOnInput -> False]], Annotation[#, Style[90, {}], "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`}, {96., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 84.81}, {-36.07434752419043, -26.930315854322572`}}], StatusArea[#, 96]& , TagBoxNote->"96"], StyleBox["96", {}, StripOnInput -> False]], Annotation[#, Style[96, {}], "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`}, {117., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 95.87}, {-45.409901727647735`, -36.265870057779864`}}], StatusArea[#, 117]& , TagBoxNote->"117"], StyleBox["117", {}, StripOnInput -> False]], Annotation[#, Style[117, {}], "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`}, {146., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 111.14333333333333`}, {-54.74545593110503, -45.601424261237156`}}], StatusArea[#, 146]& , TagBoxNote->"146"], StyleBox["146", {}, StripOnInput -> False]], Annotation[#, Style[146, {}], "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`}, {209., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 144.32333333333332`}, {-64.08101013456232, -54.93697846469445}}], StatusArea[#, 209]& , TagBoxNote->"209"], StyleBox["209", {}, StripOnInput -> False]], Annotation[#, Style[209, {}], "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`}, {224., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 152.22333333333333`}, {-73.41656433801961, -64.27253266815174}}], StatusArea[#, 224]& , TagBoxNote->"224"], StyleBox["224", {}, StripOnInput -> False]], Annotation[#, Style[224, {}], "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`}, {236., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 158.54333333333332`}, {-82.7521185414769, -73.60808687160903}}], StatusArea[#, 236]& , TagBoxNote->"236"], StyleBox["236", {}, StripOnInput -> False]], Annotation[#, Style[236, {}], "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`}, {311., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 198.04333333333332`}, {-92.0876727449342, -82.94364107506632}}], StatusArea[#, 311]& , TagBoxNote->"311"], StyleBox["311", {}, StripOnInput -> False]], Annotation[#, Style[311, {}], "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`}, {576., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 337.60999999999996`}, {-101.42322694839149`, -92.27919527852362}}], StatusArea[#, 576]& , TagBoxNote->"576"], StyleBox["576", {}, StripOnInput -> False]], Annotation[#, Style[576, {}], "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["\<\"been\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"had\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"going\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"come\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"should\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"was\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"shall\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"see\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"can\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"must\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"has\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"think\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"know\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"am\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"do\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"will\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"are\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"be\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"have\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"is\"\>", 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["\"been\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"had\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"going\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"come\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"should\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"was\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"shall\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"see\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"can\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"must\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"has\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"think\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"know\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"am\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"do\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"will\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"are\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"be\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"have\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"is\"", 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.683649803854352*^9},ExpressionUUID->"fe69ad2f-d10e-49f7-8c5b-\ d061b690a98a"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for An Enemy of the People", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "CreateDataResourceStyleSheet.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[629, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "e5ec1895-2bba-4ec9-89db-f67795d10bc9"], Cell[723, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "14e33d4f-407a-4294-aa59-3ecf052273cb"], Cell[CellGroupData[{ Cell[1020, 33, 282, 6, 70, "Input", "ExpressionUUID" -> \ "7a7fe308-d939-4a89-8336-6678b580cba8"], Cell[1305, 41, 14375, 318, 70, "Output", "ExpressionUUID" -> \ "f043f843-37fc-486a-8815-48e90da0ca7c"] }, Open ]], Cell[15695, 362, 261, 4, 70, "Text", "ExpressionUUID" -> \ "7c7d5834-cde8-49e0-adee-d6e383c7fb45"], Cell[CellGroupData[{ Cell[15981, 370, 442, 12, 70, "Input", "ExpressionUUID" -> \ "b5cffa9b-1aa1-4e9d-aeee-e94e051ad62b"], Cell[16426, 384, 1118, 22, 70, "Output", "ExpressionUUID" -> \ "3f16a846-fc23-4dfd-803c-dfd0b1bc2247"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17593, 412, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "ca728f0e-8a5c-44f2-b3f6-0935ade19a4d"], Cell[17686, 414, 407, 6, 70, "Text", "ExpressionUUID" -> \ "14597c80-172f-40e1-a3b6-292ac9d79b6e"], Cell[CellGroupData[{ Cell[18118, 424, 547, 10, 70, "Input", "ExpressionUUID" -> \ "0343645e-8af8-4b7c-bf8e-6bf3b6e33417"], Cell[18668, 436, 23970, 566, 70, "Output", "ExpressionUUID" -> \ "bd932016-8f49-44eb-89f4-bdf31a7206d8"] }, Open ]], Cell[42653, 1005, 387, 6, 70, "Text", "ExpressionUUID" -> \ "ec527162-d524-4f22-8f3d-6d2359a86ebf"], Cell[CellGroupData[{ Cell[43065, 1015, 591, 16, 70, "Input", "ExpressionUUID" -> \ "3cb6f7f3-539f-40fd-88f2-cedf113e13ca"], Cell[43659, 1033, 35050, 891, 70, "Output", "ExpressionUUID" -> \ "fe69ad2f-d10e-49f7-8c5b-d061b690a98a"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)