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->"42083433-c2ed-4584-bd08-e3989b98bd9c"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"ResourceObject","[","\"Death in Venice\"","]"}]],"Input",CellChangeTimes->{{3.6804517731799183*^9,3.6804517885604563*^9},{3.6804527318597765*^9,3.6804527390684977*^9}}, ExpressionUUID->"a17e7fb7-de2a-45b4-816b-e1af3e843d1d"],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[ "\"Death in Venice\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext in German for Thomas Mann's \\\"Death in Venice\\\"\"","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[ "\"Death in Venice\"","SummaryItem"]}]},{RowBox[{TagBox["\"Type: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"DataResource\"","SummaryItem"]}]},{RowBox[{TagBox["\"Description: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[ "\"Plaintext in German for Thomas Mann's \\\"Death in Venice\\\"\"","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\"","\"novella\"","\"book\"","\"german\""}, "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[ "64027080-862d-4d40-80c3-311e444db069"]],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[ "\"64027080-862d-4d40-80c3-311e444db069\"","SummaryItem"]}]},{RowBox[{TagBox["\"Version: \"", "SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox["\"1.0.0\"","SummaryItem"]}]},{RowBox[ {TagBox["\"Size: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TemplateBox[ {"172.936`","\"kB\"","kilobytes","\"Kilobytes\""},"Quantity"],"SummaryItem"]}]},{RowBox[ {TagBox["\"Elements: \"","SummaryItemAnnotation"],"\[InvisibleSpace]",TagBox[TagBox[ TemplateBox[{",","\",\"","\"Plaintext\""},"RowWithSeparators"],Function[Short[Slot[ 1],2]]],"SummaryItem"]}]}},AutoDelete->False,BaseStyle->{ShowStringCharacters->False,NumberMarks->False,PrintPrecision->3,ShowSyntaxStyles->False}, GridBoxAlignment->{"Columns"->{{Left}},"Rows"->{{Automatic}}},GridBoxItemSize->{"Columns"->{{Automatic}},"Rows"->{{Automatic}}}, GridBoxSpacings->{"Columns"->{{2}},"Rows"->{{Automatic}}}]}},AutoDelete->False,BaselinePosition->{1,1}, GridBoxAlignment->{"Rows"->{{Top}}},GridBoxItemSize->{"Columns"->{{Automatic}},"Rows"->{{Automatic}}}]}, Dynamic[Typeset`open$$],ImageSize->Automatic],BaselinePosition->Baseline],RuleDelayed[ DynamicModuleValues,{}]],"]"}],ResourceObject[Association["Name"->"Death in Venice", "UUID"->"64027080-862d-4d40-80c3-311e444db069","ResourceType"->"DataResource","Version"->"1.0.0", "Description"->"Plaintext in German for Thomas Mann's \"Death in Venice\"","ContentSize"->Quantity[ 172.936,"Kilobytes"],"ContentElements"->{"Plaintext"}]],Editable->False,SelectWithContents->True, Selectable->False]],"Output",CellChangeTimes->{3.683655466416341*^9},ExpressionUUID->"9f604ee8-3d04-4b94-b7aa-fc720433384b"]}, 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->"358a19b8-306a-4f3d-bdf3-07b846c700d4"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"RandomChoice","[",RowBox[{"TextCases","[",RowBox[{RowBox[{"ResourceData","[","\"Death in Venice\"","]"}],",","\"Paragraph\""}],"]"}],"]"}]], "Input",CellChangeTimes->{{3.6804518239459944*^9,3.680451854651065*^9},3.6836554731304483*^9}, ExpressionUUID->"315bee4e-8051-456d-98a4-507ce6733701"],Cell[ BoxData["\"In dem Raum herrschte die feierliche Stille, die zum Ehrgeiz der\\ngro\[SZ]en Hotels geh\[ODoubleDot]rt. Die bedienenden Kellner gingen auf leisen Sohlen\\numher. Ein Klappern des Teeger\[ADoubleDot]tes, ein halbgefl\[UDoubleDot]stertes Wort war\\nalles, was man vernahm. In einem Winkel, schr\[ADoubleDot]g gegen\[UDoubleDot]ber der T\[UDoubleDot]r und\\nzwei Tische von seinem entfernt, bemerkte Aschenbach die polnischen\\nM\[ADoubleDot]dchen mit ihrer Erzieherin. Sehr aufrecht, das aschblonde Haar neu\\ngegl\[ADoubleDot]ttet und mit ger\[ODoubleDot]teten Augen, in steifen blauleinenen Kleidern\\nmit kleinen wei\[SZ]en Fallkr\[ADoubleDot]gen und Manschetten sa\[SZ]en sie da und\\nreichten einander ein Glas mit Eingemachtem. Sie waren mit ihrem\\nFr\[UDoubleDot]hst\[UDoubleDot]ck fast fertig. Der Knabe fehlte.\""], "Output",CellChangeTimes->{{3.6836554664510927*^9,3.683655474115119*^9}},ExpressionUUID->"a03578f0-3cb4-4cb9-8a88-43eb92e2f248"]}, Open]]},Open]]},Open]],Cell[ CellGroupData[{Cell[ "\","Subsection"],Cell[ "\","Text",CellChangeTimes->{{3.683033608693839*^9,3.683033641819641*^9},{3.683375609032626*^9,3.6833756106526203*^9}}, ExpressionUUID->"302634d4-878d-4ba4-a85e-f21ab2cfa0a0"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"With","[",RowBox[{RowBox[{"{",RowBox[{"words","=",RowBox[{"TextWords","[",RowBox[ {"ResourceData","[","\"Death in Venice\"","]"}],"]"}]}],"}"}],",","\[IndentingNewLine]",RowBox[ {"Histogram","[",RowBox[{RowBox[{"(",RowBox[{"StringLength","/@","words"}],")"}],",",RowBox[ {"PlotRange","\[Rule]","Full"}]}],"]"}]}],"]"}]],"Input",CellChangeTimes->{{3.6830333795804577*^9,3.683033425254339*^9},{3.6830334646198807*^9,3.6830335879807243*^9},{3.683033646860409*^9,3.683033691272203*^9},3.683035619972542*^9,3.683387989735819*^9}, ExpressionUUID->"5e0422cd-b297-4c66-aa29-171075409a23"],Cell[ BoxData[GraphicsBox[ {{{RGBColor[0.987148,0.8073604000000001,0.49470040000000004],EdgeForm[{Opacity[0.693],Thickness[ Small]}],{},{{RGBColor[0.987148,0.8073604000000001,0.49470040000000004],EdgeForm[ {Opacity[0.693],Thickness[Small]}],TagBox[TooltipBox[TagBox[DynamicBox[{FEPrivate`If[ CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[1.5],Opacity[ 0.66]}],{},{}],RectangleBox[{1.,0},{2.,1},"RoundingRadius"->0]},ImageSizeCache->{{33.119895916733384,44.99471005375729},{91.65196581802937,92.18017012804766}}], 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[{2.,0},{3.,2190},"RoundingRadius"->0]},ImageSizeCache->{{44.49471005375729,56.3695241907812},{29.912731187987035,92.18017012804766}}], Function[StatusArea[Slot[1],2190]],TagBoxNote->"2190"],StyleBox["2190",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2190,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{3.,0},{4.,6761},"RoundingRadius"->0]},ImageSizeCache->{{55.8695241907812,67.74433832780511},{-99.0091699056281,92.18017012804766}}], Function[StatusArea[Slot[1],6761]],TagBoxNote->"6761"],StyleBox["6761",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[6761,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{4.,0},{5.,2737},"RoundingRadius"->0]},ImageSizeCache->{{67.24433832780511,79.119152464829},{14.484973607981033,92.18017012804766}}], Function[StatusArea[Slot[1],2737]],TagBoxNote->"2737"],StyleBox["2737",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2737,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{5.,0},{6.,2815},"RoundingRadius"->0]},ImageSizeCache->{{78.619152464829,90.49396660185292},{12.285037426554211,92.18017012804766}}], Function[StatusArea[Slot[1],2815]],TagBoxNote->"2815"],StyleBox["2815",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2815,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{6.,0},{7.,2734},"RoundingRadius"->0]},ImageSizeCache->{{89.99396660185292,101.86878073887682},{14.569586538035907,92.18017012804766}}], Function[StatusArea[Slot[1],2734]],TagBoxNote->"2734"],StyleBox["2734",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[2734,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{7.,0},{8.,1794},"RoundingRadius"->0]},ImageSizeCache->{{101.36878073887682,113.24359487590073},{41.081637955230875,92.18017012804766}}], Function[StatusArea[Slot[1],1794]],TagBoxNote->"1794"],StyleBox["1794",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[1794,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{8.,0},{9.,1563},"RoundingRadius"->0]},ImageSizeCache->{{112.74359487590073,124.61840901292463},{47.59683356945645,92.18017012804766}}], Function[StatusArea[Slot[1],1563]],TagBoxNote->"1563"],StyleBox["1563",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[1563,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{9.,0},{10.,1282},"RoundingRadius"->0]}, ImageSizeCache->{{124.11840901292463,135.99322314994853},{55.52224468459665,92.18017012804766}}], Function[StatusArea[Slot[1],1282]],TagBoxNote->"1282"],StyleBox["1282",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[1282,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{10.,0},{11.,1077},"RoundingRadius"->0]}, ImageSizeCache->{{135.49322314994853,147.36803728697242},{61.304128238346614,92.18017012804766}}], Function[StatusArea[Slot[1],1077]],TagBoxNote->"1077"],StyleBox["1077",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[1077,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[ DynamicBox[{FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{11.,0},{12.,727},"RoundingRadius"->0]}, ImageSizeCache->{{146.86803728697242,158.74285142399634},{71.175636744749,92.18017012804766}}], Function[StatusArea[Slot[1],727]],TagBoxNote->"727"],StyleBox["727",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[727,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{12.,0},{13.,490},"RoundingRadius"->0]}, ImageSizeCache->{{158.24285142399634,170.11766556102026},{77.86005821908432,92.18017012804766}}], Function[StatusArea[Slot[1],490]],TagBoxNote->"490"],StyleBox["490",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[490,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{13.,0},{14.,326},"RoundingRadius"->0]}, ImageSizeCache->{{169.61766556102026,181.49247969804418},{82.4855650620843,92.18017012804766}}], Function[StatusArea[Slot[1],326]],TagBoxNote->"326"],StyleBox["326",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[326,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{14.,0},{15.,216},"RoundingRadius"->0]}, ImageSizeCache->{{180.99247969804418,192.86729383506804},{85.58803916409647,92.18017012804766}}], Function[StatusArea[Slot[1],216]],TagBoxNote->"216"],StyleBox["216",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[216,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{15.,0},{16.,119},"RoundingRadius"->0]}, ImageSizeCache->{{192.36729383506804,204.24210797209196},{88.32385723587085,92.18017012804766}}], Function[StatusArea[Slot[1],119]],TagBoxNote->"119"],StyleBox["119",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[119,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{16.,0},{17.,81},"RoundingRadius"->0]},ImageSizeCache->{{203.74210797209196,215.61692210911588},{89.39562101656597,92.18017012804766}}], Function[StatusArea[Slot[1],81]],TagBoxNote->"81"],StyleBox["81",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[81,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{17.,0},{18.,36},"RoundingRadius"->0]},ImageSizeCache->{{215.11692210911588,226.9917362461398},{90.66481496738913,92.18017012804766}}], Function[StatusArea[Slot[1],36]],TagBoxNote->"36"],StyleBox["36",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[36,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{18.,0},{19.,32},"RoundingRadius"->0]},ImageSizeCache->{{226.4917362461398,238.3665503831637},{90.7776322074623,92.18017012804766}}], Function[StatusArea[Slot[1],32]],TagBoxNote->"32"],StyleBox["32",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[32,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{19.,0},{20.,14},"RoundingRadius"->0]},ImageSizeCache->{{237.8665503831637,249.74136452018757},{91.28530978779156,92.18017012804766}}], Function[StatusArea[Slot[1],14]],TagBoxNote->"14"],StyleBox["14",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[14,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{20.,0},{21.,10},"RoundingRadius"->0]},ImageSizeCache->{{249.24136452018757,261.1161786572115},{91.39812702786473,92.18017012804766}}], 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[{21.,0},{22.,6},"RoundingRadius"->0]},ImageSizeCache->{{260.6161786572115,272.4909927942354},{91.5109442679379,92.18017012804766}}], Function[StatusArea[Slot[1],6]],TagBoxNote->"6"],StyleBox["6",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[6,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{22.,0},{23.,9},"RoundingRadius"->0]},ImageSizeCache->{{271.9909927942354,283.8658069312593},{91.42633133788303,92.18017012804766}}], Function[StatusArea[Slot[1],9]],TagBoxNote->"9"],StyleBox["9",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[9,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{23.,0},{24.,1},"RoundingRadius"->0]},ImageSizeCache->{{283.3658069312593,295.24062106828325},{91.65196581802937,92.18017012804766}}], 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[{24.,0},{25.,3},"RoundingRadius"->0]},ImageSizeCache->{{294.74062106828325,306.61543520530716},{91.59555719799279,92.18017012804766}}], 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[{25.,0},{26.,2},"RoundingRadius"->0]},ImageSizeCache->{{306.11543520530716,317.990249342331},{91.62376150801107,92.18017012804766}}], 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[{27.,0},{28.,1},"RoundingRadius"->0]},ImageSizeCache->{{328.86506347935494,340.73987761637886},{91.65196581802937,92.18017012804766}}], 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[{28.,0},{29.,1},"RoundingRadius"->0]},ImageSizeCache->{{340.23987761637886,352.1146917534028},{91.65196581802937,92.18017012804766}}], 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->{0.43999999999999995,0},FrameLabel->{{None,None},{None,None}},FrameTicks->{{Automatic,Automatic},{Automatic,Automatic}}, GridLines->{None,None},GridLinesStyle->Directive[GrayLevel[0.5,0.4]],PlotRange->{{1.,29.},{All,All}}, PlotRangePadding->{{Scaled[0.02],Scaled[0.02]},{Scaled[0.02],Scaled[0.05]}},Ticks->{Automatic,Automatic}]], "Output",CellChangeTimes->{3.6836554830032578*^9},ExpressionUUID->"f4be6352-9b37-4b3a-a966-f1af532f4d11"]}, Open]],Cell[ "\","Text",CellChangeTimes->{{3.683033608693839*^9,3.683033616124875*^9},3.683375606199028*^9}, ExpressionUUID->"491ab4f8-6e65-4cc4-83d2-af10560ca624"],Cell[ CellGroupData[{Cell[ BoxData[ RowBox[{"With","[",RowBox[{RowBox[{"{",RowBox[{"sentences","=",RowBox[{"TextSentences","[",RowBox[ {"ResourceData","[","\"Death in Venice\"","]"}],"]"}]}],"}"}],",","\[IndentingNewLine]",RowBox[ {"Histogram","[",RowBox[{RowBox[{"(",RowBox[{"Length","/@",RowBox[{"(",RowBox[{"TextWords","/@","sentences"}],")"}]}],")"}],",",RowBox[ {"PlotRange","\[Rule]","Full"}]}],"]"}]}],"]"}]],"Input",CellChangeTimes->{{3.6830333795804577*^9,3.683033425254339*^9},{3.6830334646198807*^9,3.6830335879807243*^9},3.683035622565227*^9,3.683655502685562*^9}, ExpressionUUID->"59779bbd-9371-4e92-96e8-36a36c782344"],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.,70},"RoundingRadius"->0]},ImageSizeCache->{{27.235188150520415,38.916547030728026},{-10.125013347719587,93.32840450262984}}], Function[StatusArea[Slot[1],70]],TagBoxNote->"70"],StyleBox["70",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[70,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{5.,0},{10.,132},"RoundingRadius"->0]},ImageSizeCache->{{38.416547030728026,50.09790591093564},{-101.31232630088621,93.32840450262984}}], Function[StatusArea[Slot[1],132]],TagBoxNote->"132"],StyleBox["132",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[132,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{10.,0},{15.,128},"RoundingRadius"->0]}, ImageSizeCache->{{49.59790591093564,61.279264791143255},{-95.42927385229481,93.32840450262984}}], Function[StatusArea[Slot[1],128]],TagBoxNote->"128"],StyleBox["128",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[128,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{15.,0},{20.,126},"RoundingRadius"->0]}, ImageSizeCache->{{60.779264791143255,72.46062367135087},{-92.48774762799911,93.32840450262984}}], Function[StatusArea[Slot[1],126]],TagBoxNote->"126"],StyleBox["126",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[126,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{20.,0},{25.,115},"RoundingRadius"->0]}, ImageSizeCache->{{71.96062367135087,83.64198255155847},{-76.30935339437278,93.32840450262984}}], Function[StatusArea[Slot[1],115]],TagBoxNote->"115"],StyleBox["115",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[115,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{25.,0},{30.,105},"RoundingRadius"->0]}, ImageSizeCache->{{83.14198255155847,94.8233414317661},{-61.60172227289428,93.32840450262984}}], Function[StatusArea[Slot[1],105]],TagBoxNote->"105"],StyleBox["105",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[105,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{30.,0},{35.,70},"RoundingRadius"->0]},ImageSizeCache->{{94.3233414317661,106.0047003119737},{-10.125013347719587,93.32840450262984}}], Function[StatusArea[Slot[1],70]],TagBoxNote->"70"],StyleBox["70",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[70,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{35.,0},{40.,54},"RoundingRadius"->0]},ImageSizeCache->{{105.5047003119737,117.18605919218132},{13.407196446645997,93.32840450262984}}], Function[StatusArea[Slot[1],54]],TagBoxNote->"54"],StyleBox["54",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[54,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{40.,0},{45.,46},"RoundingRadius"->0]},ImageSizeCache->{{116.68605919218132,128.36741807238894},{25.173301343828797,93.32840450262984}}], Function[StatusArea[Slot[1],46]],TagBoxNote->"46"],StyleBox["46",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[46,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{45.,0},{50.,33},"RoundingRadius"->0]},ImageSizeCache->{{127.86741807238894,139.54877695259654},{44.293221801750825,93.32840450262984}}], Function[StatusArea[Slot[1],33]],TagBoxNote->"33"],StyleBox["33",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[33,{}],"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->{{139.04877695259654,150.73013583280414},{50.176274250342225,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.,21},"RoundingRadius"->0]},ImageSizeCache->{{150.23013583280414,161.9114947130118},{61.94237914752502,93.32840450262984}}], Function[StatusArea[Slot[1],21]],TagBoxNote->"21"],StyleBox["21",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[21,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{60.,0},{65.,12},"RoundingRadius"->0]},ImageSizeCache->{{161.4114947130118,173.0928535932194},{75.17924715685565,93.32840450262984}}], Function[StatusArea[Slot[1],12]],TagBoxNote->"12"],StyleBox["12",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[12,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{65.,0},{70.,12},"RoundingRadius"->0]},ImageSizeCache->{{172.5928535932194,184.27421247342699},{75.17924715685565,93.32840450262984}}], Function[StatusArea[Slot[1],12]],TagBoxNote->"12"],StyleBox["12",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[12,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{70.,0},{75.,11},"RoundingRadius"->0]},ImageSizeCache->{{183.77421247342699,195.45557135363458},{76.6500102690035,93.32840450262984}}], Function[StatusArea[Slot[1],11]],TagBoxNote->"11"],StyleBox["11",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[11,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{75.,0},{80.,5},"RoundingRadius"->0]},ImageSizeCache->{{194.95557135363458,206.63693023384224},{85.47458894189059,93.32840450262984}}], Function[StatusArea[Slot[1],5]],TagBoxNote->"5"],StyleBox["5",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[5,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{80.,0},{85.,5},"RoundingRadius"->0]},ImageSizeCache->{{206.13693023384224,217.81828911404983},{85.47458894189059,93.32840450262984}}], Function[StatusArea[Slot[1],5]],TagBoxNote->"5"],StyleBox["5",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[5,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{90.,0},{95.,2},"RoundingRadius"->0]},ImageSizeCache->{{228.49964799425743,240.18100687446503},{89.88687827833414,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[{95.,0},{100.,3},"RoundingRadius"->0]},ImageSizeCache->{{239.68100687446503,251.36236575467268},{88.41611516618629,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.,4},"RoundingRadius"->0]}, ImageSizeCache->{{250.86236575467268,262.5437246348803},{86.94535205403844,93.32840450262984}}], Function[StatusArea[Slot[1],4]],TagBoxNote->"4"],StyleBox["4",{},StripOnInput->False]], Function[Annotation[Slot[1],Style[4,{}],"Tooltip"]]],TagBox[TooltipBox[TagBox[DynamicBox[ {FEPrivate`If[CurrentValue["MouseOver"],EdgeForm[{GrayLevel[0.5],AbsoluteThickness[ 1.5],Opacity[0.66]}],{},{}],RectangleBox[{115.,0},{120.,1},"RoundingRadius"->0]}, ImageSizeCache->{{284.40644239529547,296.0878012755031},{91.35764139048199,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[{125.,0},{130.,1},"RoundingRadius"->0]}, ImageSizeCache->{{306.7691601557107,318.4505190359183},{91.35764139048199,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[{140.,0},{145.,1},"RoundingRadius"->0]}, ImageSizeCache->{{340.31323679633357,351.99459567654117},{91.35764139048199,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.9,0},FrameLabel->{{None,None},{None,None}},FrameTicks->{{Automatic,Automatic},{Automatic,Automatic}}, GridLines->{None,None},GridLinesStyle->Directive[GrayLevel[0.5,0.4]],PlotRange->{{0.,145.},{All,All}}, PlotRangePadding->{{Scaled[0.02],Scaled[0.02]},{Scaled[0.02],Scaled[0.05]}},Ticks->{Automatic,Automatic}]], "Output",CellChangeTimes->{3.683655506303508*^9},ExpressionUUID->"1b72820e-2041-428c-88e4-52fa5905af3e"]}, Open]]},Open]]},WindowSize->{775,873},WindowMargins->{{136,Automatic},{Automatic,0}}, WindowTitle->"Examples for Death in Venice",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)"]