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->"744594bd-de06-43bb-972f-b894c58809db"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"ResourceObject","[","\"The Devil's Dictionary\"","]"}]],"Input",CellChangeTimes->{{3.6804517731799183*^9,3.6804517885604563*^9},{3.6804527318597765*^9,3.6804527390684977*^9}}, ExpressionUUID->"b3bbbaec-0ac5-4f2c-8c17-fc4427ba87fb"],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[ "\"The Devil's Dictionary\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext for Ambrose Bierce's \\\"The Devil's Dictionary\\\"\"","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[ "\"The Devil's Dictionary\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext for Ambrose Bierce's \\\"The Devil's Dictionary\\\"\"","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\"","\"novel\"","\"book\"","\"satire\""}, "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[ "3cba4b17-ef97-423f-bcba-5715551e9b7c"]],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[ "\"3cba4b17-ef97-423f-bcba-5715551e9b7c\"","SummaryItem"]}]},{RowBox[{TagBox["\"Version: \"", "SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"1.0.0\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Size: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[RowBox[{"\\[LeftAssociation]",RowBox[ {"\"Plaintext\"","\[Rule]","365200"}],"\\[RightAssociation]"}],"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"->"The Devil's Dictionary", "UUID"->"3cba4b17-ef97-423f-bcba-5715551e9b7c","ResourceType"->"DataResource","Version"->"1.0.0", "Description"->"Plaintext for Ambrose Bierce's \"The Devil's Dictionary\"","ContentSize"->Association[ "Plaintext"->365200],"ContentElements"->{"Plaintext"}]],Editable->False,SelectWithContents->True, Selectable->False]],"Output",CellChangeTimes->{3.683374238425709*^9},ExpressionUUID->"387a1c94-c7cf-49e2-bd79-83d576bcfe4a"]}, 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->"8f0989bd-6d11-46d8-9bac-b03bd570c9c6"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"RandomChoice","[",RowBox[{"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"The Devil's Dictionary\"","]"}],",","\"Paragraph\""}],"]"}],"]"}]], "Input",CellChangeTimes->{3.683374251935762*^9},ExpressionUUID->"de596f91-dedf-4944-96ca-d8ed6689172b"],Cell[ BoxData[ "\"RACK, n. An argumentative implement formerly much used in persuading\\ndevotees of a false faith to embrace the living truth. As a call to\\nthe unconverted the rack never had any particular efficacy, and is now\\nheld in light popular esteem.\""], "Output",CellChangeTimes->{{3.683374254451762*^9,3.683374256473762*^9}},ExpressionUUID->"1c0761e9-8587-40db-af4f-bc7e02d526e2"]}, Open]]},Open]]},Open]],Cell[ CellGroupData[{Cell[ "\","Subsection"],Cell[ CellGroupData[ {Cell[ "\","Text",CellChangeTimes->{{3.682184974529982*^9,3.6821849772962584*^9},{3.6821850234008684*^9,3.6821850240499334*^9},{3.6821850586563935*^9,3.6821850629428225*^9},{3.6833729230254655*^9,3.6833729249134655*^9},{3.6833743418977623*^9,3.683374346568762*^9}}, ExpressionUUID->"ad5dca12-e091-4059-944f-5f6ee1b14418"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"BarChart","[",RowBox[{RowBox[{RowBox[{"TakeLargest","[",RowBox[{RowBox[{"Counts","[",RowBox[ {"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"The Devil's Dictionary\"","]"}],",","\"Verb\""}],"]"}],"]"}],",","20"}],"]"}],"//","Reverse"}],",",RowBox[ {"BarOrigin","\[Rule]","Left"}],",",RowBox[{"ChartLabels","\[Rule]","Automatic"}]}],"]"}]], "Input",CellChangeTimes->{{3.6832887705512333*^9,3.6832888072249002*^9},3.6833081371530533*^9,{3.683308191179655*^9,3.683308192307106*^9},{3.6833082251442356*^9,3.683308276981035*^9},3.6833089065155134*^9,3.683374352850762*^9}, ExpressionUUID->"aca81449-5f94-4f48-95b8-089e606e4580"],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}, {50.,1.462962962962963},"RoundingRadius"->0]},ImageSizeCache->{{34.75,54.53359911803918},{77.1714203781033,86.41902593073726}}], Function[StatusArea[Slot[1],50]],TagBoxNote->"50"],StyleBox["50",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[50,{}],"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},{52.,2.4629629629629632}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,55.304943082760744},{67.72400638125865,76.9716119338926}}], Function[StatusArea[Slot[1],52]],TagBoxNote->"52"],StyleBox["52",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[52,{}],"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},{53.,3.4629629629629632}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,55.69061506512153},{58.27659238441397,67.52419793704793}}], Function[StatusArea[Slot[1],53]],TagBoxNote->"53"],StyleBox["53",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[53,{}],"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},{58.,4.462962962962963}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,57.61897497692544},{48.829178387569314,58.076783940203256}}], Function[StatusArea[Slot[1],58]],TagBoxNote->"58"],StyleBox["58",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[58,{}],"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},{60.,5.462962962962963}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,58.39031894164701},{39.38176439072464,48.62936994335859}}], Function[StatusArea[Slot[1],60]],TagBoxNote->"60"],StyleBox["60",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[60,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.5599999999999999],Thickness[Small]}],TagBox[TooltipBox[ TagBox[DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,5.537037037037037},{62.,6.462962962962963}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,59.161662906368576},{29.934350393879974,39.18195594651392}}], Function[StatusArea[Slot[1],62]],TagBoxNote->"62"],StyleBox["62",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[62,{}],"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},{63.,7.462962962962963}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,59.54733488872937},{20.486936397035308,29.734541949669257}}], Function[StatusArea[Slot[1],63]],TagBoxNote->"63"],StyleBox["63",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[63,{}],"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},{65.,8.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,60.31867885345093},{11.039522400190634,20.28712795282459}}], Function[StatusArea[Slot[1],65]],TagBoxNote->"65"],StyleBox["65",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[65,{}],"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},{70.,9.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,62.24703876525484},{1.5921084033459607,10.839713955979917}}], Function[StatusArea[Slot[1],70]],TagBoxNote->"70"],StyleBox["70",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[70,{}],"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},{119.,10.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,81.14496590093324},{-7.855305593498713,1.3922999591352436}}], Function[StatusArea[Slot[1],119]],TagBoxNote->"119"],StyleBox["119",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[119,{}],"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},{125.,11.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,83.45899779509794},{-17.302719590343372,-8.05511403770943}}], Function[StatusArea[Slot[1],125]],TagBoxNote->"125"],StyleBox["125",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[125,{}],"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},{128.,12.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,84.61601374218029},{-26.750133587188046,-17.50252803455409}}], Function[StatusArea[Slot[1],128]],TagBoxNote->"128"],StyleBox["128",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[128,{}],"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},{157.,13.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,95.80050123064302},{-36.197547584032705,-26.949942031398763}}], Function[StatusArea[Slot[1],157]],TagBoxNote->"157"],StyleBox["157",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[157,{}],"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},{166.,14.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,99.27154907189006},{-45.64496158087739,-36.397356028243436}}], Function[StatusArea[Slot[1],166]],TagBoxNote->"166"],StyleBox["166",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[166,{}],"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},{214.,15.462962962962964}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,117.78380422520767},{-55.09237557772205,-45.844770025088096}}], Function[StatusArea[Slot[1],214]],TagBoxNote->"214"],StyleBox["214",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[214,{}],"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},{240.,16.462962962962965}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,127.81127576658805},{-64.53978957456674,-55.292184021932755}}], Function[StatusArea[Slot[1],240]],TagBoxNote->"240"],StyleBox["240",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[240,{}],"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},{263.,17.462962962962965}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,136.6817313608861},{-73.9872035714114,-64.73959801877744}}], Function[StatusArea[Slot[1],263]],TagBoxNote->"263"],StyleBox["263",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[263,{}],"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},{326.,18.462962962962965}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,160.9790662496154},{-83.43461756825606,-74.1870120156221}}], Function[StatusArea[Slot[1],326]],TagBoxNote->"326"],StyleBox["326",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[326,{}],"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},{632.,19.462962962962965}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,278.9946928520152},{-92.88203156510075,-83.63442601246676}}], Function[StatusArea[Slot[1],632]],TagBoxNote->"632"],StyleBox["632",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[632,{}],"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},{796.,20.462962962962965}, "RoundingRadius"->0]},ImageSizeCache->{{34.75,342.2448979591837},{-102.3294455619454,-93.08184000931145}}], Function[StatusArea[Slot[1],796]],TagBoxNote->"796"],StyleBox["796",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[796,{}],"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["\"know\"", Offset[{-2.,0.},{0.,1.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[ "\"known\"",Offset[{-2.,0.},{0.,2.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"do\"",Offset[{-2.,0.},{0.,3.}],ImageScaled[{1,Times[1,Power[2, -1]]}],Automatic,{1,0}],InsetBox["\"being\"",Offset[{-2.,0.},{0.,4.}],ImageScaled[ {1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"may\"",Offset[{-2.,0.},{0.,5.}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"having\"",Offset[ {-2.,0.},{0.,6.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[ "\"made\"",Offset[{-2.,0.},{0.,7.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"would\"",Offset[{-2.,0.},{0.,8.}],ImageScaled[{1,Times[1,Power[ 2,-1]]}],Automatic,{1,0}],InsetBox["\"will\"",Offset[{-2.,0.},{0.,8.999999999999998}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"said\"",Offset[ {-2.,0.},{0.,9.999999999999998}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"were\"",Offset[{-2.,0.},{0.,10.999999999999998}],ImageScaled[{1,Times[ 1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"been\"",Offset[{-2.,0.},{0.,11.999999999999998}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"had\"",Offset[ {-2.,0.},{0.,12.999999999999998}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"has\"",Offset[{-2.,0.},{0.,13.999999999999998}],ImageScaled[{1,Times[ 1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"have\"",Offset[{-2.,0.},{0.,14.999999999999998}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"are\"",Offset[ {-2.,0.},{0.,16.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[ "\"be\"",Offset[{-2.,0.},{0.,17.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic, {1,0}],InsetBox["\"was\"",Offset[{-2.,0.},{0.,18.}],ImageScaled[{1,Times[1,Power[ 2,-1]]}],Automatic,{1,0}],InsetBox["\"n.\"",Offset[{-2.,0.},{0.,19.}],ImageScaled[ {1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox["\"is\"",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[ "\"know\"",TraditionalForm],0},{2.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{2.,FormBox["\"known\"",TraditionalForm],0},{3.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{3.,FormBox["\"do\"", TraditionalForm],0},{4.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{4.,FormBox[ "\"being\"",TraditionalForm],0},{5.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{5.,FormBox["\"may\"",TraditionalForm],0},{6.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{6.,FormBox["\"having\"", TraditionalForm],0},{7.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{7.,FormBox[ "\"made\"",TraditionalForm],0},{8.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{8.,FormBox["\"would\"",TraditionalForm],0},{9.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{9.,FormBox["\"will\"", TraditionalForm],0},{10.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{10.,FormBox[ "\"said\"",TraditionalForm],0},{11.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{11.,FormBox["\"were\"",TraditionalForm],0},{12.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{12.,FormBox["\"been\"", TraditionalForm],0},{13.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{13.,FormBox[ "\"had\"",TraditionalForm],0},{14.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{14.,FormBox["\"has\"",TraditionalForm],0},{15.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{15.,FormBox["\"have\"", TraditionalForm],0},{16.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{16.,FormBox[ "\"are\"",TraditionalForm],0},{17.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{17.,FormBox["\"be\"",TraditionalForm],0},{18.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{18.,FormBox["\"was\"", TraditionalForm],0},{19.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0}, BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{19.,FormBox[ "\"n.\"",TraditionalForm],0},{20.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{20.,FormBox["\"is\"",TraditionalForm],0}},{{1.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{2.,FormBox[InterpretationBox[ StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False], Spacer[0]],TraditionalForm],{0.004,0}},{3.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{4.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{}, ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{5.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{6.,FormBox[InterpretationBox[ StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False], Spacer[0]],TraditionalForm],{0.004,0}},{7.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{8.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{}, ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{9.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{10.,FormBox[InterpretationBox[ StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False], Spacer[0]],TraditionalForm],{0.004,0}},{11.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{12.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{}, ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{13.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{14.,FormBox[InterpretationBox[ StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False], Spacer[0]],TraditionalForm],{0.004,0}},{15.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{16.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{}, ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{17.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{18.,FormBox[InterpretationBox[ StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False], Spacer[0]],TraditionalForm],{0.004,0}},{19.,FormBox[InterpretationBox[StyleBox[GraphicsBox[ {},ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]], TraditionalForm],{0.004,0}},{20.,FormBox[InterpretationBox[StyleBox[GraphicsBox[{}, ImageSize->{0,0},BaselinePosition->Baseline],"CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}}}},{Automatic,Automatic}}, GridLines->{None,None},GridLinesStyle->Directive[GrayLevel[0.5,0.4]],PlotRange->{{All,All},{All,All}}, PlotRangePadding->{{Scaled[0.02],Scaled[0.05]},{Scaled[0.02],Scaled[0.02]}},Ticks->{Automatic,None}, BoxID->"{\"type\":\"Image\",\"message\":\"RasterizedDueToUnsupportedContent\",\"imageData\":{\"imageSource\":\"data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAWgAAADXCAYAAAA3DsvBAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOxAAADsQBlSsOGwAAGdJJREFUeJzt3X+MHOWZJ/Dv89a0e2zP6nb2ArcMm7ssOhIZRUByZL0EQnzwB9LqMD8MgYMNQ2a6qmPA2UwgR9aRzptTzK4F3sFuDDM1TRs7a5uJMzEJQvsHCInfe2LB8SFr8cpod72OyV6Gk2N7sKe76n3uj6l2xu3pnp6Zrv41348U2a6urvftV8qTSvf7rQcgIiIiIiIiIiIiIloEPM/TRs+BiKhZmEZPgIiIZsYCTUTUpFigiYialDRi0ErfNXd+/Eo9p0JEVHNbxw4/AWBgodepS4H2PE993591LM/zdNtdH9djSkREsUlcP1aTAl2XrziqKc5ERHSujnoMUryDTqVStxpjRlVVABxU1XXZbPb1esyBiKjV1PVHQhHZBWDX8ePHO40xPzTG5Oo5PhFRK6l3gX4EwOru7u6nVfWQ7/ufref4REStpK4F2vf9jIjcpapHAfzUdV2vnuMTEbWSuhZo13UPhmHY3dPT86iqPgVgYz3HJyJqJXX5kbBIVftFZOjYsWO7RESttXfWc3wiolbS0O1vMwVWfN/f34i50KJxMYBfNnoSi8irjZ5AA7VGUKVaDKoQtY9ahTUWMz6Lg4ioScX+HXT0Ncb3VdUVkYuttXdms9l9cY9LRNTq6nUHnezq6rrMWnunMWa0TmMSEbW0uhToIAgeHxwcPB3dOSfqMSYRUaurS4HO5XIn6zEOEVE74Y+ERERNqqEFmk1iiYjKa7qgCjuqtL/XDozjuis+1ehpUMxq1VVkMatr1JsIwHnFmf9FJpoZk4TUcEycEc2MPxISETWpOX3F4bruQRFZ4/v+B+l0+hpVfUNVV42MjLyaTqcvVdW3APQA+KKqDorI5QBOiMj3hoeHd7LlFRFR9eZ6Bz0K4BYAUNXVAI4AWB39+w4Au33fLwDYDmAzgG5r7U2quhlgyysiormYU4F2HOdsgQZwE4D7oz+hqrdba3cCQCKR+IqIrFDV54wxewF8CmDLKyKiuZhTgR4aGjoEIOl53g0ATvu+/6KInEmn0zeLyJJsNvsuABQKhecBjIvIUyJyY/H9bHlFRFS9+fxIuFdVdwMYAwBVHVXVHQB2FE9Q1cutte8YY95X1Q3F42x5RURUvfkU6FERudBa+xMAsNaOAugKgmBX8QQRWS8iL4Vh+J6qvls8HrW8Wn/s2LHTIrJJVd2FfwQiovbUdEnCRdzyqplbMdWjbRH3QROViKVAe56nvu/P+doMqjSfh7YdwNaxw00VaCJaLBhUISJqUrE9iyOVSl1pjNkJYBzAfb7vH+nr6+txHOdZAFeLyH4A3/B9/8O45kBE1Mpiu4M2xtyTTCavVdW3AWwBAMdxtgDI5fP5C0TkaQBDcY1PRNTqYivQk5OTGzOZzIl8Pv8YgFUAICLXi8ieZDJ5Otqqd3Vc4xMRtbrYvuJYvnx5AADLli2TMAwL0WGnUChcuH379l/HNS4RUbuIrUAHQfDz/v7+B8Iw7FPVVwBAVV9LJBIPDwwM/MWpU6fuBdA7MjLy5bjmQETUymIr0CIyYIzZp6pHRKQXAMIwXNfR0ZGbmJgYF5EPROTrcY1PRNTqmjGo8kQj5hKDr6I+AY96YIiEqAGaruXVt9b85283eg419IVGT2A2bDdF1LyaKiHGJGH9sd0UUfNikpCIqEnV5CsOz/NWztTiyvM8VdXvALh7ZGTkS0wSEhFVr1Z30DO2uIqMd3Z23gAwSUhENBc1uYNOJBJfKRQKa1X1bmPMFxC1uAKAMAyfz2QyJ4GpJCGA25PJJFQVACZqMT4RUTuqSYGOWlztilpcHVHVfyy+lsvlTk47lUlCIqIq1aRAq+rlqvrtjo6Of7XW/nWF85gkJCKqUk0KtIisB/BSGIafANgsIvfMdF5pkhDAF0vDKg9tO1CLKdXVawfGcd0Vn5r9RCKiOWCSsL1xfzNRC6uqQM+3hdVcMahSOwygELU+BlWIiJpU1d9Bp9Ppe62160XkEmvtndlsdl+5gIrruu9ba7/2zDPP/EM6nb5UVd8EcHEQBBcwqEJEVJ2q76CttZ8XkZXW2juNMaPR4XIBld3GmNsAQFXXANjt+36BQRUioupVXaC7uro2+L7/m2w2uw9AApgKqIjIClV9zhizF1FAxRizR0Rujd56mzFmB8CWV0REc1H1VxyDg4OnS4+VC6gMDw//s+u6Z9Lp9J+oanJoaGh/9BYGVYiIqrSgfdCVAioiskdVXwTw0LTzGVQhIqrSgnZxiMh6EXkpDMP3VPXd6a8VCoUfAzgThuGu4rEwDNcBuCoKqnjGmNRCxiciamcMqsxdK7Wy4j5ooha2oK844giwtEjLq9haWW0dO9xUXW6IqHEa2pOwtLh7nqebH7iiUdNpuFZ8DgkRxWfBBXouAZZUKnWrMWZUVQXAQVVdl81mX1/4xyAiaj8LjnrPJcAiIrsA7Dp+/HinMeaHxpjcQscnImpXCy7QcwmwiMgjAFZ3d3c/raqHfN//7ELHJyJqVwsu0BUCLONRgOXG4nHf9zMicpeqHgXwU9d1vYWOT0TUrmJ5mp2qXm6tfccY876qbiged133YBiG3T09PY+q6lMANsYxPhFRO4ilQJcLsKhqv4isP3bs2GkR2aSqbhzjExG1g6YLqnR+/EojpgKgOVpXcR80ERU1dB/0TLaOHW5okvAXh483Ylgm/ojoPA1PEk5/v+d5WnhlTSskCWsmak1FRHQetrwiImpSdU0SptPpz1hrd4vIZQD4AyERUQV1TRKq6pMi8nIQBJ8GcNVCxyYiamd1TRICWAVgcy6XOxmG4aaFjk1E1M7qmiRUVXUcxwBA8U8iIppZXZOEIvJyGIbr+/v7V6jqW3GMTUTULuqaJBSRBwGsdBznBRHpjWNsIqJ20XRJQt/39890bswuBvDLGl5vri2xGFQhovNUVaDjaG1Vbpxtd30c9zCxemjbAca1iagm+EMdEVGTqjqokkqlrjTG7AQwDuA+3/eP9PX19TiO8yyAq0VkP4Bv+L7/Ybnj0Vca31dVV0QuLgZbYvhcREQtr+o7aGPMPclk8lpVfRvAFgBwHGcLgFw+n79ARJ4GMFTpeCTZ1dV1WUmwhYiISlR9Bz05ObnR9/0Tvb29jyWTyX8CABG5HsDtyWQSqgoAE5WOA0AQBI9He6f3eZ6XqOFnISJqK1UX6OXLlwcAsGzZMgnDsBAddgqFwoXbt2//dcnp5Y4jl8udnP90iYgWj6oLdBAEP+/v738gDMM+VX0FAFT1tUQi8fDAwMBfnDp16l4AvSMjI18udzyuD0FE1I6qLtAiMmCM2aeqR4ohkzAM13V0dOQmJibGReQDEfl6peNERFS9pguqxN3yqh5trbgPmohqYdHtg2ZxJqJW0VTFpNWThEwRElEtLbo7aCKiVlHxR0LXdQ+KyBrf9z9Ip9PXqOobqrpqZGTk1XQ6fWn0yNCeIAguKJccVNXvALh7ZGTkS+UShnF/SCKiVjTbHfQogFsAQFVXAzgCYHX07zsA7PZ9vzBLcnC8s7PzBmDWhCEREU1T8Q7acZxRa+0OAH8F4CYA9wMYBPCQqt6uqi5QOTkYhuHzmUzm5GznERHRuSoW6KGhoUOe5yU9z7sBwGnf91/0PO8v0+n0zaq6ZGRkpPgw/mqTg2XPIyKic1UTVNmrqrtFZAsAqOoogB0ANhZPqDY5yIQhEVH1qtnFMSoiF1prfwIA1tpRAF1BEOwqnhCG4ToAV0XJQc8Yk5rpQtWeR0RETZgkjLnlVa1bW01XbHPF9lVEVBNVP4tjISq1zJp+3PM8Lbyy5gsxT+fCWl8wcf3YE2BhJqIaq0tQpR79DImI2s287qBTqdStxphRVRUAB1V1XTabfd3zvJWqOigilwM4ISLfGx4e3lm8g06n05+x1u4WkcsAuDX9JEREbWZed9AisgvAruPHj3caY35ojMlFL20HsBlAt7X2JlXdPP19qvqkiLwcBMGnAVy1oJkTEbW5+RboRwCs7u7uflpVD/m+/1kASCQSXxGRFar6nDFmL4DSR8etArA5l8udDMNw04JmTkTU5uZVoH3fz4jIXap6FMBPXdf1AKBQKDwPYFxEnhKRG0vfp6rqOI4BgOKfREQ0s3kVSdd1D4Zh2N3T0/Ooqj6FKLSiqpdba98xxryvqhtK3yciL4dhuL6/v39F9KAlIiIqY14FWlX7RWT9sWPHTovIpmnP5FgvIi+FYfieqr5b+j4ReRDASsdxXii2zSIiopk1XVAlrpZXcba62jp2mPugiajm6hJUaQalxZlFlYiaXV0LdHE/9PRkYWmScPMDV9RlLlvHDtdlHCKi+arrTgomComIqleTO+hqW2MByLNIExFVp1Z30FW1xqrRWEREi0JNCrTjOGcLNH7bGusmAFDV2621O2sxDhHRYlKTAj00NHQIwDmtsUTkTDqdvllElmSz2fP2RBMRUWW1/JFwr6ruBjAGTLXGUtUdmGqPRUREc1TLAj1raywiIqpe0yUJ59Hyaj5trNieioiaXru0vKq6jdVD2w5g69jhL85jDCKiuuIjP4mImtQ5d9DVBk6stf/BGLMTwB+p6t+p6n3ZbPZo6Z1y6b/Z8oqIqHqld9BVBU6MMRlVfTuZTPaIyDsi8mQ1g7HlFRFR9c4p0HMInFyXz+cfy2QyJyYnJzeJyKoqx1sFtrwiIqrKOQV6DoGTs+9btmyZqKpTeuHe3t7fLT3GlldERNWbaRfHXlXdLSJbgKnACabCJhuLJ6jq60uWLPluX1/fXwVB8IiIvBm9VEilUreq6qvGmOdKLzyt5VVOVX8mwucmERGVM9Nd7KyBkzAM1wH4suM4/yYi14jIN6Nz7zTGjBpjDgN4vvTCbHlFRFS9pguqzLXl1XxaWW0dO8xbdyJqei3/PTCLMxG1q7oUq0pJwtLztt31cWzziFKELNBE1BJa/g6aiKhdVXwWh+d5KiIpVR0E8AiAJICN1to/zWaz+zzPW6mqgyJyOYATIvK94eHhneUSg319fT2O4zwL4GoR2Q/gG77vfxjfxyMial2z3kGrqmOt/a+q+meq+q/W2j81xoxGL28HsBlAt7X2JlXdHL1nxsSg4zhbAOTy+fwFIvI0gKHafyQiovYwa4GenJzcmc1m3xORzx0/fvyFbDa7D0ACABKJxFdEZIWqPmeM2Qug+IvdKsyQGBSR60VkTzKZPB093P/q2n8kIqL2MOvjRnfs2HGm+Pe9e/fmp79WKBSeB7BLRJ4SkSOq+o/AVGKwo6NjpsSgUygULty+ffuvazN9IqL2taAfCVX1cmvtO8aY91V1Q/H4tMTgiugJeMXzX0skEg8PDAwsdV037bruWzNfmYiIFvTAfhFZD+ClMAw/AbBZRO6Jjj+oqnscx7kVwNcBvAVMJRA7OjpyExMT4yLyAYAvloZVHtp2oOrx5xNSISJqFQJUv095NnO9TpmWV08sdB6zYJsrImoJNW15NdciX3p+1PLq27Wc03SJ68fiLv5ERDVztkCn0+l7rbXrReQSa+2dlfY5u677vrX2a88888w/RJ1W3sRU89a87/sS3Rl/X1VdEbm4eL2+vr7/1NHRMQrgM6r6v0RkWy3u3ImI2tHZHwmttZ8XkZXFJ9JFh2fc5wxgtzHmNgBQ1TWIOq2UXDvZ1dV12fTrRfugX04mk58VkT+M9ZMREbW4swW6q6trg+/7v6lmn7MxZo+I3Bq99TZjzI7SCwdB8Pjg4ODp6dcDcAOAxzKZzAnHcR6N84MREbW6swV6cHDwdOmL0T7n8Wif843F48PDw/+sqmfS6fSfAEgODQ3tL31vLpc7WXpMRILi38MwPK8LCxER/VbFfdDl9jkDgIjsUdUXMdVtpVovqerDa9euvQTAz+YxXyKiRaNigRaR9SLyUhiG76nqu9NfKxQKPwZwJgzDXWXefp4gCL4N4NowDF8B8ISqnnfXTkREUxqyg8LzvASAXgDf9H3/qmnHY30edLTNjvugiagl1LVAe573jKreKiLLARwA8KXSc+YYVPkqgFfnOA0WaCJqCS3fk3Au2E2FiFrJvJKE832Qv+d5/8cYc8fQ0NAhz/M+BeDoRRdd9Ic/+MEPguJ1Nz9wRc0+3HRzecYHEVEzmPfT7ObzIH8Au621d0V/vxvAWLE4ExHRueZdoOfzIP8gCPao6teiS/Raa3+04E9ARNSm5l2gowf5K1D2Qf7nBVxyudy/iMj/8zzvTgBLs9nsOVv3iIjot2Lp6l0p4AJgt6puBfA3cYxNRNQuYinQlQIuxpgxEbkgCIKqAy5ERItR3bedua77VRHZ5Pv+H5e+FmdQ5aFtB7jNjohaSk0f2F8NEfkpgPuAmfdBs+UVEdGUineU82lh1cQtr5ggJKKWUtMCvVBxfcXBrzeIqBXN+hVHKpW60hizE8A4gPt83z/S19fX4zjOswCuFpH9AL7h+/6HxYLOlldERAs36y4OY8w9yWTyWlV9G8AW4Gzrqlw+n79ARJ4GMDTDW9nyiohoAWYt0JOTkxszmcyJfD7/GIBVACAi14vInmQyeVpVdwO4uvR9bHlFRLQws37FsXz58gAAli1bJmEYFhvDOoVC4cLt27f/utz72PKKiGhhZr2DDoLg5/39/SvCMFyvqq8AgKq+lkgkHh4YGFjqum7add23qhyPLa+IiKo0a4EWkQFjzD5VvUJEBgAgDMN1AK6amJgYFxHPGJOqZjC2vCIiqt6iaHnFbXZE1IpaueXVXNtdMahCRC2lLgW6XOClHi2veOdMRK2q7s/imK60aNe65RXbXBFRK4ulQKfT6c9Ya3eLyGUA3OLxVCr1B1Eq8Y9U9e9U9b5sNns0jjkQEbW6uB7Y/6SIvBwEwacBnP0R0BiTUdW3k8lkj4i8IyJPxjE+EVE7iKVAYypxuDmXy50Mw3DTtOPX5fP5xzKZzInJyclNIrIqpvGJiFpeXHfQ6jiOAYDin6XjLVu2TFSVaUIiojLiann1chiG6/v7+1eo6tmUoaq+vmTJku/29fX9ThAEj4jIm3GMT0TUDuIq0A8CWOk4zgsi0ls8HiUQv+w4zr+JyDUi8s04xiciagcN3SM8333Qc2l1xX3QRNSq4vqRMFbsQ0hEi4HUu61VJbV+FgefwUFErawl76CJiBaDs0lCz/NuUdUbR0ZG1pbrKVguCei67kERWeP7/gfpdPoaVX1DVVeNjIy8mk6nL412cvQAyM903QZ9diKipmYAoK+v73cA3C4i35r22nk9BSskAUcB3AIAqroawBEAq6N/3wFgt+/7hXLXJSKi8xXDJBtV9RfTimi5noIzJgEdxzlboAHcBOD+6E+o6u3W2p2zXJeIiEoYABCRjwGcszVipp6CKJMEHBoaOgQg6XneDQBO+77/ooicSafTN4vIkmw2++4s1yUiohIGAHzf/4GILE2lUv+l0smzJAH3Rh2+x6JzR1V1B4Adsc2eiKiNTd/F8U/GmHsrnTxLEnBURC601v4EAKy1owC6giDYVftpExG1v6ZLEvq+v7+Kt14M4JdVnPcq2OqKiFpU2QLdiABLLYMqDKkQUatjUIWIqEnN2vKqHgGW6dv7iIhoSsU76DoHWIiIaJqKBbqeARYiIjpXxQJdzwALERGdq2KBZoCFiKhxqtnFwQALEVEDNGSf8EwBlaJatrxaDPugm6nhQqvgms0d12x+Frpus26zi0O5CXuep9UW1V8cPl7bSRERNZm2DapUuktv9PVqPbda4ZrNT7N+Tq5ZY69VC21boImIWl3dv1Nqtv+FIiJqRvzOn4iIiIiIiIiIiIji1PAvoT3PW6mqz4nIxQA+UNV1IyMjrzZ6Xs3A87yrATylqp8D8IGIeL7v/325NeNa/pbneTcB+HnxhxauWXm9vb2dyWRyq6reLiIfq2qq0tpwzaak0+lVqrpFVS8VkUMi8uDw8PCbtVy3hm+zU9U/F5HHgyD49wCeE5HvNHpOTeRZAP8zn8//noj40b/LrhnXckpvb28ngL+cfoxrVl4ymVwPYFxE/kBE/lxEsgDXbDbW2r8REVdE/h2A+6NnDtV03RpeoAFclUwmf5TL5U6GYfgMgCsbPaFm4fv+53zff2HHjh1nli9fvgNTvRiB8mvGtQSwZMmS76nqnpLDXLMyVHWNtXbM9/1PhoeHf+L7/qXRS1yzCkTktLVWL7roIrXW5gHko5dqtm4NL9AickEmkzkJACdOnBgHcFGDp9SUPvnkk2sB/Awov2ZcS2Dt2rWXiMhtnZ2dj08/zjUrT0QuMcbc7Lrub1zXfT+VSl0ZHeeaVaCqKRF546OPPioYY9621vYBtV23hhdoAIUNGzZM/y6cQZYS/f39v2etXQfgz6JD5dZs0a9lGIZbAPyPTCYzWfIS16y8hKp+3NXV9fsi8i0RGYmOc80qEJHHVPWWZDLZKSJ3GGMejV6q2bo1Q4H+1dGjR38XALq7u7sB/N8Gz6ep3H///b/vOE4mDMN1vu//Jjpcbs24lsB/A/C3xcTqtOQq16wMVf1VZ2fn9sHBwdMA3hCRz0cvcc0qUNUVPT09L2UymcmJiYmXVbX43PyarVszFOj/bYy5e2BgYKmq3gPg7xs9oWaRSqVuDILgx2EYfieXy/3LtJfKrdmiX0vf96X4n+K/o5e4ZmWIyN+eOXPmv3uelxCRVapa7HTENatARN756KOP/nhgYGDp0qVLrxOR/dFLNVu3hjxudLro/0796NSpU4MicgzAXY2eU7MwxvgA/qPjOL/yPA/AVMEpt2Zcy/K4ZuVNTk5+N5lMZlX1cVX90BhzN8A1m40xZq21NjcxMXGliPzCGFP8DprrRkRERETUEP8fBDW7l+ZanFYAAAAASUVORK5CYII=\",\"boundingBox\":{\"width\":360,\"height\":215,\"baseline\":111}},\"plotRange\":[0,1,0,1],\"requestedImageSize\":[\"Automatic\",\"Automatic\"]}"]], "Output",CellChangeTimes->{3.683374363988762*^9},ExpressionUUID->"d8c73126-498f-41d3-b079-accc305aac89"]}, Open]]},Open]],Cell[ CellGroupData[{Cell[ "\", "Text",CellChangeTimes->{{3.6821849447840075*^9,3.682184951647694*^9},{3.6821850182913575*^9,3.6821850462121496*^9},{3.6821850885233803*^9,3.68218509051958*^9},{3.683372646355466*^9,3.6833726525784655*^9}}, ExpressionUUID->"90bc1c93-e90d-4103-b266-053afb3a7d7c"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"BarChart","[",RowBox[{RowBox[{RowBox[{"TakeLargest","[",RowBox[{RowBox[{"Counts","[",RowBox[ {RowBox[{"Interpreter","[","\"Country\"","]"}],"[",RowBox[{"ToLowerCase","/@",RowBox[ {"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"The Devil's Dictionary\"","]"}],","," ","\"Country\""}],"]"}]}],"]"}],"]"}],",","10"}],"]"}],"//","Reverse"}],",",RowBox[ {"BarOrigin","\[Rule]","Left"}],",",RowBox[{"ChartLabels","\[Rule]","Automatic"}]}],"]"}]], "Input",CellChangeTimes->{3.6832948310374346*^9,{3.683303919441325*^9,3.6833039664439225*^9},{3.6833047256091137*^9,3.6833047577011137*^9},{3.683374281558762*^9,3.683374289446762*^9}}, ExpressionUUID->"63318443-7617-4814-b335-fea2c73d73fc"],Cell[ BoxData[GraphicsBox[ {{{Opacity[0],PointBox[{0.,0.3429357798165137}]}},{{},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,0.5412844036697247},{1.,1.4587155963302751}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,72.55855751391466},{61.375225199186374,77.62075760352596}}], Function[StatusArea[Slot[1],1]],TagBoxNote->"1"],StyleBox["1",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[1,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,1.5412844036697246},{2.,2.458715596330275}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,78.86711502782933},{44.21259487845622,60.45812728279581}}], Function[StatusArea[Slot[1],2]],TagBoxNote->"2"],StyleBox["2",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,2.541284403669725},{2.,3.4587155963302756}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,78.86711502782933},{27.04996455772607,43.29549696206566}}], Function[StatusArea[Slot[1],2]],TagBoxNote->"2"],StyleBox["2",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,3.5412844036697253},{2.,4.458715596330276}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,78.86711502782933},{9.887334236995926,26.13286664133551}}], Function[StatusArea[Slot[1],2]],TagBoxNote->"2"],StyleBox["2",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,4.541284403669725},{2.,5.458715596330276}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,78.86711502782933},{-7.275296083734219,8.970236320605366}}], Function[StatusArea[Slot[1],2]],TagBoxNote->"2"],StyleBox["2",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,5.541284403669725},{2.,6.458715596330276}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,78.86711502782933},{-24.437926404464363,-8.192394000124779}}], Function[StatusArea[Slot[1],2]],TagBoxNote->"2"],StyleBox["2",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,6.541284403669725},{3.,7.458715596330276}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,85.17567254174398},{-41.600556725194494,-25.355024320854923}}], Function[StatusArea[Slot[1],3]],TagBoxNote->"3"],StyleBox["3",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[3,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,7.541284403669725},{3.,8.458715596330276}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,85.17567254174398},{-58.76318704592465,-42.51765464158508}}], Function[StatusArea[Slot[1],3]],TagBoxNote->"3"],StyleBox["3",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[3,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,8.541284403669724},{4.,9.458715596330276}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,91.48423005565864},{-75.92581736665478,-59.68028496231521}}], Function[StatusArea[Slot[1],4]],TagBoxNote->"4"],StyleBox["4",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[4,{}],"Tooltip"]]]}},{{RGBColor[0.982864,0.7431472, 0.3262672],EdgeForm[{Opacity[0.63],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{0.,9.541284403669724},{44.,10.458715596330276}, "RoundingRadius"->0]},ImageSizeCache->{{65.75000000000001,343.8265306122449},{-93.08844768738494,-76.84291528304534}}], Function[StatusArea[Slot[1],44]],TagBoxNote->"44"],StyleBox["44",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[44,{}],"Tooltip"]]]}}}},{},{}},{},{},StyleBox[{{{Thickness[ Tiny],LineBox[{{0.,0.3429357798165137},{0.,10.66103119266055}}],StyleBox[{},"GraphicsLabel", StripOnInput->False]}},StyleBox[{{{Thickness[Tiny],LineBox[{{0.,0.5412844036697247},Offset[ {-6.,0.},{0.,0.5412844036697247}]}],LineBox[{{0.,10.458715596330276},Offset[{-6.,0.}, {0.,10.458715596330276}]}],{{},{},{},{},{},{},{},{},{},{},{LineBox[{{0.,1.4587155963302751},Offset[ {-4.,0.},{0.,1.4587155963302751}]}],LineBox[{{0.,1.5412844036697249},Offset[{-4.,0.}, {0.,1.5412844036697249}]}],LineBox[{{0.,2.458715596330275},Offset[{-4.,0.},{0.,2.458715596330275}]}],LineBox[ {{0.,2.541284403669725},Offset[{-4.,0.},{0.,2.541284403669725}]}],LineBox[{{0.,3.4587155963302756},Offset[ {-4.,0.},{0.,3.4587155963302756}]}],LineBox[{{0.,3.5412844036697253},Offset[{-4.,0.}, {0.,3.5412844036697253}]}],LineBox[{{0.,4.458715596330276},Offset[{-4.,0.},{0.,4.458715596330276}]}],LineBox[ {{0.,4.541284403669724},Offset[{-4.,0.},{0.,4.541284403669724}]}],LineBox[{{0.,5.458715596330275},Offset[ {-4.,0.},{0.,5.458715596330275}]}],LineBox[{{0.,5.541284403669724},Offset[{-4.,0.}, {0.,5.541284403669724}]}],LineBox[{{0.,6.458715596330275},Offset[{-4.,0.},{0.,6.458715596330275}]}],LineBox[ {{0.,6.541284403669724},Offset[{-4.,0.},{0.,6.541284403669724}]}],LineBox[{{0.,7.458715596330275},Offset[ {-4.,0.},{0.,7.458715596330275}]}],LineBox[{{0.,7.541284403669724},Offset[{-4.,0.}, {0.,7.541284403669724}]}],LineBox[{{0.,8.458715596330276},Offset[{-4.,0.},{0.,8.458715596330276}]}],LineBox[ {{0.,8.541284403669724},Offset[{-4.,0.},{0.,8.541284403669724}]}],LineBox[{{0.,9.458715596330276},Offset[ {-4.,0.},{0.,9.458715596330276}]}],LineBox[{{0.,9.541284403669724},Offset[{-4.,0.}, {0.,9.541284403669724}]}]},{}}}},StyleBox[{{Thickness[Tiny],InsetBox[InterpretationBox[ "\"South Africa\"",Entity["Country","SouthAfrica"],BaseStyle->"Entity"],Offset[{-2.,0.}, {0.,1.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"Portugal\"",Entity["Country","Portugal"],BaseStyle->"Entity"],Offset[{-2.,0.}, {0.,2.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"Jordan\"",Entity["Country","Jordan"],BaseStyle->"Entity"],Offset[{-2.,0.},{0.,3.0000000000000004}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"Jersey\"",Entity["Country","Jersey"],BaseStyle->"Entity"],Offset[{-2.,0.},{0.,4.}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"China\"",Entity["Country","China"],BaseStyle->"Entity"],Offset[{-2.,0.},{0.,5.}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"Russia\"",Entity["Country","Russia"],BaseStyle->"Entity"],Offset[{-2.,0.},{0.,6.}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"India\"",Entity["Country","India"],BaseStyle->"Entity"],Offset[{-2.,0.},{0.,7.}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"Greece\"",Entity["Country","Greece"],BaseStyle->"Entity"],Offset[{-2.,0.},{0.,8.}], ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[InterpretationBox[ "\"United States\"",Entity["Country","UnitedStates"],BaseStyle->"Entity"],Offset[ {-2.,0.},{0.,9.}],ImageScaled[{1,Times[1,Power[2,-1]]}],Automatic,{1,0}],InsetBox[ InterpretationBox["\"World\"",Entity["Country","World"],BaseStyle->"Entity"],Offset[ {-2.,0.},{0.,10.}],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.3429357798165137},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[InterpretationBox[ "\"South Africa\"",Entity["Country","SouthAfrica"],BaseStyle->"Entity"],TraditionalForm],0},{2.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{2.,FormBox[InterpretationBox[ "\"Portugal\"",Entity["Country","Portugal"],BaseStyle->"Entity"],TraditionalForm],0},{3.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{3.,FormBox[InterpretationBox[ "\"Jordan\"",Entity["Country","Jordan"],BaseStyle->"Entity"],TraditionalForm],0},{4.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{4.,FormBox[InterpretationBox[ "\"Jersey\"",Entity["Country","Jersey"],BaseStyle->"Entity"],TraditionalForm],0},{5.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{5.,FormBox[InterpretationBox[ "\"China\"",Entity["Country","China"],BaseStyle->"Entity"],TraditionalForm],0},{6.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{6.,FormBox[InterpretationBox[ "\"Russia\"",Entity["Country","Russia"],BaseStyle->"Entity"],TraditionalForm],0},{7.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{7.,FormBox[InterpretationBox[ "\"India\"",Entity["Country","India"],BaseStyle->"Entity"],TraditionalForm],0},{8.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{8.,FormBox[InterpretationBox[ "\"Greece\"",Entity["Country","Greece"],BaseStyle->"Entity"],TraditionalForm],0},{9.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{9.,FormBox[InterpretationBox[ "\"United States\"",Entity["Country","UnitedStates"],BaseStyle->"Entity"],TraditionalForm],0},{10.,FormBox[ InterpretationBox[StyleBox[GraphicsBox[{},ImageSize->{0,0},BaselinePosition->Baseline], "CacheGraphics"->False],Spacer[0]],TraditionalForm],{0.004,0}},{10.,FormBox[InterpretationBox[ "\"World\"",Entity["Country","World"],BaseStyle->"Entity"],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}}}},{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.683374291768762*^9},ExpressionUUID->"7d7285f2-4cd5-41d2-9c35-f2a03e6930c1"]}, Open]]},Open]]},Open]]},WindowSize->{775,873},WindowMargins->{{136,Automatic},{Automatic,0}}, WindowTitle->"Examples for The Devil's Dictionary",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)"]