Notebook[{Cell[ CellGroupData[{Cell[ "\","Subsection"],Cell[ CellGroupData[ {Cell[ "\","Text",CellChangeTimes->{{3.6821849447840075*^9,3.682184951647694*^9},{3.6821850182913575*^9,3.6821850462121496*^9},{3.6821850885233803*^9,3.68218509051958*^9}}, ExpressionUUID->"22ef475d-dd60-4a9c-b1da-1fc1a6574043"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"ResourceObject","[","\"Moll Flanders\"","]"}]],"Input",CellChangeTimes->{{3.6804517731799183*^9,3.6804517885604563*^9},{3.6804527318597765*^9,3.6804527390684977*^9}}, ExpressionUUID->"70074688-e2f3-408b-9a11-333c692eae29"],Cell[ BoxData[InterpretationBox[ RowBox[{TagBox["ResourceObject","SummaryHead"],"[",DynamicModuleBox[{Set[Typeset`open$$, False]},PanelBox[PaneSelectorBox[{False->GridBox[{{PaneBox[ButtonBox[DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps","SquarePlusIconMedium"],ImageSizeCache->{12.,{0.,12.}}],Appearance->None, RuleDelayed[ButtonFunction,Set[Typeset`open$$,True]],Evaluator->Automatic,Method->"Preemptive"], Alignment->{Center,Center},ImageSize->Dynamic[{Automatic,Times[3.5,CurrentValue["FontCapHeight"], Power[AbsoluteCurrentValue[Magnification],-1]]}]],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[ Times[3.5,CurrentValue["FontCapHeight"],Power[AbsoluteCurrentValue[Magnification], -1]],ImageSizeCache->{45.,{0.,9.}}]}],GridBox[{{RowBox[{TagBox["\"Name: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Moll Flanders\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext for Daniel Defoe's \\\"Moll Flanders\\\"\"","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,RuleDelayed[ButtonFunction,Set[Typeset`open$$,False]],Evaluator->Automatic, Method->"Preemptive"],Alignment->{Center,Center},ImageSize->Dynamic[{Automatic,Times[ 3.5,CurrentValue["FontCapHeight"],Power[AbsoluteCurrentValue[Magnification],-1]]}]],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[ Times[3.5,CurrentValue["FontCapHeight"],Power[AbsoluteCurrentValue[Magnification], -1]],ImageSizeCache->{45.,{0.,9.}}]}],GridBox[{{RowBox[{TagBox["\"Name: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Moll Flanders\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext for Daniel Defoe's \\\"Moll Flanders\\\"\"","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[{",","\",\"","\"fiction\"","\"text\"","\"book\"","\"novel\""},"RowWithSeparators"], Short],"SummaryItem"]}]},{RowBox[{TagBox["\"Data Location: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ DynamicModuleBox[{Set[DataResource`Private`typesetstorage$$,DataResource`Private`typesetstorageLocation],DataResource`Private`info$$}, DynamicBox[ToBoxes[CompoundExpression[Set[DataResource`Private`info$$,DataResource`Private`resourceInfo[ "448087db-604c-46be-b2e1-a2d26ca13440"]],If[AssociationQ[DataResource`Private`info$$], DataResource`Private`typesetstorage$$[Lookup[DataResource`Private`info$$,"ContentElementLocations", None]],Missing["NotAvailable"]]],StandardForm]],RuleDelayed[DynamicModuleValues,{}]], "SummaryItem"]}]},{RowBox[{TagBox["\"UUID: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"448087db-604c-46be-b2e1-a2d26ca13440\"","SummaryItem"]}]},{RowBox[{TagBox["\"Version: \"", "SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"1.0.0\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Size: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TemplateBox[ {"707.088`","\"kB\"","kilobytes","\"Kilobytes\""},"Quantity"],"SummaryItem"]}]},{RowBox[ {TagBox["\"Elements: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TagBox[ TemplateBox[{",","\",\"","\"Plaintext\""},"RowWithSeparators"],Function[Short[Slot[ 1],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],RuleDelayed[ DynamicModuleValues,{}]],"]"}],ResourceObject[Association["Name"->"Moll Flanders", "UUID"->"448087db-604c-46be-b2e1-a2d26ca13440","ResourceType"->"DataResource","Version"->"1.0.0", "Description"->"Plaintext for Daniel Defoe's \"Moll Flanders\"","ContentSize"->Quantity[ 707.088,"Kilobytes"],"ContentElements"->{"Plaintext"}]],Editable->False,SelectWithContents->True, Selectable->False]],"Output",CellChangeTimes->{3.683376433953167*^9},ExpressionUUID->"6f0b5cc4-07b9-41fd-9b8d-f8dd9de8de96"]}, Open]]},Open]],Cell[ CellGroupData[{Cell[ "\","Text",CellChangeTimes->{{3.682184974529982*^9,3.6821849772962584*^9},{3.6821850234008684*^9,3.6821850240499334*^9},{3.6821850586563935*^9,3.6821850629428225*^9}}, ExpressionUUID->"3bf3aadf-9e4b-412d-ab48-de5cc6099ad6"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"RandomChoice","[",RowBox[{"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"Moll Flanders\"","]"}],",","\"Paragraph\""}],"]"}],"]"}]], "Input",CellChangeTimes->{{3.6804518239459944*^9,3.680451854651065*^9},{3.6833764550356407*^9,3.683376463873509*^9}}, ExpressionUUID->"82a78055-d23f-472f-9d10-329402227eea"],Cell[ BoxData["\"After the first meeting, in which I only said what I had said before,\\nwe parted, and he appointed me to come the next day to him, telling me\\nI might in the meantime satisfy myself of him by inquiry, which,\\nhowever, I knew not how well to do, having no acquaintance myself.\""], "Output",CellChangeTimes->{3.68337643608665*^9,3.6833764673535624*^9},ExpressionUUID->"3eda6c22-03cb-4930-9b0e-b794f85943ef"]}, Open]]},Open]]},Open]],Cell[ CellGroupData[{Cell[ "\","Subsection"],Cell[ "\","Text",CellChangeTimes->{{3.683376745676219*^9,3.683376751579294*^9}}, ExpressionUUID->"9d4204d7-0d6c-4a46-bab7-25456d287c2e"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"BarChart","[",RowBox[{RowBox[{RowBox[{"TakeLargest","[",RowBox[{RowBox[{"Counts","[",RowBox[ {"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"Moll Flanders\"","]"}],",","\"ProperNoun\""}],"]"}],"]"}],",","20"}],"]"}],"//","Reverse"}],",",RowBox[ {"BarOrigin","\[Rule]","Left"}],",",RowBox[{"ChartLabels","\[Rule]","Automatic"}]}],"]"}]], "Input",CellChangeTimes->{3.683376642744898*^9},ExpressionUUID->"e83b649e-2e3c-4e0a-912a-1b6b574803f1"],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}, {17.,1.462962962962963},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,120.38903061224491},{74.79851273000715,83.7486726533398}}], Function[StatusArea[Slot[1],17]],TagBoxNote->"17"],StyleBox["17",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[17,{}],"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}, {19.,2.4629629629629632},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,129.11126950780312},{65.6723400128079,74.62249993614053}}], Function[StatusArea[Slot[1],19]],TagBoxNote->"19"],StyleBox["19",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[19,{}],"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}, {19.,3.4629629629629632},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,129.11126950780312},{56.546167295608626,65.49632721894127}}], Function[StatusArea[Slot[1],19]],TagBoxNote->"19"],StyleBox["19",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[19,{}],"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}, {20.,4.462962962962963},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,133.47238895558223},{47.41999457840937,56.37015450174202}}], Function[StatusArea[Slot[1],20]],TagBoxNote->"20"],StyleBox["20",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[20,{}],"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}, {20.,5.462962962962963},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,133.47238895558223},{38.29382186121012,47.24398178454276}}], Function[StatusArea[Slot[1],20]],TagBoxNote->"20"],StyleBox["20",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[20,{}],"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}, {22.,6.462962962962963},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,142.19462785114047},{29.16764914401086,38.11780906734351}}], Function[StatusArea[Slot[1],22]],TagBoxNote->"22"],StyleBox["22",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[22,{}],"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}, {23.,7.462962962962963},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,146.55574729891956},{20.0414764268116,28.991636350144248}}], Function[StatusArea[Slot[1],23]],TagBoxNote->"23"],StyleBox["23",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[23,{}],"Tooltip"]]]}}}}}},{{{{{{RGBColor[0.982864, 0.7431472,0.3262672],EdgeForm[{Opacity[0.5599999999999999],Thickness[Small]}],TagBox[ TooltipBox[TagBox[DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[ 0.5],AbsoluteThickness[1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,7.537037037037037}, {23.,8.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,146.55574729891956},{10.915303709612346,19.865463632944994}}], Function[StatusArea[Slot[1],23]],TagBoxNote->"23"],StyleBox["23",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[23,{}],"Tooltip"]]]}}}}}},{{{{{{RGBColor[0.982864, 0.7431472,0.3262672],EdgeForm[{Opacity[0.5599999999999999],Thickness[Small]}],TagBox[ TooltipBox[TagBox[DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[ 0.5],AbsoluteThickness[1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,8.537037037037038}, {28.,9.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,168.36134453781514},{1.789130992413078,10.739290915745727}}], Function[StatusArea[Slot[1],28]],TagBoxNote->"28"],StyleBox["28",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[28,{}],"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}, {30.,10.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,177.08358343337335},{-7.337041724786175,1.6131181985464735}}], Function[StatusArea[Slot[1],30]],TagBoxNote->"30"],StyleBox["30",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[30,{}],"Tooltip"]]]}}}}}},{{{{{{RGBColor[0.982864, 0.7431472,0.3262672],EdgeForm[{Opacity[0.5599999999999999],Thickness[Small]}],TagBox[ TooltipBox[TagBox[DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[ 0.5],AbsoluteThickness[1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,10.537037037037038}, {34.,11.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,194.52806122448982},{-16.46321444198543,-7.513054518652794}}], Function[StatusArea[Slot[1],34]],TagBoxNote->"34"],StyleBox["34",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[34,{}],"Tooltip"]]]}}}}}},{{{{{{RGBColor[0.982864, 0.7431472,0.3262672],EdgeForm[{Opacity[0.5599999999999999],Thickness[Small]}],TagBox[ TooltipBox[TagBox[DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[ 0.5],AbsoluteThickness[1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,11.537037037037038}, {35.,12.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,198.8891806722689},{-25.58938715918468,-16.639227235852047}}], Function[StatusArea[Slot[1],35]],TagBoxNote->"35"],StyleBox["35",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[35,{}],"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}, {36.,13.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,203.25030012004802},{-34.71555987638395,-25.7653999530513}}], Function[StatusArea[Slot[1],36]],TagBoxNote->"36"],StyleBox["36",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[36,{}],"Tooltip"]]]}}}}}},{{{{{{RGBColor[0.982864, 0.7431472,0.3262672],EdgeForm[{Opacity[0.5599999999999999],Thickness[Small]}],TagBox[ TooltipBox[TagBox[DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[ 0.5],AbsoluteThickness[1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,13.537037037037038}, {37.,14.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,207.61141956782714},{-43.8417325935832,-34.891572670250554}}], Function[StatusArea[Slot[1],37]],TagBoxNote->"37"],StyleBox["37",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[37,{}],"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}, {39.,15.462962962962964},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,216.33365846338538},{-52.96790531078247,-44.01774538744982}}], Function[StatusArea[Slot[1],39]],TagBoxNote->"39"],StyleBox["39",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[39,{}],"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}, {44.,16.462962962962965},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,238.13925570228093},{-62.09407802798174,-53.14391810464906}}], Function[StatusArea[Slot[1],44]],TagBoxNote->"44"],StyleBox["44",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[44,{}],"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}, {54.,17.462962962962965},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,281.75045018007205},{-71.22025074518098,-62.27009082184833}}], Function[StatusArea[Slot[1],54]],TagBoxNote->"54"],StyleBox["54",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[54,{}],"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}, {57.,18.462962962962965},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,294.83380852340935},{-80.34642346238024,-71.3962635390476}}], Function[StatusArea[Slot[1],57]],TagBoxNote->"57"],StyleBox["57",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[57,{}],"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}, {57.,19.462962962962965},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,294.83380852340935},{-89.47259617957951,-80.52243625624683}}], Function[StatusArea[Slot[1],57]],TagBoxNote->"57"],StyleBox["57",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[57,{}],"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}, {68.,20.462962962962965},"RoundingRadius"->0]},ImageSizeCache->{{45.74999999999999,342.80612244897964},{-98.59876889677875,-89.6486089734461}}], Function[StatusArea[Slot[1],68]],TagBoxNote->"68"],StyleBox["68",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[68,{}],"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[ "\"Oh\"",Offset[{-2.,0.},{0.,1.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"Nay\"",Offset[{-2.,0.},{0.,2.}],ImageScaled[{1,Times[1,Power[2, -1]]}],Automatic,{1,0}],InsetBox["\"Ay\"",Offset[{-2.,0.},{0.,3.}],ImageScaled[{1,Times[ 1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"Ireland\"",Offset[{-2.,0.},{0.,4.}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"Sir\"",Offset[ {-2.,0.},{0.,5.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[ "\"God\"",Offset[{-2.,0.},{0.,6.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"Flanders\"",Offset[{-2.,0.},{0.,7.}],ImageScaled[{1,Times[1,Power[ 2,-1]]}],Automatic,{1,0}],InsetBox["\"Bath\"",Offset[{-2.,0.},{0.,8.}],ImageScaled[ {1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"Mr.\"",Offset[{-2.,0.},{0.,8.999999999999998}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"Yes\"",Offset[ {-2.,0.},{0.,9.999999999999998}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"No\"",Offset[{-2.,0.},{0.,10.999999999999998}],ImageScaled[{1,Times[ 1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"I'll\"",Offset[{-2.,0.},{0.,11.999999999999998}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"Virginia\"",Offset[ {-2.,0.},{0.,12.999999999999998}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"Newgate\"",Offset[{-2.,0.},{0.,13.999999999999998}],ImageScaled[ {1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"Robin\"",Offset[{-2.,0.},{0.,14.999999999999998}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"Betty\"",Offset[ {-2.,0.},{0.,16.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[ "\"England\"",Offset[{-2.,0.},{0.,17.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"Mrs.\"",Offset[{-2.,0.},{0.,18.}],ImageScaled[{1,Times[1,Power[ 2,-1]]}],Automatic,{1,0}],InsetBox["\"Well\"",Offset[{-2.,0.},{0.,19.}],ImageScaled[ {1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"London\"",Offset[{-2.,0.}, {0.,20.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}]}}}}}},"GraphicsLabel", StripOnInput->False]},"GraphicsTicks",StripOnInput->False]},"GraphicsAxes",StripOnInput->False, Antialiasing->False]},AspectRatio->NCache[Power[GoldenRatio,-1],0.6180339887498948], Axes->{True,False},AxesLabel->{None,None},AxesOrigin->{0.,0.13851851851851854},RuleDelayed[ CoordinatesToolOptions,{"DisplayFunction"->Function[{Identity[Part[Slot[1],1]],Identity[ Part[Slot[1],2]]}],"CopiedValueFunction"->Function[{Identity[Part[Slot[1],1]],Identity[ Part[Slot[1],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["\"Oh\"", TraditionalForm],0},{2.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{2.,FormBox[ "\"Nay\"",TraditionalForm],0},{3.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{3.,FormBox["\"Ay\"",TraditionalForm],0},{4.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{4.,FormBox["\"Ireland\"", TraditionalForm],0},{5.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{5.,FormBox[ "\"Sir\"",TraditionalForm],0},{6.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{6.,FormBox["\"God\"",TraditionalForm],0},{7.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{7.,FormBox["\"Flanders\"", TraditionalForm],0},{8.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{8.,FormBox[ "\"Bath\"",TraditionalForm],0},{9.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{9.,FormBox["\"Mr.\"",TraditionalForm],0},{10.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{10.,FormBox["\"Yes\"", TraditionalForm],0},{11.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{11.,FormBox[ "\"No\"",TraditionalForm],0},{12.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{12.,FormBox["\"I'll\"",TraditionalForm],0},{13.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{13.,FormBox["\"Virginia\"", TraditionalForm],0},{14.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{14.,FormBox[ "\"Newgate\"",TraditionalForm],0},{15.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{15.,FormBox["\"Robin\"",TraditionalForm],0},{16.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{16.,FormBox["\"Betty\"", TraditionalForm],0},{17.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{17.,FormBox[ "\"England\"",TraditionalForm],0},{18.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{18.,FormBox["\"Mrs.\"",TraditionalForm],0},{19.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{19.,FormBox["\"Well\"", TraditionalForm],0},{20.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{20.,FormBox[ "\"London\"",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.683376680913433*^9},ExpressionUUID->"4033aed0-bd5f-4d88-9857-3b5ebc8085b5"]}, Open]],Cell[ "\","Text",CellChangeTimes->{{3.6833767760993433*^9,3.683376779650175*^9},{3.683376903888803*^9,3.683376908375724*^9}}, ExpressionUUID->"06e3bd89-a571-4675-9cce-96d61af60b76"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"TakeLargest","[",RowBox[{RowBox[{"Counts","[",RowBox[{"TextCases","[",RowBox[ {RowBox[{"ResourceData","[","\"Moll Flanders\"","]"}],",","\"Adjective\""}],"]"}],"]"}],",","20"}],"]"}]], "Input",CellChangeTimes->{3.683376558894507*^9},ExpressionUUID->"f23e1742-94b9-443e-a988-1ceb00002276"],Cell[ BoxData[ RowBox[{"\\[LeftAssociation]",RowBox[{RowBox[{"\"good\"","\[Rule]","275"}],",",RowBox[ {"\"little\"","\[Rule]","233"}],",",RowBox[{"\"great\"","\[Rule]","232"}],",",RowBox[ {"\"such\"","\[Rule]","232"}],",",RowBox[{"\"other\"","\[Rule]","222"}],",",RowBox[ {"\"much\"","\[Rule]","203"}],",",RowBox[{"\"own\"","\[Rule]","200"}],",",RowBox[ {"\"last\"","\[Rule]","175"}],",",RowBox[{"\"more\"","\[Rule]","171"}],",",RowBox[ {"\"first\"","\[Rule]","148"}],",",RowBox[{"\"old\"","\[Rule]","122"}],",",RowBox[ {"\"same\"","\[Rule]","111"}],",",RowBox[{"\"many\"","\[Rule]","108"}],",",RowBox[ {"\"next\"","\[Rule]","99"}],",",RowBox[{"\"short\"","\[Rule]","93"}],",",RowBox[ {"\"least\"","\[Rule]","88"}],",",RowBox[{"\"poor\"","\[Rule]","86"}],",",RowBox[ {"\"sure\"","\[Rule]","86"}],",",RowBox[{"\"true\"","\[Rule]","74"}],",",RowBox[{"\"able\"","\[Rule]","72"}]}],"\\[RightAssociation]"}]], "Output",CellChangeTimes->{3.683376646831052*^9},ExpressionUUID->"3c6158bc-1d55-4466-bf40-388d3b5078ec"]}, Open]]},Open]]},WindowSize->{775,873},WindowMargins->{{136,Automatic},{Automatic,0}}, WindowTitle->"Examples for Moll Flanders",TaggingRules->{"NotebookTemplateVersion"->1.}, CellContext->Notebook,ShowCellTags->True,Nothing,Nothing,Nothing,Nothing,StyleDefinitions->FrontEnd`FileName[ {"Wolfram"},"CreateDataResourceStyleSheet.nb",CharacterEncoding->"UTF-8"],DockedCells->{}, Background->GrayLevel[0.9999],FrontEndVersion->"10.0 for Wolfram Cloud Platform (June 2 2014)"]