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->"0dc7d752-1eb8-44d3-8735-289bd55127ba"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"ResourceObject","[","\"Dorothy and the Wizard in Oz\"","]"}]],"Input",CellChangeTimes->{{3.6804517731799183*^9,3.6804517885604563*^9},{3.6804527318597765*^9,3.6804527390684977*^9}}, ExpressionUUID->"3e55df75-330a-4fab-afc3-352ece2c8c3d"],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[ "\"Dorothy and the Wizard in Oz\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"", "SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"DataResource\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"Plaintext for L. Frank Baum's \\\"Dorothy and the Wizard in Oz\\\"\"", "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[ "\"Dorothy and the Wizard in Oz\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"", "SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"DataResource\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"Plaintext for L. Frank Baum's \\\"Dorothy and the Wizard in Oz\\\"\"", "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\""},"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[ "5be9736d-60e4-4c3c-b513-1b1df47b51ee"]],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[ "\"5be9736d-60e4-4c3c-b513-1b1df47b51ee\"","SummaryItem"]}]},{RowBox[{TagBox["\"Version: \"", "SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"1.0.0\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Size: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[RowBox[{"\\[LeftAssociation]",RowBox[ {"\"Plaintext\"","\[Rule]","230544"}],"\\[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"->"Dorothy and the Wizard in Oz", "UUID"->"5be9736d-60e4-4c3c-b513-1b1df47b51ee","ResourceType"->"DataResource","Version"->"1.0.0", "Description"->"Plaintext for L. Frank Baum's \"Dorothy and the Wizard in Oz\"","ContentSize"->Association[ "Plaintext"->230544],"ContentElements"->{"Plaintext"}]],Editable->False,SelectWithContents->True, Selectable->False]],"Output",CellChangeTimes->{3.683377806199483*^9},ExpressionUUID->"b2288960-64a6-4209-b4d2-d11980287aef"]}, 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->"e94896d8-9e94-4858-bbfa-9d940ba79a58"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"RandomChoice","[",RowBox[{"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"Dorothy and the Wizard in Oz\"","]"}],",","\"Paragraph\""}],"]"}],"]"}]], "Input",CellChangeTimes->{{3.683378625491334*^9,3.683378657723014*^9}},ExpressionUUID->"d1586b7a-484d-4d13-aa98-c2ecec0425b8"],Cell[ BoxData[ "\"The cab-horse gave a nervous start and Zeb began to rub his eyes to\\nmake sure he was not asleep. For they were in the streets of a\\nbeautiful emerald-green city, bathed in a grateful green light that was\\nespecially pleasing to their eyes, and surrounded by merry faced people\\nin gorgeous green-and-gold costumes of many extraordinary designs.\""], "Output",CellChangeTimes->{{3.683378637623905*^9,3.6833786683423777*^9}},ExpressionUUID->"3026708e-c694-41f0-bbb2-d3cef56792e3"]}, Open]]},Open]]},Open]],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},{3.683378178114451*^9,3.6833782469205523*^9},{3.683378466317356*^9,3.683378471906522*^9}}, ExpressionUUID->"7e6a885c-a7f6-473a-8555-ab1089ee267b"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"WordCloud","[",RowBox[{"DeleteStopwords","[",RowBox[{"ResourceData","[","\"Dorothy and the Wizard in Oz\"","]"}],"]"}],"]"}]], "Input",CellChangeTimes->{{3.683377846183662*^9,3.6833778517110023*^9},{3.683377923958314*^9,3.683377932644909*^9}}, ExpressionUUID->"2fd26ea6-588e-4477-8ad8-112fd987a3e1"],Cell[ BoxData[GraphicsBox[ {InsetBox[StyleBox["\"Dorothy\"",StripOnInput->False,FontSize->Scaled[0.17931386895222168], FontColor->RGBColor[0.560181,0.691569,0.194885]],{0,0},Center,Automatic],InsetBox[ StyleBox["\"Wizard\"",StripOnInput->False,FontSize->Scaled[0.1897661022460688],FontColor->RGBColor[ 0.880722,0.611041,0.142051]],{-0.5,49.5},Center,Automatic],InsetBox[StyleBox["\"said\"", StripOnInput->False,FontSize->Scaled[0.20648967551622419],FontColor->RGBColor[0.368417, 0.506779,0.709798]],{4.5,-51.5},Center,Automatic],InsetBox[StyleBox["\"Eureka\"", StripOnInput->False,FontSize->Scaled[0.08454695375467447],FontColor->RGBColor[1,0.75, 0]],{17.5,78.5},Center,Automatic],InsetBox[StyleBox["\"little\"",StripOnInput->False, FontSize->Scaled[0.11451002253036954],FontColor->RGBColor[0.528488,0.470624,0.701351]], {-0.5,-92.5},Center,Automatic],InsetBox[StyleBox["\"Jim\"",StripOnInput->False,FontSize->Scaled[ 0.11938773140083153],FontColor->RGBColor[0.922526,0.385626,0.209179]],{-90.5,-38.5}, Center,Automatic],InsetBox[StyleBox["\"Zeb\"",StripOnInput->False,FontSize->Scaled[ 0.10963231365990755],FontColor->RGBColor[0.772079,0.431554,0.102387]],{-0.5,104.5}, Center,Automatic],InsetBox[StyleBox["\"people\"",StripOnInput->False,FontSize->Scaled[ 0.08036606043713562],FontColor->RGBColor[0.915,0.3325,0.2125]],{76.5,-84.5},Center, Automatic],InsetBox[StyleBox["\"asked\"",StripOnInput->False,FontSize->Scaled[0.08524376930759761], FontColor->RGBColor[0.363898,0.618501,0.782349]],{-73.5,-89.5},Center,Automatic],InsetBox[ StyleBox["\"Princess\"",StripOnInput->False,FontSize->Scaled[0.06503611827282652], FontColor->RGBColor[0.8996399512215667,0.7463488834690629,0.]],{-19.5,-114.5},Center, Automatic],InsetBox[StyleBox["\"Kitten\"",StripOnInput->False,FontSize->Scaled[0.08036606043713562], FontColor->RGBColor[0.571589,0.586483,0.]],{101.5,-46.5},Center,Automatic],InsetBox[ StyleBox["\"horse\"",StripOnInput->False,FontSize->Scaled[0.08036606043713562],FontColor->RGBColor[ 0.647624,0.37816,0.614037]],{-68.5,89.5},Center,Automatic],InsetBox[StyleBox["\"buggy\"", StripOnInput->False,FontSize->Scaled[0.07130745824913479],FontColor->RGBColor[0.736782672705901, 0.358,0.5030266573755369]],{74.5,96.5},Center,Automatic],InsetBox[StyleBox["\"answered\"", StripOnInput->False,FontSize->Scaled[0.053190253873133114],FontColor->RGBColor[0.6184987019729621, 0.39212575718243875,0.7412532450675947]],{-100.5,-62.5},Center,Automatic],InsetBox[ StyleBox["\"Ozma\"",StripOnInput->False,FontSize->Scaled[0.06503611827282652],FontColor->RGBColor[ 0.5833680111493557,0.4126186601628758,0.8290799721266107]],{-64.5,108.5},Center,Automatic],InsetBox[ StyleBox["\"time\"",StripOnInput->False,FontSize->Scaled[0.0782756137783662],FontColor->RGBColor[ 0.40082222609352647,0.5220066643438841,0.85]],{60.5,-113.5},Center,Automatic],InsetBox[ StyleBox["\"Wooden\"",StripOnInput->False,FontSize->Scaled[0.050402991661440556], FontColor->RGBColor[0.9637822400302223,0.5764112001511111,0.0977879519184]],{-0.5,130.5}, Center,Automatic],InsetBox[StyleBox["\"replied\"",StripOnInput->False,FontSize->Scaled[ 0.05528070053190253],FontColor->RGBColor[0.7748409210981391,0.358,0.4444755060028629]], {61.5,116.5},Center,Automatic],InsetBox[StyleBox["\"Man\"",StripOnInput->False,FontSize->Scaled[ 0.06852019603744222],FontColor->RGBColor[0.838355547812947,0.44746667828057946,0.0208888695323676]], {120.5,25.5},Center,Automatic],InsetBox[StyleBox["\"great\"",StripOnInput->False, FontSize->Scaled[0.058764778296518244],FontColor->RGBColor[0.5407932311309059,0.715, 0.09762679674248334]],{-119.5,38.5},Center,Automatic],InsetBox[StyleBox["\"Gargoyles\"", StripOnInput->False,FontSize->Scaled[0.03925394281467029],FontColor->RGBColor[0.9492067688690977, 0.5394711792460651,0.10728609198218791]],{-0.5,-130.5},Center,Automatic],InsetBox[ StyleBox["\"good\"",StripOnInput->False,FontSize->Scaled[0.06015840940236453],FontColor->RGBColor[ 0.6753413537738198,0.3589675436319385,0.5991466155654507]],{120.5,-19.5},Center,Automatic],InsetBox[ StyleBox["\"Piglets\"",StripOnInput->False,FontSize->Scaled[0.050402991661440556], FontColor->RGBColor[0.35558897405758294,0.5505288207539337,0.8417067688690995]],{-61.5,127.5}, Center,Automatic],InsetBox[StyleBox["\"Mangaboos\"",StripOnInput->False,FontSize->Scaled[ 0.03786031170882401],FontColor->RGBColor[0.7896667828057927,0.3575666434388414,0.4213886953236787]], {-97.5,-108.5},Center,Automatic],InsetBox[StyleBox["\"way\"",StripOnInput->False, FontSize->Scaled[0.06364248716698023],FontColor->RGBColor[0.8439466852489265,0.3467106629502147, 0.3309221912517893]],{119.5,46.5},Center,Automatic],InsetBox[StyleBox["\"Cab-Horse\"", StripOnInput->False,FontSize->Scaled[0.03507304949713144],FontColor->RGBColor[0.969373377466199, 0.6043668873309952,0.08269188084126262]],{-64.5,-128.5},Center,Automatic],InsetBox[ StyleBox["\"Sorcerer\"",StripOnInput->False,FontSize->Scaled[0.04134438947343971], FontColor->RGBColor[0.8342400905885153,0.4628267270590103,0.0038160815296638794]], {60.5,132.5},Center,Automatic],InsetBox[StyleBox["\"voice\"",StripOnInput->False, FontSize->Scaled[0.05179662276728683],FontColor->RGBColor[0.7678998606330495,0.7317110956258943, 0.]],{-120.5,55.5},Center,Automatic],InsetBox[StyleBox["\"girl\"",StripOnInput->False, FontSize->Scaled[0.07270108935498107],FontColor->RGBColor[0.9728288904374106,0.621644452187053, 0.07336199581899142]],{-121.5,0.5},Center,Automatic],InsetBox[StyleBox["\"long\"", StripOnInput->False,FontSize->Scaled[0.058764778296518244],FontColor->RGBColor[0.8857244243136628, 0.3764133635295058,0.1393110607841571]],{118.5,65.5},Center,Automatic],InsetBox[StyleBox[ "\"country\"",StripOnInput->False,FontSize->Scaled[0.042738020579285996],FontColor->RGBColor[ 0.9052934053395919,0.510195603559728,0.06776406480563275]],{57.5,-131.5},Center,Automatic],InsetBox[ StyleBox["\"like\"",StripOnInput->False,FontSize->Scaled[0.06852019603744222],FontColor->RGBColor[ 0.28026441037696703,0.715,0.4292089322474965]],{124.5,0.5},Center,Automatic],InsetBox[ StyleBox["\"away\"",StripOnInput->False,FontSize->Scaled[0.0545838849789794],FontColor->RGBColor[ 0.16397784358994957,0.7038177251280403,0.6117734123079395]],{109.5,-102.5},Center, Automatic],InsetBox[StyleBox["\"sawhorse\"",StripOnInput->False,FontSize->Scaled[ 0.03855712726174715],FontColor->RGBColor[0.9930578157165594,0.7227890785827968,0.01874389756528967]], {114.5,-125.5},Center,Automatic],InsetBox[StyleBox["\"boy\"",StripOnInput->False, FontSize->Scaled[0.06224885606113396],FontColor->RGBColor[0.28240003484173815,0.6090799721266095, 0.7538800418100857]],{-121.5,78.5},Center,Automatic],InsetBox[StyleBox["\"Mountain\"", StripOnInput->False,FontSize->Scaled[0.03855712726174715],FontColor->RGBColor[0.5019668524892619, 0.46131988850644284,0.85]],{-115.5,126.5},Center,Automatic],InsetBox[StyleBox["\"Friends\"", StripOnInput->False,FontSize->Scaled[0.04343483613220914],FontColor->RGBColor[0.8168067340273636, 0.3521386531945273,0.3761554432877274]],{116.5,110.5},Center,Automatic],InsetBox[ StyleBox["\"remarked\"",StripOnInput->False,FontSize->Scaled[0.036466680602977725], FontColor->RGBColor[0.6319174318193065,0.38429816477207124,0.7077064204517338]],{116.5,131.5}, Center,Automatic],InsetBox[StyleBox["\"just\"",StripOnInput->False,FontSize->Scaled[ 0.06085522495528767],FontColor->RGBColor[0.9324333565611593,0.5282889043741062,0.0921900209050434]], {125.5,85.5},Center,Automatic],InsetBox[StyleBox["\"returned\"",StripOnInput->False, FontSize->Scaled[0.03786031170882401],FontColor->RGBColor[0.19193353076984873,0.681453175384121, 0.6453202369238185]],{127.5,-63.5},Center,Automatic],InsetBox[StyleBox["\"Land\"", StripOnInput->False,FontSize->Scaled[0.0497061761085174],FontColor->RGBColor[0.7132613816472081, 0.358,0.5392132590042952]],{-131.5,-20.5},Center,Automatic],InsetBox[StyleBox["\"Prince\"", StripOnInput->False,FontSize->Scaled[0.03995075836759343],FontColor->RGBColor[0.8607200975568693, 0.34335598048862614,0.30296650407188447]],{7.5,144.5},Center,Automatic],InsetBox[ StyleBox["\"came\"",StripOnInput->False,FontSize->Scaled[0.05737114719067196],FontColor->RGBColor[ 0.9874666782805795,0.6948333914028977,0.033839968642435214]],{-0.5,-146.5},Center, Automatic],InsetBox[StyleBox["\"piglet\"",StripOnInput->False,FontSize->Scaled[0.04413165168513228], FontColor->RGBColor[0.9810598048862722,0.7553955338762525,0.]],{-47.5,-144.5},Center, Automatic],InsetBox[StyleBox["\"Glass\"",StripOnInput->False,FontSize->Scaled[0.04064757392051657], FontColor->RGBColor[0.596786740995709,0.404791067752503,0.7955331475107271]],{-33.5,145.5}, Center,Automatic],InsetBox[StyleBox["\"know\"",StripOnInput->False,FontSize->Scaled[ 0.042041205026362855],FontColor->RGBColor[0.9784200278733908,0.649600139366954,0.058265924741844846]], {-129.5,-76.5},Center,Automatic],InsetBox[StyleBox["\"eyes\"",StripOnInput->False, FontSize->Scaled[0.04552528279097856],FontColor->RGBColor[0.5472001045252132,0.43417993728487203, 0.85]],{-121.5,95.5},Center,Automatic],InsetBox[StyleBox["\"come\"",StripOnInput->False, FontSize->Scaled[0.050402991661440556],FontColor->RGBColor[0.8878600487784333,0.33792799024431336, 0.2577332520359445]],{46.5,-145.5},Center,Automatic],InsetBox[StyleBox["\"Oz\"",StripOnInput->False, FontSize->Scaled[0.0580679627435951],FontColor->RGBColor[0.47401116530937026,0.47809330081437784, 0.85]],{-137.5,-39.5},Center,Automatic],InsetBox[StyleBox["\"place\"",StripOnInput->False, FontSize->Scaled[0.042041205026362855],FontColor->RGBColor[0.7513196300394465,0.358, 0.48066210763162087]],{-131.5,-90.5},Center,Automatic],InsetBox[StyleBox["\"children\"", StripOnInput->False,FontSize->Scaled[0.03298260283836202],FontColor->RGBColor[0.8926354502560807, 0.366046824615879,0.15658862564020168]],{50.5,146.5},Center,Automatic],InsetBox[StyleBox[ "\"exclaimed\"",StripOnInput->False,FontSize->Scaled[0.03089215617959259],FontColor->RGBColor[ 0.9603267270590103,0.5591336352950514,0.10711783694067224]],{-77.5,141.5},Center, Automatic],InsetBox[StyleBox["\"enquired\"",StripOnInput->False,FontSize->Scaled[ 0.030195340626669454],FontColor->RGBColor[0.529922539669161,0.44454647619850335,0.85]], {-125.5,19.5},Center,Automatic],InsetBox[StyleBox["\"cried\"",StripOnInput->False, FontSize->Scaled[0.04134438947343971],FontColor->RGBColor[0.2187618985811806,0.715, 0.5074848563512248]],{135.5,-78.5},Center,Automatic],InsetBox[StyleBox["\"earth\"", StripOnInput->False,FontSize->Scaled[0.042041205026362855],FontColor->RGBColor[0.428777913273419, 0.5052332520359486,0.85]],{-112.5,109.5},Center,Automatic],InsetBox[StyleBox["\"began\"", StripOnInput->False,FontSize->Scaled[0.03855712726174715],FontColor->RGBColor[0.8745421494417032, 0.39318677583744527,0.11135537360425793]],{-86.5,-140.5},Center,Automatic],InsetBox[ StyleBox["\"thought\"",StripOnInput->False,FontSize->Scaled[0.031588971732515736], FontColor->RGBColor[0.7989994773739094,0.735166608597101,0.]],{-115.5,-123.5},Center, Automatic],InsetBox[StyleBox["\"ground\"",StripOnInput->False,FontSize->Scaled[0.03367941839128516], FontColor->RGBColor[0.922066817647527,0.5213778784316846,0.08286013588277422]],{100.5,-139.5}, Center,Automatic],InsetBox[StyleBox["\"things\"",StripOnInput->False,FontSize->Scaled[ 0.036466680602977725],FontColor->RGBColor[0.9046334610863751,0.334573307782725,0.22977756485604156]], {90.5,144.5},Center,Automatic],InsetBox[StyleBox["\"declared\"",StripOnInput->False, FontSize->Scaled[0.029498525073746312],FontColor->RGBColor[0.6453361616656581,0.37647057236169945, 0.6741595958358548]],{-123.5,139.5},Center,Automatic],InsetBox[StyleBox["\"head\"", StripOnInput->False,FontSize->Scaled[0.042738020579285996],FontColor->RGBColor[0.6536293927965667, 0.37163285420200276,0.6534265180085832]],{-123.5,-140.5},Center,Automatic],InsetBox[ StyleBox["\"slowly\"",StripOnInput->False,FontSize->Scaled[0.03507304949713144],FontColor->RGBColor[ 0.845266573755366,0.437100139366951,0.03816643438841502]],{135.5,145.5},Center,Automatic],InsetBox[ StyleBox["\"found\"",StripOnInput->False,FontSize->Scaled[0.037163496155900866],FontColor->RGBColor[ 0.8781534541180211,0.4921023027453475,0.04333810870621905]],{-68.5,153.5},Center, Automatic],InsetBox[StyleBox["\"make\"",StripOnInput->False,FontSize->Scaled[0.03925394281467029], FontColor->RGBColor[0.47929071933511125,0.715,0.1759027208462221]],{89.5,-153.5}, Center,Automatic],InsetBox[StyleBox["\"strange\"",StripOnInput->False,FontSize->Scaled[ 0.03089215617959259],FontColor->RGBColor[0.4177882075393331,0.715,0.25417864494993975]], {-86.5,-153.5},Center,Automatic],InsetBox[StyleBox["\"beautiful\"",StripOnInput->False, FontSize->Scaled[0.03089215617959259],FontColor->RGBColor[0.3383114092015346,0.5643508726387724, 0.8209736910418415]],{75.5,157.5},Center,Automatic],InsetBox[StyleBox["\"looked\"", StripOnInput->False,FontSize->Scaled[0.0343762339442083],FontColor->RGBColor[0.5750747800184488, 0.4174563783225715,0.8498130499538777]],{-105.5,151.5},Center,Automatic],InsetBox[ StyleBox["\"eat\"",StripOnInput->False,FontSize->Scaled[0.0545838849789794],FontColor->RGBColor[ 0.8613800418100862,0.48092002787339083,0.02824203762907758]],{147.5,-92.5},Center, Automatic],InsetBox[StyleBox["\"called\"",StripOnInput->False,FontSize->Scaled[0.03298260283836202], FontColor->RGBColor[0.5788038738141875,0.715,0.049249615145579635]],{-146.5,106.5}, Center,Automatic],InsetBox[StyleBox["\"wings\"",StripOnInput->False,FontSize->Scaled[ 0.03367941839128516],FontColor->RGBColor[0.6670481226429111,0.3638052617916352,0.6198796933927223]], {147.5,-111.5},Center,Automatic],InsetBox[StyleBox["\"City\"",StripOnInput->False, FontSize->Scaled[0.03995075836759343],FontColor->RGBColor[0.8493197142977551,0.7407577460330839, 0.]],{78.5,-64.5},Center,Automatic],InsetBox[StyleBox["\"quite\"",StripOnInput->False, FontSize->Scaled[0.03507304949713144],FontColor->RGBColor[0.31827505306025683,0.715, 0.3808317506505822]],{-146.5,-105.5},Center,Automatic],InsetBox[StyleBox["\"Old\"", StripOnInput->False,FontSize->Scaled[0.042738020579285996],FontColor->RGBColor[0.6361597700445392, 0.7170733077827265,0.]],{-151.5,0.5},Center,Automatic],InsetBox[StyleBox["\"room\"", StripOnInput->False,FontSize->Scaled[0.04343483613220914],FontColor->RGBColor[0.23716678280579248, 0.645266573755366,0.699600139366951]],{137.5,-138.5},Center,Automatic],InsetBox[StyleBox[ "\"pretty\"",StripOnInput->False,FontSize->Scaled[0.03228578728543888],FontColor->RGBColor[ 0.15725938678540247,0.715,0.5857607804549424]],{122.5,-152.5},Center,Automatic],InsetBox[ StyleBox["\"sure\"",StripOnInput->False,FontSize->Scaled[0.04691891389682484],FontColor->RGBColor[ 0.8564488486273256,0.42032672705901153,0.06612212156831418]],{-122.5,-153.5},Center, Automatic],InsetBox[StyleBox["\"air\"",StripOnInput->False,FontSize->Scaled[0.048312545002671126], FontColor->RGBColor[0.37977756485605163,0.715,0.3025558265468435]],{147.5,-34.5}, Center,Automatic],InsetBox[StyleBox["\"stood\"",StripOnInput->False,FontSize->Scaled[ 0.03298260283836202],FontColor->RGBColor[0.9840111653093676,0.677555826546838,0.04316985366470745]], {-139.5,151.5},Center,Automatic],InsetBox[StyleBox["\"went\"",StripOnInput->False, FontSize->Scaled[0.0343762339442083],FontColor->RGBColor[0.26512246998569167,0.6229020240114467, 0.73314696398283]],{18.5,156.5},Center,Automatic],InsetBox[StyleBox["\"right\"",StripOnInput->False, FontSize->Scaled[0.036466680602977725],FontColor->RGBColor[0.7175796237092107,0.7261199581899123, 0.]],{-149.5,-121.5},Center,Automatic],InsetBox[StyleBox["\"Bears\"",StripOnInput->False, FontSize->Scaled[0.031588971732515736],FontColor->RGBColor[0.6102054708420535,0.39696347534213544, 0.7619863228948663]],{112.5,157.5},Center,Automatic],InsetBox[StyleBox["\"took\"", StripOnInput->False,FontSize->Scaled[0.0343762339442083],FontColor->RGBColor[0.8335801463353031, 0.3487839707329394,0.3481997561078282]],{155.5,5.5},Center,Automatic],InsetBox[StyleBox[ "\"big\"",StripOnInput->False,FontSize->Scaled[0.042041205026362855],FontColor->RGBColor[ 0.9038177251280404,0.3492734123079395,0.18454431282010084]],{155.5,-9.5},Center,Automatic],InsetBox[ StyleBox["\"Nine\"",StripOnInput->False,FontSize->Scaled[0.03228578728543888],FontColor->RGBColor[ 0.7658565873730018,0.358,0.4582975578876895]],{152.5,37.5},Center,Automatic],InsetBox[ StyleBox["\"face\"",StripOnInput->False,FontSize->Scaled[0.03298260283836202],FontColor->RGBColor[ 0.4567336004533182,0.4884598397280091,0.85]],{156.5,17.5},Center,Automatic],InsetBox[ StyleBox["\"soon\"",StripOnInput->False,FontSize->Scaled[0.03995075836759343],FontColor->RGBColor[ 0.3103557220216354,0.5867154223826917,0.7874268664259625]],{152.5,-47.5},Center,Automatic],InsetBox[ StyleBox["\"look\"",StripOnInput->False,FontSize->Scaled[0.03576986505005458],FontColor->RGBColor[ 0.38354466123747527,0.5323732032575149,0.85]],{-156.5,29.5},Center,Automatic],InsetBox[ StyleBox["\"Tiny\"",StripOnInput->False,FontSize->Scaled[0.03089215617959259],FontColor->RGBColor[ 0.8633598745697435,0.40996018814538476,0.08339968642435877]],{150.5,51.5},Center, Automatic],InsetBox[StyleBox["\"course\"",StripOnInput->False,FontSize->Scaled[0.029498525073746312], FontColor->RGBColor[0.8949268664259606,0.5032845776173072,0.05843417978336459]],{-16.5,-22.5}, Center,Automatic],InsetBox[StyleBox["\"floor\"",StripOnInput->False,FontSize->Scaled[ 0.029498525073746312],FontColor->RGBColor[0.6672593867853922,0.7205288207539324,0.]], {-22.5,156.5},Center,Automatic],InsetBox[StyleBox["\"light\"",StripOnInput->False, FontSize->Scaled[0.030195340626669454],FontColor->RGBColor[0.8064401951137368,0.3542119609772526, 0.39343300814377197]],{-154.5,42.5},Center,Automatic],InsetBox[StyleBox["\"Oh\"", StripOnInput->False,FontSize->Scaled[0.03507304949713144],FontColor->RGBColor[0.7277983389807635, 0.358,0.5168487092603637]],{-150.5,-54.5},Center,Automatic],InsetBox[StyleBox["\"let\"", StripOnInput->False,FontSize->Scaled[0.03925394281467029],FontColor->RGBColor[0.6897400905885174, 0.358,0.5753998606330502]],{146.5,63.5},Center,Automatic],InsetBox[StyleBox["\"top\"", StripOnInput->False,FontSize->Scaled[0.031588971732515736],FontColor->RGBColor[0.8774935098648088, 0.34000129802703827,0.2750108168919853]],{5.5,-160.5},Center,Automatic],InsetBox[ StyleBox["\"roof\"",StripOnInput->False,FontSize->Scaled[0.030195340626669454],FontColor->RGBColor[ 0.2198892179497479,0.6590886256402017,0.6788670615396974]],{-158.5,14.5},Center,Automatic],InsetBox[ StyleBox["\"tell\"",StripOnInput->False,FontSize->Scaled[0.03228578728543888],FontColor->RGBColor[ 0.8510135028964549,0.47400900193096995,0.018912152606809424]],{-159.5,-14.5},Center, Automatic],InsetBox[StyleBox["\"real\"",StripOnInput->False,FontSize->Scaled[0.029498525073746312], FontColor->RGBColor[0.9107287510704583,0.33890687339431275,0.20182187767614543]], {74.5,73.5},Center,Automatic],InsetBox[StyleBox["\"near\"",StripOnInput->False,FontSize->Scaled[ 0.03089215617959259],FontColor->RGBColor[0.7042770479220728,0.358,0.5530353108891188]], {-24.5,23.5},Center,Automatic],InsetBox[StyleBox["\"saw\"",StripOnInput->False,FontSize->Scaled[ 0.0343762339442083],FontColor->RGBColor[0.9307395679624266,0.7498043964402695,0.]], {-16.5,-160.5},Center,Automatic],InsetBox[StyleBox["\"left\"",StripOnInput->False, FontSize->Scaled[0.030195340626669454],FontColor->RGBColor[0.9986489531525362,0.7507447657626809, 0.0036478264881522893]],{-151.5,54.5},Center,Automatic]},DefaultBaseStyle->{"Graphics",FontFamily->"Helvetica",FontWeight->Plain,FontTracking->"Plain",FontSlant->Plain,FontVariations->{}}, Method->{"DefaultBoundaryStyle"->Automatic,"DefaultPlotStyle"->Automatic},PlotRange->{{-170.,169.},{-169.,164.}}]], "Output",CellChangeTimes->{3.683377868576435*^9,3.6833779397522993*^9},ExpressionUUID->"c591f847-1bf1-40e4-a67e-9fa56ef5d6f5"]}, 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.6833781647323503*^9,3.683378174218535*^9},{3.6833784759865026*^9,3.683378482234232*^9}}, ExpressionUUID->"92c486cc-2ac7-4e52-a8fa-29391ecb62f5"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"With","[",RowBox[{RowBox[{"{",RowBox[{"sentences","=",RowBox[{"TextSentences","[",RowBox[ {"ResourceData","[","\"Dorothy and the Wizard in Oz\"","]"}],"]"}]}],"}"}],",","\[IndentingNewLine]",RowBox[ {"Histogram","[",RowBox[{RowBox[{"(",RowBox[{"Length","/@",RowBox[{"(",RowBox[{"TextWords","/@","sentences"}],")"}]}],")"}],",",RowBox[ {"PlotRange","\[Rule]","Full"}]}],"]"}]}],"]"}]],"Input",CellChangeTimes->{{3.68337807184173*^9,3.6833781143908978*^9}}, ExpressionUUID->"535ad169-8b27-42f1-9b78-db9116223b04"],Cell[ BoxData[GraphicsBox[ {{{RGBColor[0.987148,0.8073604000000001,0.49470040000000004],EdgeForm[{Opacity[0.7],Thickness[ Small]}],{},{{RGBColor[0.987148,0.8073604000000001,0.49470040000000004],EdgeForm[ {Opacity[0.7],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[{FEPrivate`If[ CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[1.5],Opacity[ 0.66]}],{},{}],RectangleBox[{0.,0},{5.,69},"RoundingRadius"->0]},ImageSizeCache->{{27.23518815052042,41.83342326034741},{41.30644132785057,93.32840450262984}}], Function[StatusArea[Slot[1],69]],TagBoxNote->"69"],StyleBox["69",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[69,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{5.,0},{10.,223},"RoundingRadius"->0]},ImageSizeCache->{{41.33342326034741,55.931658370174404},{-73.68460691730897,93.32840450262984}}], Function[StatusArea[Slot[1],223]],TagBoxNote->"223"],StyleBox["223",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[223,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{10.,0},{15.,260},"RoundingRadius"->0]}, ImageSizeCache->{{55.431658370174404,70.02989348000139},{-101.31232630088624,93.32840450262984}}], Function[StatusArea[Slot[1],260]],TagBoxNote->"260"],StyleBox["260",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[260,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{15.,0},{20.,243},"RoundingRadius"->0]}, ImageSizeCache->{{69.52989348000139,84.12812858982839},{-88.6185092868102,93.32840450262984}}], Function[StatusArea[Slot[1],243]],TagBoxNote->"243"],StyleBox["243",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[243,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{20.,0},{25.,229},"RoundingRadius"->0]}, ImageSizeCache->{{83.62812858982839,98.22636369965538},{-78.16477762815933,93.32840450262984}}], Function[StatusArea[Slot[1],229]],TagBoxNote->"229"],StyleBox["229",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[229,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{25.,0},{30.,232},"RoundingRadius"->0]}, ImageSizeCache->{{97.72636369965538,112.32459880948237},{-80.40486298358451,93.32840450262984}}], Function[StatusArea[Slot[1],232]],TagBoxNote->"232"],StyleBox["232",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[232,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{30.,0},{35.,165},"RoundingRadius"->0]}, ImageSizeCache->{{111.82459880948237,126.42283391930937},{-30.37629004575537,93.32840450262984}}], Function[StatusArea[Slot[1],165]],TagBoxNote->"165"],StyleBox["165",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[165,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{35.,0},{40.,107},"RoundingRadius"->0]}, ImageSizeCache->{{125.92283391930937,140.52106902913636},{12.932026825798218,93.32840450262984}}], Function[StatusArea[Slot[1],107]],TagBoxNote->"107"],StyleBox["107",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[107,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{40.,0},{45.,68},"RoundingRadius"->0]},ImageSizeCache->{{140.02106902913636,154.61930413896337},{42.05313644632563,93.32840450262984}}], Function[StatusArea[Slot[1],68]],TagBoxNote->"68"],StyleBox["68",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[68,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{45.,0},{50.,47},"RoundingRadius"->0]},ImageSizeCache->{{154.11930413896337,168.71753924879036},{57.73373393430193,93.32840450262984}}], Function[StatusArea[Slot[1],47]],TagBoxNote->"47"],StyleBox["47",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[47,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{50.,0},{55.,29},"RoundingRadius"->0]},ImageSizeCache->{{168.21753924879036,182.81577435861735},{71.17424606685304,93.32840450262984}}], Function[StatusArea[Slot[1],29]],TagBoxNote->"29"],StyleBox["29",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[29,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{55.,0},{60.,24},"RoundingRadius"->0]},ImageSizeCache->{{182.31577435861735,196.91400946844433},{74.90772165922834,93.32840450262984}}], Function[StatusArea[Slot[1],24]],TagBoxNote->"24"],StyleBox["24",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[24,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{60.,0},{65.,27},"RoundingRadius"->0]},ImageSizeCache->{{196.41400946844433,211.01224457827135},{72.66763630380316,93.32840450262984}}], Function[StatusArea[Slot[1],27]],TagBoxNote->"27"],StyleBox["27",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[27,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{65.,0},{70.,10},"RoundingRadius"->0]},ImageSizeCache->{{210.51224457827135,225.11047968809834},{85.36145331787922,93.32840450262984}}], Function[StatusArea[Slot[1],10]],TagBoxNote->"10"],StyleBox["10",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[10,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{70.,0},{75.,10},"RoundingRadius"->0]},ImageSizeCache->{{224.61047968809834,239.20871479792532},{85.36145331787922,93.32840450262984}}], Function[StatusArea[Slot[1],10]],TagBoxNote->"10"],StyleBox["10",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[10,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{75.,0},{80.,8},"RoundingRadius"->0]},ImageSizeCache->{{238.70871479792532,253.3069499077523},{86.85484355482934,93.32840450262984}}], Function[StatusArea[Slot[1],8]],TagBoxNote->"8"],StyleBox["8",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[8,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{80.,0},{85.,1},"RoundingRadius"->0]},ImageSizeCache->{{252.8069499077523,267.4051850175793},{92.08170938415478,93.32840450262984}}], Function[StatusArea[Slot[1],1]],TagBoxNote->"1"],StyleBox["1",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[1,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{85.,0},{90.,3},"RoundingRadius"->0]},ImageSizeCache->{{266.9051850175793,281.5034201274063},{90.58831914720466,93.32840450262984}}], Function[StatusArea[Slot[1],3]],TagBoxNote->"3"],StyleBox["3",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[3,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{90.,0},{95.,3},"RoundingRadius"->0]},ImageSizeCache->{{281.0034201274063,295.6016552372333},{90.58831914720466,93.32840450262984}}], Function[StatusArea[Slot[1],3]],TagBoxNote->"3"],StyleBox["3",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[3,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{100.,0},{105.,2},"RoundingRadius"->0]}, ImageSizeCache->{{309.19989034706026,323.79812545688725},{91.33501426567972,93.32840450262984}}], Function[StatusArea[Slot[1],2]],TagBoxNote->"2"],StyleBox["2",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{110.,0},{115.,1},"RoundingRadius"->0]}, ImageSizeCache->{{337.39636056671424,351.9945956765412},{92.08170938415478,93.32840450262984}}], Function[StatusArea[Slot[1],1]],TagBoxNote->"1"],StyleBox["1",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[1,{}],"Tooltip"]]]}},{},{}}},{{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{}}}, AspectRatio->NCache[Power[GoldenRatio,-1],0.6180339887498948],Axes->{True,True},AxesLabel->{None,None}, AxesOrigin->{-2.3000000000000003,0},FrameLabel->{{None,None},{None,None}},FrameTicks->{{Automatic,Automatic},{Automatic,Automatic}}, GridLines->{None,None},GridLinesStyle->Directive[GrayLevel[0.5,0.4]],PlotRange->{{0.,115.},{All,All}}, PlotRangePadding->{{Scaled[0.02],Scaled[0.02]},{Scaled[0.02],Scaled[0.05]}},Ticks->{Automatic,Automatic}]], "Output",CellChangeTimes->{3.683378076834179*^9,3.683378159675336*^9},ExpressionUUID->"58719263-7838-43fd-a42d-c4b1a2324127"]}, Open]]},Open]]},Open]]},WindowSize->{1502,873},WindowMargins->{{1439,Automatic},{316,Automatic}}, WindowTitle->"Examples for Dorothy and the Wizard in Oz",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)"]