(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 83101, 2055] NotebookOptionsPosition[ 80828, 1994] NotebookOutlinePosition[ 81418, 2016] CellTagsIndexPosition[ 81375, 2013] WindowTitle->Examples for JFK Inaugural Address WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell[CellGroupData[{ 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}, 3.7015633647656527`*^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[ TemplateBox[{"\"JFK Inaugural Address\"","\" \"",TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"John F. Kennedy's Inaugural Address\"\>", "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[ TemplateBox[{"\"JFK Inaugural Address\"","\" \"",TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"John F. Kennedy's Inaugural Address\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",","\",\"","\"Text\"","\"USA\"","\"Kennedy\"","\"JFK\"", "\"Speech\"","\"President\"","\"Ask\"","\"Country\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Documentation: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"https://datarepository.wolframcloud.com/\ resources/JFK-Inaugural-Address\"\>", True-> StyleBox["\<\"https://datarepository.wolframcloud.com/\ resources/JFK-Inaugural-Address\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], None}, ButtonNote-> "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/JFK-\ Inaugural-Address"], "Hyperlink"]& ], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{ ResourceSystemClient`Private`typesetstorage$$ = ResourceSystemClient`Private`typesetstorageLocation, ResourceSystemClient`Private`info$$}, DynamicBox[ToBoxes[ ResourceSystemClient`Private`info$$ = ResourceSystemClient`Private`resourceInfo[ "147e082f-8fdf-4d6c-93bd-50bdcd13f836"]; If[ AssociationQ[ResourceSystemClient`Private`info$$], ResourceSystemClient`Private`typesetstorage$$[ Lookup[ ResourceSystemClient`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"147e082f-8fdf-4d6c-93bd-50bdcd13f836\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Content\"\>", "\[Rule]", "7720"}], "\\[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[ Association[ "Name" -> "JFK Inaugural Address", "UUID" -> "147e082f-8fdf-4d6c-93bd-50bdcd13f836", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "John F. Kennedy's Inaugural Address", "ContentSize" -> Association["Content" -> 7720], "ContentElements" -> { "Author", "Content", "FormattedText", "FullTitle", "Language", "Lines", "NotebookExpression", "Title", "Words"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.701563340619602*^9, 3.7015633653221416`*^9}}, CellID->1509730078] }, Open ]] }, Open ]], Cell[CellGroupData[{ 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[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.701563350922203*^9, 3.701563358970222*^9}}], Cell[BoxData["\<\"The world is very different now, for man holds in his \ mortal hands the power to abolish all forms of human poverty and all forms of \ human life. And yet the same revolutionary beliefs for which our forbears \ fought are still at issue around the globe. . .the belief that the rights of \ man come not from the generosity of the state but from the hand of God. We \ dare not forget today that we are the heirs of that first revolution.\"\>"], \ "Output", CellChangeTimes->{{3.701563341068572*^9, 3.701563359202139*^9}}, CellID->405172642] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell[CellGroupData[{ Cell["Create a word cloud:", "Text", CellChangeTimes->{{3.7015633716264772`*^9, 3.701563376130629*^9}}, CellID->1514131641], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.701563376755289*^9, 3.701563376759142*^9}}, CellID->229729648], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"Let\"\>", StripOnInput->False, FontSize->Scaled[0.2517985611510791], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.12846865364850976`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {-0.5, -39.5}, Center, Automatic], InsetBox[ StyleBox["\<\"pledge\"\>", StripOnInput->False, FontSize->Scaled[0.1130524152106886], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-6.5, 45.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sides\"\>", StripOnInput->False, FontSize->Scaled[0.12846865364850976`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {-0.5, -70.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Nations\"\>", StripOnInput->False, FontSize->Scaled[0.08221993833504626], FontColor->RGBColor[1, 0.75, 0]], {-0.5, 70.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Americans\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {-0.5, 88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"power\"\>", StripOnInput->False, FontSize->Scaled[0.08221993833504626], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-79.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"freedom\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {79.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"citizens\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {-78.5, 15.5}, Center, Automatic], InsetBox[ StyleBox["\<\"generation\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-78.5, -25.5}, Center, Automatic], InsetBox[ StyleBox["\<\"country\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {74.5, 28.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.08221993833504626], FontColor->RGBColor[0.571589, 0.586483, 0.]], {67.5, -29.5}, Center, Automatic], InsetBox[ StyleBox["\<\"free\"\>", StripOnInput->False, FontSize->Scaled[0.08221993833504626], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {63.5, 44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"peace\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-70.5, -40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"new\"\>", StripOnInput->False, FontSize->Scaled[0.09763617677286743], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {68.5, -48.5}, Center, Automatic], InsetBox[ StyleBox["\<\"ask\"\>", StripOnInput->False, FontSize->Scaled[0.08221993833504626], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-73.5, 33.5}, Center, Automatic], InsetBox[ StyleBox["\<\"poverty\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-66.5, -57.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hope\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {61.5, 63.5}, Center, Automatic], InsetBox[ StyleBox["\<\"human\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-63.5, 61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"help\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {-1.5, -92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"control\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {65.5, -66.5}, Center, Automatic], InsetBox[ StyleBox["\<\"instruments\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {46.5, -88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"today\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-62.5, -73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"committed\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-44.5, -89.5}, Center, Automatic], InsetBox[ StyleBox["\<\"globe\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-65.5, 78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"begin\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {62.5, 79.5}, Center, Automatic], InsetBox[ StyleBox["\<\"fellow\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-9.5, 103.5}, Center, Automatic], InsetBox[ StyleBox["\<\"supporting\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {35.5, 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {34.5, -102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"arms\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {-16.5, -108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"revolution\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {-92.5, 46.5}, Center, Automatic], InsetBox[ StyleBox["\<\"call\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {100.5, 44.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-62.5, 92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"problems\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {-60.5, -101.5}, Center, Automatic], InsetBox[ StyleBox["\<\"negotiate\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-52.5, 104.5}, Center, Automatic], InsetBox[ StyleBox["\<\"forbears\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {81.5, 92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"America\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {14.5, 112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {93.5, -81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"powerful\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {72.5, -98.5}, Center, Automatic], InsetBox[ StyleBox["\<\"enemies\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-90.5, -85.5}, Center, Automatic], InsetBox[ StyleBox["\<\"absolute\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {72.5, -110.5}, Center, Automatic], InsetBox[ StyleBox["\<\"struggle\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-58.5, -112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"finished\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {68.5, 111.5}, Center, Automatic], InsetBox[ StyleBox["\<\"disease\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-99.5, 88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dare\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {99.5, 60.5}, Center, Automatic], InsetBox[ StyleBox["\<\"bear\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-16.5, 24.5}, Center, Automatic], InsetBox[ StyleBox["\<\"tyranny\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {100.5, 75.5}, Center, Automatic], InsetBox[ StyleBox["\<\"support\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-93.5, 105.5}, Center, Automatic], InsetBox[ StyleBox["\<\"oppose\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {-100.5, -71.5}, Center, Automatic], InsetBox[ StyleBox["\<\"century\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-100.5, -96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"balance\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-97.5, -112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"final\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-101.5, 59.5}, Center, Automatic], InsetBox[ StyleBox["\<\"war\"\>", StripOnInput->False, FontSize->Scaled[0.06680369989722508], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {108.5, -15.5}, Center, Automatic], InsetBox[ StyleBox["\<\"science\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {110.5, -30.5}, Center, Automatic], InsetBox[ StyleBox["\<\"alliance\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-23.5, 116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"explore\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-111.5, 30.5}, Center, Automatic], InsetBox[ StyleBox["\<\"beyond\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {23.5, -117.5}, Center, Automatic], InsetBox[ StyleBox["\<\"passed\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {111.5, -50.5}, Center, Automatic], InsetBox[ StyleBox["\<\"merely\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-108.5, -56.5}, Center, Automatic], InsetBox[ StyleBox["\<\"instead\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {106.5, -64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"history\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {-101.5, 74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"burden\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-59.5, 116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"join\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {114.5, 88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {-14.5, -122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"loyalty\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {57.5, -122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Finally\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {108.5, -96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"deeds\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-112.5, -42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"powers\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {21.5, 123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"nation\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {101.5, 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-91.5, 116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"friend\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {88.5, -122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"forms\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {82.5, 122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"doubt\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {110.5, 114.5}, Center, Automatic], InsetBox[ StyleBox["\<\"rights\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {111.5, -109.5}, Center, Automatic], InsetBox[ StyleBox["\<\"success\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-50.5, -124.5}, Center, Automatic], InsetBox[ StyleBox["\<\"south\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {66.5, 12.5}, Center, Automatic], InsetBox[ StyleBox["\<\"seek\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {114.5, 12.5}, Center, Automatic], InsetBox[ StyleBox["\<\"earth\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {115.5, -121.5}, Center, Automatic], InsetBox[ StyleBox["\<\"days\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {-113.5, -122.5}, Center, Automatic], InsetBox[ StyleBox["\<\"states\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {121.5, 24.5}, Center, Automatic], InsetBox[ StyleBox["\<\"course\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-85.5, -13.5}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.05138746145940391], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-21.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"unite\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-123.5, 10.5}, Center, Automatic], InsetBox[ StyleBox["\<\"offer\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-124.5, -1.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-124.5, -13.5}, Center, Automatic], InsetBox[ StyleBox["\<\"forth\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {-7.5, 126.5}, Center, Automatic], InsetBox[ StyleBox["\<\"bring\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {-126.5, -25.5}, Center, Automatic], InsetBox[ StyleBox["\<\"truly\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {126.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {13.5, -129.5}, Center, Automatic], InsetBox[ StyleBox["\<\"assure\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {-36.5, 128.5}, Center, Automatic], InsetBox[ StyleBox["\<\"meet\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {51.5, 123.5}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {125.5, 37.5}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-126.5, 42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"God\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {125.5, 49.5}, Center, Automatic], InsetBox[ StyleBox["\<\"fear\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {35.5, -132.5}, Center, Automatic], InsetBox[ StyleBox["\<\"best\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {-128.5, 54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {127.5, 61.5}, Center, Automatic], InsetBox[ StyleBox["\<\"anew\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {17.5, 133.5}, Center, Automatic], InsetBox[ StyleBox["\<\"foe\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {69.5, -14.5}, Center, Automatic], InsetBox[ StyleBox["\<\"far\"\>", StripOnInput->False, FontSize->Scaled[0.03597122302158273], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-124.5, 65.5}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-140., 138.}, {-138., 139.}}]], "Output", CellChangeTimes->{3.7015633833215647`*^9}, CellID->1651045889] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Show the most frequently used verbs:", "Text", CellChangeTimes->{{3.70156338751303*^9, 3.7015633915220013`*^9}}, CellID->1492053536], 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.7015633921377068`*^9, 3.701563392141726*^9}}, CellID->1721248104], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0., 0.19588550983899827`}, {0., 20.407802394385577`}}]}, {{}, {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.5921976056144214}, {3., 1.4078023943855786`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {78.43232724760635, 86.69133777544658}}], 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.5921976056144214`}, {3., 2.4078023943855786`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {68.91912841078926, 77.17813893862949}}], 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.5921976056144214`}, {3., 3.4078023943855786`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {59.40592957397215, 67.66494010181238}}], 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.5921976056144214`}, {3., 4.407802394385579}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {49.89273073715505, 58.15174126499528}}], 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.592197605614421}, {3., 5.407802394385579}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {40.379531900337945`, 48.63854242817818}}], 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.592197605614421}, {3., 6.407802394385579}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {30.866333063520848`, 39.12534359136107}}], 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.592197605614421}, {3., 7.407802394385579}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {21.353134226703745`, 29.612144754543976`}}], 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.592197605614421}, {3., 8.407802394385579}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 136.7236842105263}, {11.839935389886648`, 20.098945917726866`}}], 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.592197605614421}, {4., 9.407802394385579}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 170.8815789473684}, {2.326736553069537, 10.58574708090977}}], 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.592197605614421}, {4., 10.407802394385579`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 170.8815789473684}, {-7.186462283747559, 1.0725482440926726`}}], 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.592197605614421`}, {4., 11.407802394385579`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 170.8815789473684}, {-16.69966112056467, -8.440650592724438}}], 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., 11.592197605614421`}, {5., 12.407802394385579`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 205.03947368421052`}, {-26.212859957381767`, \ -17.953849429541535`}}], 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.592197605614421`}, {5., 13.407802394385579`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 205.03947368421052`}, {-35.72605879419886, -27.46704826635863}}], 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., 13.592197605614421`}, {6., 14.407802394385579`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 239.1973684210526}, {-45.23925763101596, -36.98024710317574}}], 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., 14.592197605614421`}, {7., 15.407802394385579`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 273.3552631578947}, {-54.75245646783307, -46.49344593999285}}], 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.592197605614421`}, {7., 16.407802394385577`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 273.3552631578947}, {-64.26565530465015, -56.006644776809935`}}], 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.59219760561442}, {8., 17.407802394385577`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 307.5131578947368}, {-73.77885414146726, -65.51984361362702}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "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.59219760561442}, {8., 18.407802394385577`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 307.5131578947368}, {-83.29205297828437, -75.03304245044413}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "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.59219760561442}, {8., 19.407802394385577`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 307.5131578947368}, {-92.80525181510146, -84.54624128726124}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "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.59219760561442}, {9., 20.407802394385577`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{33.75, 341.6710526315789}, {-102.31845065191857`, -94.05944012407832}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.19588550983899827`}, {0., 20.812040732076508`}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5921976056144214}, Offset[{-6., 0.}, {0., 0.5921976056144214}]}], LineBox[{{0., 20.407802394385577`}, Offset[{-6., 0.}, {0., 20.407802394385577`}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.4078023943855786`}, Offset[{-4., 0.}, {0., 1.4078023943855786`}]}], LineBox[{{0., 1.5921976056144214`}, Offset[{-4., 0.}, {0., 1.5921976056144214`}]}], LineBox[{{0., 2.4078023943855786`}, Offset[{-4., 0.}, {0., 2.4078023943855786`}]}], LineBox[{{0., 2.5921976056144214`}, Offset[{-4., 0.}, {0., 2.5921976056144214`}]}], LineBox[{{0., 3.4078023943855786`}, Offset[{-4., 0.}, {0., 3.4078023943855786`}]}], LineBox[{{0., 3.5921976056144214`}, Offset[{-4., 0.}, {0., 3.5921976056144214`}]}], LineBox[{{0., 4.407802394385579}, Offset[{-4., 0.}, {0., 4.407802394385579}]}], LineBox[{{0., 4.592197605614421}, Offset[{-4., 0.}, {0., 4.592197605614421}]}], LineBox[{{0., 5.407802394385579}, Offset[{-4., 0.}, {0., 5.407802394385579}]}], LineBox[{{0., 5.592197605614421}, Offset[{-4., 0.}, {0., 5.592197605614421}]}], LineBox[{{0., 6.407802394385579}, Offset[{-4., 0.}, {0., 6.407802394385579}]}], LineBox[{{0., 6.592197605614421}, Offset[{-4., 0.}, {0., 6.592197605614421}]}], LineBox[{{0., 7.407802394385579}, Offset[{-4., 0.}, {0., 7.407802394385579}]}], LineBox[{{0., 7.592197605614421}, Offset[{-4., 0.}, {0., 7.592197605614421}]}], LineBox[{{0., 8.407802394385579}, Offset[{-4., 0.}, {0., 8.407802394385579}]}], LineBox[{{0., 8.592197605614421}, Offset[{-4., 0.}, {0., 8.592197605614421}]}], LineBox[{{0., 9.407802394385579}, Offset[{-4., 0.}, {0., 9.407802394385579}]}], LineBox[{{0., 9.592197605614421}, Offset[{-4., 0.}, {0., 9.592197605614421}]}], LineBox[{{0., 10.407802394385579`}, Offset[{-4., 0.}, {0., 10.407802394385579`}]}], LineBox[{{0., 10.592197605614421`}, Offset[{-4., 0.}, {0., 10.592197605614421`}]}], LineBox[{{0., 11.407802394385579`}, Offset[{-4., 0.}, {0., 11.407802394385579`}]}], LineBox[{{0., 11.592197605614421`}, Offset[{-4., 0.}, {0., 11.592197605614421`}]}], LineBox[{{0., 12.407802394385579`}, Offset[{-4., 0.}, {0., 12.407802394385579`}]}], LineBox[{{0., 12.592197605614421`}, Offset[{-4., 0.}, {0., 12.592197605614421`}]}], LineBox[{{0., 13.407802394385579`}, Offset[{-4., 0.}, {0., 13.407802394385579`}]}], LineBox[{{0., 13.592197605614421`}, Offset[{-4., 0.}, {0., 13.592197605614421`}]}], LineBox[{{0., 14.407802394385579`}, Offset[{-4., 0.}, {0., 14.407802394385579`}]}], LineBox[{{0., 14.592197605614421`}, Offset[{-4., 0.}, {0., 14.592197605614421`}]}], LineBox[{{0., 15.407802394385579`}, Offset[{-4., 0.}, {0., 15.407802394385579`}]}], LineBox[{{0., 15.592197605614421`}, Offset[{-4., 0.}, {0., 15.592197605614421`}]}], LineBox[{{0., 16.407802394385577`}, Offset[{-4., 0.}, {0., 16.407802394385577`}]}], LineBox[{{0., 16.59219760561442}, Offset[{-4., 0.}, {0., 16.59219760561442}]}], LineBox[{{0., 17.407802394385577`}, Offset[{-4., 0.}, {0., 17.407802394385577`}]}], LineBox[{{0., 17.592197605614416`}, Offset[{-4., 0.}, {0., 17.592197605614416`}]}], LineBox[{{0., 18.407802394385577`}, Offset[{-4., 0.}, {0., 18.407802394385577`}]}], LineBox[{{0., 18.592197605614416`}, Offset[{-4., 0.}, {0., 18.592197605614416`}]}], LineBox[{{0., 19.407802394385577`}, Offset[{-4., 0.}, {0., 19.407802394385577`}]}], LineBox[{{0., 19.592197605614416`}, Offset[{-4., 0.}, {0., 19.592197605614416`}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox["\<\"help\"\>", Offset[{-2., 0.}, {0., 1.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"go\"\>", Offset[{-2., 0.}, {0., 2.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"begin\"\>", Offset[{-2., 0.}, {0., 3.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"know\"\>", Offset[{-2., 0.}, {0., 4.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"join\"\>", Offset[{-2., 0.}, {0., 5.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"dare\"\>", Offset[{-2., 0.}, {0., 6.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"has\"\>", Offset[{-2., 0.}, {0., 7.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"may\"\>", Offset[{-2., 0.}, {0., 8.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"have\"\>", Offset[{-2., 0.}, {0., 9.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"pledge\"\>", Offset[{-2., 0.}, {0., 10.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"been\"\>", Offset[{-2., 0.}, {0., 11.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"Let\"\>", Offset[{-2., 0.}, {0., 12.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"shall\"\>", Offset[{-2., 0.}, {0., 13.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"will\"\>", Offset[{-2., 0.}, {0., 14.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"is\"\>", Offset[{-2., 0.}, {0., 15.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"be\"\>", Offset[{-2., 0.}, {0., 15.999999999999998}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"can\"\>", Offset[{-2., 0.}, {0., 17.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"do\"\>", Offset[{-2., 0.}, {0., 18.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"let\"\>", Offset[{-2., 0.}, {0., 19.}], {1, 0}, Automatic, {1, 0}], InsetBox["\<\"are\"\>", Offset[{-2., 0.}, {0., 20.}], {1, 0}, 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.19588550983899827`}, 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], Selectable -> False], TraditionalForm], {0.004, 0}}, { 1., FormBox["\"help\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox["\"go\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 3., FormBox["\"begin\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 4., FormBox["\"know\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 5., FormBox["\"join\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 6., FormBox["\"dare\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 7., FormBox["\"has\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 8., FormBox["\"may\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 9., FormBox["\"have\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {10., FormBox["\"pledge\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {11., FormBox["\"been\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {12., FormBox["\"Let\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {13., FormBox["\"shall\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {14., FormBox["\"will\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {15., FormBox["\"is\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {16., FormBox["\"be\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {17., FormBox["\"can\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {18., FormBox["\"do\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {19., FormBox["\"let\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {20., FormBox["\"are\"", TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], 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.701563393552717*^9}, CellID->957302200] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Examples for JFK Inaugural Address", DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 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[628, 23, 36, 0, 70, "Subsection",ExpressionUUID->"6dd33d97-5d7d-4af0-af7f-d6b6615002cd"], Cell[CellGroupData[{ Cell[689, 27, 215, 3, 70, "Text",ExpressionUUID->"0a12e0c6-f4bd-488d-936f-c066fc02c414"], Cell[CellGroupData[{ Cell[929, 34, 246, 4, 70, "Input",ExpressionUUID->"72260b5d-0241-4e25-bfc2-e67f678028f1"], Cell[1178, 40, 17805, 396, 70, "Output",ExpressionUUID->"99eb2625-8c4b-4989-a78d-d557e49ad3e8", CellID->1509730078] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19032, 442, 204, 3, 70, "Text",ExpressionUUID->"513d1d75-f5c3-447e-bfe1-add90e9e2b45"], Cell[CellGroupData[{ Cell[19261, 449, 344, 8, 70, "Input",ExpressionUUID->"a8644560-f9dd-43d6-8005-b96affa7e1e5"], Cell[19608, 459, 560, 8, 70, "Output",ExpressionUUID->"88862235-d448-4991-9046-28108d732760", CellID->405172642] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20229, 474, 35, 0, 70, "Subsection",ExpressionUUID->"3ff934c3-8311-4f13-b398-d526271fd279"], Cell[CellGroupData[{ Cell[20289, 478, 125, 2, 70, "Text",ExpressionUUID->"d4eae4dc-bf37-4577-801a-cf0bc9b044d2", CellID->1514131641], Cell[CellGroupData[{ Cell[20439, 484, 261, 6, 70, "Input",ExpressionUUID->"63146599-61d7-4fa3-b5f2-64e61941db95", CellID->229729648], Cell[20703, 492, 23757, 562, 70, "Output",ExpressionUUID->"911da8b5-32ff-4e87-9afb-bdba033d1166", CellID->1651045889] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44509, 1060, 140, 2, 70, "Text",ExpressionUUID->"bc191f47-2d03-4b23-b182-fcab49b6728d", CellID->1492053536], Cell[CellGroupData[{ Cell[44674, 1066, 577, 15, 70, "Input",ExpressionUUID->"605e4d12-0c0a-4024-9beb-e08cdda4b1c2", CellID->1721248104], Cell[45254, 1083, 35534, 906, 70, "Output",ExpressionUUID->"ed94353c-8070-48f7-b3df-4646a8fe2636", CellID->957302200] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)