(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    381478,       8224]
NotebookOptionsPosition[    375669,       8020]
NotebookOutlinePosition[    376178,       8040]
CellTagsIndexPosition[    376135,       8037]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Fun\[CCedilla]\[OTilde]es de probabilidade binomial e \
de Poisson", "Title"]], "Subsubtitle",
 CellChangeTimes->{{3.585939902289627*^9, 3.585939925617755*^9}, {
  3.617345989656926*^9, 3.6173460008444223`*^9}}],

Cell["19/8/2014", "Text",
 CellChangeTimes->{{3.6173460206255555`*^9, 3.6173460238911753`*^9}}],

Cell[CellGroupData[{

Cell["Distribui\[CCedilla]\[ATilde]o de Bernoulli", "Subsubsection",
 CellChangeTimes->{{3.585940830399005*^9, 3.585940835586506*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PDF", "[", 
  RowBox[{
   RowBox[{"BernoulliDistribution", "[", 
    RowBox[{"1", "/", "6"}], "]"}], ",", "sucesso"}], "]"}]], "Input",
 CellChangeTimes->{{3.585939957086506*^9, 3.585939993430255*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox["5", "6"], 
        RowBox[{"sucesso", "\[Equal]", "0"}]},
       {
        FractionBox["1", "6"], 
        RowBox[{"sucesso", "\[Equal]", "1"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.585983387759285*^9, 3.6173460327349234`*^9, 
  3.6173489300637455`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomVariate", "[", 
  RowBox[{"BernoulliDistribution", "[", 
   RowBox[{"1", "/", "6"}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.585940001914629*^9, 3.5859400345708804`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.5859833878061543`*^9, 3.6173460352036724`*^9, 
  3.6173489301262455`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomVariate", "[", 
  RowBox[{
   RowBox[{"BernoulliDistribution", "[", 
    RowBox[{"1", "/", "6"}], "]"}], ",", "12"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.58594006000838*^9, 3.58594006091463*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
   ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.5859833878217807`*^9, 3.617346037766173*^9, 
  3.6173489301262455`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", " ", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{
    RowBox[{"BernoulliDistribution", "[", 
     RowBox[{"1", "/", "6"}], "]"}], ",", "12"}], " ", "]"}], " ", 
  "]"}]], "Input",
 CellChangeTimes->{{3.585940080680255*^9, 3.585940084992755*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.585983387837404*^9, 3.617346042438049*^9, 
  3.6173489301262455`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"1", "/", "6"}]}]], "Input",
 CellChangeTimes->{{3.5859401056179047`*^9, 3.5859401129771304`*^9}}],

Cell[BoxData[
 FractionBox["1", "6"]], "Output",
 CellChangeTimes->{3.585983387837404*^9, 3.617346046109923*^9, 
  3.61734893014187*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"repeticao", "=", "12"}]], "Input",
 CellChangeTimes->{{3.585940156836506*^9, 3.585940162727126*^9}}],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{3.585983387853029*^9, 3.617346048563043*^9, 
  3.61734893014187*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", " ", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{
    RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", "repeticao"}], 
   "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.585940151149005*^9, 3.585940179742755*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.5859833878686533`*^9, 3.6173460524067955`*^9, 
  3.61734893014187*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", " ", 
  RowBox[{
   RowBox[{"Total", "[", " ", 
    RowBox[{"RandomVariate", "[", 
     RowBox[{
      RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", "repeticao"}], 
     "]"}], " ", "]"}], ",", 
   RowBox[{"{", "10", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.585940206711505*^9, 3.585940230430255*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "3", ",", "3", ",", "2", ",", "3", ",", "3", ",", "2", ",", "2", ",", "1", 
   ",", "5", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.5859833878842793`*^9, 3.61734605489117*^9, 
  3.6173489301574945`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{"Total", "[", " ", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{
        RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", "repeticao"}], 
       "]"}], " ", "]"}], ",", 
     RowBox[{"{", "100000", "}"}]}], "]"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<jogo de 10 dados com 6 faces\>\""}], 
   " ", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<n\[UAcute]mero de faces 1\>\"", ",", "\"\<frequ\[EHat]ncia\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.58594024166463*^9, 3.585940270555255*^9}, {
  3.6173460663130417`*^9, 3.617346166845209*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.63], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], 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}, {1., 11485}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{39.150320256204964`, 61.65192153722978}, {
          24.4988767740493, 76.0602359440066}}],
        StatusArea[#, 11485]& ,
        TagBoxNote->"11485"],
       StyleBox["11485", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[11485, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 26599}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{61.15192153722978, 
          83.6535228182546}, {-42.696715955139624`, 76.0602359440066}}],
        StatusArea[#, 26599]& ,
        TagBoxNote->"26599"],
       StyleBox["26599", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[26599, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 29629}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{83.1535228182546, 
          105.65512409927943`}, {-56.16784510489761, 76.0602359440066}}],
        StatusArea[#, 29629]& ,
        TagBoxNote->"29629"],
       StyleBox["29629", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[29629, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 19860}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{105.15512409927943`, 
          127.65672538030425`}, {-12.735679869258703`, 76.0602359440066}}],
        StatusArea[#, 19860]& ,
        TagBoxNote->"19860"],
       StyleBox["19860", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[19860, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 8789}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{127.15672538030425`, 149.65832666132906`}, {
          36.48506957528612, 76.0602359440066}}],
        StatusArea[#, 8789]& ,
        TagBoxNote->"8789"],
       StyleBox["8789", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[8789, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 2867}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{149.15832666132906`, 171.6599279423539}, {
          62.81379129966463, 76.0602359440066}}],
        StatusArea[#, 2867]& ,
        TagBoxNote->"2867"],
       StyleBox["2867", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2867, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 646}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{171.1599279423539, 193.66152922337872`}, {
          72.68817342560936, 76.0602359440066}}],
        StatusArea[#, 646]& ,
        TagBoxNote->"646"],
       StyleBox["646", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[646, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 109}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{193.16152922337872`, 215.66313050440354`}, {
          75.07563096799221, 76.0602359440066}}],
        StatusArea[#, 109]& ,
        TagBoxNote->"109"],
       StyleBox["109", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[109, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 14}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{215.16313050440354`, 237.66473178542836`}, {
          75.49799310305063, 76.0602359440066}}],
        StatusArea[#, 14]& ,
        TagBoxNote->"14"],
       StyleBox["14", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[14, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{237.16473178542836`, 259.66633306645315`}, {
          75.55134410958432, 76.0602359440066}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"n\[UAcute]mero de faces 1\"", TraditionalForm], 
    FormBox["\"frequ\[EHat]ncia\"", TraditionalForm]},
  AxesOrigin->{-0.2, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox["\"jogo de 10 dados com 6 faces\"", TraditionalForm],
  PlotRange->{{0., 10.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.585983390212407*^9, 3.6173460614067907`*^9, 
  3.617346125579795*^9, 3.6173461746889534`*^9, 3.6173489323449936`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"experimento", "=", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"Total", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", "repeticao"}], 
      "]"}], " ", "]"}], ",", 
    RowBox[{"{", "100000", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.58594030200838*^9, 3.585940304539627*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
          "2", ",", "1", ",", "3", ",", "2", ",", "3", ",", "1", ",", "3", 
           ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "0", ",", 
           "5", ",", "1", ",", "0", ",", "4", ",", "5", ",", "1", ",", "2", 
           ",", "2", ",", "1", ",", "1", ",", "3", ",", "1", ",", "0", ",", 
           "1", ",", "1", ",", "1", ",", "4", ",", "4", ",", "2", ",", "3", 
           ",", "2", ",", "1", ",", "4", ",", "3", ",", "0", ",", "1", ",", 
           "3", ",", "3", ",", "2", ",", "4", ",", "2", ",", "1", ",", "3", 
           ",", "1", ",", "4", ",", "1", ",", "2", ",", "3", ",", "4", ",", 
           "3", ",", "4", ",", "2", ",", "1", ",", "1", ",", "6", ",", "2", 
           ",", "3", ",", "2", ",", "3", ",", "2", ",", "1", ",", "1", ",", 
           "1", ",", "2", ",", "2", ",", "4", ",", "1", ",", "3", ",", "2", 
           ",", "2", ",", "2", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
           "1", ",", "2", ",", "2", ",", "1", ",", "3", ",", "0", ",", "0", 
           ",", "2", ",", "6", ",", "2", ",", "3", ",", "2", ",", "3", ",", 
           "4", ",", "1", ",", "2", ",", 
           TemplateBox[{"99813"},
            "OutputSizeLimit`Skeleton",
            DisplayFunction->(FrameBox[
              RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
               Background -> GrayLevel[0.75], 
              BaseStyle -> {
               "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, 
                ShowStringCharacters -> False}, BaselinePosition -> Baseline, 
              ContentPadding -> False, FrameMargins -> 1, FrameStyle -> 
              GrayLevel[0.75], RoundingRadius -> 7]& )], ",", "2", ",", "2", 
           ",", "1", ",", "3", ",", "5", ",", "1", ",", "0", ",", "0", ",", 
           "1", ",", "3", ",", "1", ",", "2", ",", "2", ",", "2", ",", "0", 
           ",", "2", ",", "2", ",", "2", ",", "1", ",", "2", ",", "0", ",", 
           "2", ",", "2", ",", "2", ",", "1", ",", "2", ",", "4", ",", "3", 
           ",", "2", ",", "5", ",", "6", ",", "2", ",", "1", ",", "4", ",", 
           "4", ",", "2", ",", "2", ",", "1", ",", "1", ",", "2", ",", "1", 
           ",", "5", ",", "2", ",", "1", ",", "4", ",", "2", ",", "0", ",", 
           "3", ",", "2", ",", "4", ",", "0", ",", "0", ",", "2", ",", "2", 
           ",", "1", ",", "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", 
           "2", ",", "3", ",", "2", ",", "1", ",", "3", ",", "2", ",", "3", 
           ",", "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "1", ",", 
           "0", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1", 
           ",", "4", ",", "6", ",", "5", ",", "0", ",", "1", ",", "1", ",", 
           "5", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "2"}], 
          "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{65., {3., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarCategory",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{52., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 70, 22421545640497921000, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{62., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 70, 22421545640497921000, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            Identity, 70, 22421545640497921000, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{78., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "SuggestionsBarControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Background->RGBColor[0.9657, 0.9753, 0.9802],
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[70]]], "Output",
 CellChangeTimes->{3.585983392259279*^9, 3.6173461872202015`*^9, 
  3.6173489345637436`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", "experimento", "]"}]], "Input",
 CellChangeTimes->{{3.585940314586505*^9, 3.58594031844588*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.637], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.637], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 11128}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{40.96617293835069, 76.00046704029891}, {
          17.21514323030989, 87.84218920474294}}],
        StatusArea[#, 11128]& ,
        TagBoxNote->"11128"],
       StyleBox["11128", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[11128, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 27136}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{75.50046704029891, 
          110.53476114224713`}, {-83.6649566940902, 87.84218920474294}}],
        StatusArea[#, 27136]& ,
        TagBoxNote->"27136"],
       StyleBox["27136", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[27136, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 29529}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{110.03476114224713`, 
          145.06905524419537`}, {-98.74529646914576, 87.84218920474294}}],
        StatusArea[#, 29529]& ,
        TagBoxNote->"29529"],
       StyleBox["29529", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[29529, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 19709}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{144.56905524419537`, 
          179.6033493461436}, {-36.86107725015471, 87.84218920474294}}],
        StatusArea[#, 19709]& ,
        TagBoxNote->"19709"],
       StyleBox["19709", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[19709, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 8925}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{179.1033493461436, 214.13764344809184`}, {
          31.098130495018374`, 87.84218920474294}}],
        StatusArea[#, 8925]& ,
        TagBoxNote->"8925"],
       StyleBox["8925", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[8925, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 2821}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{213.63764344809184`, 248.67193755004004`}, {
          69.56465535374764, 87.84218920474294}}],
        StatusArea[#, 2821]& ,
        TagBoxNote->"2821"],
       StyleBox["2821", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2821, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 642}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{248.17193755004004`, 283.2062316519883}, {
          83.29639809083334, 87.84218920474294}}],
        StatusArea[#, 642]& ,
        TagBoxNote->"642"],
       StyleBox["642", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[642, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 100}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{282.7062316519883, 317.7405257539365}, {
          86.71200367298131, 87.84218920474294}}],
        StatusArea[#, 100]& ,
        TagBoxNote->"100"],
       StyleBox["100", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[100, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{317.2405257539365, 352.2748198558847}, {
          87.27917065156677, 87.84218920474294}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.18, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 9.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.585983392556156*^9, 3.617346191110824*^9, 
  3.617348934688744*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Distribui\[CCedilla]\[ATilde]o binomial", "Subsubsection",
 CellChangeTimes->{{3.58594086222713*^9, 3.585940866992755*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PDF", "[", 
  RowBox[{
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"repeticao", ",", "p"}], "]"}], ",", "n"}], "]"}]], "Input",
 CellChangeTimes->{{3.585940339742755*^9, 3.585940402399005*^9}, 
   3.585940460617755*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox[
         RowBox[{
          SuperscriptBox["5", 
           RowBox[{"12", "-", "n"}]], " ", 
          RowBox[{"Binomial", "[", 
           RowBox[{"12", ",", "n"}], "]"}]}], "2176782336"], 
        RowBox[{"0", "\[LessEqual]", "n", "\[LessEqual]", "12"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.585983392603031*^9, 3.6173461983451185`*^9, 
  3.6173489347043686`*^9}]
}, Open  ]],

Cell["\<\
Uma experi\[EHat]ncia de estat\[IAcute]stica consiste em contar o \
n\[UAcute]mero de faces \[OpenCurlyDoubleQuote]1\[CloseCurlyDoubleQuote] de \
um jogo de 12 dados de 6 faces. Imagine
um laboratorio did\[AAcute]tico com muitos grupos e que cada grupo levante um \
histograma de 30 jogadas. Voc\[EHat] precisa olhar
o conjunto dos histogramas e decidir se os estudantes est\[ATilde]o seguindo \
o procedimento indicado.\
\>", "Text",
 CellChangeTimes->{{3.6173478983293533`*^9, 3.617348013375942*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{"repeticao", ",", "p"}], "]"}], ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "12"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<P[n]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Binomial de probabilidade `` com `` \
repeti\[CCedilla]\[OTilde]es\>\"", ",", "p", ",", "repeticao"}], "]"}]}]}], 
  " ", "]"}]], "Input",
 CellChangeTimes->{{3.585940538867755*^9, 3.585940540461506*^9}, {
  3.585940570617755*^9, 3.585940620524005*^9}, {3.617346215016987*^9, 
  3.6173464002354255`*^9}, {3.6173464726418333`*^9, 3.6173464875012035`*^9}},
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], 
      LineBox[{{{12., 4.593936579977834*^-10}, {12., 4.593936579977834*^-10}}},
       VertexColors->None]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], 
      LineBox[CompressedData["
1:eJxTTMoPSmVmYGDgAWImKIaBeSohOT7b9tjD+Od3JknvnfjfFsL7YH/00Yxb
ulYX7WF8VHkGh6KfJQVGny/B9DugynM4OH+f7eDsctIexkeVF3BQ/qG6K3/v
NnsYH1VexCGLK8+rQHquPYyPKi/h4DjJRWitVrU9jI8qL+MQ4Xdwy+sFQfYw
Pqq8AlReyR7GR5VXcliwqJinvO6VHYyPKq/iYOwVMFsrf6UdjI8qr+Zg1LfG
c+GMWDsYHyYPAG0AbdQ=
       "],
       VertexColors->None]}}}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], {}, 
    PointBox[{{0., 0.11215665478461509`}, {1., 0.2691759714830762}, {2., 
     0.2960935686313838}, {3., 0.19739571242092255`}, {4., 
     0.08882807058941515}, {5., 0.028424982588612847`}, {6., 
     0.006632495937342998}, {7., 0.0011369993035445138`}, {8., 
     0.00014212491294306423`}, {9., 0.000012633325594939044`}, {10., 
     7.579995356963426*^-7}, {11., 2.7563619479867004`*^-8}, {12., 
     4.593936579977834*^-10}}], {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"P[n]\"", TraditionalForm]},
  AxesOrigin->{0, 4.593936579977834*^-10},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox[
    InterpretationBox[
    "\"Binomial de probabilidade \\!\\(TraditionalForm\\`1\\/6\\) com \
\\!\\(TraditionalForm\\`12\\) repeti\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "Binomial de probabilidade `` com `` repeti\[CCedilla]\[OTilde]es", 
      Rational[1, 6], 12], Editable -> False], TraditionalForm],
  PlotRange->{{0., 12.}, {4.593936579977834*^-10, 0.2960935686313838}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.585983392665529*^9, 3.617346204454488*^9, 
  3.617346314672267*^9, 3.617346403422925*^9, 3.6173464883605747`*^9, 
  3.617348934719994*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["A flutua\[CCedilla]\[ATilde]o estat\[IAcute]stica em um canal do \
histograma", "Subsubsection",
 CellChangeTimes->{{3.5859410436646304`*^9, 3.5859410543521304`*^9}}],

Cell["esse \[EAcute] um histograma t\[IAcute]pico de um grupo", "Text",
 CellChangeTimes->{{3.617348022094689*^9, 3.617348040594683*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{"Total", "[", " ", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{
        RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", "repeticao"}], 
       "]"}], " ", "]"}], ",", 
     RowBox[{"{", "30", "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "repeticao", ",", "1"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<P[n]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<n\[UAcute]mero de eventos de probabilidade `` com `` repeti\
\[CCedilla]\[OTilde]es\>\"", ",", "p", ",", "repeticao"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.585940991399005*^9, 3.585941006461505*^9}, {
  3.58594106885213*^9, 3.585941211836505*^9}, {3.617346857563138*^9, 
  3.617346860688135*^9}, {3.6173468962506266`*^9, 3.6173468997037506`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.6579999999999999], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.6579999999999999], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 3}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{17.95129345189976, 45.128738884397734`}, {
          64.44962318446824, 117.22270812622872`}}],
        StatusArea[#, 3]& ,
        TagBoxNote->"3"],
       StyleBox["3", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[3, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 9}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{44.628738884397734`, 
          71.80618431689571}, {-40.096546699052766`, 117.22270812622872`}}],
        StatusArea[#, 9]& ,
        TagBoxNote->"9"],
       StyleBox["9", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[9, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 11}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{71.30618431689571, 
          98.48362974939369}, {-74.94526999355975, 117.22270812622872`}}],
        StatusArea[#, 11]& ,
        TagBoxNote->"11"],
       StyleBox["11", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[11, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{97.98362974939369, 125.16107518189166`}, {
          12.176538242707736`, 117.22270812622872`}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{151.3385206143896, 178.51596604688763`}, {
          99.29834647897522, 117.22270812622872`}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"P[n]\"", TraditionalForm]},
  AxesOrigin->{-0.12, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"n\[UAcute]mero de eventos de probabilidade \
\\!\\(TraditionalForm\\`1\\/6\\) com \\!\\(TraditionalForm\\`12\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "n\[UAcute]mero de eventos de probabilidade `` com `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 6], 12], Editable -> False], TraditionalForm],
  PlotRange->{{0., 12.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5859833930561533`*^9, 3.617346496688237*^9, 
  3.617346941360158*^9, 3.617348934751244*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
mesmo que anterior, mas separando a simula\[CCedilla]\[ATilde]o da histograma\
\[CCedilla]\[ATilde]o e da constru\[CCedilla]\[ATilde]o do histograma\
\>", "Subsubsection",
 CellChangeTimes->{{3.617347048985303*^9, 3.6173471562829647`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"simulacao", "=", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"Total", "[", " ", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", "repeticao"}], 
      "]"}], " ", "]"}], ",", 
    RowBox[{"{", "30", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.58594132969588*^9, 3.585941334774005*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "3", ",", "2", ",", "2", ",", "2", ",", "1", ",", "4", ",", "2", ",", "3", 
   ",", "4", ",", "4", ",", "4", ",", "3", ",", "3", ",", "1", ",", "2", ",", 
   "4", ",", "3", ",", "2", ",", "1", ",", "2", ",", "3", ",", "1", ",", "1", 
   ",", "0", ",", "0", ",", "2", ",", "1", ",", "3", ",", "2", ",", "2"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5859833930717793`*^9, 3.6173465021569843`*^9, 
  3.617348934766867*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"simulacao", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "repeticao", ",", "1"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<P[n]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<n\[UAcute]mero de eventos de probabilidade `` com `` repeti\
\[CCedilla]\[OTilde]es\>\"", ",", "p", ",", "repeticao"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5859413670083804`*^9, 3.58594137900838*^9}, {
  3.6173470018134584`*^9, 3.6173470090947065`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.6649999999999999], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.6649999999999999], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{17.422064777327936`, 44.642712550607285`}, {
          78.65411511361083, 117.54978943493526`}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{44.142712550607285`, 71.36336032388664}, {
          1.8627664709619296`, 117.54978943493526`}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{70.86336032388664, 
          98.08400809716599}, {-74.92858217168694, 117.54978943493526`}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 7}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{97.58400809716599, 
          124.80465587044534`}, {-17.335070689700274`, 117.54978943493526`}}],
        StatusArea[#, 7]& ,
        TagBoxNote->"7"],
       StyleBox["7", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[7, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 5}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{124.30465587044534`, 151.5253036437247}, {
          21.06060363162416, 117.54978943493526`}}],
        StatusArea[#, 5]& ,
        TagBoxNote->"5"],
       StyleBox["5", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[5, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"P[n]\"", TraditionalForm]},
  AxesOrigin->{-0.1, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"n\[UAcute]mero de eventos de probabilidade \
\\!\\(TraditionalForm\\`1\\/6\\) com \\!\\(TraditionalForm\\`12\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "n\[UAcute]mero de eventos de probabilidade `` com `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 6], 12], Editable -> False], TraditionalForm],
  PlotRange->{{0., 12.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6173470097353277`*^9, 3.6173489347981195`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BinCounts", "[", 
  RowBox[{"simulacao", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5859413427896304`*^9, 3.5859413508833804`*^9}, {
  3.585941449367755*^9, 3.58594145250838*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "6", ",", "10", ",", "7", ",", "5", ",", "0", ",", "0", ",", "0", 
   ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.5859833931030293`*^9, 3.6173465155632305`*^9, 
  3.6173489348137426`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BinCounts", "[", " ", 
  RowBox[{
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{"Total", "[", " ", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{
        RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", "repeticao"}], 
       "]"}], " ", "]"}], ",", 
     RowBox[{"{", "30", "}"}]}], "]"}], " ", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.58594126822713*^9, 3.58594127560213*^9}, {
   3.58594130825838*^9, 3.585941308461505*^9}, 3.5859414903833804`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "6", ",", "9", ",", "3", ",", "6", ",", "4", ",", "2", ",", "0", ",", "0", 
   ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.585983393118777*^9, 3.6173465217351055`*^9, 
  3.6173489348137426`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BinCounts", "[", " ", 
    RowBox[{
     RowBox[{"Table", "[", " ", 
      RowBox[{
       RowBox[{"Total", "[", " ", 
        RowBox[{"RandomVariate", "[", 
         RowBox[{
          RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", 
          "repeticao"}], "]"}], " ", "]"}], ",", 
       RowBox[{"{", "30", "}"}]}], "]"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "12", ",", "1"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "3", "]"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "como", " ", "o", " ", "primeiro", " ", "elemento", " ", "da", " ", 
      "lista", " ", "corresponde", " ", "a", " ", "n"}], "=", "0"}], ",", " ", 
    RowBox[{
     RowBox[{
     "\[EAcute]", " ", "o", " ", "elemento", " ", "3", " ", "que", " ", 
      "corresponde", " ", "a", " ", "n"}], "=", "2"}]}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.5859415111333804`*^9, 3.585941513649005*^9}, {
  3.6173466344387426`*^9, 3.6173466904702015`*^9}}],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{
  3.5859833931499043`*^9, 3.6173465278757267`*^9, {3.6173466916420717`*^9, 
   3.617346698017074*^9}, 3.6173489348293695`*^9}]
}, Open  ]],

Cell["\<\
Lembre: 30 \[EAcute] o n\[UAcute]mero de vezes que voc\[EHat] lan\[CCedilla]a \
os dados OU o n\[UAcute]mero de grupos no laborat\[OAcute]rio fazendo a \
experiencia\
\>", "Text",
 CellChangeTimes->{{3.6173474090171676`*^9, 3.6173474769235783`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"contagensNIgual2", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"BinCounts", "[", " ", 
      RowBox[{
       RowBox[{"Table", "[", " ", 
        RowBox[{
         RowBox[{"Total", "[", " ", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{
            RowBox[{"BernoulliDistribution", "[", "p", "]"}], ",", 
            "repeticao"}], "]"}], " ", "]"}], ",", 
         RowBox[{"{", "30", "}"}]}], "]"}], " ", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "12", ",", "1"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"{", "10000", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.585941537883379*^9, 3.585941635836505*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "9", ",", "11", ",", "7", ",", "10", ",", "7", ",", "10", ",", "6", ",", 
   "11", ",", "13", ",", "8", ",", "7", ",", "8", ",", "7", ",", "7", ",", 
   "9", ",", "12", ",", "7", ",", "9", ",", "5", ",", "9", ",", "6", ",", "6",
    ",", "6", ",", "9", ",", "15", ",", "13", ",", "6", ",", "8", ",", "12", 
   ",", "6", ",", "9", ",", "7", ",", "10", ",", "6", ",", "7", ",", "8", ",",
    "8", ",", "5", ",", "7", ",", "10", ",", "8", ",", "7", ",", "7", ",", 
   "11", ",", "7", ",", "6", ",", "9", ",", "13", ",", "11", ",", "9", ",", 
   "10", ",", "9", ",", "8", ",", "8", ",", "3", ",", "16", ",", "14", ",", 
   "14", ",", "7", ",", "11", ",", "8", ",", "9", ",", "13", ",", "9", ",", 
   "12", ",", "11", ",", "8", ",", "12", ",", "11", ",", "9", ",", "15", ",", 
   "5", ",", "9", ",", "8", ",", "7", ",", "6", ",", "8", ",", "11", ",", 
   "11", ",", "14", ",", "11", ",", "15", ",", "7", ",", "10", ",", "10", ",",
    "14", ",", "8", ",", "10", ",", "7", ",", "7", ",", "8", ",", "10", ",", 
   "9", ",", "8", ",", "10", ",", "11", ",", "7", ",", "11", ",", "9", ",", 
   "9", ",", "8", ",", "7", ",", "7", ",", "12", ",", "8", ",", "10", ",", 
   "10", ",", "8", ",", "9", ",", "7", ",", "11", ",", "9", ",", "10", ",", 
   "7", ",", "8", ",", "10", ",", "8", ",", "11", ",", "7", ",", "11", ",", 
   "7", ",", "3", ",", "10", ",", "12", ",", "7", ",", "8", ",", "10", ",", 
   "7", ",", "6", ",", "13", ",", "8", ",", "10", ",", "12", ",", "8", ",", 
   "9", ",", "7", ",", "10", ",", "13", ",", "8", ",", "7", ",", "14", ",", 
   "6", ",", "9", ",", "9", ",", "8", ",", "8", ",", "9", ",", "9", ",", "8", 
   ",", "5", ",", "9", ",", "9", ",", "7", ",", "10", ",", "9", ",", "5", ",",
    "19", ",", "10", ",", "10", ",", "6", ",", "9", ",", "7", ",", "11", ",", 
   "9", ",", "10", ",", "16", ",", "10", ",", "13", ",", "7", ",", "7", ",", 
   "6", ",", "10", ",", "10", ",", "8", ",", "8", ",", "8", ",", "10", ",", 
   "11", ",", "12", ",", "8", ",", "7", ",", "6", ",", "8", ",", "6", ",", 
   "13", ",", "11", ",", "7", ",", "11", ",", "9", ",", "9", ",", "10", ",", 
   "7", ",", "10", ",", "12", ",", "3", ",", "5", ",", "11", ",", "8", ",", 
   "9", ",", "8", ",", "13", ",", "6", ",", "10", ",", "6", ",", "7", ",", 
   "11", ",", "8", ",", "7", ",", "8", ",", "9", ",", "8", ",", "12", ",", 
   "8", ",", "12", ",", "6", ",", "11", ",", "11", ",", "11", ",", "10", ",", 
   "14", ",", "6", ",", "8", ",", "7", ",", "7", ",", "10", ",", "6", ",", 
   "7", ",", "8", ",", "9", ",", "7", ",", "8", ",", "8", ",", "12", ",", "8",
    ",", "11", ",", "11", ",", "9", ",", "8", ",", "9", ",", "13", ",", "5", 
   ",", "11", ",", "10", ",", "10", ",", "9", ",", "7", ",", "7", ",", "10", 
   ",", "7", ",", "5", ",", "12", ",", "8", ",", "13", ",", "5", ",", "7", 
   ",", "15", ",", "11", ",", "11", ",", "7", ",", "11", ",", "9", ",", "9", 
   ",", "9", ",", "9", ",", "10", ",", "6", ",", "7", ",", "13", ",", "8", 
   ",", "10", ",", "10", ",", "11", ",", "8", ",", "12", ",", "6", ",", "12", 
   ",", "9", ",", "11", ",", "13", ",", "7", ",", "8", ",", "9", ",", "8", 
   ",", "8", ",", "7", ",", "9", ",", "9", ",", "11", ",", "12", ",", "12", 
   ",", "8", ",", "5", ",", "11", ",", "10", ",", "12", ",", "10", ",", "9", 
   ",", "8", ",", "14", ",", "7", ",", "8", ",", "11", ",", "9", ",", "8", 
   ",", "8", ",", "15", ",", "13", ",", "11", ",", "5", ",", "7", ",", "11", 
   ",", "6", ",", "10", ",", "9", ",", "13", ",", "9", ",", "7", ",", "9", 
   ",", "4", ",", "6", ",", "5", ",", "10", ",", "7", ",", "7", ",", "13", 
   ",", "8", ",", "12", ",", "8", ",", "9", ",", "5", ",", "8", ",", "10", 
   ",", "9", ",", "9", ",", "10", ",", "9", ",", "9", ",", "9", ",", "7", ",",
    "9", ",", "6", ",", "6", ",", "10", ",", "10", ",", "9", ",", "8", ",", 
   "10", ",", "9", ",", "7", ",", "9", ",", "9", ",", "8", ",", "9", ",", "9",
    ",", "9", ",", "5", ",", "3", ",", "6", ",", "9", ",", "11", ",", "7", 
   ",", "7", ",", "8", ",", "12", ",", "9", ",", "8", ",", "11", ",", "10", 
   ",", "7", ",", "12", ",", "11", ",", "10", ",", "9", ",", "10", ",", "9", 
   ",", "8", ",", "8", ",", "6", ",", "6", ",", "10", ",", "8", ",", "8", ",",
    "9", ",", "11", ",", "7", ",", "11", ",", "8", ",", "10", ",", "6", ",", 
   "14", ",", "11", ",", "8", ",", "7", ",", "10", ",", "10", ",", "10", ",", 
   "15", ",", "9", ",", "10", ",", "14", ",", "13", ",", "9", ",", "7", ",", 
   "11", ",", "6", ",", "6", ",", "9", ",", "8", ",", "6", ",", "10", ",", 
   "8", ",", "11", ",", "5", ",", "6", ",", "6", ",", "10", ",", "10", ",", 
   "7", ",", "8", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "4",
    ",", "9", ",", "9", ",", "4", ",", "8", ",", "10", ",", "9", ",", "5", 
   ",", "4", ",", "9", ",", "8", ",", "12", ",", "10", ",", "9", ",", "9", 
   ",", "7", ",", "9", ",", "12", ",", "10", ",", "6", ",", "14", ",", "12", 
   ",", "6", ",", "8", ",", "5", ",", "6", ",", "9", ",", "7", ",", "12", ",",
    "4", ",", "7", ",", "4", ",", "8", ",", "6", ",", "8", ",", "11", ",", 
   "8", ",", "4", ",", "7", ",", "7", ",", "13", ",", "10", ",", "13", ",", 
   "10", ",", "5", ",", "9", ",", "12", ",", "5", ",", "9", ",", "11", ",", 
   "10", ",", "7", ",", "8", ",", "10", ",", "13", ",", "10", ",", "13", ",", 
   "5", ",", "6", ",", "8", ",", "6", ",", "8", ",", "8", ",", "8", ",", "12",
    ",", "9", ",", "14", ",", "11", ",", "16", ",", "8", ",", "6", ",", "7", 
   ",", "11", ",", "12", ",", "7", ",", "7", ",", "6", ",", "8", ",", "6", 
   ",", "14", ",", "10", ",", "3", ",", "14", ",", "8", ",", "11", ",", "5", 
   ",", "9", ",", "11", ",", "10", ",", "13", ",", "11", ",", "9", ",", "11", 
   ",", "8", ",", "13", ",", "12", ",", "7", ",", "5", ",", "12", ",", "9", 
   ",", "9", ",", "8", ",", "10", ",", "6", ",", "7", ",", "8", ",", "11", 
   ",", "8", ",", "10", ",", "7", ",", "15", ",", "7", ",", "7", ",", "9", 
   ",", "8", ",", "7", ",", "7", ",", "9", ",", "12", ",", "11", ",", "8", 
   ",", "8", ",", "7", ",", "5", ",", "9", ",", "7", ",", "8", ",", "9", ",", 
   "8", ",", "11", ",", "10", ",", "4", ",", "9", ",", "7", ",", "8", ",", 
   "13", ",", "9", ",", "15", ",", "7", ",", "9", ",", "4", ",", "11", ",", 
   "8", ",", "10", ",", "8", ",", "5", ",", "12", ",", "4", ",", "13", ",", 
   "9", ",", "10", ",", "6", ",", "8", ",", "10", ",", "10", ",", "8", ",", 
   "7", ",", "16", ",", "10", ",", "6", ",", "10", ",", "14", ",", "10", ",", 
   "8", ",", "9", ",", "8", ",", "12", ",", "7", ",", "8", ",", "6", ",", 
   "10", ",", "14", ",", "7", ",", "9", ",", "12", ",", "7", ",", "12", ",", 
   "12", ",", "4", ",", "9", ",", "9", ",", "6", ",", "8", ",", "8", ",", 
   "11", ",", "11", ",", "6", ",", "9", ",", "9", ",", "13", ",", "8", ",", 
   "7", ",", "12", ",", "5", ",", "14", ",", "5", ",", "9", ",", "11", ",", 
   "7", ",", "7", ",", "9", ",", "11", ",", "6", ",", "10", ",", "10", ",", 
   "10", ",", "9", ",", "9", ",", "10", ",", "9", ",", "9", ",", "8", ",", 
   "12", ",", "10", ",", "5", ",", "8", ",", "7", ",", "7", ",", "4", ",", 
   "6", ",", "7", ",", "9", ",", "5", ",", "6", ",", "8", ",", "7", ",", "7", 
   ",", "8", ",", "9", ",", "12", ",", "14", ",", "7", ",", "8", ",", "11", 
   ",", "6", ",", "7", ",", "7", ",", "6", ",", "7", ",", "5", ",", "6", ",", 
   "6", ",", "6", ",", "12", ",", "8", ",", "8", ",", "12", ",", "7", ",", 
   "5", ",", "4", ",", "7", ",", "13", ",", "7", ",", "9", ",", "13", ",", 
   "7", ",", "11", ",", "9", ",", "4", ",", "8", ",", "10", ",", "8", ",", 
   "6", ",", "12", ",", "9", ",", "9", ",", "12", ",", "9", ",", "6", ",", 
   "11", ",", "11", ",", "13", ",", "9", ",", "5", ",", "10", ",", "7", ",", 
   "9", ",", "7", ",", "9", ",", "9", ",", "9", ",", "8", ",", "8", ",", "12",
    ",", "10", ",", "11", ",", "6", ",", "8", ",", "9", ",", "9", ",", "10", 
   ",", "9", ",", "5", ",", "13", ",", "7", ",", "5", ",", "11", ",", "3", 
   ",", "9", ",", "4", ",", "12", ",", "8", ",", "7", ",", "8", ",", "11", 
   ",", "10", ",", "5", ",", "6", ",", "12", ",", "9", ",", "12", ",", "10", 
   ",", "7", ",", "4", ",", "9", ",", "6", ",", "8", ",", "12", ",", "7", ",",
    "13", ",", "9", ",", "9", ",", "11", ",", "10", ",", "7", ",", "16", ",", 
   "5", ",", "7", ",", "10", ",", "11", ",", "9", ",", "7", ",", "4", ",", 
   "8", ",", "12", ",", "6", ",", "7", ",", "10", ",", "9", ",", "11", ",", 
   "6", ",", "5", ",", "12", ",", "6", ",", "8", ",", "10", ",", "9", ",", 
   "9", ",", "10", ",", "10", ",", "10", ",", "8", ",", "5", ",", "13", ",", 
   "9", ",", "8", ",", "8", ",", "7", ",", "6", ",", "8", ",", "7", ",", "9", 
   ",", "7", ",", "9", ",", "10", ",", "5", ",", "9", ",", "10", ",", "9", 
   ",", "7", ",", "9", ",", "9", ",", "9", ",", "10", ",", "14", ",", "4", 
   ",", "13", ",", "7", ",", "10", ",", "13", ",", "12", ",", "6", ",", "8", 
   ",", "10", ",", "8", ",", "7", ",", "7", ",", "12", ",", "5", ",", "10", 
   ",", "5", ",", "8", ",", "8", ",", "13", ",", "10", ",", "10", ",", "6", 
   ",", "10", ",", "10", ",", "6", ",", "10", ",", "10", ",", "11", ",", "10",
    ",", "8", ",", "5", ",", "6", ",", "7", ",", "8", ",", "10", ",", "4", 
   ",", "9", ",", "6", ",", "5", ",", "6", ",", "7", ",", "10", ",", "12", 
   ",", "10", ",", "6", ",", "8", ",", "7", ",", "6", ",", "9", ",", "6", ",",
    "13", ",", "10", ",", "5", ",", "8", ",", "5", ",", "5", ",", "11", ",", 
   "6", ",", "9", ",", "9", ",", "13", ",", "12", ",", "8", ",", "13", ",", 
   "7", ",", "13", ",", "9", ",", "13", ",", "7", ",", "11", ",", "7", ",", 
   "6", ",", "13", ",", "12", ",", "14", ",", "10", ",", "8", ",", "8", ",", 
   "11", ",", "9", ",", "15", ",", "9", ",", "4", ",", "4", ",", "6", ",", 
   "11", ",", "10", ",", "14", ",", "9", ",", "6", ",", "7", ",", "6", ",", 
   "13", ",", "13", ",", "12", ",", "12", ",", "6", ",", "8", ",", "4", ",", 
   "8", ",", "8", ",", "9", ",", "7", ",", "8", ",", "5", ",", "11", ",", "9",
    ",", "11", ",", "9", ",", "9", ",", "10", ",", "11", ",", "5", ",", "8", 
   ",", "7", ",", "11", ",", "10", ",", "7", ",", "7", ",", "12", ",", "5", 
   ",", "6", ",", "6", ",", "8", ",", "7", ",", "11", ",", "8", ",", "7", ",",
    "9", ",", "12", ",", "6", ",", "6", ",", "8", ",", "13", ",", "7", ",", 
   "8", ",", "6", ",", "10", ",", "9", ",", "8", ",", "9", ",", "8", ",", "6",
    ",", "7", ",", "10", ",", "9", ",", "11", ",", "10", ",", "8", ",", "9", 
   ",", "8", ",", "9", ",", "7", ",", "7", ",", "9", ",", "8", ",", "14", ",",
    "8", ",", "8", ",", "15", ",", "5", ",", "11", ",", "12", ",", "6", ",", 
   "6", ",", "14", ",", "9", ",", "12", ",", "7", ",", "10", ",", "14", ",", 
   "10", ",", "13", ",", "15", ",", "11", ",", "8", ",", "10", ",", "14", ",",
    "10", ",", "7", ",", "17", ",", "6", ",", "5", ",", "14", ",", "15", ",", 
   "9", ",", "12", ",", "16", ",", "10", ",", "12", ",", "8", ",", "8", ",", 
   "8", ",", "9", ",", "8", ",", "13", ",", "8", ",", "13", ",", "9", ",", 
   "10", ",", "3", ",", "9", ",", "7", ",", "11", ",", "11", ",", "9", ",", 
   "10", ",", "5", ",", "7", ",", "5", ",", "8", ",", "5", ",", "8", ",", 
   "10", ",", "12", ",", "8", ",", "7", ",", "10", ",", "4", ",", "6", ",", 
   "14", ",", "4", ",", "9", ",", "10", ",", "12", ",", "9", ",", "6", ",", 
   "8", ",", "9", ",", "8", ",", "4", ",", "7", ",", "10", ",", "9", ",", 
   "11", ",", "6", ",", "7", ",", "14", ",", "6", ",", "4", ",", "10", ",", 
   "6", ",", "8", ",", "6", ",", "6", ",", "9", ",", "7", ",", "7", ",", "15",
    ",", "8", ",", "6", ",", "9", ",", "13", ",", "7", ",", "6", ",", "17", 
   ",", "13", ",", "5", ",", "11", ",", "7", ",", "9", ",", "8", ",", "9", 
   ",", "12", ",", "7", ",", "14", ",", "10", ",", "12", ",", "9", ",", "9", 
   ",", "8", ",", "10", ",", "4", ",", "10", ",", "12", ",", "9", ",", "7", 
   ",", "9", ",", "13", ",", "10", ",", "5", ",", "10", ",", "9", ",", "8", 
   ",", "7", ",", "11", ",", "10", ",", "13", ",", "6", ",", "10", ",", "9", 
   ",", "9", ",", "6", ",", "11", ",", "7", ",", "11", ",", "7", ",", "6", 
   ",", "11", ",", "9", ",", "11", ",", "9", ",", "12", ",", "10", ",", "9", 
   ",", "13", ",", "8", ",", "11", ",", "12", ",", "8", ",", "10", ",", "11", 
   ",", "11", ",", "6", ",", "7", ",", "11", ",", "10", ",", "8", ",", "14", 
   ",", "5", ",", "7", ",", "6", ",", "12", ",", "8", ",", "10", ",", "8", 
   ",", "6", ",", "4", ",", "7", ",", "13", ",", "7", ",", "7", ",", "11", 
   ",", "9", ",", "5", ",", "8", ",", "8", ",", "13", ",", "9", ",", "6", ",",
    "7", ",", "5", ",", "8", ",", "8", ",", "9", ",", "10", ",", "11", ",", 
   "11", ",", "12", ",", "7", ",", "7", ",", "11", ",", "10", ",", "6", ",", 
   "16", ",", "4", ",", "11", ",", "8", ",", "9", ",", "9", ",", "7", ",", 
   "12", ",", "8", ",", "10", ",", "8", ",", "7", ",", "13", ",", "5", ",", 
   "10", ",", "8", ",", "12", ",", "7", ",", "13", ",", "9", ",", "8", ",", 
   "14", ",", "12", ",", "10", ",", "12", ",", "12", ",", "9", ",", "7", ",", 
   "14", ",", "11", ",", "11", ",", "4", ",", "8", ",", "10", ",", "7", ",", 
   "8", ",", "14", ",", "12", ",", "5", ",", "13", ",", "9", ",", "7", ",", 
   "7", ",", "10", ",", "10", ",", "8", ",", "16", ",", "9", ",", "9", ",", 
   "8", ",", "4", ",", "7", ",", "8", ",", "7", ",", "9", ",", "11", ",", "5",
    ",", "8", ",", "8", ",", "10", ",", "6", ",", "10", ",", "8", ",", "13", 
   ",", "5", ",", "9", ",", "7", ",", "9", ",", "7", ",", "7", ",", "8", ",", 
   "9", ",", "7", ",", "15", ",", "4", ",", "9", ",", "5", ",", "8", ",", "4",
    ",", "7", ",", "6", ",", "7", ",", "8", ",", "9", ",", "13", ",", "7", 
   ",", "9", ",", "12", ",", "11", ",", "10", ",", "9", ",", "7", ",", "3", 
   ",", "11", ",", "8", ",", "5", ",", "9", ",", "11", ",", "12", ",", "11", 
   ",", "8", ",", "8", ",", "11", ",", "10", ",", "10", ",", "8", ",", "7", 
   ",", "7", ",", "6", ",", "13", ",", "9", ",", "9", ",", "12", ",", "10", 
   ",", "11", ",", "13", ",", "7", ",", "8", ",", "10", ",", "6", ",", "11", 
   ",", "9", ",", "8", ",", "9", ",", "7", ",", "9", ",", "8", ",", "12", ",",
    "11", ",", "13", ",", "8", ",", "9", ",", "9", ",", "10", ",", "8", ",", 
   "9", ",", "8", ",", "9", ",", "7", ",", "9", ",", "8", ",", "6", ",", "15",
    ",", "6", ",", "8", ",", "5", ",", "10", ",", "10", ",", "15", ",", "9", 
   ",", "8", ",", "7", ",", "8", ",", "11", ",", "10", ",", "8", ",", "14", 
   ",", "12", ",", "6", ",", "8", ",", "10", ",", "12", ",", "10", ",", "12", 
   ",", "10", ",", "7", ",", "9", ",", "10", ",", "11", ",", "6", ",", "11", 
   ",", "10", ",", "9", ",", "7", ",", "9", ",", "7", ",", "9", ",", "15", 
   ",", "14", ",", "11", ",", "9", ",", "10", ",", "7", ",", "5", ",", "13", 
   ",", "5", ",", "8", ",", "4", ",", "14", ",", "10", ",", "13", ",", "11", 
   ",", "7", ",", "10", ",", "6", ",", "11", ",", "8", ",", "4", ",", "6", 
   ",", "11", ",", "4", ",", "7", ",", "11", ",", "7", ",", "7", ",", "8", 
   ",", "11", ",", "8", ",", "5", ",", "7", ",", "9", ",", "7", ",", "8", ",",
    "15", ",", "8", ",", "15", ",", "8", ",", "4", ",", "9", ",", "8", ",", 
   "9", ",", "7", ",", "13", ",", "11", ",", "10", ",", "9", ",", "7", ",", 
   "11", ",", "6", ",", "9", ",", "9", ",", "9", ",", "9", ",", "11", ",", 
   "8", ",", "14", ",", "8", ",", "10", ",", "7", ",", "5", ",", "12", ",", 
   "9", ",", "8", ",", "7", ",", "11", ",", "8", ",", "7", ",", "4", ",", "8",
    ",", "6", ",", "9", ",", "9", ",", "11", ",", "6", ",", "8", ",", "7", 
   ",", "8", ",", "9", ",", "9", ",", "8", ",", "7", ",", "9", ",", "10", ",",
    "15", ",", "12", ",", "9", ",", "9", ",", "5", ",", "7", ",", "8", ",", 
   "8", ",", "11", ",", "9", ",", "10", ",", "7", ",", "6", ",", "10", ",", 
   "13", ",", "13", ",", "6", ",", "10", ",", "14", ",", "5", ",", "8", ",", 
   "7", ",", "7", ",", "7", ",", "8", ",", "7", ",", "13", ",", "8", ",", "6",
    ",", "10", ",", "6", ",", "5", ",", "7", ",", "10", ",", "9", ",", "12", 
   ",", "9", ",", "12", ",", "10", ",", "5", ",", "9", ",", "11", ",", "13", 
   ",", "14", ",", "3", ",", "5", ",", "10", ",", "14", ",", "2", ",", "13", 
   ",", "10", ",", "6", ",", "13", ",", "8", ",", "9", ",", "13", ",", "10", 
   ",", "9", ",", "6", ",", "16", ",", "7", ",", "6", ",", "10", ",", "9", 
   ",", "6", ",", "6", ",", "10", ",", "12", ",", "7", ",", "11", ",", "9", 
   ",", "10", ",", "13", ",", "10", ",", "9", ",", "8", ",", "6", ",", "3", 
   ",", "7", ",", "6", ",", "8", ",", "3", ",", "12", ",", "5", ",", "11", 
   ",", "10", ",", "12", ",", "10", ",", "9", ",", "8", ",", "11", ",", "11", 
   ",", "11", ",", "12", ",", "12", ",", "5", ",", "10", ",", "9", ",", "10", 
   ",", "11", ",", "11", ",", "7", ",", "13", ",", "10", ",", "9", ",", "9", 
   ",", "6", ",", "9", ",", "11", ",", "10", ",", "7", ",", "3", ",", "4", 
   ",", "12", ",", "10", ",", "14", ",", "8", ",", "8", ",", "11", ",", "11", 
   ",", "4", ",", "9", ",", "11", ",", "8", ",", "11", ",", "8", ",", "12", 
   ",", "9", ",", "8", ",", "10", ",", "7", ",", "11", ",", "5", ",", "6", 
   ",", "7", ",", "11", ",", "9", ",", "13", ",", "9", ",", "8", ",", "13", 
   ",", "7", ",", "11", ",", "8", ",", "7", ",", "9", ",", "4", ",", "11", 
   ",", "8", ",", "14", ",", "6", ",", "10", ",", "9", ",", "10", ",", "11", 
   ",", "14", ",", "9", ",", "6", ",", "7", ",", "13", ",", "5", ",", "12", 
   ",", "12", ",", "13", ",", "5", ",", "6", ",", "8", ",", "11", ",", "10", 
   ",", "9", ",", "7", ",", "6", ",", "3", ",", "6", ",", "14", ",", "3", ",",
    "8", ",", "7", ",", "11", ",", "9", ",", "9", ",", "12", ",", "9", ",", 
   "7", ",", "13", ",", "8", ",", "10", ",", "8", ",", "3", ",", "7", ",", 
   "9", ",", "11", ",", "3", ",", "15", ",", "7", ",", "6", ",", "4", ",", 
   "6", ",", "5", ",", "9", ",", "8", ",", "10", ",", "7", ",", "9", ",", 
   "10", ",", "9", ",", "9", ",", "7", ",", "7", ",", "8", ",", "9", ",", 
   "10", ",", "8", ",", "12", ",", "3", ",", "12", ",", "8", ",", "9", ",", 
   "8", ",", "11", ",", "8", ",", "9", ",", "9", ",", "7", ",", "7", ",", "8",
    ",", "7", ",", "9", ",", "12", ",", "7", ",", "8", ",", "9", ",", "14", 
   ",", "10", ",", "10", ",", "8", ",", "6", ",", "8", ",", "8", ",", "12", 
   ",", "9", ",", "8", ",", "12", ",", "6", ",", "11", ",", "7", ",", "7", 
   ",", "6", ",", "8", ",", "5", ",", "8", ",", "12", ",", "10", ",", "10", 
   ",", "9", ",", "8", ",", "10", ",", "9", ",", "3", ",", "9", ",", "11", 
   ",", "10", ",", "8", ",", "9", ",", "9", ",", "11", ",", "10", ",", "8", 
   ",", "8", ",", "6", ",", "10", ",", "8", ",", "14", ",", "8", ",", "9", 
   ",", "13", ",", "8", ",", "11", ",", "10", ",", "12", ",", "7", ",", "11", 
   ",", "10", ",", "9", ",", "9", ",", "6", ",", "5", ",", "10", ",", "8", 
   ",", "10", ",", "8", ",", "6", ",", "6", ",", "7", ",", "9", ",", "12", 
   ",", "12", ",", "13", ",", "12", ",", "12", ",", "7", ",", "8", ",", "10", 
   ",", "9", ",", "10", ",", "7", ",", "8", ",", "9", ",", "9", ",", "10", 
   ",", "14", ",", "7", ",", "7", ",", "12", ",", "10", ",", "11", ",", "9", 
   ",", "9", ",", "6", ",", "11", ",", "2", ",", "11", ",", "13", ",", "10", 
   ",", "10", ",", "9", ",", "6", ",", "8", ",", "11", ",", "5", ",", "8", 
   ",", "11", ",", "6", ",", "8", ",", "10", ",", "18", ",", "11", ",", "12", 
   ",", "10", ",", "6", ",", "8", ",", "8", ",", "10", ",", "11", ",", "8", 
   ",", "10", ",", "9", ",", "2", ",", "9", ",", "10", ",", "11", ",", "8", 
   ",", "11", ",", "13", ",", "13", ",", "7", ",", "9", ",", "11", ",", "13", 
   ",", "8", ",", "7", ",", "7", ",", "8", ",", "9", ",", "12", ",", "6", ",",
    "8", ",", "5", ",", "8", ",", "10", ",", "9", ",", "4", ",", "7", ",", 
   "8", ",", "5", ",", "11", ",", "5", ",", "6", ",", "10", ",", "14", ",", 
   "11", ",", "7", ",", "6", ",", "7", ",", "8", ",", "7", ",", "10", ",", 
   "11", ",", "11", ",", "11", ",", "9", ",", "18", ",", "12", ",", "7", ",", 
   "10", ",", "11", ",", "8", ",", "12", ",", "12", ",", "7", ",", "8", ",", 
   "9", ",", "13", ",", "7", ",", "11", ",", "8", ",", "9", ",", "12", ",", 
   "8", ",", "7", ",", "5", ",", "9", ",", "8", ",", "8", ",", "9", ",", "10",
    ",", "10", ",", "9", ",", "5", ",", "4", ",", "2", ",", "9", ",", "8", 
   ",", "10", ",", "5", ",", "8", ",", "10", ",", "10", ",", "9", ",", "12", 
   ",", "8", ",", "8", ",", "6", ",", "9", ",", "5", ",", "9", ",", "6", ",", 
   "7", ",", "10", ",", "8", ",", "3", ",", "7", ",", "8", ",", "6", ",", "8",
    ",", "9", ",", "8", ",", "7", ",", "4", ",", "8", ",", "7", ",", "9", ",",
    "8", ",", "9", ",", "6", ",", "10", ",", "9", ",", "10", ",", "6", ",", 
   "10", ",", "8", ",", "12", ",", "12", ",", "5", ",", "6", ",", "6", ",", 
   "12", ",", "7", ",", "13", ",", "15", ",", "16", ",", "9", ",", "11", ",", 
   "8", ",", "11", ",", "10", ",", "13", ",", "8", ",", "7", ",", "8", ",", 
   "5", ",", "15", ",", "9", ",", "8", ",", "8", ",", "7", ",", "8", ",", 
   "11", ",", "13", ",", "10", ",", "13", ",", "10", ",", "9", ",", "10", ",",
    "9", ",", "13", ",", "12", ",", "7", ",", "12", ",", "11", ",", "8", ",", 
   "7", ",", "8", ",", "8", ",", "7", ",", "9", ",", "8", ",", "10", ",", "8",
    ",", "6", ",", "6", ",", "9", ",", "10", ",", "7", ",", "7", ",", "8", 
   ",", "8", ",", "10", ",", "9", ",", "8", ",", "3", ",", "6", ",", "11", 
   ",", "7", ",", "8", ",", "11", ",", "11", ",", "9", ",", "7", ",", "14", 
   ",", "9", ",", "10", ",", "10", ",", "6", ",", "7", ",", "10", ",", "10", 
   ",", "10", ",", "13", ",", "5", ",", "6", ",", "5", ",", "12", ",", "8", 
   ",", "10", ",", "7", ",", "9", ",", "9", ",", "7", ",", "12", ",", "9", 
   ",", "7", ",", "7", ",", "11", ",", "8", ",", "7", ",", "8", ",", "10", 
   ",", "9", ",", "6", ",", "8", ",", "10", ",", "9", ",", "10", ",", "12", 
   ",", "15", ",", "9", ",", "11", ",", "8", ",", "12", ",", "9", ",", "9", 
   ",", "5", ",", "7", ",", "9", ",", "9", ",", "10", ",", "11", ",", "9", 
   ",", "6", ",", "9", ",", "7", ",", "13", ",", "10", ",", "8", ",", "13", 
   ",", "6", ",", "7", ",", "5", ",", "15", ",", "6", ",", "7", ",", "6", ",",
    "9", ",", "7", ",", "7", ",", "10", ",", "4", ",", "13", ",", "11", ",", 
   "11", ",", "11", ",", "16", ",", "8", ",", "9", ",", "10", ",", "12", ",", 
   "7", ",", "9", ",", "9", ",", "11", ",", "10", ",", "12", ",", "12", ",", 
   "9", ",", "11", ",", "8", ",", "15", ",", "10", ",", "10", ",", "9", ",", 
   "13", ",", "7", ",", "8", ",", "6", ",", "4", ",", "12", ",", "8", ",", 
   "7", ",", "8", ",", "11", ",", "9", ",", "9", ",", "10", ",", "10", ",", 
   "5", ",", "6", ",", "10", ",", "11", ",", "7", ",", "10", ",", "8", ",", 
   "6", ",", "7", ",", "5", ",", "5", ",", "11", ",", "10", ",", "9", ",", 
   "10", ",", "10", ",", "10", ",", "9", ",", "13", ",", "12", ",", "6", ",", 
   "9", ",", "6", ",", "13", ",", "12", ",", "11", ",", "15", ",", "15", ",", 
   "10", ",", "6", ",", "10", ",", "9", ",", "9", ",", "13", ",", "8", ",", 
   "8", ",", "11", ",", "9", ",", "11", ",", "13", ",", "9", ",", "8", ",", 
   "7", ",", "11", ",", "9", ",", "6", ",", "7", ",", "7", ",", "7", ",", "8",
    ",", "10", ",", "9", ",", "11", ",", "11", ",", "10", ",", "10", ",", 
   "10", ",", "9", ",", "9", ",", "8", ",", "14", ",", "8", ",", "10", ",", 
   "9", ",", "15", ",", "11", ",", "11", ",", "12", ",", "10", ",", "7", ",", 
   "8", ",", "7", ",", "7", ",", "7", ",", "11", ",", "10", ",", "9", ",", 
   "6", ",", "17", ",", "11", ",", "10", ",", "6", ",", "7", ",", "7", ",", 
   "4", ",", "9", ",", "9", ",", "7", ",", "14", ",", "8", ",", "12", ",", 
   "11", ",", "12", ",", "8", ",", "9", ",", "12", ",", "6", ",", "10", ",", 
   "9", ",", "7", ",", "8", ",", "10", ",", "8", ",", "6", ",", "8", ",", 
   "12", ",", "8", ",", "7", ",", "10", ",", "7", ",", "9", ",", "13", ",", 
   "8", ",", "8", ",", "12", ",", "4", ",", "8", ",", "7", ",", "6", ",", 
   "10", ",", "7", ",", "11", ",", "11", ",", "7", ",", "7", ",", "13", ",", 
   "9", ",", "8", ",", "4", ",", "8", ",", "4", ",", "5", ",", "10", ",", 
   "11", ",", "10", ",", "9", ",", "11", ",", "8", ",", "13", ",", "11", ",", 
   "11", ",", "4", ",", "11", ",", "7", ",", "10", ",", "9", ",", "13", ",", 
   "7", ",", "7", ",", "7", ",", "8", ",", "16", ",", "9", ",", "6", ",", "8",
    ",", "12", ",", "7", ",", "8", ",", "7", ",", "8", ",", "11", ",", "7", 
   ",", "7", ",", "7", ",", "8", ",", "8", ",", "12", ",", "5", ",", "14", 
   ",", "8", ",", "7", ",", "8", ",", "15", ",", "10", ",", "11", ",", "8", 
   ",", "7", ",", "7", ",", "7", ",", "11", ",", "10", ",", "13", ",", "9", 
   ",", "13", ",", "10", ",", "9", ",", "10", ",", "11", ",", "5", ",", "8", 
   ",", "10", ",", "9", ",", "9", ",", "12", ",", "10", ",", "4", ",", "9", 
   ",", "10", ",", "9", ",", "13", ",", "4", ",", "8", ",", "7", ",", "7", 
   ",", "6", ",", "11", ",", "9", ",", "5", ",", "8", ",", "11", ",", "12", 
   ",", "9", ",", "9", ",", "10", ",", "7", ",", "8", ",", "8", ",", "14", 
   ",", "9", ",", "7", ",", "11", ",", "6", ",", "5", ",", "6", ",", "11", 
   ",", "11", ",", "7", ",", "14", ",", "7", ",", "12", ",", "8", ",", "9", 
   ",", "9", ",", "9", ",", "12", ",", "8", ",", "6", ",", "12", ",", "8", 
   ",", "9", ",", "10", ",", "5", ",", "6", ",", "9", ",", "10", ",", "11", 
   ",", "9", ",", "15", ",", "13", ",", "10", ",", "8", ",", "13", ",", "8", 
   ",", "9", ",", "10", ",", "8", ",", "8", ",", "7", ",", "7", ",", "11", 
   ",", "6", ",", "9", ",", "7", ",", "8", ",", "5", ",", "10", ",", "11", 
   ",", "9", ",", "9", ",", "10", ",", "8", ",", "10", ",", "3", ",", "11", 
   ",", "11", ",", "10", ",", "11", ",", "9", ",", "10", ",", "10", ",", "7", 
   ",", "14", ",", "14", ",", "9", ",", "13", ",", "9", ",", "8", ",", "10", 
   ",", "9", ",", "8", ",", "11", ",", "7", ",", "11", ",", "8", ",", "8", 
   ",", "9", ",", "7", ",", "8", ",", "2", ",", "9", ",", "10", ",", "11", 
   ",", "9", ",", "12", ",", "8", ",", "10", ",", "9", ",", "3", ",", "5", 
   ",", "11", ",", "7", ",", "5", ",", "9", ",", "6", ",", "13", ",", "7", 
   ",", "3", ",", "5", ",", "9", ",", "10", ",", "15", ",", "9", ",", "11", 
   ",", "10", ",", "8", ",", "7", ",", "7", ",", "7", ",", "10", ",", "6", 
   ",", "4", ",", "10", ",", "8", ",", "10", ",", "9", ",", "9", ",", "5", 
   ",", "13", ",", "9", ",", "8", ",", "8", ",", "13", ",", "7", ",", "11", 
   ",", "6", ",", "12", ",", "6", ",", "8", ",", "11", ",", "12", ",", "9", 
   ",", "8", ",", "7", ",", "10", ",", "11", ",", "7", ",", "13", ",", "12", 
   ",", "7", ",", "11", ",", "11", ",", "10", ",", "12", ",", "8", ",", "9", 
   ",", "10", ",", "8", ",", "10", ",", "11", ",", "8", ",", "9", ",", "10", 
   ",", "8", ",", "9", ",", "11", ",", "10", ",", "8", ",", "14", ",", "9", 
   ",", "10", ",", "7", ",", "12", ",", "7", ",", "11", ",", "10", ",", "10", 
   ",", "9", ",", "10", ",", "12", ",", "11", ",", "9", ",", "4", ",", "9", 
   ",", "10", ",", "12", ",", "14", ",", "11", ",", "9", ",", "11", ",", "10",
    ",", "9", ",", "12", ",", "8", ",", "7", ",", "4", ",", "8", ",", "6", 
   ",", "7", ",", "2", ",", "4", ",", "9", ",", "7", ",", "8", ",", "10", ",",
    "9", ",", "6", ",", "9", ",", "8", ",", "7", ",", "8", ",", "13", ",", 
   "9", ",", "12", ",", "7", ",", "11", ",", "5", ",", "12", ",", "7", ",", 
   "8", ",", "9", ",", "12", ",", "7", ",", "8", ",", "9", ",", "11", ",", 
   "10", ",", "8", ",", "5", ",", "10", ",", "10", ",", "6", ",", "7", ",", 
   "7", ",", "4", ",", "9", ",", "7", ",", "11", ",", "9", ",", "9", ",", "8",
    ",", "11", ",", "11", ",", "5", ",", "6", ",", "7", ",", "10", ",", "13", 
   ",", "9", ",", "7", ",", "9", ",", "10", ",", "8", ",", "4", ",", "12", 
   ",", "8", ",", "4", ",", "12", ",", "9", ",", "3", ",", "6", ",", "10", 
   ",", "8", ",", "11", ",", "10", ",", "12", ",", "9", ",", "5", ",", "7", 
   ",", "8", ",", "12", ",", "13", ",", "8", ",", "7", ",", "11", ",", "6", 
   ",", "10", ",", "14", ",", "11", ",", "9", ",", "11", ",", "5", ",", "9", 
   ",", "7", ",", "6", ",", "9", ",", "10", ",", "7", ",", "10", ",", "5", 
   ",", "13", ",", "4", ",", "11", ",", "6", ",", "8", ",", "5", ",", "9", 
   ",", "11", ",", "9", ",", "6", ",", "10", ",", "8", ",", "11", ",", "9", 
   ",", "6", ",", "7", ",", "7", ",", "9", ",", "9", ",", "10", ",", "11", 
   ",", "7", ",", "7", ",", "7", ",", "7", ",", "7", ",", "9", ",", "7", ",", 
   "11", ",", "9", ",", "10", ",", "6", ",", "9", ",", "8", ",", "9", ",", 
   "6", ",", "6", ",", "11", ",", "13", ",", "14", ",", "10", ",", "8", ",", 
   "6", ",", "12", ",", "6", ",", "4", ",", "6", ",", "10", ",", "9", ",", 
   "11", ",", "8", ",", "6", ",", "13", ",", "9", ",", "10", ",", "13", ",", 
   "6", ",", "8", ",", "7", ",", "12", ",", "14", ",", "8", ",", "14", ",", 
   "13", ",", "9", ",", "12", ",", "13", ",", "9", ",", "9", ",", "9", ",", 
   "11", ",", "6", ",", "11", ",", "10", ",", "14", ",", "7", ",", "9", ",", 
   "11", ",", "12", ",", "6", ",", "8", ",", "10", ",", "7", ",", "12", ",", 
   "9", ",", "8", ",", "10", ",", "8", ",", "6", ",", "9", ",", "10", ",", 
   "10", ",", "10", ",", "15", ",", "7", ",", "8", ",", "9", ",", "11", ",", 
   "8", ",", "8", ",", "10", ",", "7", ",", "6", ",", "8", ",", "7", ",", 
   "12", ",", "11", ",", "7", ",", "11", ",", "7", ",", "11", ",", "8", ",", 
   "4", ",", "13", ",", "13", ",", "11", ",", "10", ",", "14", ",", "5", ",", 
   "9", ",", "8", ",", "12", ",", "7", ",", "12", ",", "9", ",", "10", ",", 
   "9", ",", "8", ",", "14", ",", "6", ",", "13", ",", "7", ",", "12", ",", 
   "7", ",", "10", ",", "7", ",", "8", ",", "3", ",", "11", ",", "7", ",", 
   "12", ",", "7", ",", "5", ",", "8", ",", "11", ",", "6", ",", "4", ",", 
   "8", ",", "6", ",", "7", ",", "8", ",", "7", ",", "5", ",", "10", ",", 
   "10", ",", "9", ",", "7", ",", "9", ",", "9", ",", "7", ",", "8", ",", "9",
    ",", "11", ",", "7", ",", "9", ",", "5", ",", "7", ",", "6", ",", "8", 
   ",", "7", ",", "8", ",", "10", ",", "5", ",", "6", ",", "3", ",", "8", ",",
    "10", ",", "10", ",", "11", ",", "6", ",", "9", ",", "9", ",", "7", ",", 
   "11", ",", "7", ",", "8", ",", "8", ",", "7", ",", "6", ",", "10", ",", 
   "10", ",", "9", ",", "11", ",", "6", ",", "7", ",", "5", ",", "10", ",", 
   "5", ",", "11", ",", "12", ",", "9", ",", "8", ",", "7", ",", "6", ",", 
   "10", ",", "7", ",", "9", ",", "13", ",", "6", ",", "11", ",", "4", ",", 
   "8", ",", "8", ",", "5", ",", "9", ",", "5", ",", "11", ",", "9", ",", 
   "11", ",", "11", ",", "9", ",", "7", ",", "6", ",", "7", ",", "9", ",", 
   "9", ",", "8", ",", "9", ",", "14", ",", "7", ",", "10", ",", "8", ",", 
   "5", ",", "6", ",", "12", ",", "6", ",", "11", ",", "12", ",", "12", ",", 
   "5", ",", "13", ",", "13", ",", "12", ",", "7", ",", "8", ",", "6", ",", 
   "11", ",", "9", ",", "5", ",", "4", ",", "9", ",", "11", ",", "7", ",", 
   "8", ",", "9", ",", "10", ",", "11", ",", "13", ",", "8", ",", "9", ",", 
   "8", ",", "7", ",", "6", ",", "12", ",", "13", ",", "8", ",", "8", ",", 
   "10", ",", "8", ",", "10", ",", "6", ",", "8", ",", "8", ",", "9", ",", 
   "12", ",", "11", ",", "4", ",", "7", ",", "9", ",", "15", ",", "12", ",", 
   "8", ",", "11", ",", "3", ",", "7", ",", "10", ",", "10", ",", "5", ",", 
   "6", ",", "9", ",", "7", ",", "7", ",", "10", ",", "13", ",", "5", ",", 
   "7", ",", "7", ",", "5", ",", "8", ",", "12", ",", "13", ",", "9", ",", 
   "13", ",", "8", ",", "9", ",", "13", ",", "8", ",", "7", ",", "12", ",", 
   "12", ",", "3", ",", "10", ",", "9", ",", "11", ",", "6", ",", "7", ",", 
   "4", ",", "6", ",", "12", ",", "13", ",", "9", ",", "8", ",", "11", ",", 
   "10", ",", "10", ",", "5", ",", "4", ",", "13", ",", "8", ",", "11", ",", 
   "10", ",", "9", ",", "6", ",", "8", ",", "8", ",", "12", ",", "6", ",", 
   "5", ",", "8", ",", "9", ",", "10", ",", "10", ",", "15", ",", "11", ",", 
   "11", ",", "9", ",", "10", ",", "11", ",", "14", ",", "9", ",", "12", ",", 
   "10", ",", "11", ",", "9", ",", "10", ",", "4", ",", "10", ",", "14", ",", 
   "10", ",", "12", ",", "14", ",", "7", ",", "11", ",", "11", ",", "7", ",", 
   "9", ",", "13", ",", "9", ",", "8", ",", "8", ",", "5", ",", "6", ",", "9",
    ",", "8", ",", "8", ",", "11", ",", "9", ",", "6", ",", "6", ",", "9", 
   ",", "8", ",", "9", ",", "9", ",", "6", ",", "10", ",", "10", ",", "6", 
   ",", "11", ",", "7", ",", "10", ",", "13", ",", "10", ",", "5", ",", "8", 
   ",", "4", ",", "6", ",", "4", ",", "11", ",", "6", ",", "8", ",", "10", 
   ",", "11", ",", "8", ",", "8", ",", "6", ",", "8", ",", "9", ",", "9", ",",
    "12", ",", "8", ",", "7", ",", "2", ",", "8", ",", "3", ",", "11", ",", 
   "14", ",", "9", ",", "5", ",", "14", ",", "12", ",", "14", ",", "8", ",", 
   "4", ",", "8", ",", "11", ",", "7", ",", "8", ",", "9", ",", "11", ",", 
   "10", ",", "5", ",", "13", ",", "11", ",", "7", ",", "4", ",", "9", ",", 
   "10", ",", "8", ",", "9", ",", "6", ",", "6", ",", "10", ",", "10", ",", 
   "11", ",", "13", ",", "13", ",", "8", ",", "7", ",", "12", ",", "13", ",", 
   "8", ",", "10", ",", "10", ",", "7", ",", "10", ",", "5", ",", "10", ",", 
   "9", ",", "10", ",", "8", ",", "5", ",", "10", ",", "11", ",", "5", ",", 
   "10", ",", "9", ",", "10", ",", "8", ",", "6", ",", "1", ",", "12", ",", 
   "8", ",", "10", ",", "7", ",", "10", ",", "10", ",", "11", ",", "8", ",", 
   "9", ",", "10", ",", "9", ",", "11", ",", "9", ",", "10", ",", "15", ",", 
   "11", ",", "8", ",", "10", ",", "10", ",", "5", ",", "7", ",", "6", ",", 
   "11", ",", "8", ",", "7", ",", "8", ",", "12", ",", "5", ",", "10", ",", 
   "10", ",", "9", ",", "14", ",", "15", ",", "8", ",", "7", ",", "13", ",", 
   "9", ",", "10", ",", "10", ",", "12", ",", "11", ",", "6", ",", "8", ",", 
   "7", ",", "11", ",", "12", ",", "12", ",", "6", ",", "8", ",", "13", ",", 
   "4", ",", "5", ",", "9", ",", "10", ",", "12", ",", "9", ",", "4", ",", 
   "5", ",", "5", ",", "8", ",", "13", ",", "12", ",", "10", ",", "7", ",", 
   "4", ",", "9", ",", "11", ",", "9", ",", "14", ",", "8", ",", "8", ",", 
   "13", ",", "11", ",", "4", ",", "12", ",", "10", ",", "9", ",", "10", ",", 
   "8", ",", "6", ",", "8", ",", "8", ",", "13", ",", "10", ",", "9", ",", 
   "6", ",", "12", ",", "5", ",", "8", ",", "6", ",", "15", ",", "12", ",", 
   "10", ",", "8", ",", "5", ",", "12", ",", "9", ",", "10", ",", "9", ",", 
   "5", ",", "7", ",", "5", ",", "11", ",", "6", ",", "5", ",", "9", ",", "8",
    ",", "9", ",", "13", ",", "6", ",", "8", ",", "6", ",", "7", ",", "12", 
   ",", "9", ",", "10", ",", "7", ",", "11", ",", "8", ",", "8", ",", "6", 
   ",", "13", ",", "9", ",", "9", ",", "7", ",", "7", ",", "8", ",", "10", 
   ",", "14", ",", "9", ",", "11", ",", "9", ",", "5", ",", "6", ",", "3", 
   ",", "8", ",", "8", ",", "6", ",", "11", ",", "8", ",", "8", ",", "12", 
   ",", "15", ",", "10", ",", "5", ",", "6", ",", "11", ",", "5", ",", "9", 
   ",", "12", ",", "6", ",", "11", ",", "8", ",", "11", ",", "9", ",", "8", 
   ",", "11", ",", "10", ",", "9", ",", "7", ",", "9", ",", "10", ",", "13", 
   ",", "14", ",", "10", ",", "9", ",", "9", ",", "8", ",", "8", ",", "14", 
   ",", "8", ",", "6", ",", "8", ",", "8", ",", "6", ",", "10", ",", "15", 
   ",", "11", ",", "7", ",", "7", ",", "7", ",", "5", ",", "10", ",", "7", 
   ",", "8", ",", "8", ",", "4", ",", "7", ",", "8", ",", "9", ",", "10", ",",
    "6", ",", "7", ",", "11", ",", "4", ",", "11", ",", "10", ",", "6", ",", 
   "11", ",", "10", ",", "9", ",", "12", ",", "11", ",", "9", ",", "10", ",", 
   "9", ",", "7", ",", "10", ",", "10", ",", "8", ",", "11", ",", "8", ",", 
   "4", ",", "11", ",", "9", ",", "10", ",", "10", ",", "4", ",", "6", ",", 
   "12", ",", "5", ",", "9", ",", "4", ",", "8", ",", "11", ",", "13", ",", 
   "15", ",", "11", ",", "6", ",", "11", ",", "7", ",", "10", ",", "12", ",", 
   "10", ",", "7", ",", "8", ",", "10", ",", "9", ",", "10", ",", "9", ",", 
   "10", ",", "10", ",", "11", ",", "8", ",", "11", ",", "8", ",", "6", ",", 
   "12", ",", "5", ",", "6", ",", "7", ",", "11", ",", "11", ",", "9", ",", 
   "13", ",", "8", ",", "9", ",", "6", ",", "8", ",", "7", ",", "6", ",", 
   "10", ",", "10", ",", "13", ",", "5", ",", "6", ",", "9", ",", "8", ",", 
   "8", ",", "5", ",", "11", ",", "12", ",", "8", ",", "12", ",", "7", ",", 
   "12", ",", "8", ",", "7", ",", "11", ",", "7", ",", "9", ",", "6", ",", 
   "6", ",", "3", ",", "7", ",", "8", ",", "9", ",", "7", ",", "10", ",", 
   "11", ",", "11", ",", "4", ",", "10", ",", "10", ",", "11", ",", "12", ",",
    "7", ",", "8", ",", "5", ",", "8", ",", "10", ",", "13", ",", "13", ",", 
   "4", ",", "10", ",", "6", ",", "9", ",", "6", ",", "10", ",", "7", ",", 
   "11", ",", "6", ",", "9", ",", "8", ",", "12", ",", "6", ",", "10", ",", 
   "5", ",", "5", ",", "8", ",", "9", ",", "8", ",", "9", ",", "11", ",", "7",
    ",", "9", ",", "6", ",", "8", ",", "16", ",", "7", ",", "8", ",", "7", 
   ",", "12", ",", "9", ",", "7", ",", "11", ",", "11", ",", "7", ",", "7", 
   ",", "10", ",", "10", ",", "13", ",", "9", ",", "3", ",", "10", ",", "12", 
   ",", "9", ",", "9", ",", "8", ",", "8", ",", "10", ",", "12", ",", "5", 
   ",", "9", ",", "8", ",", "8", ",", "9", ",", "8", ",", "9", ",", "10", ",",
    "3", ",", "11", ",", "12", ",", "13", ",", "7", ",", "7", ",", "10", ",", 
   "7", ",", "6", ",", "13", ",", "8", ",", "8", ",", "9", ",", "6", ",", 
   "11", ",", "13", ",", "10", ",", "11", ",", "13", ",", "13", ",", "9", ",",
    "8", ",", "4", ",", "8", ",", "10", ",", "8", ",", "12", ",", "6", ",", 
   "7", ",", "7", ",", "12", ",", "7", ",", "8", ",", "7", ",", "8", ",", "5",
    ",", "8", ",", "8", ",", "11", ",", "4", ",", "11", ",", "9", ",", "6", 
   ",", "11", ",", "10", ",", "13", ",", "9", ",", "12", ",", "8", ",", "13", 
   ",", "6", ",", "9", ",", "11", ",", "6", ",", "6", ",", "9", ",", "4", ",",
    "9", ",", "7", ",", "11", ",", "15", ",", "4", ",", "10", ",", "9", ",", 
   "8", ",", "8", ",", "8", ",", "11", ",", "9", ",", "11", ",", "3", ",", 
   "7", ",", "10", ",", "9", ",", "9", ",", "12", ",", "7", ",", "9", ",", 
   "12", ",", "9", ",", "12", ",", "11", ",", "7", ",", "11", ",", "6", ",", 
   "11", ",", "5", ",", "6", ",", "9", ",", "6", ",", "6", ",", "10", ",", 
   "8", ",", "12", ",", "10", ",", "15", ",", "12", ",", "7", ",", "12", ",", 
   "11", ",", "6", ",", "11", ",", "11", ",", "11", ",", "10", ",", "7", ",", 
   "5", ",", "9", ",", "11", ",", "14", ",", "9", ",", "12", ",", "11", ",", 
   "10", ",", "10", ",", "10", ",", "11", ",", "9", ",", "8", ",", "6", ",", 
   "9", ",", "9", ",", "4", ",", "5", ",", "11", ",", "11", ",", "7", ",", 
   "7", ",", "7", ",", "7", ",", "11", ",", "11", ",", "10", ",", "12", ",", 
   "8", ",", "9", ",", "10", ",", "7", ",", "12", ",", "4", ",", "10", ",", 
   "10", ",", "9", ",", "7", ",", "10", ",", "8", ",", "8", ",", "8", ",", 
   "10", ",", "11", ",", "9", ",", "8", ",", "8", ",", "8", ",", "8", ",", 
   "8", ",", "11", ",", "7", ",", "8", ",", "6", ",", "9", ",", "12", ",", 
   "9", ",", "5", ",", "6", ",", "7", ",", "4", ",", "7", ",", "8", ",", "15",
    ",", "10", ",", "13", ",", "8", ",", "7", ",", "13", ",", "4", ",", "10", 
   ",", "7", ",", "12", ",", "7", ",", "10", ",", "8", ",", "5", ",", "7", 
   ",", "11", ",", "7", ",", "11", ",", "7", ",", "6", ",", "8", ",", "7", 
   ",", "7", ",", "5", ",", "9", ",", "11", ",", "10", ",", "5", ",", "10", 
   ",", "10", ",", "8", ",", "8", ",", "8", ",", "10", ",", "9", ",", "7", 
   ",", "9", ",", "16", ",", "10", ",", "8", ",", "8", ",", "10", ",", "10", 
   ",", "7", ",", "8", ",", "14", ",", "10", ",", "8", ",", "9", ",", "14", 
   ",", "10", ",", "12", ",", "6", ",", "10", ",", "4", ",", "10", ",", "10", 
   ",", "10", ",", "10", ",", "13", ",", "8", ",", "11", ",", "5", ",", "10", 
   ",", "8", ",", "8", ",", "7", ",", "10", ",", "9", ",", "8", ",", "8", ",",
    "9", ",", "11", ",", "6", ",", "7", ",", "8", ",", "10", ",", "13", ",", 
   "4", ",", "8", ",", "7", ",", "9", ",", "5", ",", "7", ",", "9", ",", "9", 
   ",", "7", ",", "13", ",", "6", ",", "13", ",", "5", ",", "10", ",", "9", 
   ",", "13", ",", "10", ",", "4", ",", "11", ",", "9", ",", "10", ",", "15", 
   ",", "7", ",", "6", ",", "9", ",", "13", ",", "10", ",", "9", ",", "9", 
   ",", "8", ",", "10", ",", "13", ",", "7", ",", "7", ",", "5", ",", "10", 
   ",", "12", ",", "13", ",", "8", ",", "10", ",", "9", ",", "10", ",", "8", 
   ",", "10", ",", "10", ",", "11", ",", "6", ",", "9", ",", "6", ",", "12", 
   ",", "8", ",", "7", ",", "7", ",", "11", ",", "9", ",", "7", ",", "10", 
   ",", "5", ",", "12", ",", "7", ",", "5", ",", "4", ",", "10", ",", "10", 
   ",", "14", ",", "9", ",", "9", ",", "6", ",", "9", ",", "10", ",", "13", 
   ",", "10", ",", "13", ",", "8", ",", "5", ",", "8", ",", "12", ",", "6", 
   ",", "9", ",", "7", ",", "6", ",", "6", ",", "10", ",", "11", ",", "8", 
   ",", "9", ",", "10", ",", "12", ",", "5", ",", "5", ",", "10", ",", "7", 
   ",", "8", ",", "9", ",", "14", ",", "7", ",", "11", ",", "13", ",", "9", 
   ",", "9", ",", "12", ",", "7", ",", "7", ",", "5", ",", "4", ",", "12", 
   ",", "9", ",", "6", ",", "12", ",", "10", ",", "10", ",", "15", ",", "10", 
   ",", "11", ",", "10", ",", "10", ",", "9", ",", "13", ",", "15", ",", "8", 
   ",", "7", ",", "8", ",", "9", ",", "7", ",", "12", ",", "11", ",", "10", 
   ",", "5", ",", "8", ",", "7", ",", "4", ",", "8", ",", "10", ",", "5", ",",
    "5", ",", "6", ",", "8", ",", "10", ",", "6", ",", "12", ",", "9", ",", 
   "11", ",", "7", ",", "10", ",", "13", ",", "9", ",", "6", ",", "5", ",", 
   "11", ",", "8", ",", "7", ",", "11", ",", "12", ",", "9", ",", "11", ",", 
   "9", ",", "9", ",", "10", ",", "8", ",", "8", ",", "6", ",", "9", ",", 
   "10", ",", "9", ",", "7", ",", "8", ",", "14", ",", "13", ",", "11", ",", 
   "5", ",", "11", ",", "8", ",", "7", ",", "7", ",", "8", ",", "6", ",", "4",
    ",", "11", ",", "11", ",", "9", ",", "5", ",", "8", ",", "10", ",", "8", 
   ",", "10", ",", "11", ",", "10", ",", "7", ",", "8", ",", "5", ",", "7", 
   ",", "12", ",", "7", ",", "12", ",", "8", ",", "10", ",", "11", ",", "12", 
   ",", "9", ",", "7", ",", "5", ",", "7", ",", "8", ",", "10", ",", "9", ",",
    "13", ",", "10", ",", "13", ",", "9", ",", "8", ",", "11", ",", "13", ",",
    "7", ",", "11", ",", "12", ",", "10", ",", "9", ",", "8", ",", "7", ",", 
   "11", ",", "9", ",", "5", ",", "5", ",", "7", ",", "7", ",", "5", ",", 
   "11", ",", "6", ",", "11", ",", "8", ",", "7", ",", "8", ",", "8", ",", 
   "8", ",", "12", ",", "12", ",", "8", ",", "7", ",", "7", ",", "14", ",", 
   "9", ",", "12", ",", "9", ",", "8", ",", "7", ",", "13", ",", "7", ",", 
   "10", ",", "8", ",", "6", ",", "9", ",", "10", ",", "14", ",", "10", ",", 
   "12", ",", "11", ",", "6", ",", "7", ",", "9", ",", "10", ",", "12", ",", 
   "13", ",", "8", ",", "7", ",", "11", ",", "11", ",", "6", ",", "14", ",", 
   "7", ",", "8", ",", "15", ",", "9", ",", "9", ",", "8", ",", "9", ",", 
   "12", ",", "7", ",", "4", ",", "12", ",", "10", ",", "13", ",", "13", ",", 
   "8", ",", "13", ",", "6", ",", "6", ",", "8", ",", "7", ",", "9", ",", "7",
    ",", "8", ",", "7", ",", "12", ",", "8", ",", "9", ",", "8", ",", "10", 
   ",", "4", ",", "10", ",", "12", ",", "4", ",", "6", ",", "9", ",", "7", 
   ",", "7", ",", "9", ",", "11", ",", "9", ",", "7", ",", "16", ",", "5", 
   ",", "10", ",", "11", ",", "10", ",", "14", ",", "8", ",", "12", ",", "13",
    ",", "13", ",", "8", ",", "5", ",", "12", ",", "8", ",", "11", ",", "15", 
   ",", "9", ",", "6", ",", "8", ",", "8", ",", "9", ",", "16", ",", "7", ",",
    "8", ",", "7", ",", "9", ",", "11", ",", "3", ",", "7", ",", "5", ",", 
   "8", ",", "12", ",", "10", ",", "9", ",", "10", ",", "8", ",", "11", ",", 
   "13", ",", "10", ",", "11", ",", "8", ",", "12", ",", "8", ",", "12", ",", 
   "18", ",", "5", ",", "11", ",", "9", ",", "8", ",", "10", ",", "11", ",", 
   "11", ",", "8", ",", "14", ",", "9", ",", "7", ",", "10", ",", "9", ",", 
   "9", ",", "9", ",", "11", ",", "9", ",", "9", ",", "13", ",", "9", ",", 
   "10", ",", "10", ",", "4", ",", "5", ",", "9", ",", "8", ",", "12", ",", 
   "11", ",", "7", ",", "10", ",", "10", ",", "11", ",", "9", ",", "7", ",", 
   "10", ",", "9", ",", "10", ",", "5", ",", "7", ",", "7", ",", "8", ",", 
   "8", ",", "12", ",", "11", ",", "14", ",", "15", ",", "8", ",", "8", ",", 
   "10", ",", "12", ",", "4", ",", "10", ",", "8", ",", "8", ",", "7", ",", 
   "11", ",", "6", ",", "11", ",", "10", ",", "6", ",", "10", ",", "12", ",", 
   "5", ",", "11", ",", "10", ",", "7", ",", "14", ",", "11", ",", "8", ",", 
   "7", ",", "7", ",", "13", ",", "7", ",", "12", ",", "12", ",", "11", ",", 
   "9", ",", "7", ",", "10", ",", "6", ",", "11", ",", "9", ",", "7", ",", 
   "12", ",", "9", ",", "9", ",", "13", ",", "5", ",", "8", ",", "7", ",", 
   "11", ",", "8", ",", "13", ",", "5", ",", "11", ",", "6", ",", "11", ",", 
   "9", ",", "7", ",", "10", ",", "8", ",", "7", ",", "6", ",", "15", ",", 
   "13", ",", "11", ",", "14", ",", "11", ",", "10", ",", "8", ",", "7", ",", 
   "6", ",", "10", ",", "11", ",", "9", ",", "12", ",", "8", ",", "7", ",", 
   "9", ",", "11", ",", "8", ",", "8", ",", "10", ",", "6", ",", "10", ",", 
   "7", ",", "8", ",", "3", ",", "11", ",", "9", ",", "8", ",", "11", ",", 
   "10", ",", "16", ",", "8", ",", "9", ",", "8", ",", "9", ",", "12", ",", 
   "9", ",", "6", ",", "6", ",", "7", ",", "8", ",", "5", ",", "8", ",", "6", 
   ",", "11", ",", "4", ",", "7", ",", "8", ",", "4", ",", "6", ",", "9", ",",
    "6", ",", "8", ",", "9", ",", "10", ",", "7", ",", "10", ",", "14", ",", 
   "10", ",", "10", ",", "12", ",", "4", ",", "6", ",", "8", ",", "9", ",", 
   "12", ",", "10", ",", "9", ",", "6", ",", "12", ",", "9", ",", "7", ",", 
   "10", ",", "9", ",", "12", ",", "8", ",", "2", ",", "10", ",", "11", ",", 
   "8", ",", "5", ",", "12", ",", "7", ",", "9", ",", "10", ",", "11", ",", 
   "6", ",", "10", ",", "9", ",", "8", ",", "9", ",", "8", ",", "9", ",", 
   "10", ",", "11", ",", "13", ",", "5", ",", "10", ",", "10", ",", "9", ",", 
   "11", ",", "8", ",", "8", ",", "14", ",", "7", ",", "11", ",", "12", ",", 
   "8", ",", "12", ",", "4", ",", "5", ",", "10", ",", "15", ",", "9", ",", 
   "9", ",", "11", ",", "10", ",", "12", ",", "6", ",", "11", ",", "9", ",", 
   "5", ",", "10", ",", "9", ",", "11", ",", "8", ",", "8", ",", "10", ",", 
   "8", ",", "11", ",", "13", ",", "6", ",", "12", ",", "11", ",", "10", ",", 
   "6", ",", "8", ",", "6", ",", "8", ",", "11", ",", "11", ",", "11", ",", 
   "12", ",", "3", ",", "7", ",", "10", ",", "14", ",", "6", ",", "10", ",", 
   "11", ",", "5", ",", "11", ",", "4", ",", "12", ",", "8", ",", "9", ",", 
   "10", ",", "9", ",", "8", ",", "7", ",", "12", ",", "7", ",", "11", ",", 
   "8", ",", "12", ",", "6", ",", "10", ",", "10", ",", "9", ",", "10", ",", 
   "6", ",", "6", ",", "13", ",", "11", ",", "10", ",", "10", ",", "6", ",", 
   "8", ",", "10", ",", "7", ",", "10", ",", "8", ",", "10", ",", "7", ",", 
   "10", ",", "7", ",", "8", ",", "6", ",", "9", ",", "10", ",", "11", ",", 
   "9", ",", "5", ",", "11", ",", "10", ",", "6", ",", "12", ",", "10", ",", 
   "8", ",", "7", ",", "10", ",", "10", ",", "9", ",", "9", ",", "11", ",", 
   "2", ",", "6", ",", "11", ",", "5", ",", "13", ",", "9", ",", "8", ",", 
   "5", ",", "8", ",", "13", ",", "7", ",", "13", ",", "8", ",", "10", ",", 
   "9", ",", "8", ",", "7", ",", "5", ",", "5", ",", "11", ",", "9", ",", "9",
    ",", "6", ",", "12", ",", "9", ",", "11", ",", "7", ",", "7", ",", "9", 
   ",", "13", ",", "10", ",", "9", ",", "5", ",", "12", ",", "13", ",", "10", 
   ",", "8", ",", "6", ",", "5", ",", "7", ",", "9", ",", "10", ",", "9", ",",
    "10", ",", "10", ",", "8", ",", "7", ",", "12", ",", "5", ",", "8", ",", 
   "5", ",", "11", ",", "10", ",", "11", ",", "13", ",", "12", ",", "7", ",", 
   "8", ",", "9", ",", "9", ",", "7", ",", "8", ",", "5", ",", "6", ",", "10",
    ",", "7", ",", "7", ",", "7", ",", "7", ",", "11", ",", "8", ",", "11", 
   ",", "9", ",", "11", ",", "8", ",", "8", ",", "4", ",", "10", ",", "9", 
   ",", "13", ",", "9", ",", "15", ",", "8", ",", "13", ",", "7", ",", "13", 
   ",", "9", ",", "11", ",", "8", ",", "7", ",", "8", ",", "6", ",", "10", 
   ",", "6", ",", "7", ",", "5", ",", "9", ",", "9", ",", "5", ",", "9", ",", 
   "9", ",", "6", ",", "8", ",", "9", ",", "8", ",", "10", ",", "13", ",", 
   "9", ",", "10", ",", "7", ",", "10", ",", "7", ",", "13", ",", "12", ",", 
   "7", ",", "8", ",", "11", ",", "9", ",", "12", ",", "11", ",", "6", ",", 
   "17", ",", "13", ",", "8", ",", "10", ",", "3", ",", "9", ",", "15", ",", 
   "9", ",", "7", ",", "11", ",", "5", ",", "7", ",", "8", ",", "8", ",", 
   "12", ",", "10", ",", "9", ",", "9", ",", "5", ",", "7", ",", "12", ",", 
   "12", ",", "13", ",", "8", ",", "4", ",", "9", ",", "12", ",", "8", ",", 
   "10", ",", "9", ",", "11", ",", "8", ",", "12", ",", "9", ",", "7", ",", 
   "6", ",", "7", ",", "8", ",", "14", ",", "10", ",", "5", ",", "8", ",", 
   "13", ",", "5", ",", "10", ",", "7", ",", "11", ",", "6", ",", "10", ",", 
   "9", ",", "11", ",", "7", ",", "10", ",", "9", ",", "10", ",", "8", ",", 
   "9", ",", "8", ",", "6", ",", "6", ",", "11", ",", "7", ",", "8", ",", 
   "10", ",", "12", ",", "13", ",", "8", ",", "10", ",", "10", ",", "6", ",", 
   "9", ",", "10", ",", "10", ",", "8", ",", "7", ",", "9", ",", "6", ",", 
   "11", ",", "12", ",", "9", ",", "11", ",", "9", ",", "8", ",", "8", ",", 
   "9", ",", "9", ",", "6", ",", "12", ",", "9", ",", "7", ",", "6", ",", 
   "10", ",", "10", ",", "14", ",", "9", ",", "9", ",", "6", ",", "11", ",", 
   "7", ",", "9", ",", "7", ",", "9", ",", "11", ",", "5", ",", "9", ",", "5",
    ",", "7", ",", "6", ",", "10", ",", "8", ",", "8", ",", "9", ",", "6", 
   ",", "8", ",", "6", ",", "5", ",", "6", ",", "9", ",", "12", ",", "11", 
   ",", "6", ",", "9", ",", "5", ",", "9", ",", "5", ",", "9", ",", "6", ",", 
   "12", ",", "7", ",", "11", ",", "12", ",", "9", ",", "8", ",", "9", ",", 
   "8", ",", "8", ",", "9", ",", "14", ",", "10", ",", "4", ",", "10", ",", 
   "9", ",", "8", ",", "5", ",", "6", ",", "11", ",", "9", ",", "11", ",", 
   "13", ",", "4", ",", "6", ",", "7", ",", "7", ",", "9", ",", "13", ",", 
   "9", ",", "8", ",", "10", ",", "10", ",", "7", ",", "7", ",", "12", ",", 
   "11", ",", "6", ",", "9", ",", "11", ",", "3", ",", "8", ",", "13", ",", 
   "7", ",", "9", ",", "6", ",", "5", ",", "8", ",", "10", ",", "11", ",", 
   "9", ",", "6", ",", "10", ",", "7", ",", "9", ",", "9", ",", "7", ",", "8",
    ",", "10", ",", "6", ",", "8", ",", "10", ",", "10", ",", "9", ",", "11", 
   ",", "11", ",", "8", ",", "8", ",", "8", ",", "7", ",", "9", ",", "11", 
   ",", "8", ",", "10", ",", "10", ",", "10", ",", "5", ",", "8", ",", "9", 
   ",", "11", ",", "7", ",", "8", ",", "6", ",", "10", ",", "8", ",", "11", 
   ",", "9", ",", "4", ",", "11", ",", "7", ",", "13", ",", "7", ",", "2", 
   ",", "8", ",", "8", ",", "8", ",", "17", ",", "5", ",", "10", ",", "8", 
   ",", "8", ",", "14", ",", "5", ",", "12", ",", "9", ",", "9", ",", "5", 
   ",", "10", ",", "5", ",", "12", ",", "9", ",", "10", ",", "10", ",", "5", 
   ",", "9", ",", "8", ",", "8", ",", "7", ",", "12", ",", "11", ",", "10", 
   ",", "11", ",", "8", ",", "8", ",", "5", ",", "5", ",", "11", ",", "10", 
   ",", "11", ",", "8", ",", "12", ",", "7", ",", "9", ",", "8", ",", "8", 
   ",", "11", ",", "6", ",", "10", ",", "8", ",", "9", ",", "8", ",", "6", 
   ",", "8", ",", "11", ",", "10", ",", "8", ",", "5", ",", "9", ",", "13", 
   ",", "10", ",", "13", ",", "10", ",", "6", ",", "10", ",", "7", ",", "8", 
   ",", "12", ",", "11", ",", "10", ",", "10", ",", "14", ",", "7", ",", "9", 
   ",", "9", ",", "7", ",", "12", ",", "8", ",", "6", ",", "11", ",", "10", 
   ",", "10", ",", "7", ",", "6", ",", "4", ",", "7", ",", "5", ",", "9", ",",
    "12", ",", "11", ",", "6", ",", "9", ",", "5", ",", "7", ",", "9", ",", 
   "9", ",", "12", ",", "6", ",", "5", ",", "10", ",", "6", ",", "7", ",", 
   "5", ",", "7", ",", "5", ",", "3", ",", "6", ",", "9", ",", "4", ",", "10",
    ",", "11", ",", "10", ",", "9", ",", "11", ",", "8", ",", "12", ",", "10",
    ",", "8", ",", "9", ",", "7", ",", "8", ",", "8", ",", "5", ",", "10", 
   ",", "8", ",", "13", ",", "14", ",", "10", ",", "7", ",", "8", ",", "12", 
   ",", "12", ",", "14", ",", "11", ",", "8", ",", "13", ",", "8", ",", "7", 
   ",", "6", ",", "17", ",", "11", ",", "10", ",", "10", ",", "5", ",", "11", 
   ",", "9", ",", "6", ",", "10", ",", "16", ",", "12", ",", "8", ",", "10", 
   ",", "9", ",", "8", ",", "7", ",", "11", ",", "11", ",", "10", ",", "6", 
   ",", "5", ",", "10", ",", "10", ",", "10", ",", "12", ",", "9", ",", "13", 
   ",", "7", ",", "9", ",", "9", ",", "6", ",", "7", ",", "9", ",", "9", ",", 
   "8", ",", "8", ",", "8", ",", "5", ",", "7", ",", "5", ",", "6", ",", "12",
    ",", "3", ",", "8", ",", "12", ",", "10", ",", "7", ",", "10", ",", "13", 
   ",", "8", ",", "12", ",", "4", ",", "13", ",", "8", ",", "7", ",", "5", 
   ",", "9", ",", "5", ",", "9", ",", "10", ",", "6", ",", "12", ",", "7", 
   ",", "7", ",", "11", ",", "4", ",", "14", ",", "8", ",", "9", ",", "9", 
   ",", "6", ",", "9", ",", "13", ",", "4", ",", "8", ",", "10", ",", "8", 
   ",", "12", ",", "8", ",", "8", ",", "6", ",", "8", ",", "13", ",", "7", 
   ",", "10", ",", "13", ",", "7", ",", "7", ",", "9", ",", "12", ",", "12", 
   ",", "8", ",", "12", ",", "7", ",", "7", ",", "12", ",", "7", ",", "10", 
   ",", "9", ",", "11", ",", "10", ",", "9", ",", "9", ",", "6", ",", "9", 
   ",", "8", ",", "10", ",", "9", ",", "14", ",", "6", ",", "11", ",", "11", 
   ",", "7", ",", "15", ",", "6", ",", "9", ",", "12", ",", "8", ",", "7", 
   ",", "14", ",", "8", ",", "6", ",", "8", ",", "10", ",", "8", ",", "11", 
   ",", "6", ",", "10", ",", "9", ",", "9", ",", "8", ",", "10", ",", "11", 
   ",", "6", ",", "4", ",", "10", ",", "6", ",", "10", ",", "10", ",", "5", 
   ",", "7", ",", "10", ",", "8", ",", "9", ",", "11", ",", "9", ",", "8", 
   ",", "11", ",", "7", ",", "10", ",", "14", ",", "8", ",", "5", ",", "8", 
   ",", "8", ",", "7", ",", "11", ",", "7", ",", "9", ",", "7", ",", "8", ",",
    "9", ",", "6", ",", "7", ",", "7", ",", "9", ",", "7", ",", "8", ",", 
   "11", ",", "9", ",", "10", ",", "7", ",", "15", ",", "8", ",", "12", ",", 
   "6", ",", "10", ",", "10", ",", "11", ",", "7", ",", "8", ",", "7", ",", 
   "10", ",", "5", ",", "10", ",", "8", ",", "11", ",", "12", ",", "12", ",", 
   "3", ",", "5", ",", "13", ",", "10", ",", "10", ",", "10", ",", "6", ",", 
   "11", ",", "15", ",", "1", ",", "11", ",", "9", ",", "7", ",", "10", ",", 
   "9", ",", "9", ",", "8", ",", "12", ",", "7", ",", "10", ",", "6", ",", 
   "9", ",", "9", ",", "8", ",", "7", ",", "12", ",", "9", ",", "6", ",", "8",
    ",", "7", ",", "6", ",", "11", ",", "8", ",", "8", ",", "11", ",", "9", 
   ",", "9", ",", "8", ",", "9", ",", "7", ",", "12", ",", "9", ",", "10", 
   ",", "8", ",", "11", ",", "6", ",", "5", ",", "7", ",", "6", ",", "7", ",",
    "9", ",", "8", ",", "8", ",", "12", ",", "10", ",", "9", ",", "9", ",", 
   "13", ",", "6", ",", "9", ",", "10", ",", "8", ",", "10", ",", "13", ",", 
   "13", ",", "11", ",", "15", ",", "6", ",", "13", ",", "8", ",", "11", ",", 
   "10", ",", "9", ",", "5", ",", "4", ",", "7", ",", "7", ",", "9", ",", "7",
    ",", "10", ",", "7", ",", "5", ",", "6", ",", "6", ",", "9", ",", "12", 
   ",", "14", ",", "6", ",", "3", ",", "10", ",", "14", ",", "5", ",", "8", 
   ",", "10", ",", "11", ",", "6", ",", "7", ",", "6", ",", "10", ",", "12", 
   ",", "10", ",", "11", ",", "4", ",", "10", ",", "4", ",", "7", ",", "11", 
   ",", "9", ",", "9", ",", "6", ",", "7", ",", "6", ",", "10", ",", "12", 
   ",", "9", ",", "9", ",", "10", ",", "8", ",", "8", ",", "6", ",", "8", ",",
    "10", ",", "9", ",", "5", ",", "12", ",", "7", ",", "9", ",", "8", ",", 
   "4", ",", "9", ",", "6", ",", "12", ",", "8", ",", "9", ",", "7", ",", "9",
    ",", "9", ",", "9", ",", "9", ",", "12", ",", "6", ",", "7", ",", "9", 
   ",", "8", ",", "8", ",", "7", ",", "10", ",", "7", ",", "9", ",", "10", 
   ",", "6", ",", "9", ",", "8", ",", "11", ",", "6", ",", "11", ",", "12", 
   ",", "7", ",", "14", ",", "10", ",", "7", ",", "7", ",", "9", ",", "11", 
   ",", "5", ",", "9", ",", "13", ",", "7", ",", "9", ",", "7", ",", "8", ",",
    "9", ",", "8", ",", "11", ",", "11", ",", "11", ",", "9", ",", "9", ",", 
   "8", ",", "8", ",", "7", ",", "12", ",", "8", ",", "7", ",", "6", ",", "8",
    ",", "8", ",", "10", ",", "7", ",", "9", ",", "7", ",", "16", ",", "10", 
   ",", "13", ",", "10", ",", "9", ",", "7", ",", "14", ",", "9", ",", "10", 
   ",", "6", ",", "9", ",", "7", ",", "9", ",", "5", ",", "10", ",", "12", 
   ",", "7", ",", "10", ",", "8", ",", "8", ",", "7", ",", "15", ",", "11", 
   ",", "9", ",", "12", ",", "8", ",", "10", ",", "10", ",", "5", ",", "13", 
   ",", "8", ",", "12", ",", "10", ",", "10", ",", "13", ",", "11", ",", "4", 
   ",", "15", ",", "11", ",", "10", ",", "10", ",", "7", ",", "7", ",", "15", 
   ",", "4", ",", "6", ",", "8", ",", "9", ",", "7", ",", "11", ",", "5", ",",
    "7", ",", "7", ",", "7", ",", "13", ",", "12", ",", "13", ",", "7", ",", 
   "7", ",", "5", ",", "15", ",", "15", ",", "10", ",", "10", ",", "7", ",", 
   "11", ",", "6", ",", "8", ",", "5", ",", "7", ",", "6", ",", "6", ",", 
   "13", ",", "6", ",", "7", ",", "7", ",", "5", ",", "10", ",", "6", ",", 
   "8", ",", "11", ",", "12", ",", "11", ",", "8", ",", "7", ",", "12", ",", 
   "13", ",", "7", ",", "7", ",", "12", ",", "11", ",", "12", ",", "4", ",", 
   "6", ",", "11", ",", "5", ",", "9", ",", "5", ",", "9", ",", "5", ",", 
   "10", ",", "8", ",", "13", ",", "9", ",", "8", ",", "10", ",", "14", ",", 
   "15", ",", "10", ",", "8", ",", "8", ",", "7", ",", "9", ",", "12", ",", 
   "10", ",", "9", ",", "8", ",", "13", ",", "15", ",", "8", ",", "8", ",", 
   "13", ",", "8", ",", "11", ",", "7", ",", "10", ",", "14", ",", "9", ",", 
   "11", ",", "15", ",", "7", ",", "12", ",", "9", ",", "12", ",", "10", ",", 
   "10", ",", "8", ",", "11", ",", "8", ",", "10", ",", "9", ",", "11", ",", 
   "16", ",", "10", ",", "6", ",", "8", ",", "10", ",", "9", ",", "13", ",", 
   "6", ",", "13", ",", "11", ",", "13", ",", "6", ",", "6", ",", "11", ",", 
   "9", ",", "13", ",", "9", ",", "10", ",", "11", ",", "8", ",", "6", ",", 
   "3", ",", "6", ",", "2", ",", "11", ",", "8", ",", "9", ",", "10", ",", 
   "13", ",", "10", ",", "10", ",", "13", ",", "15", ",", "11", ",", "12", 
   ",", "8", ",", "8", ",", "7", ",", "8", ",", "10", ",", "12", ",", "9", 
   ",", "8", ",", "13", ",", "8", ",", "14", ",", "12", ",", "5", ",", "10", 
   ",", "9", ",", "5", ",", "8", ",", "9", ",", "9", ",", "8", ",", "12", ",",
    "10", ",", "4", ",", "8", ",", "7", ",", "7", ",", "6", ",", "10", ",", 
   "7", ",", "9", ",", "6", ",", "7", ",", "6", ",", "12", ",", "9", ",", "9",
    ",", "11", ",", "10", ",", "10", ",", "12", ",", "6", ",", "7", ",", "8", 
   ",", "7", ",", "6", ",", "7", ",", "11", ",", "13", ",", "11", ",", "10", 
   ",", "6", ",", "10", ",", "6", ",", "11", ",", "14", ",", "11", ",", "9", 
   ",", "12", ",", "6", ",", "11", ",", "11", ",", "10", ",", "9", ",", "6", 
   ",", "11", ",", "5", ",", "3", ",", "9", ",", "11", ",", "8", ",", "11", 
   ",", "11", ",", "9", ",", "6", ",", "8", ",", "11", ",", "5", ",", "12", 
   ",", "7", ",", "12", ",", "11", ",", "10", ",", "8", ",", "5", ",", "5", 
   ",", "6", ",", "6", ",", "10", ",", "8", ",", "8", ",", "13", ",", "8", 
   ",", "11", ",", "10", ",", "9", ",", "5", ",", "6", ",", "11", ",", "9", 
   ",", "9", ",", "8", ",", "13", ",", "16", ",", "13", ",", "6", ",", "12", 
   ",", "8", ",", "7", ",", "9", ",", "14", ",", "14", ",", "10", ",", "8", 
   ",", "10", ",", "7", ",", "13", ",", "9", ",", "5", ",", "8", ",", "5", 
   ",", "8", ",", "9", ",", "6", ",", "12", ",", "12", ",", "9", ",", "13", 
   ",", "13", ",", "9", ",", "10", ",", "10", ",", "12", ",", "6", ",", "11", 
   ",", "6", ",", "13", ",", "8", ",", "6", ",", "5", ",", "7", ",", "9", ",",
    "11", ",", "10", ",", "8", ",", "11", ",", "10", ",", "10", ",", "8", ",",
    "9", ",", "10", ",", "10", ",", "11", ",", "11", ",", "9", ",", "10", ",",
    "12", ",", "7", ",", "7", ",", "9", ",", "9", ",", "12", ",", "10", ",", 
   "7", ",", "12", ",", "13", ",", "8", ",", "8", ",", "11", ",", "7", ",", 
   "8", ",", "11", ",", "9", ",", "7", ",", "16", ",", "10", ",", "5", ",", 
   "6", ",", "5", ",", "9", ",", "9", ",", "12", ",", "11", ",", "9", ",", 
   "6", ",", "12", ",", "6", ",", "5", ",", "8", ",", "12", ",", "10", ",", 
   "7", ",", "10", ",", "8", ",", "7", ",", "12", ",", "6", ",", "8", ",", 
   "11", ",", "10", ",", "7", ",", "11", ",", "10", ",", "11", ",", "10", ",",
    "6", ",", "7", ",", "6", ",", "4", ",", "9", ",", "11", ",", "8", ",", 
   "10", ",", "7", ",", "7", ",", "9", ",", "12", ",", "6", ",", "7", ",", 
   "11", ",", "7", ",", "8", ",", "10", ",", "8", ",", "6", ",", "9", ",", 
   "3", ",", "10", ",", "10", ",", "7", ",", "13", ",", "7", ",", "11", ",", 
   "14", ",", "5", ",", "8", ",", "7", ",", "11", ",", "13", ",", "10", ",", 
   "6", ",", "6", ",", "12", ",", "7", ",", "9", ",", "7", ",", "9", ",", "9",
    ",", "8", ",", "9", ",", "11", ",", "9", ",", "5", ",", "13", ",", "14", 
   ",", "12", ",", "8", ",", "8", ",", "7", ",", "7", ",", "8", ",", "11", 
   ",", "5", ",", "8", ",", "9", ",", "12", ",", "9", ",", "10", ",", "11", 
   ",", "7", ",", "9", ",", "12", ",", "4", ",", "6", ",", "11", ",", "12", 
   ",", "8", ",", "7", ",", "11", ",", "10", ",", "12", ",", "10", ",", "8", 
   ",", "10", ",", "10", ",", "12", ",", "10", ",", "10", ",", "8", ",", "9", 
   ",", "10", ",", "11", ",", "8", ",", "7", ",", "9", ",", "12", ",", "12", 
   ",", "6", ",", "10", ",", "10", ",", "9", ",", "9", ",", "11", ",", "11", 
   ",", "8", ",", "7", ",", "18", ",", "10", ",", "10", ",", "8", ",", "9", 
   ",", "12", ",", "10", ",", "9", ",", "9", ",", "5", ",", "10", ",", "10", 
   ",", "10", ",", "11", ",", "8", ",", "8", ",", "11", ",", "9", ",", "11", 
   ",", "12", ",", "8", ",", "10", ",", "6", ",", "13", ",", "10", ",", "4", 
   ",", "8", ",", "5", ",", "14", ",", "8", ",", "10", ",", "12", ",", "12", 
   ",", "9", ",", "7", ",", "5", ",", "8", ",", "11", ",", "7", ",", "9", ",",
    "10", ",", "3", ",", "9", ",", "11", ",", "11", ",", "10", ",", "11", ",",
    "6", ",", "5", ",", "8", ",", "3", ",", "10", ",", "7", ",", "12", ",", 
   "12", ",", "9", ",", "8", ",", "8", ",", "11", ",", "10", ",", "13", ",", 
   "9", ",", "9", ",", "9", ",", "6", ",", "7", ",", "13", ",", "7", ",", "7",
    ",", "9", ",", "12", ",", "12", ",", "8", ",", "10", ",", "9", ",", "4", 
   ",", "5", ",", "6", ",", "8", ",", "12", ",", "11", ",", "8", ",", "6", 
   ",", "6", ",", "6", ",", "9", ",", "6", ",", "10", ",", "10", ",", "10", 
   ",", "7", ",", "14", ",", "8", ",", "10", ",", "6", ",", "8", ",", "11", 
   ",", "10", ",", "10", ",", "7", ",", "4", ",", "7", ",", "9", ",", "8", 
   ",", "12", ",", "9", ",", "11", ",", "9", ",", "10", ",", "11", ",", "14", 
   ",", "5", ",", "13", ",", "9", ",", "7", ",", "8", ",", "7", ",", "10", 
   ",", "9", ",", "10", ",", "11", ",", "8", ",", "7", ",", "8", ",", "9", 
   ",", "8", ",", "8", ",", "14", ",", "12", ",", "5", ",", "10", ",", "8", 
   ",", "12", ",", "5", ",", "8", ",", "9", ",", "6", ",", "6", ",", "11", 
   ",", "7", ",", "10", ",", "8", ",", "8", ",", "7", ",", "8", ",", "6", ",",
    "11", ",", "10", ",", "8", ",", "7", ",", "11", ",", "8", ",", "7", ",", 
   "7", ",", "9", ",", "8", ",", "10", ",", "7", ",", "10", ",", "15", ",", 
   "9", ",", "10", ",", "6", ",", "8", ",", "6", ",", "7", ",", "8", ",", 
   "10", ",", "8", ",", "10", ",", "8", ",", "7", ",", "10", ",", "9", ",", 
   "4", ",", "7", ",", "10", ",", "10", ",", "9", ",", "14", ",", "9", ",", 
   "14", ",", "11", ",", "7", ",", "5", ",", "13", ",", "4", ",", "17", ",", 
   "7", ",", "7", ",", "5", ",", "10", ",", "7", ",", "8", ",", "8", ",", "7",
    ",", "10", ",", "6", ",", "9", ",", "9", ",", "10", ",", "8", ",", "7", 
   ",", "6", ",", "12", ",", "14", ",", "10", ",", "10", ",", "6", ",", "7", 
   ",", "8", ",", "7", ",", "12", ",", "6", ",", "6", ",", "6", ",", "9", ",",
    "7", ",", "6", ",", "7", ",", "13", ",", "11", ",", "9", ",", "8", ",", 
   "11", ",", "11", ",", "6", ",", "11", ",", "8", ",", "6", ",", "12", ",", 
   "6", ",", "10", ",", "12", ",", "11", ",", "6", ",", "10", ",", "13", ",", 
   "11", ",", "5", ",", "10", ",", "9", ",", "13", ",", "10", ",", "5", ",", 
   "6", ",", "8", ",", "9", ",", "8", ",", "10", ",", "10", ",", "8", ",", 
   "9", ",", "10", ",", "6", ",", "8", ",", "10", ",", "13", ",", "13", ",", 
   "10", ",", "12", ",", "12", ",", "6", ",", "9", ",", "8", ",", "13", ",", 
   "8", ",", "10", ",", "8", ",", "9", ",", "12", ",", "7", ",", "14", ",", 
   "9", ",", "9", ",", "10", ",", "8", ",", "9", ",", "9", ",", "6", ",", "8",
    ",", "10", ",", "8", ",", "13", ",", "8", ",", "7", ",", "8", ",", "10", 
   ",", "12", ",", "10", ",", "14", ",", "12", ",", "7", ",", "11", ",", "8", 
   ",", "12", ",", "11", ",", "8", ",", "5", ",", "11", ",", "8", ",", "11", 
   ",", "10", ",", "10", ",", "6", ",", "10", ",", "10", ",", "8", ",", "7", 
   ",", "7", ",", "7", ",", "6", ",", "9", ",", "6", ",", "9", ",", "12", ",",
    "9", ",", "3", ",", "14", ",", "7", ",", "5", ",", "11", ",", "6", ",", 
   "6", ",", "12", ",", "8", ",", "12", ",", "11", ",", "15", ",", "14", ",", 
   "11", ",", "10", ",", "8", ",", "6", ",", "7", ",", "7", ",", "10", ",", 
   "11", ",", "6", ",", "9", ",", "13", ",", "10", ",", "5", ",", "12", ",", 
   "7", ",", "6", ",", "10", ",", "10", ",", "10", ",", "12", ",", "11", ",", 
   "8", ",", "4", ",", "9", ",", "15", ",", "7", ",", "6", ",", "7", ",", "7",
    ",", "6", ",", "7", ",", "8", ",", "6", ",", "3", ",", "6", ",", "6", ",",
    "7", ",", "9", ",", "8", ",", "13", ",", "11", ",", "8", ",", "12", ",", 
   "8", ",", "9", ",", "10", ",", "11", ",", "10", ",", "10", ",", "11", ",", 
   "9", ",", "7", ",", "10", ",", "9", ",", "3", ",", "9", ",", "12", ",", 
   "10", ",", "11", ",", "8", ",", "12", ",", "7", ",", "9", ",", "6", ",", 
   "16", ",", "3", ",", "10", ",", "9", ",", "10", ",", "9", ",", "8", ",", 
   "7", ",", "7", ",", "11", ",", "8", ",", "7", ",", "12", ",", "10", ",", 
   "12", ",", "10", ",", "9", ",", "5", ",", "11", ",", "11", ",", "9", ",", 
   "7", ",", "8", ",", "6", ",", "7", ",", "9", ",", "8", ",", "6", ",", "7", 
   ",", "9", ",", "7", ",", "11", ",", "7", ",", "12", ",", "3", ",", "9", 
   ",", "10", ",", "10", ",", "8", ",", "5", ",", "15", ",", "9", ",", "8", 
   ",", "10", ",", "5", ",", "11", ",", "4", ",", "9", ",", "6", ",", "10", 
   ",", "5", ",", "10", ",", "8", ",", "10", ",", "7", ",", "8", ",", "9", 
   ",", "4", ",", "8", ",", "10", ",", "11", ",", "13", ",", "7", ",", "7", 
   ",", "8", ",", "10", ",", "7", ",", "8", ",", "12", ",", "11", ",", "10", 
   ",", "5", ",", "9", ",", "11", ",", "7", ",", "13", ",", "5", ",", "8", 
   ",", "12", ",", "8", ",", "7", ",", "9", ",", "10", ",", "10", ",", "10", 
   ",", "6", ",", "10", ",", "8", ",", "8", ",", "12", ",", "9", ",", "12", 
   ",", "10", ",", "8", ",", "14", ",", "10", ",", "7", ",", "10", ",", "6", 
   ",", "5", ",", "11", ",", "9", ",", "8", ",", "6", ",", "6", ",", "13", 
   ",", "16", ",", "10", ",", "6", ",", "12", ",", "7", ",", "12", ",", "12", 
   ",", "3", ",", "12", ",", "9", ",", "8", ",", "7", ",", "7", ",", "9", ",",
    "9", ",", "7", ",", "12", ",", "10", ",", "10", ",", "8", ",", "13", ",", 
   "13", ",", "4", ",", "9", ",", "13", ",", "7", ",", "9", ",", "6", ",", 
   "9", ",", "12", ",", "6", ",", "13", ",", "7", ",", "12", ",", "9", ",", 
   "9", ",", "10", ",", "8", ",", "5", ",", "10", ",", "8", ",", "7", ",", 
   "8", ",", "6", ",", "4", ",", "10", ",", "7", ",", "10", ",", "10", ",", 
   "12", ",", "5", ",", "8", ",", "6", ",", "9", ",", "9", ",", "11", ",", 
   "9", ",", "7", ",", "8", ",", "7", ",", "9", ",", "9", ",", "13", ",", 
   "15", ",", "12", ",", "12", ",", "7", ",", "10", ",", "14", ",", "7", ",", 
   "5", ",", "14", ",", "10", ",", "10", ",", "9", ",", "7", ",", "13", ",", 
   "9", ",", "12", ",", "8", ",", "9", ",", "10", ",", "12", ",", "7", ",", 
   "9", ",", "6", ",", "7", ",", "11", ",", "11", ",", "11", ",", "11", ",", 
   "11", ",", "8", ",", "9", ",", "8", ",", "10", ",", "6", ",", "8", ",", 
   "6", ",", "7", ",", "7", ",", "7", ",", "8", ",", "7", ",", "5", ",", "11",
    ",", "13", ",", "6", ",", "13", ",", "4", ",", "7", ",", "8", ",", "10", 
   ",", "11", ",", "12", ",", "7", ",", "9", ",", "8", ",", "8", ",", "8", 
   ",", "5", ",", "13", ",", "6", ",", "7", ",", "12", ",", "6", ",", "6", 
   ",", "8", ",", "10", ",", "9", ",", "10", ",", "3", ",", "12", ",", "9", 
   ",", "9", ",", "7", ",", "5", ",", "13", ",", "9", ",", "11", ",", "9", 
   ",", "11", ",", "13", ",", "9", ",", "6", ",", "13", ",", "10", ",", "9", 
   ",", "7", ",", "9", ",", "11", ",", "6", ",", "8", ",", "14", ",", "8", 
   ",", "9", ",", "8", ",", "10", ",", "11", ",", "9", ",", "10", ",", "8", 
   ",", "7", ",", "8", ",", "5", ",", "9", ",", "7", ",", "9", ",", "10", ",",
    "6", ",", "12", ",", "6", ",", "11", ",", "11", ",", "6", ",", "7", ",", 
   "11", ",", "13", ",", "10", ",", "8", ",", "9", ",", "11", ",", "5", ",", 
   "7", ",", "8", ",", "6", ",", "8", ",", "9", ",", "8", ",", "8", ",", "8", 
   ",", "12", ",", "8", ",", "6", ",", "7", ",", "12", ",", "7", ",", "14", 
   ",", "8", ",", "8", ",", "10", ",", "12", ",", "11", ",", "8", ",", "13", 
   ",", "7", ",", "9", ",", "8", ",", "9", ",", "9", ",", "11", ",", "11", 
   ",", "8", ",", "7", ",", "13", ",", "7", ",", "8", ",", "8", ",", "5", ",",
    "14", ",", "8", ",", "1", ",", "12", ",", "7", ",", "8", ",", "14", ",", 
   "8", ",", "5", ",", "11", ",", "6", ",", "3", ",", "12", ",", "7", ",", 
   "7", ",", "10", ",", "9", ",", "12", ",", "12", ",", "7", ",", "14", ",", 
   "7", ",", "13", ",", "7", ",", "10", ",", "7", ",", "13", ",", "6", ",", 
   "13", ",", "11", ",", "8", ",", "11", ",", "9", ",", "6", ",", "10", ",", 
   "8", ",", "8", ",", "15", ",", "10", ",", "5", ",", "7", ",", "8", ",", 
   "5", ",", "9", ",", "10", ",", "9", ",", "4", ",", "9", ",", "10", ",", 
   "6", ",", "5", ",", "10", ",", "10", ",", "6", ",", "6", ",", "7", ",", 
   "9", ",", "9", ",", "14", ",", "11", ",", "8", ",", "11", ",", "6", ",", 
   "10", ",", "10", ",", "16", ",", "7", ",", "8", ",", "13", ",", "8", ",", 
   "11", ",", "10", ",", "12", ",", "12", ",", "8", ",", "13", ",", "11", ",",
    "8", ",", "7", ",", "6", ",", "12", ",", "7", ",", "6", ",", "7", ",", 
   "8", ",", "10", ",", "12", ",", "10", ",", "13", ",", "12", ",", "11", ",",
    "9", ",", "9", ",", "4", ",", "13", ",", "14", ",", "8", ",", "12", ",", 
   "10", ",", "9", ",", "9", ",", "10", ",", "8", ",", "6", ",", "9", ",", 
   "9", ",", "9", ",", "9", ",", "11", ",", "7", ",", "6", ",", "6", ",", "9",
    ",", "9", ",", "8", ",", "9", ",", "16", ",", "10", ",", "5", ",", "6", 
   ",", "6", ",", "9", ",", "3", ",", "10", ",", "14", ",", "9", ",", "15", 
   ",", "11", ",", "7", ",", "9", ",", "9", ",", "5", ",", "8", ",", "11", 
   ",", "12", ",", "11", ",", "12", ",", "11", ",", "7", ",", "11", ",", "9", 
   ",", "7", ",", "15", ",", "14", ",", "4", ",", "11", ",", "10", ",", "4", 
   ",", "7", ",", "9", ",", "9", ",", "9", ",", "13", ",", "11", ",", "10", 
   ",", "8", ",", "14", ",", "9", ",", "7", ",", "8", ",", "7", ",", "12", 
   ",", "10", ",", "9", ",", "6", ",", "7", ",", "4", ",", "7", ",", "8", ",",
    "7", ",", "11", ",", "7", ",", "12", ",", "10", ",", "6", ",", "10", ",", 
   "7", ",", "7", ",", "8", ",", "5", ",", "9", ",", "10", ",", "5", ",", 
   "12", ",", "12", ",", "7", ",", "11", ",", "4", ",", "4", ",", "11", ",", 
   "10", ",", "8", ",", "11", ",", "6", ",", "9", ",", "12", ",", "8", ",", 
   "13", ",", "6", ",", "4", ",", "11", ",", "9", ",", "8", ",", "3", ",", 
   "12", ",", "10", ",", "11", ",", "10", ",", "7", ",", "7", ",", "7", ",", 
   "7", ",", "14", ",", "7", ",", "6", ",", "5", ",", "13", ",", "7", ",", 
   "5", ",", "11", ",", "12", ",", "8", ",", "8", ",", "8", ",", "13", ",", 
   "9", ",", "6", ",", "9", ",", "10", ",", "9", ",", "9", ",", "7", ",", 
   "10", ",", "7", ",", "7", ",", "3", ",", "10", ",", "11", ",", "10", ",", 
   "5", ",", "6", ",", "13", ",", "12", ",", "5", ",", "11", ",", "8", ",", 
   "11", ",", "9", ",", "7", ",", "6", ",", "8", ",", "8", ",", "6", ",", "8",
    ",", "7", ",", "7", ",", "6", ",", "12", ",", "8", ",", "9", ",", "6", 
   ",", "8", ",", "11", ",", "8", ",", "8", ",", "12", ",", "7", ",", "9", 
   ",", "11", ",", "9", ",", "9", ",", "11", ",", "9", ",", "10", ",", "11", 
   ",", "6", ",", "10", ",", "10", ",", "12", ",", "8", ",", "8", ",", "6", 
   ",", "8", ",", "15", ",", "12", ",", "8", ",", "10", ",", "8", ",", "8", 
   ",", "7", ",", "8", ",", "7", ",", "9", ",", "9", ",", "8", ",", "7", ",", 
   "12", ",", "10", ",", "7", ",", "10", ",", "6", ",", "10", ",", "7", ",", 
   "6", ",", "12", ",", "11", ",", "11", ",", "9", ",", "8", ",", "5", ",", 
   "10", ",", "8", ",", "10", ",", "6", ",", "11", ",", "10", ",", "9", ",", 
   "9", ",", "8", ",", "7", ",", "12", ",", "9", ",", "8", ",", "8", ",", "9",
    ",", "5", ",", "14", ",", "9", ",", "12", ",", "9", ",", "10", ",", "9", 
   ",", "10", ",", "10", ",", "4", ",", "12", ",", "11", ",", "8", ",", "8", 
   ",", "9", ",", "6", ",", "10", ",", "11", ",", "11", ",", "7", ",", "8", 
   ",", "11", ",", "7", ",", "5", ",", "8", ",", "10", ",", "10", ",", "12", 
   ",", "12", ",", "5", ",", "9", ",", "5", ",", "9", ",", "11", ",", "9", 
   ",", "8", ",", "7", ",", "9", ",", "10", ",", "6", ",", "7", ",", "8", ",",
    "6", ",", "4", ",", "10", ",", "7", ",", "9", ",", "10", ",", "9", ",", 
   "8", ",", "7", ",", "11", ",", "11", ",", "11", ",", "8", ",", "8", ",", 
   "9", ",", "4", ",", "9", ",", "8", ",", "13", ",", "12", ",", "7", ",", 
   "6", ",", "7", ",", "6", ",", "15", ",", "8", ",", "10", ",", "9", ",", 
   "6", ",", "13", ",", "13", ",", "10", ",", "10", ",", "10", ",", "7", ",", 
   "14", ",", "7", ",", "11", ",", "14", ",", "9", ",", "10", ",", "5", ",", 
   "9", ",", "11", ",", "13", ",", "5", ",", "9", ",", "9", ",", "8", ",", 
   "6", ",", "12", ",", "10", ",", "14", ",", "10", ",", "5", ",", "13", ",", 
   "4", ",", "6", ",", "9", ",", "8", ",", "6", ",", "9", ",", "8", ",", "8", 
   ",", "9", ",", "10", ",", "11", ",", "8", ",", "11", ",", "7", ",", "7", 
   ",", "10", ",", "10", ",", "8", ",", "10", ",", "10", ",", "8", ",", "7", 
   ",", "7", ",", "10", ",", "12", ",", "8", ",", "11", ",", "8", ",", "12", 
   ",", "13", ",", "10", ",", "8", ",", "3", ",", "12", ",", "10", ",", "9", 
   ",", "8", ",", "8", ",", "12", ",", "10", ",", "9", ",", "13", ",", "9", 
   ",", "10", ",", "6", ",", "7", ",", "11", ",", "14", ",", "10", ",", "9", 
   ",", "10", ",", "7", ",", "11", ",", "5", ",", "4", ",", "12", ",", "5", 
   ",", "8", ",", "11", ",", "5", ",", "10", ",", "9", ",", "6", ",", "9", 
   ",", "7", ",", "6", ",", "9", ",", "9", ",", "10", ",", "10", ",", "13", 
   ",", "9", ",", "6", ",", "9", ",", "8", ",", "8", ",", "5", ",", "8", ",", 
   "9", ",", "13", ",", "6", ",", "10", ",", "5", ",", "14", ",", "9", ",", 
   "13", ",", "8", ",", "8", ",", "13", ",", "10", ",", "12", ",", "6", ",", 
   "7", ",", "6", ",", "8", ",", "8", ",", "6", ",", "14", ",", "8", ",", "4",
    ",", "11", ",", "11", ",", "12", ",", "8", ",", "11", ",", "10", ",", "8",
    ",", "9", ",", "10", ",", "9", ",", "7", ",", "12", ",", "9", ",", "8", 
   ",", "10", ",", "6", ",", "9", ",", "10", ",", "10", ",", "9", ",", "10", 
   ",", "14", ",", "10", ",", "6", ",", "7", ",", "10", ",", "11", ",", "10", 
   ",", "7", ",", "7", ",", "10", ",", "7", ",", "9", ",", "10", ",", "8", 
   ",", "8", ",", "4", ",", "8", ",", "12", ",", "13", ",", "14", ",", "9", 
   ",", "7", ",", "3", ",", "11", ",", "11", ",", "11", ",", "12", ",", "5", 
   ",", "6", ",", "9", ",", "9", ",", "6", ",", "6", ",", "8", ",", "9", ",", 
   "10", ",", "7", ",", "11", ",", "11", ",", "9", ",", "8", ",", "5", ",", 
   "10", ",", "11", ",", "6", ",", "12", ",", "8", ",", "10", ",", "6", ",", 
   "8", ",", "10", ",", "7", ",", "10", ",", "10", ",", "12", ",", "4", ",", 
   "5", ",", "11", ",", "10", ",", "10", ",", "12", ",", "12", ",", "6", ",", 
   "6", ",", "8", ",", "8", ",", "4", ",", "8", ",", "6", ",", "11", ",", "9",
    ",", "9", ",", "3", ",", "7", ",", "9", ",", "9", ",", "8", ",", "7", ",",
    "8", ",", "9", ",", "5", ",", "11", ",", "5", ",", "7", ",", "12", ",", 
   "14", ",", "8", ",", "7", ",", "9", ",", "8", ",", "7", ",", "5", ",", 
   "10", ",", "9", ",", "8", ",", "7", ",", "9", ",", "5", ",", "10", ",", 
   "10", ",", "8", ",", "8", ",", "6", ",", "11", ",", "9", ",", "10", ",", 
   "10", ",", "6", ",", "4", ",", "11", ",", "10", ",", "6", ",", "11", ",", 
   "9", ",", "7", ",", "9", ",", "10", ",", "7", ",", "5", ",", "7", ",", 
   "13", ",", "12", ",", "11", ",", "5", ",", "9", ",", "7", ",", "11", ",", 
   "12", ",", "7", ",", "9", ",", "6", ",", "11", ",", "12", ",", "10", ",", 
   "15", ",", "13", ",", "10", ",", "7", ",", "7", ",", "6", ",", "13", ",", 
   "8", ",", "10", ",", "6", ",", "8", ",", "6", ",", "6", ",", "9", ",", "5",
    ",", "7", ",", "4", ",", "8", ",", "11", ",", "8", ",", "8", ",", "7", 
   ",", "9", ",", "7", ",", "8", ",", "8", ",", "11", ",", "11", ",", "12", 
   ",", "10", ",", "8", ",", "9", ",", "12", ",", "15", ",", "9", ",", "13", 
   ",", "15", ",", "9", ",", "9", ",", "9", ",", "10", ",", "8", ",", "7", 
   ",", "14", ",", "13", ",", "11", ",", "9", ",", "13", ",", "7", ",", "10", 
   ",", "14", ",", "7", ",", "12", ",", "10", ",", "11", ",", "8", ",", "8", 
   ",", "6", ",", "13", ",", "6", ",", "6", ",", "11", ",", "10", ",", "11", 
   ",", "7", ",", "10", ",", "12", ",", "9", ",", "8", ",", "9", ",", "8", 
   ",", "8", ",", "4", ",", "5", ",", "9", ",", "7", ",", "8", ",", "6", ",", 
   "13", ",", "14", ",", "7", ",", "8", ",", "8", ",", "11", ",", "7", ",", 
   "9", ",", "9", ",", "8", ",", "3", ",", "12", ",", "5", ",", "10", ",", 
   "13", ",", "9", ",", "6", ",", "13", ",", "8", ",", "9", ",", "10", ",", 
   "6", ",", "10", ",", "9", ",", "9", ",", "8", ",", "7", ",", "11", ",", 
   "9", ",", "3", ",", "10", ",", "7", ",", "9", ",", "9", ",", "11", ",", 
   "12", ",", "9", ",", "9", ",", "8", ",", "10", ",", "8", ",", "8", ",", 
   "8", ",", "8", ",", "9", ",", "14", ",", "8", ",", "10", ",", "8", ",", 
   "12", ",", "9", ",", "6", ",", "5", ",", "7", ",", "9", ",", "7", ",", "7",
    ",", "7", ",", "6", ",", "7", ",", "5", ",", "6", ",", "12", ",", "6", 
   ",", "12", ",", "12", ",", "13", ",", "5", ",", "5", ",", "9", ",", "9", 
   ",", "11", ",", "10", ",", "13", ",", "5", ",", "10", ",", "12", ",", "6", 
   ",", "15", ",", "8", ",", "10", ",", "12", ",", "5", ",", "11", ",", "9", 
   ",", "9", ",", "8", ",", "10", ",", "6", ",", "11", ",", "11", ",", "9", 
   ",", "9", ",", "7", ",", "8", ",", "5", ",", "12", ",", "9", ",", "8", ",",
    "8", ",", "10", ",", "4", ",", "6", ",", "7", ",", "10", ",", "8", ",", 
   "12", ",", "6", ",", "9", ",", "12", ",", "6", ",", "13", ",", "11", ",", 
   "12", ",", "9", ",", "8", ",", "10", ",", "10", ",", "7", ",", "8", ",", 
   "9", ",", "3", ",", "12", ",", "6", ",", "7", ",", "4", ",", "9", ",", "8",
    ",", "10", ",", "9", ",", "8", ",", "8", ",", "9", ",", "5", ",", "9", 
   ",", "6", ",", "10", ",", "13", ",", "10", ",", "9", ",", "13", ",", "12", 
   ",", "7", ",", "5", ",", "6", ",", "10", ",", "9", ",", "11", ",", "7", 
   ",", "13", ",", "8", ",", "14", ",", "9", ",", "11", ",", "8", ",", "8", 
   ",", "11", ",", "8", ",", "12", ",", "8", ",", "8", ",", "8", ",", "13", 
   ",", "6", ",", "8", ",", "6", ",", "12", ",", "11", ",", "7", ",", "7", 
   ",", "16", ",", "11", ",", "9", ",", "4", ",", "8", ",", "10", ",", "8", 
   ",", "9", ",", "7", ",", "12", ",", "14", ",", "9", ",", "8", ",", "9", 
   ",", "9", ",", "10", ",", "4", ",", "11", ",", "11", ",", "8", ",", "6", 
   ",", "10", ",", "16", ",", "11", ",", "12", ",", "4", ",", "7", ",", "11", 
   ",", "8", ",", "7", ",", "9", ",", "10", ",", "9", ",", "10", ",", "12", 
   ",", "7", ",", "15", ",", "6", ",", "6", ",", "6", ",", "12", ",", "10", 
   ",", "11", ",", "6", ",", "10", ",", "8", ",", "10", ",", "8", ",", "11", 
   ",", "9", ",", "9", ",", "11", ",", "10", ",", "9", ",", "9", ",", "8", 
   ",", "7", ",", "4", ",", "9", ",", "11", ",", "9", ",", "12", ",", "15", 
   ",", "9", ",", "6", ",", "10", ",", "10", ",", "8", ",", "9", ",", "9", 
   ",", "6", ",", "11", ",", "8", ",", "7", ",", "9", ",", "10", ",", "7", 
   ",", "7", ",", "10", ",", "6", ",", "8", ",", "10", ",", "9", ",", "16", 
   ",", "9", ",", "9", ",", "10", ",", "13", ",", "9", ",", "13", ",", "6", 
   ",", "7", ",", "4", ",", "8", ",", "10", ",", "9", ",", "8", ",", "8", ",",
    "15", ",", "9", ",", "6", ",", "11", ",", "11", ",", "9", ",", "8", ",", 
   "10", ",", "9", ",", "13", ",", "10", ",", "9", ",", "9", ",", "11", ",", 
   "7", ",", "10", ",", "4", ",", "5", ",", "6", ",", "9", ",", "9", ",", "9",
    ",", "12", ",", "8", ",", "7", ",", "10", ",", "10", ",", "11", ",", "13",
    ",", "9", ",", "6", ",", "10", ",", "7", ",", "10", ",", "7", ",", "9", 
   ",", "8", ",", "9", ",", "8", ",", "9", ",", "10", ",", "5", ",", "11", 
   ",", "17", ",", "4", ",", "6", ",", "5", ",", "11", ",", "10", ",", "8", 
   ",", "7", ",", "12", ",", "10", ",", "7", ",", "13", ",", "7", ",", "5", 
   ",", "8", ",", "14", ",", "8", ",", "13", ",", "11", ",", "7", ",", "6", 
   ",", "9", ",", "6", ",", "7", ",", "10", ",", "8", ",", "9", ",", "11", 
   ",", "5", ",", "12", ",", "5", ",", "5", ",", "12", ",", "11", ",", "10", 
   ",", "9", ",", "8", ",", "13", ",", "7", ",", "7", ",", "11", ",", "12", 
   ",", "6", ",", "12", ",", "10", ",", "11", ",", "6", ",", "8", ",", "9", 
   ",", "11", ",", "6", ",", "11", ",", "7", ",", "7", ",", "11", ",", "7", 
   ",", "10", ",", "6", ",", "11", ",", "3", ",", "4", ",", "5", ",", "11", 
   ",", "10", ",", "9", ",", "6", ",", "9", ",", "8", ",", "9", ",", "9", ",",
    "11", ",", "11", ",", "10", ",", "5", ",", "5", ",", "13", ",", "8", ",", 
   "13", ",", "5", ",", "11", ",", "9", ",", "7", ",", "10", ",", "7", ",", 
   "10", ",", "8", ",", "7", ",", "7", ",", "5", ",", "8", ",", "8", ",", "8",
    ",", "7", ",", "8", ",", "9", ",", "10", ",", "13", ",", "6", ",", "10", 
   ",", "9", ",", "8", ",", "13", ",", "7", ",", "7", ",", "12", ",", "12", 
   ",", "11", ",", "11", ",", "12", ",", "5", ",", "10", ",", "8", ",", "7", 
   ",", "9", ",", "11", ",", "7", ",", "7", ",", "9", ",", "7", ",", "9", ",",
    "4", ",", "7", ",", "7", ",", "7", ",", "10", ",", "9", ",", "7", ",", 
   "5", ",", "6", ",", "11", ",", "12", ",", "8", ",", "11", ",", "9", ",", 
   "8", ",", "12", ",", "10", ",", "9", ",", "8", ",", "10", ",", "7", ",", 
   "10", ",", "6", ",", "9", ",", "6", ",", "6", ",", "9", ",", "12", ",", 
   "7", ",", "14", ",", "9", ",", "14", ",", "11", ",", "9", ",", "8", ",", 
   "11", ",", "8", ",", "8", ",", "16", ",", "10", ",", "14", ",", "10", ",", 
   "9", ",", "7", ",", "9", ",", "14", ",", "8", ",", "6", ",", "5", ",", "8",
    ",", "9", ",", "14", ",", "8", ",", "8", ",", "7", ",", "9", ",", "12", 
   ",", "9", ",", "8", ",", "7", ",", "10", ",", "8", ",", "8", ",", "11", 
   ",", "11", ",", "6", ",", "13", ",", "13", ",", "12", ",", "7", ",", "8", 
   ",", "7", ",", "10", ",", "9", ",", "14", ",", "7", ",", "6", ",", "7", 
   ",", "14", ",", "8", ",", "9", ",", "10", ",", "8", ",", "9", ",", "11", 
   ",", "9", ",", "10", ",", "6", ",", "11", ",", "10", ",", "5", ",", "5", 
   ",", "5", ",", "11", ",", "13", ",", "8", ",", "7", ",", "8", ",", "10", 
   ",", "11", ",", "11", ",", "8", ",", "8", ",", "13", ",", "8", ",", "9", 
   ",", "9", ",", "10", ",", "6", ",", "8", ",", "12", ",", "9", ",", "6", 
   ",", "12", ",", "4", ",", "10", ",", "10", ",", "8", ",", "9", ",", "9", 
   ",", "11", ",", "8", ",", "7", ",", "9", ",", "8", ",", "8", ",", "8", ",",
    "9", ",", "11", ",", "9", ",", "6", ",", "6", ",", "8", ",", "9", ",", 
   "16", ",", "10", ",", "7", ",", "10", ",", "10", ",", "12", ",", "7", ",", 
   "8", ",", "11", ",", "9", ",", "12", ",", "7", ",", "9", ",", "13", ",", 
   "12", ",", "10", ",", "11", ",", "10", ",", "6", ",", "6", ",", "9", ",", 
   "16", ",", "6", ",", "10", ",", "6", ",", "12", ",", "12", ",", "7", ",", 
   "11", ",", "9", ",", "10", ",", "9", ",", "8", ",", "10", ",", "9", ",", 
   "4", ",", "8", ",", "9", ",", "7", ",", "12", ",", "8", ",", "10", ",", 
   "9", ",", "7", ",", "7", ",", "6", ",", "7", ",", "9", ",", "8", ",", "12",
    ",", "12", ",", "4", ",", "7", ",", "13", ",", "11", ",", "8", ",", "5", 
   ",", "6", ",", "9", ",", "6", ",", "6", ",", "6", ",", "8", ",", "6", ",", 
   "11", ",", "8", ",", "10", ",", "10", ",", "7", ",", "11", ",", "9", ",", 
   "7", ",", "8", ",", "10", ",", "12", ",", "8", ",", "11", ",", "14", ",", 
   "13", ",", "11", ",", "6", ",", "8", ",", "5", ",", "13", ",", "11", ",", 
   "9", ",", "8", ",", "6", ",", "8", ",", "6", ",", "10", ",", "6", ",", 
   "11", ",", "8", ",", "8", ",", "11", ",", "9", ",", "6", ",", "10", ",", 
   "11", ",", "11", ",", "8", ",", "10", ",", "5", ",", "7", ",", "11", ",", 
   "9", ",", "13", ",", "11", ",", "9", ",", "11", ",", "12", ",", "10", ",", 
   "8", ",", "6", ",", "11", ",", "7", ",", "4", ",", "8", ",", "7", ",", "5",
    ",", "10", ",", "11", ",", "8", ",", "12", ",", "9", ",", "8", ",", "7", 
   ",", "7", ",", "8", ",", "10", ",", "12", ",", "7", ",", "12", ",", "8", 
   ",", "9", ",", "13", ",", "13", ",", "13", ",", "8", ",", "12", ",", "8", 
   ",", "2", ",", "6", ",", "7", ",", "9", ",", "7", ",", "10", ",", "10", 
   ",", "7", ",", "12", ",", "6", ",", "10", ",", "10", ",", "11", ",", "10", 
   ",", "9", ",", "5", ",", "15", ",", "4", ",", "9", ",", "10", ",", "8", 
   ",", "11", ",", "9", ",", "11", ",", "10", ",", "9", ",", "10", ",", "10", 
   ",", "7", ",", "10", ",", "9", ",", "12", ",", "8", ",", "10", ",", "11", 
   ",", "8", ",", "5", ",", "6", ",", "4", ",", "10", ",", "15", ",", "10", 
   ",", "11", ",", "12", ",", "9", ",", "6", ",", "10", ",", "6", ",", "6", 
   ",", "11", ",", "6", ",", "12", ",", "10", ",", "8", ",", "5", ",", "8", 
   ",", "12", ",", "6", ",", "5", ",", "8", ",", "5", ",", "10", ",", "9", 
   ",", "9", ",", "7", ",", "7", ",", "5", ",", "13", ",", "7", ",", "12", 
   ",", "7", ",", "12", ",", "7", ",", "6", ",", "12", ",", "10", ",", "8", 
   ",", "8", ",", "6", ",", "10", ",", "14", ",", "11", ",", "11", ",", "9", 
   ",", "7", ",", "7", ",", "7", ",", "9", ",", "13", ",", "6", ",", "10", 
   ",", "10", ",", "12", ",", "10", ",", "6", ",", "9", ",", "8", ",", "11", 
   ",", "10", ",", "11", ",", "7", ",", "12", ",", "11", ",", "11", ",", "5", 
   ",", "9", ",", "11", ",", "11", ",", "11", ",", "8", ",", "13", ",", "11", 
   ",", "11", ",", "11", ",", "5", ",", "9", ",", "9", ",", "9", ",", "10", 
   ",", "11", ",", "11", ",", "8", ",", "6", ",", "7", ",", "12", ",", "10", 
   ",", "7", ",", "7", ",", "11", ",", "7", ",", "10", ",", "6", ",", "9", 
   ",", "9", ",", "5", ",", "9", ",", "8", ",", "9", ",", "11", ",", "9", ",",
    "7", ",", "8", ",", "8", ",", "10", ",", "9", ",", "10", ",", "11", ",", 
   "5", ",", "8", ",", "14", ",", "4", ",", "9", ",", "8", ",", "9", ",", 
   "11", ",", "8", ",", "10", ",", "6", ",", "11", ",", "7", ",", "9", ",", 
   "10", ",", "6", ",", "10", ",", "6", ",", "9", ",", "4", ",", "9", ",", 
   "11", ",", "10", ",", "8", ",", "11", ",", "12", ",", "8", ",", "7", ",", 
   "10", ",", "10", ",", "7", ",", "7", ",", "9", ",", "8", ",", "9", ",", 
   "9", ",", "12", ",", "10", ",", "6", ",", "6", ",", "10", ",", "10", ",", 
   "12", ",", "10", ",", "6", ",", "6", ",", "2", ",", "7", ",", "11", ",", 
   "10", ",", "10", ",", "6", ",", "8", ",", "12", ",", "7", ",", "7", ",", 
   "5", ",", "6", ",", "8", ",", "8", ",", "10", ",", "10", ",", "9", ",", 
   "7", ",", "6", ",", "7", ",", "6", ",", "10", ",", "12", ",", "4", ",", 
   "11", ",", "8", ",", "9", ",", "7", ",", "4", ",", "10", ",", "8", ",", 
   "9", ",", "8", ",", "7", ",", "12", ",", "7", ",", "8", ",", "11", ",", 
   "13", ",", "7", ",", "15", ",", "13", ",", "8", ",", "8", ",", "12", ",", 
   "7", ",", "10", ",", "9", ",", "14", ",", "7", ",", "10", ",", "7", ",", 
   "4", ",", "8", ",", "12", ",", "10", ",", "10", ",", "12", ",", "13", ",", 
   "9", ",", "6", ",", "12", ",", "9", ",", "14", ",", "8", ",", "11", ",", 
   "13", ",", "7", ",", "9", ",", "10", ",", "11", ",", "6", ",", "14", ",", 
   "6", ",", "7", ",", "10", ",", "9", ",", "8", ",", "11", ",", "10", ",", 
   "6", ",", "9", ",", "11", ",", "11", ",", "9", ",", "10", ",", "7", ",", 
   "12", ",", "11", ",", "7", ",", "7", ",", "9", ",", "8", ",", "12", ",", 
   "9", ",", "7", ",", "11", ",", "9", ",", "14", ",", "5", ",", "7", ",", 
   "13", ",", "7", ",", "5", ",", "12", ",", "9", ",", "5", ",", "8", ",", 
   "8", ",", "10", ",", "10", ",", "7", ",", "9", ",", "5", ",", "6", ",", 
   "11", ",", "13", ",", "6", ",", "11", ",", "10", ",", "7", ",", "11", ",", 
   "10", ",", "8", ",", "9", ",", "12", ",", "10", ",", "13", ",", "6", ",", 
   "10", ",", "4", ",", "10", ",", "7", ",", "11", ",", "9", ",", "6", ",", 
   "7", ",", "9", ",", "8", ",", "10", ",", "8", ",", "6", ",", "9", ",", "7",
    ",", "10", ",", "7", ",", "6", ",", "2", ",", "9", ",", "6", ",", "7", 
   ",", "10", ",", "9", ",", "11", ",", "11", ",", "10", ",", "5", ",", "10", 
   ",", "9", ",", "11", ",", "12", ",", "8", ",", "11", ",", "8", ",", "8", 
   ",", "4", ",", "7", ",", "11", ",", "3", ",", "12", ",", "5", ",", "11", 
   ",", "7", ",", "11", ",", "7", ",", "11", ",", "9", ",", "11", ",", "6", 
   ",", "10", ",", "12", ",", "5", ",", "9", ",", "12", ",", "11", ",", "5", 
   ",", "6", ",", "12", ",", "9", ",", "9", ",", "10", ",", "11", ",", "7", 
   ",", "5", ",", "7", ",", "5", ",", "5", ",", "13", ",", "12", ",", "9", 
   ",", "12", ",", "5", ",", "4", ",", "13", ",", "14", ",", "7", ",", "10", 
   ",", "9", ",", "5", ",", "5", ",", "10", ",", "6", ",", "8", ",", "5", ",",
    "11", ",", "9", ",", "9", ",", "7", ",", "12", ",", "9", ",", "7", ",", 
   "6", ",", "7", ",", "11", ",", "9", ",", "6", ",", "7", ",", "5", ",", "5",
    ",", "5", ",", "7", ",", "7", ",", "9", ",", "10", ",", "6", ",", "8", 
   ",", "11", ",", "11", ",", "9", ",", "9", ",", "10", ",", "11", ",", "6", 
   ",", "12", ",", "9", ",", "11", ",", "7", ",", "12", ",", "9", ",", "13", 
   ",", "8", ",", "6", ",", "7", ",", "9", ",", "10", ",", "6", ",", "9", ",",
    "5", ",", "9", ",", "5", ",", "10", ",", "14", ",", "8", ",", "11", ",", 
   "8", ",", "7", ",", "9", ",", "6", ",", "11", ",", "10", ",", "7", ",", 
   "10", ",", "10", ",", "8", ",", "14", ",", "5", ",", "5", ",", "7", ",", 
   "12", ",", "11", ",", "10", ",", "6", ",", "7", ",", "11", ",", "9", ",", 
   "10", ",", "12", ",", "4", ",", "1", ",", "9", ",", "5", ",", "8", ",", 
   "10", ",", "5", ",", "10", ",", "11", ",", "13", ",", "9", ",", "8", ",", 
   "18", ",", "9", ",", "5", ",", "7", ",", "9", ",", "7", ",", "7", ",", "8",
    ",", "9", ",", "9", ",", "8", ",", "4", ",", "14", ",", "11", ",", "11", 
   ",", "11", ",", "7", ",", "10", ",", "7", ",", "5", ",", "7", ",", "11", 
   ",", "10", ",", "10", ",", "10", ",", "11", ",", "11", ",", "8", ",", "5", 
   ",", "6", ",", "12", ",", "10", ",", "8", ",", "12", ",", "8", ",", "9", 
   ",", "12", ",", "9", ",", "10", ",", "5", ",", "9", ",", "8", ",", "11", 
   ",", "8", ",", "10", ",", "7", ",", "12", ",", "7", ",", "7", ",", "4", 
   ",", "8", ",", "11", ",", "7", ",", "3", ",", "8", ",", "10", ",", "9", 
   ",", "12", ",", "3", ",", "14", ",", "3", ",", "10", ",", "11", ",", "5", 
   ",", "7", ",", "7", ",", "10", ",", "13", ",", "6", ",", "7", ",", "8", 
   ",", "10", ",", "7", ",", "9", ",", "6", ",", "11", ",", "11", ",", "12", 
   ",", "15", ",", "6", ",", "10", ",", "10", ",", "10", ",", "9", ",", "7", 
   ",", "4", ",", "14", ",", "10", ",", "14", ",", "8", ",", "11", ",", "9", 
   ",", "6", ",", "5", ",", "11", ",", "6", ",", "7", ",", "7", ",", "6", ",",
    "7", ",", "11", ",", "10", ",", "5", ",", "7", ",", "9", ",", "7", ",", 
   "10", ",", "9", ",", "12", ",", "8", ",", "8", ",", "11", ",", "10", ",", 
   "5", ",", "10", ",", "7", ",", "9", ",", "10", ",", "6", ",", "11", ",", 
   "10", ",", "9", ",", "14", ",", "9", ",", "10", ",", "8", ",", "8", ",", 
   "8", ",", "9", ",", "8", ",", "6", ",", "7", ",", "10", ",", "9", ",", 
   "10", ",", "8", ",", "9", ",", "9", ",", "11", ",", "8", ",", "3", ",", 
   "10", ",", "5", ",", "8", ",", "12", ",", "13", ",", "5", ",", "9", ",", 
   "11", ",", "6", ",", "11", ",", "4", ",", "8", ",", "4", ",", "9", ",", 
   "10", ",", "8", ",", "12", ",", "9", ",", "8", ",", "13", ",", "11", ",", 
   "8", ",", "12", ",", "6", ",", "14", ",", "11", ",", "13", ",", "11", ",", 
   "7", ",", "7", ",", "10", ",", "10", ",", "9", ",", "10", ",", "9", ",", 
   "9", ",", "5", ",", "9", ",", "5", ",", "8", ",", "12", ",", "9", ",", "7",
    ",", "8", ",", "9", ",", "9", ",", "10", ",", "12", ",", "7", ",", "5", 
   ",", "9", ",", "10", ",", "8", ",", "2", ",", "9", ",", "10", ",", "6", 
   ",", "11", ",", "8", ",", "8", ",", "8", ",", "9", ",", "6", ",", "10", 
   ",", "9", ",", "8", ",", "6", ",", "8", ",", "7", ",", "8", ",", "9", ",", 
   "5", ",", "9", ",", "7", ",", "7", ",", "14", ",", "11", ",", "11", ",", 
   "6", ",", "5", ",", "10", ",", "10", ",", "7", ",", "10", ",", "10", ",", 
   "8", ",", "7", ",", "10", ",", "15", ",", "5", ",", "5", ",", "13", ",", 
   "11", ",", "11", ",", "5", ",", "8", ",", "11", ",", "11", ",", "12", ",", 
   "7", ",", "8", ",", "11", ",", "13", ",", "8", ",", "4", ",", "8", ",", 
   "10", ",", "4", ",", "12", ",", "6", ",", "10", ",", "9", ",", "12", ",", 
   "6", ",", "10", ",", "8", ",", "6", ",", "10", ",", "8", ",", "9", ",", 
   "10", ",", "9", ",", "13", ",", "5", ",", "8", ",", "15", ",", "15", ",", 
   "8", ",", "7", ",", "13", ",", "11", ",", "13", ",", "12", ",", "5", ",", 
   "6", ",", "7", ",", "8", ",", "7", ",", "14", ",", "7", ",", "11", ",", 
   "10", ",", "10", ",", "4", ",", "5", ",", "10", ",", "12", ",", "10", ",", 
   "12", ",", "10", ",", "13", ",", "9", ",", "6", ",", "9", ",", "11", ",", 
   "7", ",", "7", ",", "12", ",", "8", ",", "8", ",", "11", ",", "8", ",", 
   "15", ",", "8", ",", "12", ",", "9", ",", "10", ",", "8", ",", "9", ",", 
   "10", ",", "10", ",", "3", ",", "11", ",", "10", ",", "6", ",", "10", ",", 
   "2", ",", "6", ",", "8", ",", "13", ",", "7", ",", "11", ",", "7", ",", 
   "3", ",", "7", ",", "6", ",", "8", ",", "7", ",", "14", ",", "10", ",", 
   "10", ",", "15", ",", "8", ",", "7", ",", "7", ",", "6", ",", "10", ",", 
   "13", ",", "6", ",", "7", ",", "6", ",", "11", ",", "6", ",", "5", ",", 
   "13", ",", "14", ",", "6", ",", "13", ",", "10", ",", "8", ",", "7", ",", 
   "11", ",", "7", ",", "14", ",", "7", ",", "5", ",", "8", ",", "6", ",", 
   "11", ",", "7", ",", "8", ",", "7", ",", "9", ",", "9", ",", "7", ",", 
   "11", ",", "13", ",", "6", ",", "4", ",", "9", ",", "10", ",", "12", ",", 
   "11", ",", "11", ",", "10", ",", "11", ",", "12", ",", "7", ",", "11", ",",
    "9", ",", "8", ",", "12", ",", "8", ",", "7", ",", "7", ",", "9", ",", 
   "10", ",", "8", ",", "2", ",", "15", ",", "9", ",", "9", ",", "7", ",", 
   "7", ",", "7", ",", "7", ",", "13", ",", "7", ",", "10", ",", "10", ",", 
   "8", ",", "10", ",", "9", ",", "7", ",", "5", ",", "7", ",", "13", ",", 
   "4", ",", "7", ",", "6", ",", "11", ",", "10", ",", "7", ",", "3", ",", 
   "7", ",", "12", ",", "8", ",", "8", ",", "9", ",", "9", ",", "8", ",", 
   "10", ",", "8", ",", "8", ",", "13", ",", "8", ",", "11", ",", "8", ",", 
   "10", ",", "8", ",", "12", ",", "9", ",", "8", ",", "11", ",", "7", ",", 
   "12", ",", "11", ",", "8", ",", "7", ",", "4", ",", "10", ",", "9", ",", 
   "7", ",", "13", ",", "12", ",", "11", ",", "8", ",", "13", ",", "7", ",", 
   "6", ",", "11", ",", "10", ",", "10", ",", "7", ",", "7", ",", "13", ",", 
   "7", ",", "15", ",", "12", ",", "10", ",", "9", ",", "9", ",", "7", ",", 
   "10", ",", "10", ",", "7", ",", "8", ",", "7", ",", "7", ",", "10", ",", 
   "12", ",", "7", ",", "6", ",", "6", ",", "8", ",", "13", ",", "5", ",", 
   "8", ",", "4", ",", "13", ",", "10", ",", "9", ",", "10", ",", "8", ",", 
   "9", ",", "8", ",", "9", ",", "8", ",", "9", ",", "14", ",", "10", ",", 
   "14", ",", "10", ",", "9", ",", "11", ",", "13", ",", "13", ",", "8", ",", 
   "11", ",", "9", ",", "10", ",", "11", ",", "11", ",", "6", ",", "8", ",", 
   "6", ",", "13", ",", "8", ",", "7", ",", "9", ",", "12", ",", "10", ",", 
   "10", ",", "7", ",", "7", ",", "10", ",", "6", ",", "7", ",", "10", ",", 
   "8", ",", "11", ",", "6", ",", "10", ",", "5", ",", "8", ",", "9", ",", 
   "13", ",", "13", ",", "12", ",", "9", ",", "7", ",", "9", ",", "6", ",", 
   "15", ",", "4", ",", "13", ",", "5", ",", "8", ",", "8", ",", "7", ",", 
   "7", ",", "9", ",", "13", ",", "11", ",", "6", ",", "13", ",", "8", ",", 
   "11", ",", "11", ",", "6", ",", "6", ",", "11", ",", "8", ",", "9", ",", 
   "13", ",", "8", ",", "10", ",", "10", ",", "10", ",", "7", ",", "11", ",", 
   "7", ",", "8", ",", "7", ",", "12", ",", "5", ",", "5", ",", "9", ",", "5",
    ",", "10", ",", "5", ",", "12", ",", "9", ",", "12", ",", "8", ",", "11", 
   ",", "11", ",", "10", ",", "11", ",", "7", ",", "5", ",", "14", ",", "8", 
   ",", "8", ",", "11", ",", "6", ",", "8", ",", "10", ",", "9", ",", "4", 
   ",", "7", ",", "9", ",", "5", ",", "7", ",", "7", ",", "8", ",", "8", ",", 
   "8", ",", "6", ",", "5", ",", "6", ",", "7", ",", "8", ",", "13", ",", 
   "10", ",", "9", ",", "10", ",", "11", ",", "7", ",", "15", ",", "9", ",", 
   "6", ",", "7", ",", "11", ",", "14", ",", "9", ",", "13", ",", "5", ",", 
   "6", ",", "11", ",", "11", ",", "8", ",", "7", ",", "9", ",", "12", ",", 
   "4", ",", "10", ",", "9", ",", "5", ",", "8", ",", "7", ",", "6", ",", 
   "10", ",", "7", ",", "7", ",", "7", ",", "8", ",", "7", ",", "7", ",", "4",
    ",", "13", ",", "9", ",", "13", ",", "6", ",", "8", ",", "8", ",", "8", 
   ",", "10", ",", "11", ",", "8", ",", "9", ",", "10", ",", "9", ",", "7", 
   ",", "6", ",", "8", ",", "11", ",", "6", ",", "9", ",", "5", ",", "6", ",",
    "11", ",", "7", ",", "6", ",", "9", ",", "9", ",", "14", ",", "13", ",", 
   "11", ",", "6", ",", "10", ",", "8", ",", "13", ",", "11", ",", "9", ",", 
   "10", ",", "13", ",", "5", ",", "11", ",", "9", ",", "8", ",", "13", ",", 
   "9", ",", "10", ",", "9", ",", "7", ",", "9", ",", "8", ",", "10", ",", 
   "6", ",", "6", ",", "11", ",", "11", ",", "7", ",", "11", ",", "8", ",", 
   "8", ",", "6", ",", "10", ",", "10", ",", "5", ",", "14", ",", "8", ",", 
   "10", ",", "4", ",", "7", ",", "8", ",", "9", ",", "6", ",", "10", ",", 
   "10", ",", "10", ",", "11", ",", "8", ",", "11", ",", "13", ",", "10", ",",
    "9", ",", "10", ",", "9", ",", "9", ",", "7", ",", "13", ",", "7", ",", 
   "9", ",", "13", ",", "14", ",", "9", ",", "7", ",", "9", ",", "10", ",", 
   "13", ",", "7", ",", "12", ",", "7", ",", "8", ",", "10", ",", "7", ",", 
   "8", ",", "8", ",", "8", ",", "10", ",", "7", ",", "7", ",", "7", ",", "6",
    ",", "4", ",", "8", ",", "10", ",", "13", ",", "9", ",", "8", ",", "6", 
   ",", "4", ",", "9", ",", "9", ",", "9", ",", "8", ",", "10", ",", "9", ",",
    "11", ",", "12", ",", "12", ",", "15", ",", "11", ",", "11", ",", "6", 
   ",", "11", ",", "10", ",", "8", ",", "4", ",", "5", ",", "7", ",", "11", 
   ",", "6", ",", "7", ",", "11", ",", "8", ",", "6", ",", "9", ",", "13", 
   ",", "7", ",", "12", ",", "9", ",", "10", ",", "9", ",", "7", ",", "9", 
   ",", "3", ",", "7", ",", "12", ",", "11", ",", "13", ",", "4", ",", "6", 
   ",", "12", ",", "8", ",", "12", ",", "9", ",", "9", ",", "9", ",", "6", 
   ",", "9", ",", "10", ",", "7", ",", "14", ",", "5", ",", "12", ",", "14", 
   ",", "9", ",", "8", ",", "10", ",", "9", ",", "6", ",", "10", ",", "5", 
   ",", "10", ",", "11", ",", "10", ",", "9", ",", "8", ",", "8", ",", "8", 
   ",", "7", ",", "4", ",", "15", ",", "15", ",", "8", ",", "8", ",", "9", 
   ",", "11", ",", "5", ",", "8", ",", "8", ",", "10", ",", "10", ",", "12", 
   ",", "9", ",", "9", ",", "13", ",", "10", ",", "12", ",", "10", ",", "9", 
   ",", "10", ",", "13", ",", "5", ",", "8", ",", "8", ",", "7", ",", "8", 
   ",", "7", ",", "10", ",", "14", ",", "10", ",", "7", ",", "8", ",", "10", 
   ",", "7", ",", "11", ",", "13", ",", "11", ",", "5", ",", "9", ",", "7", 
   ",", "10", ",", "7", ",", "8", ",", "7", ",", "8", ",", "10", ",", "9", 
   ",", "6", ",", "9", ",", "9", ",", "12", ",", "7", ",", "9", ",", "12", 
   ",", "10", ",", "5", ",", "11", ",", "11", ",", "16", ",", "8", ",", "11", 
   ",", "13", ",", "7", ",", "9", ",", "6", ",", "5", ",", "12", ",", "10", 
   ",", "6", ",", "4", ",", "8", ",", "12", ",", "10", ",", "5", ",", "8", 
   ",", "9", ",", "7", ",", "4", ",", "12", ",", "14", ",", "10", ",", "13", 
   ",", "12", ",", "7", ",", "6", ",", "3", ",", "8", ",", "4", ",", "11", 
   ",", "12", ",", "7", ",", "6", ",", "13", ",", "7", ",", "12", ",", "12", 
   ",", "11", ",", "14", ",", "14", ",", "8", ",", "7", ",", "6", ",", "12", 
   ",", "7", ",", "6", ",", "8", ",", "7", ",", "8", ",", "7", ",", "9", ",", 
   "11", ",", "11", ",", "6", ",", "10", ",", "5", ",", "8", ",", "6", ",", 
   "6", ",", "9", ",", "8", ",", "7", ",", "16", ",", "7", ",", "9", ",", 
   "10", ",", "12", ",", "12", ",", "12", ",", "7", ",", "10", ",", "6", ",", 
   "7", ",", "9", ",", "10", ",", "10", ",", "5", ",", "6", ",", "8", ",", 
   "15", ",", "11", ",", "10", ",", "6", ",", "5", ",", "7", ",", "5", ",", 
   "8", ",", "11", ",", "7", ",", "10", ",", "8", ",", "10", ",", "6", ",", 
   "11", ",", "8", ",", "11", ",", "8", ",", "5", ",", "7", ",", "10", ",", 
   "5", ",", "13", ",", "14", ",", "7", ",", "4", ",", "8", ",", "9", ",", 
   "9", ",", "10", ",", "8", ",", "6", ",", "7", ",", "13", ",", "7", ",", 
   "10", ",", "7", ",", "4", ",", "10", ",", "8", ",", "10", ",", "9", ",", 
   "8", ",", "11", ",", "10", ",", "11", ",", "8", ",", "12", ",", "9", ",", 
   "7", ",", "9", ",", "13", ",", "11", ",", "7", ",", "14", ",", "6", ",", 
   "8", ",", "6", ",", "7", ",", "9", ",", "5", ",", "11", ",", "10", ",", 
   "6", ",", "12", ",", "11", ",", "12", ",", "7", ",", "12", ",", "8", ",", 
   "11", ",", "5", ",", "12", ",", "15", ",", "8", ",", "8", ",", "9", ",", 
   "11", ",", "9", ",", "10", ",", "7", ",", "11", ",", "10", ",", "7", ",", 
   "8", ",", "6", ",", "6", ",", "7", ",", "11", ",", "13", ",", "10", ",", 
   "3", ",", "10", ",", "13", ",", "6", ",", "4", ",", "9", ",", "9", ",", 
   "9", ",", "14", ",", "10", ",", "7", ",", "8", ",", "6", ",", "10", ",", 
   "7", ",", "9", ",", "11", ",", "7", ",", "9", ",", "13", ",", "15", ",", 
   "11", ",", "13", ",", "12", ",", "10", ",", "7", ",", "14", ",", "12", ",",
    "8", ",", "7", ",", "8", ",", "15", ",", "10", ",", "12", ",", "9", ",", 
   "11", ",", "5", ",", "9", ",", "11", ",", "10", ",", "8", ",", "9", ",", 
   "9", ",", "7", ",", "8", ",", "10", ",", "9", ",", "7", ",", "7", ",", "8",
    ",", "13", ",", "7", ",", "10", ",", "9", ",", "11", ",", "9", ",", "9", 
   ",", "14", ",", "8", ",", "7", ",", "9", ",", "10", ",", "8", ",", "10", 
   ",", "10", ",", "8", ",", "9", ",", "9", ",", "9", ",", "12", ",", "14", 
   ",", "14", ",", "6", ",", "10", ",", "9", ",", "9", ",", "7", ",", "7", 
   ",", "11", ",", "8", ",", "10", ",", "9", ",", "5", ",", "8", ",", "15", 
   ",", "10", ",", "14", ",", "10", ",", "12", ",", "13", ",", "8", ",", "14",
    ",", "12", ",", "4", ",", "15", ",", "7", ",", "12", ",", "5", ",", "10", 
   ",", "7", ",", "9", ",", "15", ",", "11", ",", "11", ",", "11", ",", "10", 
   ",", "12", ",", "7", ",", "8", ",", "10", ",", "7", ",", "10", ",", "9", 
   ",", "10", ",", "9", ",", "10", ",", "5", ",", "10", ",", "11", ",", "13", 
   ",", "12", ",", "11", ",", "7", ",", "8", ",", "9", ",", "5", ",", "12", 
   ",", "6", ",", "11", ",", "11", ",", "10", ",", "7", ",", "8", ",", "4", 
   ",", "8", ",", "6", ",", "6", ",", "6", ",", "9", ",", "12", ",", "7", ",",
    "7", ",", "13", ",", "10", ",", "7", ",", "13", ",", "12", ",", "10", ",",
    "14", ",", "10", ",", "5", ",", "13", ",", "5", ",", "8", ",", "6", ",", 
   "7", ",", "10", ",", "14", ",", "5", ",", "10", ",", "8", ",", "11", ",", 
   "10", ",", "11", ",", "12", ",", "8", ",", "6", ",", "4", ",", "2", ",", 
   "11", ",", "11", ",", "10", ",", "10", ",", "10", ",", "9", ",", "10", ",",
    "8", ",", "6", ",", "8", ",", "4", ",", "12", ",", "4", ",", "9", ",", 
   "8", ",", "10", ",", "11", ",", "11", ",", "12", ",", "14", ",", "4", ",", 
   "5", ",", "13", ",", "10", ",", "12", ",", "12", ",", "5", ",", "6", ",", 
   "9", ",", "10", ",", "8", ",", "7", ",", "9", ",", "9", ",", "8", ",", "8",
    ",", "12", ",", "12", ",", "4", ",", "9", ",", "11", ",", "12", ",", "9", 
   ",", "10", ",", "13", ",", "8", ",", "7", ",", "10", ",", "9", ",", "11", 
   ",", "9", ",", "8", ",", "4", ",", "12", ",", "8", ",", "9", ",", "11", 
   ",", "10", ",", "13", ",", "9", ",", "12", ",", "5", ",", "13", ",", "8", 
   ",", "10", ",", "6", ",", "11", ",", "3", ",", "9", ",", "10", ",", "12", 
   ",", "10", ",", "6", ",", "8", ",", "8", ",", "9", ",", "7", ",", "13", 
   ",", "5", ",", "9", ",", "6", ",", "11", ",", "10", ",", "6", ",", "9", 
   ",", "6", ",", "12", ",", "11", ",", "6", ",", "11", ",", "9", ",", "11", 
   ",", "6", ",", "5", ",", "11", ",", "8", ",", "7", ",", "18", ",", "6", 
   ",", "1", ",", "9", ",", "14", ",", "5", ",", "14", ",", "7", ",", "5", 
   ",", "9", ",", "12", ",", "12", ",", "10", ",", "5", ",", "5", ",", "9", 
   ",", "10", ",", "8", ",", "10", ",", "11", ",", "7", ",", "7", ",", "8", 
   ",", "12", ",", "9", ",", "12", ",", "9", ",", "11", ",", "10", ",", "8", 
   ",", "8", ",", "10", ",", "12", ",", "11", ",", "10", ",", "11", ",", "6", 
   ",", "6", ",", "11", ",", "6", ",", "9", ",", "9", ",", "8", ",", "9", ",",
    "8", ",", "10", ",", "9", ",", "14", ",", "7", ",", "6", ",", "10", ",", 
   "12", ",", "9", ",", "12", ",", "8", ",", "10", ",", "7", ",", "9", ",", 
   "12", ",", "9", ",", "8", ",", "11", ",", "11", ",", "6", ",", "9", ",", 
   "10", ",", "4", ",", "7", ",", "11", ",", "11", ",", "9", ",", "7", ",", 
   "9", ",", "9", ",", "6", ",", "11", ",", "8", ",", "12", ",", "7", ",", 
   "9", ",", "10", ",", "13", ",", "11", ",", "9", ",", "12", ",", "9", ",", 
   "14", ",", "7", ",", "9", ",", "5", ",", "8", ",", "8", ",", "10", ",", 
   "8", ",", "7", ",", "10", ",", "9", ",", "4", ",", "13", ",", "12", ",", 
   "10", ",", "11", ",", "14", ",", "9", ",", "9", ",", "6", ",", "8", ",", 
   "6", ",", "10", ",", "7", ",", "6", ",", "7", ",", "6", ",", "11", ",", 
   "8", ",", "9", ",", "9", ",", "12", ",", "9", ",", "14", ",", "9", ",", 
   "7", ",", "9", ",", "10", ",", "10", ",", "7", ",", "11", ",", "11", ",", 
   "10", ",", "6", ",", "10", ",", "12", ",", "8", ",", "10", ",", "7", ",", 
   "12", ",", "6", ",", "7", ",", "10", ",", "12", ",", "14", ",", "9", ",", 
   "14", ",", "10", ",", "5", ",", "7", ",", "9", ",", "9", ",", "6", ",", 
   "9", ",", "13", ",", "10", ",", "6", ",", "9", ",", "7", ",", "9", ",", 
   "12", ",", "5", ",", "7", ",", "13", ",", "15", ",", "8", ",", "6", ",", 
   "14", ",", "8", ",", "12", ",", "10", ",", "10", ",", "10", ",", "7", ",", 
   "7", ",", "11", ",", "5", ",", "4", ",", "6", ",", "7", ",", "6", ",", 
   "11", ",", "7", ",", "12", ",", "9", ",", "9", ",", "13", ",", "11", ",", 
   "13", ",", "7", ",", "8", ",", "8", ",", "7", ",", "11", ",", "6", ",", 
   "6", ",", "9", ",", "11", ",", "8", ",", "9", ",", "10", ",", "8", ",", 
   "5", ",", "8", ",", "11", ",", "8", ",", "10", ",", "10", ",", "7", ",", 
   "9", ",", "6", ",", "7", ",", "13", ",", "8", ",", "9", ",", "5", ",", "5",
    ",", "6", ",", "8", ",", "8", ",", "10", ",", "13", ",", "8", ",", "7", 
   ",", "10", ",", "8", ",", "9", ",", "13", ",", "7", ",", "12", ",", "9", 
   ",", "8", ",", "12", ",", "9", ",", "12", ",", "11", ",", "8", ",", "9", 
   ",", "5", ",", "6", ",", "13", ",", "10", ",", "7", ",", "9", ",", "9", 
   ",", "4", ",", "7", ",", "11", ",", "10", ",", "10", ",", "11", ",", "6", 
   ",", "8", ",", "11", ",", "11", ",", "11", ",", "4", ",", "8", ",", "5", 
   ",", "8", ",", "11", ",", "10", ",", "12", ",", "11", ",", "9", ",", "9", 
   ",", "8", ",", "7", ",", "7", ",", "4", ",", "9", ",", "11", ",", "7", ",",
    "10", ",", "7", ",", "9", ",", "8", ",", "7", ",", "9", ",", "11", ",", 
   "9", ",", "10", ",", "11", ",", "12", ",", "6", ",", "10", ",", "11", ",", 
   "13", ",", "12", ",", "7", ",", "5", ",", "5", ",", "9", ",", "9", ",", 
   "13", ",", "9", ",", "10", ",", "12", ",", "8", ",", "6", ",", "8", ",", 
   "6", ",", "12", ",", "9", ",", "7", ",", "9", ",", "12", ",", "8", ",", 
   "13", ",", "11", ",", "11", ",", "6", ",", "4", ",", "9", ",", "9", ",", 
   "11", ",", "14", ",", "8", ",", "6", ",", "8", ",", "12", ",", "7", ",", 
   "14", ",", "10", ",", "7", ",", "14", ",", "9", ",", "8", ",", "9", ",", 
   "11", ",", "7", ",", "8", ",", "9", ",", "9", ",", "12", ",", "7", ",", 
   "5", ",", "7", ",", "10", ",", "3", ",", "4", ",", "5", ",", "8", ",", 
   "11", ",", "7", ",", "10", ",", "10", ",", "12", ",", "12", ",", "9", ",", 
   "8", ",", "8", ",", "12", ",", "7", ",", "13", ",", "7", ",", "7", ",", 
   "8", ",", "9", ",", "11", ",", "10", ",", "7", ",", "10", ",", "9", ",", 
   "6", ",", "7", ",", "14", ",", "10", ",", "10", ",", "9", ",", "9", ",", 
   "9", ",", "11", ",", "14", ",", "11", ",", "11", ",", "5", ",", "14", ",", 
   "6", ",", "7", ",", "11", ",", "9", ",", "9"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5859415519146385`*^9, {3.585941591117752*^9, 3.5859416439458776`*^9}, 
   3.5859834008686547`*^9, 3.6173465465319695`*^9, 3.617346717782689*^9, 
   3.6173473673598146`*^9, 3.6173489435324893`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"contagensNIgual2", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Nu]", ",", "\"\<P[\[Nu]]\>\""}], "}"}]}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<n\[UAcute]mero de eventos em que o valor 2 foi obtido\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.585941593649005*^9, 3.5859416011646304`*^9}, {
  3.6173472160517406`*^9, 3.61734724773569*^9}, {3.6173473116569695`*^9, 
  3.6173473770473146`*^9}, {3.617348072751074*^9, 3.617348082172946*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.567], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.567], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 5}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{32.860488390712575`, 49.44072099785092}, {
          101.90856903766411`, 103.00831890914455`}}],
        StatusArea[#, 5]& ,
        TagBoxNote->"5"],
       StyleBox["5", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[5, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 18}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{48.94072099785092, 65.52095360498927}, {
          100.34921937181495`, 103.00831890914455`}}],
        StatusArea[#, 18]& ,
        TagBoxNote->"18"],
       StyleBox["18", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[18, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 79}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{65.02095360498927, 81.6011862121276}, {
          93.03227093975354, 103.00831890914455`}}],
        StatusArea[#, 79]& ,
        TagBoxNote->"79"],
       StyleBox["79", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[79, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 233}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{81.1011862121276, 97.68141881926596}, {
          74.5599748981559, 103.00831890914455`}}],
        StatusArea[#, 233]& ,
        TagBoxNote->"233"],
       StyleBox["233", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[233, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 507}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{97.18141881926596, 113.76165142640431`}, {
          41.69368194102762, 103.00831890914455`}}],
        StatusArea[#, 507]& ,
        TagBoxNote->"507"],
       StyleBox["507", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[507, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 854}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{113.26165142640431`, 129.84188403354264`}, {
          0.07104086028486734, 103.00831890914455`}}],
        StatusArea[#, 854]& ,
        TagBoxNote->"854"],
       StyleBox["854", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[854, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 1299}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{129.34188403354264`, 
          145.922116640681}, {-53.30669770147455, 103.00831890914455`}}],
        StatusArea[#, 1299]& ,
        TagBoxNote->"1299"],
       StyleBox["1299", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1299, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 1504}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{145.422116640681, 
          162.00234924781935`}, {-77.89644243217273, 103.00831890914455`}}],
        StatusArea[#, 1504]& ,
        TagBoxNote->"1504"],
       StyleBox["1504", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1504, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 1525}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{161.50234924781935`, 
          178.08258185495768`}, {-80.41539189239057, 103.00831890914455`}}],
        StatusArea[#, 1525]& ,
        TagBoxNote->"1525"],
       StyleBox["1525", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1525, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 1402}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{177.58258185495768`, 
          194.16281446209604`}, {-65.66154505397168, 103.00831890914455`}}],
        StatusArea[#, 1402]& ,
        TagBoxNote->"1402"],
       StyleBox["1402", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1402, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 1034}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{193.66281446209604`, 
          210.2430470692344}, {-21.519954513011072`, 103.00831890914455`}}],
        StatusArea[#, 1034]& ,
        TagBoxNote->"1034"],
       StyleBox["1034", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1034, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 699}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{209.7430470692344, 226.32327967637272`}, {
          18.663286876178603`, 103.00831890914455`}}],
        StatusArea[#, 699]& ,
        TagBoxNote->"699"],
       StyleBox["699", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[699, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{13., 0}, {14., 458}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{225.82327967637272`, 242.40351228351108`}, {
          47.571230681535965`, 103.00831890914455`}}],
        StatusArea[#, 458]& ,
        TagBoxNote->"458"],
       StyleBox["458", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[458, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {15., 226}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{241.90351228351108`, 258.4837448906494}, {
          75.39962471822852, 103.00831890914455`}}],
        StatusArea[#, 226]& ,
        TagBoxNote->"226"],
       StyleBox["226", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[226, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{15., 0}, {16., 108}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{257.9837448906494, 274.56397749778773`}, {
          89.55372168516698, 103.00831890914455`}}],
        StatusArea[#, 108]& ,
        TagBoxNote->"108"],
       StyleBox["108", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[108, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {17., 34}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{274.06397749778773`, 290.64421010492606`}, {
          98.43001978307754, 103.00831890914455`}}],
        StatusArea[#, 34]& ,
        TagBoxNote->"34"],
       StyleBox["34", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[34, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{17., 0}, {18., 8}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{290.14421010492606`, 306.72444271206444`}, {
          101.54871911477584`, 103.00831890914455`}}],
        StatusArea[#, 8]& ,
        TagBoxNote->"8"],
       StyleBox["8", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[8, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {19., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{306.22444271206444`, 322.8046753192028}, {
          101.78861906336802`, 103.00831890914455`}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{19., 0}, {20., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{322.3046753192028, 338.8849079263411}, {
          102.38836893484846`, 103.00831890914455`}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\[Nu]", TraditionalForm], 
    FormBox["\"P[\[Nu]]\"", TraditionalForm]},
  AxesOrigin->{0.62, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
   "\"n\[UAcute]mero de eventos em que o valor 2 foi obtido\"", 
    TraditionalForm],
  PlotRange->{{1., 20.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5859834009624043`*^9, 3.617346553906967*^9, {3.617347352781694*^9, 
   3.617347378344187*^9}, 3.617348085860442*^9, 3.6173489436418643`*^9}]
}, Open  ]],

Cell["\<\
Note: o mais prov\[AAcute]vel \[EAcute] que os histogramas tenham registrado \
entre 6 e 12 eventos na casinha \[OpenCurlyDoubleQuote]2\
\[CloseCurlyDoubleQuote], mas, se s\[ATilde]o muitos grupos,
algu\[EAcute]m ter\[AAcute] apenas 4 ou 5 e algu\[EAcute]m dever\[AAcute] ter \
chegado em 14 ou 15; se todos os grupos de estudantes tiverem \
\[OpenCurlyDoubleQuote]9 eventos\[CloseCurlyDoubleQuote],
eles nao est\[ATilde]o fazendo a experi\[EHat]ncia!\
\>", "Text",
 CellChangeTimes->{{3.6173475212821016`*^9, 3.617347538375847*^9}, {
   3.6173475732977114`*^9, 3.6173475851108584`*^9}, 3.6173476782672925`*^9, {
   3.617347723361293*^9, 3.6173477344394145`*^9}, {3.617347767204563*^9, 
   3.6173478759858513`*^9}, {3.617348094204193*^9, 3.617348094547942*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", "contagensNIgual2", "]"}]], "Input",
 CellChangeTimes->{{3.58594166135213*^9, 3.585941671086505*^9}}],

Cell[BoxData[
 FractionBox["44523", "5000"]], "Output",
 CellChangeTimes->{3.5859834009780293`*^9, 3.6173467247983117`*^9, 
  3.6173489436418643`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"StandardDeviation", "[", "contagensNIgual2", "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.58594167860213*^9, 3.585941692336505*^9}}],

Cell[BoxData["2.5247447937618093`"], "Output",
 CellChangeTimes->{3.5859834010092793`*^9, 3.617346760423829*^9, 
  3.6173489436575003`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p2", "=", 
  RowBox[{"PDF", "[", 
   RowBox[{
    RowBox[{"BinomialDistribution", "[", 
     RowBox[{"repeticao", ",", "p"}], "]"}], ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.585941734586505*^9, 3.585941734867755*^9}, {
  3.58594182535213*^9, 3.58594182578963*^9}}],

Cell[BoxData[
 FractionBox["107421875", "362797056"]], "Output",
 CellChangeTimes->{3.5859834010092793`*^9, 3.6173467671425786`*^9, 
  3.6173489436731787`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"30", " ", "p2"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.58594173994588*^9, 3.585941760274001*^9}, {
  3.58594182994588*^9, 3.58594183263338*^9}}],

Cell[BoxData["8.882807058941514`"], "Output",
 CellChangeTimes->{3.585983401056157*^9, 3.617346773033244*^9, 
  3.6173489436731787`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"variancia", "=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"30", " ", "p2", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p2"}], ")"}]}], "]"}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.585941839805256*^9, 3.58594187744588*^9}}],

Cell[BoxData["2.5005329466726636`"], "Output",
 CellChangeTimes->{3.585983401056157*^9, 3.6173467778300753`*^9, 
  3.6173489436731787`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Binomial quando p\[Rule]0 e N\[Rule]\[Infinity], com Np=a, \
a\[Element]R", "Section",
 CellChangeTimes->{{3.6173468086560726`*^9, 3.6173468127654467`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"repeticao", ",", "p"}], "]"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.58594198219588*^9, 3.58594203488338*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.5859834011811543`*^9, 3.6173468169998207`*^9, 
  3.6173489436887426`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["repeticao"], "Input",
 CellChangeTimes->{{3.5859420666021814`*^9, 3.585942068602131*^9}}],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{3.5859834011967793`*^9, 3.617346821062319*^9, 
  3.6173489436887426`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["p"], "Input",
 CellChangeTimes->{3.58594207138338*^9}],

Cell[BoxData[
 FractionBox["1", "6"]], "Output",
 CellChangeTimes->{3.585983401212404*^9, 3.617346823484193*^9, 
  3.6173489437043657`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"repeticao", " ", "p"}]}]], "Input",
 CellChangeTimes->{{3.58594207525838*^9, 3.58594208841463*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.5859834012280293`*^9, 3.6173468256873174`*^9, 
  3.6173489437043657`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{"repeticao", ",", "p"}], "]"}], " ", ",", "10000"}], "]"}], " ",
    ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es\>\"", ",", "p", ",", "repeticao"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.585942110805255*^9, 3.585942128117755*^9}, {
  3.6173481376408477`*^9, 3.6173482008760552`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.644], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.644], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 1116}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{32.86048839071257, 71.55104083266613}, {
          41.76357642383084, 112.00831890914452`}}],
        StatusArea[#, 1116]& ,
        TagBoxNote->"1116"],
       StyleBox["1116", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1116, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2695}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{71.05104083266613, 
          109.7415932746197}, {-56.91648485243286, 112.00831890914452`}}],
        StatusArea[#, 2695]& ,
        TagBoxNote->"2695"],
       StyleBox["2695", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2695, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2927}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{109.2415932746197, 
          147.93214571657325`}, {-71.41539189239055, 112.00831890914452`}}],
        StatusArea[#, 2927]& ,
        TagBoxNote->"2927"],
       StyleBox["2927", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2927, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1976}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{147.43214571657325`, 
          186.12269815852682`}, {-11.982372086357117`, 112.00831890914452`}}],
        StatusArea[#, 1976]& ,
        TagBoxNote->"1976"],
       StyleBox["1976", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1976, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 942}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{185.62269815852682`, 224.3132506004804}, {
          52.637756703799106`, 112.00831890914452`}}],
        StatusArea[#, 942]& ,
        TagBoxNote->"942"],
       StyleBox["942", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[942, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 280}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{223.8132506004804, 262.50380304243396`}, {
          94.00963799885076, 112.00831890914452`}}],
        StatusArea[#, 280]& ,
        TagBoxNote->"280"],
       StyleBox["280", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[280, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 54}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{262.00380304243396`, 300.69435548438753`}, {
          108.13357330501644`, 112.00831890914452`}}],
        StatusArea[#, 54]& ,
        TagBoxNote->"54"],
       StyleBox["54", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[54, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{300.19435548438753`, 338.8849079263411}, {
          110.88336601949118`, 112.00831890914452`}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"frequencia\"", TraditionalForm]},
  AxesOrigin->{-0.16, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"Simula\[CCedilla]\[ATilde]o: probabilidade \
\\!\\(TraditionalForm\\`1\\/6\\), \\!\\(TraditionalForm\\`12\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 6], 12], Editable -> False], TraditionalForm],
  PlotRange->{{0., 8.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.585983401259279*^9, 3.617346829499814*^9, 
  3.617348204438552*^9, 3.61734894375124*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{
       RowBox[{"2", "repeticao"}], ",", 
       RowBox[{"p", "/", "2"}]}], "]"}], " ", ",", "10000"}], "]"}], " ", ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es\>\"", ",", 
      RowBox[{"p", "/", "2"}], ",", 
      RowBox[{"2", "repeticao"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5859421390240035`*^9, 3.585942141524005*^9}, {
   3.6173482324072957`*^9, 3.617348243158137*^9}, 3.617348276126877*^9}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.637], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.637], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 1237}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{32.86048839071257, 67.30764611689352}, {
          31.52364932218842, 112.00831890914455`}}],
        StatusArea[#, 1237]& ,
        TagBoxNote->"1237"],
       StyleBox["1237", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1237, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2699}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{66.80764611689352, 
          101.25480384307446`}, {-63.00956566255684, 112.00831890914455`}}],
        StatusArea[#, 2699]& ,
        TagBoxNote->"2699"],
       StyleBox["2699", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2699, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2829}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{100.75480384307446`, 
          135.20196156925542`}, {-71.41539189239055, 112.00831890914455`}}],
        StatusArea[#, 2829]& ,
        TagBoxNote->"2829"],
       StyleBox["2829", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2829, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1900}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{134.70196156925542`, 
          169.14911929543635`}, {-11.346064449963507`, 112.00831890914455`}}],
        StatusArea[#, 1900]& ,
        TagBoxNote->"1900"],
       StyleBox["1900", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1900, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 903}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{168.64911929543635`, 203.09627702161728`}, {
          53.12015671268425, 112.00831890914455`}}],
        StatusArea[#, 903]& ,
        TagBoxNote->"903"],
       StyleBox["903", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[903, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 308}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{202.59627702161728`, 237.04343474779824`}, {
          91.59297676461546, 112.00831890914455`}}],
        StatusArea[#, 308]& ,
        TagBoxNote->"308"],
       StyleBox["308", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[308, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 94}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{236.54343474779824`, 270.99059247397923`}, {
          105.4302599429571, 112.00831890914455`}}],
        StatusArea[#, 94]& ,
        TagBoxNote->"94"],
       StyleBox["94", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[94, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 27}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{270.49059247397923`, 304.93775020016017`}, {
          109.76249346140986`, 112.00831890914455`}}],
        StatusArea[#, 27]& ,
        TagBoxNote->"27"],
       StyleBox["27", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[27, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 3}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{304.43775020016017`, 338.8849079263411}, {
          111.3143383038407, 112.00831890914455`}}],
        StatusArea[#, 3]& ,
        TagBoxNote->"3"],
       StyleBox["3", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[3, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"frequencia\"", TraditionalForm]},
  AxesOrigin->{-0.18, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"Simula\[CCedilla]\[ATilde]o: probabilidade \
\\!\\(TraditionalForm\\`1\\/12\\), \\!\\(TraditionalForm\\`24\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 12], 24], Editable -> False], TraditionalForm],
  PlotRange->{{0., 9.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5859834013061533`*^9, 3.6173482444706335`*^9, 
  3.6173482767049994`*^9, 3.6173489437981176`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{
       RowBox[{"4", "repeticao"}], ",", 
       RowBox[{"p", "/", "4"}]}], "]"}], " ", ",", "10000"}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es\>\"", ",", 
      RowBox[{"p", "/", "4"}], ",", 
      RowBox[{"4", "repeticao"}]}], "]"}]}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.585942152524005*^9, 3.585942155680255*^9}, {
  3.617348288751873*^9, 3.6173482958768687`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.63], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], 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}, {1., 1294}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{32.860488390712575`, 63.91293034427542}, {
          25.808361712480377`, 112.00831890914456`}}],
        StatusArea[#, 1294]& ,
        TagBoxNote->"1294"],
       StyleBox["1294", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1294, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2677}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{63.41293034427542, 
          94.46537229783829}, {-65.78595111826657, 112.00831890914456`}}],
        StatusArea[#, 2677]& ,
        TagBoxNote->"2677"],
       StyleBox["2677", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2677, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2762}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{93.96537229783829, 
          125.01781425140113`}, {-71.41539189239059, 112.00831890914456`}}],
        StatusArea[#, 2762]& ,
        TagBoxNote->"2762"],
       StyleBox["2762", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2762, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1889}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{124.51781425140113`, 
          155.57025620496398`}, {-13.597723706387612`, 112.00831890914456`}}],
        StatusArea[#, 1889]& ,
        TagBoxNote->"1889"],
       StyleBox["1889", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1889, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 896}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{155.07025620496398`, 186.12269815852682`}, {
          52.16739027837864, 112.00831890914456`}}],
        StatusArea[#, 896]& ,
        TagBoxNote->"896"],
       StyleBox["896", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[896, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 349}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{185.62269815852682`, 216.6751401120897}, {
          88.39449737774132, 112.00831890914456`}}],
        StatusArea[#, 349]& ,
        TagBoxNote->"349"],
       StyleBox["349", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[349, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 98}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{216.1751401120897, 247.22758206565254`}, {
          105.01790484015454`, 112.00831890914456`}}],
        StatusArea[#, 98]& ,
        TagBoxNote->"98"],
       StyleBox["98", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[98, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 31}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{246.72758206565254`, 277.7800240192154}, {
          109.45522874446405`, 112.00831890914456`}}],
        StatusArea[#, 31]& ,
        TagBoxNote->"31"],
       StyleBox["31", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[31, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 3}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{277.2800240192154, 308.33246597277827`}, {
          111.30963276417548`, 112.00831890914456`}}],
        StatusArea[#, 3]& ,
        TagBoxNote->"3"],
       StyleBox["3", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[3, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{307.83246597277827`, 338.8849079263411}, {
          111.44209019415487`, 112.00831890914456`}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"frequencia\"", TraditionalForm]},
  AxesOrigin->{-0.2, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"Simula\[CCedilla]\[ATilde]o: probabilidade \
\\!\\(TraditionalForm\\`1\\/24\\), \\!\\(TraditionalForm\\`48\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 24], 48], Editable -> False], TraditionalForm],
  PlotRange->{{0., 10.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.585983401353029*^9, 3.6173482964237432`*^9, 
  3.6173489438449917`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{
       RowBox[{"8", "repeticao"}], ",", 
       RowBox[{"p", "/", "8"}]}], "]"}], " ", ",", "10000"}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es\>\"", ",", 
      RowBox[{"p", "/", "8"}], ",", 
      RowBox[{"8", "repeticao"}]}], "]"}]}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.58594217385213*^9, 3.585942177149005*^9}, {
  3.617348301094367*^9, 3.617348310000614*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.63], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], 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}, {1., 1315}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{32.860488390712575`, 63.91293034427543}, {
          24.06932228827263, 112.00831890914458`}}],
        StatusArea[#, 1315]& ,
        TagBoxNote->"1315"],
       StyleBox["1315", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1315, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2751}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{63.41293034427543, 
          94.46537229783829}, {-71.41539189239057, 112.00831890914458`}}],
        StatusArea[#, 2751]& ,
        TagBoxNote->"2751"],
       StyleBox["2751", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2751, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2686}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{93.96537229783829, 
          125.01781425140113`}, {-67.09331221151098, 112.00831890914458`}}],
        StatusArea[#, 2686]& ,
        TagBoxNote->"2686"],
       StyleBox["2686", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2686, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1845}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{124.51781425140113`, 
          155.57025620496398`}, {-11.172250494284128`, 112.00831890914458`}}],
        StatusArea[#, 1845]& ,
        TagBoxNote->"1845"],
       StyleBox["1845", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1845, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 872}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{155.07025620496398`, 186.12269815852687`}, {
          53.52595765180592, 112.00831890914458`}}],
        StatusArea[#, 872]& ,
        TagBoxNote->"872"],
       StyleBox["872", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[872, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 385}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{185.62269815852687`, 216.6751401120897}, {
          85.90830849162694, 112.00831890914458`}}],
        StatusArea[#, 385]& ,
        TagBoxNote->"385"],
       StyleBox["385", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[385, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 101}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{216.1751401120897, 247.22758206565254`}, {
          104.79247202039319`, 112.00831890914458`}}],
        StatusArea[#, 101]& ,
        TagBoxNote->"101"],
       StyleBox["101", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[101, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 36}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{246.72758206565254`, 277.78002401921543`}, {
          109.1145517012728, 112.00831890914458`}}],
        StatusArea[#, 36]& ,
        TagBoxNote->"36"],
       StyleBox["36", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[36, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{277.28002401921543`, 308.33246597277827`}, {
          111.10935770783261`, 112.00831890914458`}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 3}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{307.83246597277827`, 338.88490792634116`}, {
          111.30883830848859`, 112.00831890914458`}}],
        StatusArea[#, 3]& ,
        TagBoxNote->"3"],
       StyleBox["3", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[3, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"frequencia\"", TraditionalForm]},
  AxesOrigin->{-0.2, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"Simula\[CCedilla]\[ATilde]o: probabilidade \
\\!\\(TraditionalForm\\`1\\/48\\), \\!\\(TraditionalForm\\`96\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 48], 96], Editable -> False], TraditionalForm],
  PlotRange->{{0., 10.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.585983401399904*^9, 3.6173483105631113`*^9, 
  3.6173489438918643`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{
       RowBox[{"16", "repeticao"}], ",", 
       RowBox[{"p", "/", "16"}]}], "]"}], " ", ",", "10000"}], "]"}], " ", 
   ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es\>\"", ",", 
      RowBox[{"p", "/", "16"}], ",", 
      RowBox[{"16", "repeticao"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.585942192586505*^9, 3.58594219672713*^9}, {
  3.6173483185162363`*^9, 3.6173483282662334`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.623], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.623], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 1390}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{32.86048839071257, 61.135435621224254`}, {
          19.91467409137296, 112.00831890914452`}}],
        StatusArea[#, 1390]& ,
        TagBoxNote->"1390"],
       StyleBox["1390", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1390, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2670}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{60.635435621224254`, 
          88.91038285173593}, {-64.43055279117928, 112.00831890914452`}}],
        StatusArea[#, 2670]& ,
        TagBoxNote->"2670"],
       StyleBox["2670", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2670, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2776}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{88.41038285173593, 
          116.68533008224762`}, {-71.41539189239063, 112.00831890914452`}}],
        StatusArea[#, 2776]& ,
        TagBoxNote->"2776"],
       StyleBox["2776", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2776, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1693}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{116.18533008224762`, 
          144.4602773127593}, {-0.051422584731199095`, 112.00831890914452`}}],
        StatusArea[#, 1693]& ,
        TagBoxNote->"1693"],
       StyleBox["1693", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1693, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 953}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{143.9602773127593, 172.235224543271}, {
          48.710661706744304`, 112.00831890914452`}}],
        StatusArea[#, 953]& ,
        TagBoxNote->"953"],
       StyleBox["953", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[953, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 362}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{171.735224543271, 200.01017177378267`}, {
          87.65443443142271, 112.00831890914452`}}],
        StatusArea[#, 362]& ,
        TagBoxNote->"362"],
       StyleBox["362", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[362, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 116}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{199.51017177378267`, 227.78511900429436`}, {
          103.86453272291322`, 112.00831890914452`}}],
        StatusArea[#, 116]& ,
        TagBoxNote->"116"],
       StyleBox["116", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[116, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 30}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{227.28511900429436`, 255.56006623480604`}, {
          109.5314776540847, 112.00831890914452`}}],
        StatusArea[#, 30]& ,
        TagBoxNote->"30"],
       StyleBox["30", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[30, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{255.06006623480604`, 283.33501346531773`}, {
          111.11295065813256`, 112.00831890914452`}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{282.83501346531773`, 311.10996069582944`}, {
          111.37652949214053`, 112.00831890914452`}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{310.60996069582944`, 338.88490792634116`}, {
          111.37652949214053`, 112.00831890914452`}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"frequencia\"", TraditionalForm]},
  AxesOrigin->{-0.22, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"Simula\[CCedilla]\[ATilde]o: probabilidade \
\\!\\(TraditionalForm\\`1\\/96\\), \\!\\(TraditionalForm\\`192\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 96], 192], Editable -> False], TraditionalForm],
  PlotRange->{{0., 11.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5859834014467793`*^9, 3.6173483290631037`*^9, 
  3.6173489439387407`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{
    RowBox[{"BinomialDistribution", "[", 
     RowBox[{
      RowBox[{"32", "repeticao"}], ",", 
      RowBox[{"p", "/", "32"}]}], "]"}], " ", ",", "10000"}], "]"}], " ", 
  "]"}]], "Input",
 CellChangeTimes->{{3.585942222305255*^9, 3.5859422300083776`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.623], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.623], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 1385}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{33.11989591673339, 
          62.573968265521515`}, {-6.62113140145442, 90.69145508924973}}],
        StatusArea[#, 1385]& ,
        TagBoxNote->"1385"],
       StyleBox["1385", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1385, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2728}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{62.073968265521515`, 
          91.52804061430965}, {-100.49788494442603`, 90.69145508924973}}],
        StatusArea[#, 2728]& ,
        TagBoxNote->"2728"],
       StyleBox["2728", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2728, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2660}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{91.02804061430965, 
          120.48211296309776`}, {-95.7446316004781, 90.69145508924973}}],
        StatusArea[#, 2660]& ,
        TagBoxNote->"2660"],
       StyleBox["2660", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2660, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1792}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{119.98211296309776`, 
          149.43618531188588`}, {-35.07075068067218, 90.69145508924973}}],
        StatusArea[#, 1792]& ,
        TagBoxNote->"1792"],
       StyleBox["1792", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1792, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 903}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{148.93618531188588`, 178.390257660674}, {
          27.071046713000015`, 90.69145508924973}}],
        StatusArea[#, 903]& ,
        TagBoxNote->"903"],
       StyleBox["903", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[903, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 367}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{177.890257660674, 207.34433000946214`}, {
          64.53786718882488, 90.69145508924973}}],
        StatusArea[#, 367]& ,
        TagBoxNote->"367"],
       StyleBox["367", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[367, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 125}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{206.84433000946214`, 236.29840235825026`}, {
          81.45385703052192, 90.69145508924973}}],
        StatusArea[#, 125]& ,
        TagBoxNote->"125"],
       StyleBox["125", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[125, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 32}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{235.79840235825026`, 265.2524747070384}, {
          87.95462998621541, 90.69145508924973}}],
        StatusArea[#, 32]& ,
        TagBoxNote->"32"],
       StyleBox["32", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[32, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{264.7524747070384, 294.20654705582655`}, {
          89.77205038243079, 90.69145508924973}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{293.70654705582655`, 323.16061940461464`}, {
          90.1215543047799, 90.69145508924973}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{322.66061940461464`, 352.1146917534028}, {
          90.1215543047799, 90.69145508924973}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.22, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 11.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5859834014936543`*^9, 3.6173489440012407`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", " ", 
  RowBox[{
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{
       RowBox[{"64", "repeticao"}], ",", 
       RowBox[{"p", "/", "64"}]}], "]"}], " ", ",", "10000"}], "]"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es\>\"", ",", 
      RowBox[{"p", "/", "64"}], ",", 
      RowBox[{"64", "repeticao"}]}], "]"}]}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.585942268024005*^9, 3.585942274274005*^9}, {
  3.617348334547479*^9, 3.6173483413287296`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.623], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.623], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 1377}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{32.86048839071257, 61.13543562122425}, {
          18.59575905163294, 112.00831890914448`}}],
        StatusArea[#, 1377]& ,
        TagBoxNote->"1377"],
       StyleBox["1377", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1377, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2711}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{60.63543562122425, 
          88.91038285173593}, {-71.41539189239059, 112.00831890914448`}}],
        StatusArea[#, 2711]& ,
        TagBoxNote->"2711"],
       StyleBox["2711", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2711, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2651}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{88.41038285173593, 
          116.68533008224762`}, {-67.36691433868639, 112.00831890914448`}}],
        StatusArea[#, 2651]& ,
        TagBoxNote->"2651"],
       StyleBox["2651", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2651, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1847}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{116.18533008224762`, 
          144.4602773127593}, {-13.11731511905002, 112.00831890914448`}}],
        StatusArea[#, 1847]& ,
        TagBoxNote->"1847"],
       StyleBox["1847", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1847, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 909}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{143.9602773127593, 172.23522454327096`}, {
          50.17388397052574, 112.00831890914448`}}],
        StatusArea[#, 909]& ,
        TagBoxNote->"909"],
       StyleBox["909", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[909, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 358}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{171.73522454327096`, 200.01017177378264`}, {
          87.35240283870938, 112.00831890914448`}}],
        StatusArea[#, 358]& ,
        TagBoxNote->"358"],
       StyleBox["358", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[358, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 104}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{199.51017177378264`, 227.78511900429433`}, {
          104.49095781605719`, 112.00831890914448`}}],
        StatusArea[#, 104]& ,
        TagBoxNote->"104"],
       StyleBox["104", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[104, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 30}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{227.28511900429433`, 255.56006623480602`}, {
          109.48408013229238`, 112.00831890914448`}}],
        StatusArea[#, 30]& ,
        TagBoxNote->"30"],
       StyleBox["30", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[30, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{255.06006623480602`, 283.33501346531773`}, {
          110.83357265019377`, 112.00831890914448`}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{282.83501346531773`, 311.1099606958294}, {
          111.37336965735433`, 112.00831890914448`}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{310.6099606958294, 338.8849079263411}, {
          111.4408442832494, 112.00831890914448`}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"frequencia\"", TraditionalForm]},
  AxesOrigin->{-0.22, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotLabel->FormBox[
    InterpretationBox[
    "\"Simula\[CCedilla]\[ATilde]o: probabilidade \
\\!\\(TraditionalForm\\`1\\/384\\), \\!\\(TraditionalForm\\`768\\) repeti\
\[CCedilla]\[OTilde]es\"", 
     StringForm[
     "Simula\[CCedilla]\[ATilde]o: probabilidade ``, `` repeti\[CCedilla]\
\[OTilde]es", 
      Rational[1, 384], 768], Editable -> False], TraditionalForm],
  PlotRange->{{0., 11.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.585983401524904*^9, 3.6173483422193513`*^9, 
  3.6173489440481157`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"BinomialDistribution", "[", 
        RowBox[{"repeticao", ",", "p"}], "]"}], " ", ",", "1000000"}], "]"}], 
     " ", ",", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"BinomialDistribution", "[", 
        RowBox[{
         RowBox[{"64", "repeticao"}], ",", 
         RowBox[{"p", "/", "64"}]}], "]"}], " ", ",", "1000000"}], "]"}]}], 
    " ", "}"}], ",", 
   RowBox[{"ChartLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"p", ",", 
      RowBox[{"p", "/", "64"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{
     "\"\<Simula\[CCedilla]\[ATilde]o: p=`` rep=`` vs. p=`` rep=`` \>\"", ",",
       "p", ",", " ", "repeticao", ",", " ", 
      RowBox[{"p", "/", "64"}], ",", " ", 
      RowBox[{"64", " ", "repeticao"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.585942299117755*^9, 3.58594239869588*^9}, 
   3.585942430461506*^9, {3.6173483700951424`*^9, 3.617348450829337*^9}, {
   3.617348562860425*^9, 3.6173485878447933`*^9}, {3.617348641469015*^9, 
   3.617348668470259*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{
      Directive[
       EdgeForm[
        Directive[
         Thickness[Small], 
         Opacity[0.609]]], 
       RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], {{{{}, {
          Directive[
           Opacity[0.5], 
           Directive[
            EdgeForm[
             Directive[
              Thickness[Small], 
              Opacity[0.609]]], 
            RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], 
           Directive[
            RGBColor[0.97858, 0.678934, 0.157834]]], {{
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{0., 0.}, {1., 112253}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 112253]& , TagBoxNote -> "112253"], 
              StyleBox["112253", {}, StripOnInput -> False]], Annotation[#, 
              Style[112253, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{1., 0.}, {2., 267978}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 267978]& , TagBoxNote -> "267978"], 
              StyleBox["267978", {}, StripOnInput -> False]], Annotation[#, 
              Style[267978, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{2., 0.}, {3., 297350}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 297350]& , TagBoxNote -> "297350"], 
              StyleBox["297350", {}, StripOnInput -> False]], Annotation[#, 
              Style[297350, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{3., 0.}, {4., 197180}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 197180]& , TagBoxNote -> "197180"], 
              StyleBox["197180", {}, StripOnInput -> False]], Annotation[#, 
              Style[197180, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{4., 0.}, {5., 88628}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 88628]& , TagBoxNote -> "88628"], 
              StyleBox["88628", {}, StripOnInput -> False]], Annotation[#, 
              Style[88628, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{5., 0.}, {6., 28595}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 28595]& , TagBoxNote -> "28595"], 
              StyleBox["28595", {}, StripOnInput -> False]], Annotation[#, 
              Style[28595, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{6., 0.}, {7., 6725}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 6725]& , TagBoxNote -> "6725"], 
              StyleBox["6725", {}, StripOnInput -> False]], Annotation[#, 
              Style[6725, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{7., 0.}, {8., 1121}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 1121]& , TagBoxNote -> "1121"], 
              StyleBox["1121", {}, StripOnInput -> False]], Annotation[#, 
              Style[1121, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{8., 0.}, {9., 153}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 153]& , TagBoxNote -> "153"], 
              StyleBox["153", {}, StripOnInput -> False]], Annotation[#, 
              Style[153, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{9., 0.}, {10., 17}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 17]& , TagBoxNote -> "17"], 
              StyleBox["17", {}, StripOnInput -> False]], Annotation[#, 
              Style[17, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, {
          Directive[
           Opacity[0.5], 
           Directive[
            EdgeForm[
             Directive[
              Thickness[Small], 
              Opacity[0.609]]], 
            RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], 
           Directive[
            RGBColor[0.368417, 0.506779, 0.709798]]], {{
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{0., 0.}, {1., 135347}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 135347]& , TagBoxNote -> "135347"], 
              StyleBox["135347", {}, StripOnInput -> False]], Annotation[#, 
              Style[135347, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{1., 0.}, {2., 270518}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 270518]& , TagBoxNote -> "270518"], 
              StyleBox["270518", {}, StripOnInput -> False]], Annotation[#, 
              Style[270518, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{2., 0.}, {3., 270206}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 270206]& , TagBoxNote -> "270206"], 
              StyleBox["270206", {}, StripOnInput -> False]], Annotation[#, 
              Style[270206, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{3., 0.}, {4., 181152}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 181152]& , TagBoxNote -> "181152"], 
              StyleBox["181152", {}, StripOnInput -> False]], Annotation[#, 
              Style[181152, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{4., 0.}, {5., 90084}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 90084]& , TagBoxNote -> "90084"], 
              StyleBox["90084", {}, StripOnInput -> False]], Annotation[#, 
              Style[90084, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{5., 0.}, {6., 36242}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 36242]& , TagBoxNote -> "36242"], 
              StyleBox["36242", {}, StripOnInput -> False]], Annotation[#, 
              Style[36242, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{6., 0.}, {7., 12080}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 12080]& , TagBoxNote -> "12080"], 
              StyleBox["12080", {}, StripOnInput -> False]], Annotation[#, 
              Style[12080, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{7., 0.}, {8., 3313}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 3313]& , TagBoxNote -> "3313"], 
              StyleBox["3313", {}, StripOnInput -> False]], Annotation[#, 
              Style[3313, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{8., 0.}, {9., 821}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 821]& , TagBoxNote -> "821"], 
              StyleBox["821", {}, StripOnInput -> False]], Annotation[#, 
              Style[821, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{9., 0.}, {10., 183}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 183]& , TagBoxNote -> "183"], 
              StyleBox["183", {}, StripOnInput -> False]], Annotation[#, 
              Style[183, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{10., 0.}, {11., 45}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 45]& , TagBoxNote -> "45"], 
              StyleBox["45", {}, StripOnInput -> False]], Annotation[#, 
              Style[45, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{11., 0.}, {12., 6}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 6]& , TagBoxNote -> "6"], 
              StyleBox["6", {}, StripOnInput -> False]], Annotation[#, 
              Style[6, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{12., 0.}, {13., 3}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 3]& , TagBoxNote -> "3"], 
              StyleBox["3", {}, StripOnInput -> False]], Annotation[#, 
              Style[3, {}], 
              "Tooltip"]& ]}}}, {}, {}}}}}, {{{{{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{}}}}}, {AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {
       FormBox["n", TraditionalForm], 
       FormBox["\"frequencia\"", TraditionalForm]}, AxesOrigin -> {-0.26, 0.},
      FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], PlotLabel -> FormBox[
       InterpretationBox[
       "\"Simula\[CCedilla]\[ATilde]o: p=\\!\\(TraditionalForm\\`1\\/6\\) \
rep=\\!\\(TraditionalForm\\`12\\) vs. p=\\!\\(TraditionalForm\\`1\\/384\\) \
rep=\\!\\(TraditionalForm\\`768\\) \"", 
        StringForm[
        "Simula\[CCedilla]\[ATilde]o: p=`` rep=`` vs. p=`` rep=`` ", 
         Rational[1, 6], 12, 
         Rational[1, 384], 768], Editable -> False], TraditionalForm], 
     PlotRange -> {{0., 13.}, {All, All}}, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       FractionBox["1", "6"], 
       FractionBox["1", "384"]}, "SwatchLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{
                    Directive[
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    EdgeForm[
                    Directive[
                    GrayLevel[0], 
                    Thickness[Small], 
                    Opacity[0.609]]], 
                    RGBColor[0.97858, 0.678934, 0.157834]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{
                    Directive[
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    EdgeForm[
                    Directive[
                    GrayLevel[0], 
                    Thickness[Small], 
                    Opacity[0.609]]], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.97858, 0.678934, 0.157834], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[0.6523866666666667, 0.45262266666666673`, 
                    0.10522266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.97858, 0.678934, 0.157834]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.97858, 0.678934, 0.157834]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.97858, 0.678934, 0.157834], Editable -> False, 
                    Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False]}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.609`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{#, ",", #2}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   
                   RowBox[{
                    "None", ",", "None", ",", "None", ",", "None", ",", 
                    "None", ",", "None", ",", "None", ",", "None", ",", 
                    "None", ",", "None", ",", "None", ",", "None", ",", 
                    "None"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True],
      TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.585983408446779*^9, 3.617348461173081*^9, 
  3.617348672064003*^9, 3.617348946907488*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"BinomialDistribution", "[", 
        RowBox[{
         RowBox[{"64", "repeticao"}], ",", 
         RowBox[{"p", "/", "64"}]}], "]"}], " ", ",", "1000000"}], "]"}], " ",
      ",", 
     RowBox[{"RandomVariate", "[", 
      RowBox[{
       RowBox[{"PoissonDistribution", "[", "2", "]"}], ",", "1000000"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"ChartLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<binomial\>\"", ",", "\"\<Poisson\>\""}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<frequencia\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"StringForm", "[", 
     RowBox[{"\"\<Simula\[CCedilla]\[ATilde]o: p=`` rep=`` vs a=2\>\"", ",", 
      RowBox[{"p", "/", "64"}], ",", " ", 
      RowBox[{"64", " ", "repeticao"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.58594242407088*^9, {3.6173487072046204`*^9, 3.6173487730326743`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{
      Directive[
       EdgeForm[
        Directive[
         Thickness[Small], 
         Opacity[0.602]]], 
       RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], {{{{}, {
          Directive[
           Opacity[0.5], 
           Directive[
            EdgeForm[
             Directive[
              Thickness[Small], 
              Opacity[0.602]]], 
            RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], 
           Directive[
            RGBColor[0.97858, 0.678934, 0.157834]]], {{
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{0., 0.}, {1., 134848}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 134848]& , TagBoxNote -> "134848"], 
              StyleBox["134848", {}, StripOnInput -> False]], Annotation[#, 
              Style[134848, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{1., 0.}, {2., 270215}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 270215]& , TagBoxNote -> "270215"], 
              StyleBox["270215", {}, StripOnInput -> False]], Annotation[#, 
              Style[270215, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{2., 0.}, {3., 270746}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 270746]& , TagBoxNote -> "270746"], 
              StyleBox["270746", {}, StripOnInput -> False]], Annotation[#, 
              Style[270746, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{3., 0.}, {4., 181029}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 181029]& , TagBoxNote -> "181029"], 
              StyleBox["181029", {}, StripOnInput -> False]], Annotation[#, 
              Style[181029, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{4., 0.}, {5., 90541}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 90541]& , TagBoxNote -> "90541"], 
              StyleBox["90541", {}, StripOnInput -> False]], Annotation[#, 
              Style[90541, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{5., 0.}, {6., 36101}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 36101]& , TagBoxNote -> "36101"], 
              StyleBox["36101", {}, StripOnInput -> False]], Annotation[#, 
              Style[36101, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{6., 0.}, {7., 12123}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 12123]& , TagBoxNote -> "12123"], 
              StyleBox["12123", {}, StripOnInput -> False]], Annotation[#, 
              Style[12123, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{7., 0.}, {8., 3306}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 3306]& , TagBoxNote -> "3306"], 
              StyleBox["3306", {}, StripOnInput -> False]], Annotation[#, 
              Style[3306, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{8., 0.}, {9., 846}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 846]& , TagBoxNote -> "846"], 
              StyleBox["846", {}, StripOnInput -> False]], Annotation[#, 
              Style[846, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{9., 0.}, {10., 199}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 199]& , TagBoxNote -> "199"], 
              StyleBox["199", {}, StripOnInput -> False]], Annotation[#, 
              Style[199, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{10., 0.}, {11., 39}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 39]& , TagBoxNote -> "39"], 
              StyleBox["39", {}, StripOnInput -> False]], Annotation[#, 
              Style[39, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{11., 0.}, {12., 5}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 5]& , TagBoxNote -> "5"], 
              StyleBox["5", {}, StripOnInput -> False]], Annotation[#, 
              Style[5, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{12., 0.}, {13., 2}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 2]& , TagBoxNote -> "2"], 
              StyleBox["2", {}, StripOnInput -> False]], Annotation[#, 
              Style[2, {}], "Tooltip"]& ]}}}, {}, {}}}, {{{}, {
          Directive[
           Opacity[0.5], 
           Directive[
            EdgeForm[
             Directive[
              Thickness[Small], 
              Opacity[0.602]]], 
            RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`]], 
           Directive[
            RGBColor[0.368417, 0.506779, 0.709798]]], {{
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{0., 0.}, {1., 135818}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 135818]& , TagBoxNote -> "135818"], 
              StyleBox["135818", {}, StripOnInput -> False]], Annotation[#, 
              Style[135818, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{1., 0.}, {2., 270431}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 270431]& , TagBoxNote -> "270431"], 
              StyleBox["270431", {}, StripOnInput -> False]], Annotation[#, 
              Style[270431, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{2., 0.}, {3., 269932}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 269932]& , TagBoxNote -> "269932"], 
              StyleBox["269932", {}, StripOnInput -> False]], Annotation[#, 
              Style[269932, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{3., 0.}, {4., 180607}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 180607]& , TagBoxNote -> "180607"], 
              StyleBox["180607", {}, StripOnInput -> False]], Annotation[#, 
              Style[180607, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{4., 0.}, {5., 90627}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 90627]& , TagBoxNote -> "90627"], 
              StyleBox["90627", {}, StripOnInput -> False]], Annotation[#, 
              Style[90627, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{5., 0.}, {6., 36103}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 36103]& , TagBoxNote -> "36103"], 
              StyleBox["36103", {}, StripOnInput -> False]], Annotation[#, 
              Style[36103, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{6., 0.}, {7., 12063}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 12063]& , TagBoxNote -> "12063"], 
              StyleBox["12063", {}, StripOnInput -> False]], Annotation[#, 
              Style[12063, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{7., 0.}, {8., 3398}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 3398]& , TagBoxNote -> "3398"], 
              StyleBox["3398", {}, StripOnInput -> False]], Annotation[#, 
              Style[3398, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{8., 0.}, {9., 789}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 789]& , TagBoxNote -> "789"], 
              StyleBox["789", {}, StripOnInput -> False]], Annotation[#, 
              Style[789, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{9., 0.}, {10., 168}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 168]& , TagBoxNote -> "168"], 
              StyleBox["168", {}, StripOnInput -> False]], Annotation[#, 
              Style[168, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{10., 0.}, {11., 52}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 52]& , TagBoxNote -> "52"], 
              StyleBox["52", {}, StripOnInput -> False]], Annotation[#, 
              Style[52, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  
                  RectangleBox[{11., 0.}, {12., 10}, "RoundingRadius" -> 
                   0]}]}, StatusArea[#, 10]& , TagBoxNote -> "10"], 
              StyleBox["10", {}, StripOnInput -> False]], Annotation[#, 
              Style[10, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{12., 0.}, {13., 1}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 1]& , TagBoxNote -> "1"], 
              StyleBox["1", {}, StripOnInput -> False]], Annotation[#, 
              Style[1, {}], "Tooltip"]& ]}, {
            TagBox[
             TooltipBox[
              TagBox[{
                DynamicBox[{
                  FEPrivate`If[
                   CurrentValue["MouseOver"], 
                   EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                  RectangleBox[{13., 0.}, {14., 1}, "RoundingRadius" -> 0]}]},
                StatusArea[#, 1]& , TagBoxNote -> "1"], 
              StyleBox["1", {}, StripOnInput -> False]], Annotation[#, 
              Style[1, {}], 
              "Tooltip"]& ]}}}, {}, {}}}}}, {{{{{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {}}}}}, {
    AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {
       FormBox["n", TraditionalForm], 
       FormBox["\"frequencia\"", TraditionalForm]}, AxesOrigin -> {-0.28, 0.},
      FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], PlotLabel -> FormBox[
       InterpretationBox[
       "\"Simula\[CCedilla]\[ATilde]o: p=\\!\\(TraditionalForm\\`1\\/384\\) \
rep=\\!\\(TraditionalForm\\`768\\) vs a=2\"", 
        StringForm["Simula\[CCedilla]\[ATilde]o: p=`` rep=`` vs a=2", 
         Rational[1, 384], 768], Editable -> False], TraditionalForm], 
     PlotRange -> {{0., 14.}, {All, All}}, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"binomial\"", "\"Poisson\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{
                    Directive[
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    EdgeForm[
                    Directive[
                    GrayLevel[0], 
                    Thickness[Small], 
                    Opacity[0.602]]], 
                    RGBColor[0.97858, 0.678934, 0.157834]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{
                    Directive[
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    EdgeForm[
                    Directive[
                    GrayLevel[0], 
                    Thickness[Small], 
                    Opacity[0.602]]], 
                    RGBColor[0.368417, 0.506779, 0.709798]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.97858, 0.678934, 0.157834], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[0.6523866666666667, 0.45262266666666673`, 
                    0.10522266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.97858, 0.678934, 0.157834]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.97858, 0.678934, 0.157834]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.97858, 0.678934, 0.157834], Editable -> False, 
                    Selectable -> False]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False]}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"EdgeForm", "[", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", "Small", "]"}], ",", 
                    RowBox[{"Opacity", "[", "0.602`", "]"}]}], "]"}], "]"}], 
                    ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], "GrayLevel[1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[1], Editable -> False, Selectable -> False]}], 
                    "]"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{#, ",", #2}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   
                   RowBox[{
                    "None", ",", "None", ",", "None", ",", "None", ",", 
                    "None", ",", "None", ",", "None", ",", "None", ",", 
                    "None", ",", "None", ",", "None", ",", "None", ",", 
                    "None", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.5859834153686533`*^9, 3.6173487868915625`*^9, 
  3.6173489496887383`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"PoissonDistribution", "[", 
      RowBox[{"repeticao", " ", "p"}], "]"}], ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "14"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<P[n]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Poisson a = 2\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.58594248225838*^9, 3.585942495899005*^9}, {
  3.6173488185790544`*^9, 3.6173488544545593`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], 
      LineBox[{{{14., 2.5434465966553178`*^-8}, {14., 
       2.5434465966553178`*^-8}}},
       VertexColors->None]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], Opacity[0.2], 
      LineBox[CompressedData["
1:eJxTTMoPSmVmYGDgA2ImKIaBM437F68KOmgP49+WO5Mb7x9tB+F9sIfIX7SH
8VHlGRxQ5RkcUOU5HHaF/295LHHcHsZHlReAym+3h/FR5UUc/gjNnOtftcge
xkeVl3BYmqd4SWRxhz2Mjyov46D1ZvJpcY0cexgfVV4BKu9jD+Ojyis5zKhp
nmHIrmkP46PKqzjcn3be7SAriz2Mjyqv5vBijdiRJfJ34XxUeQ2HD7L8N3Kz
NsP5qPJaDv9nCTUUP22H82HyAL3ndTI=
       "],
       VertexColors->None]}}}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], {}, 
    PointBox[{{0., 0.1353352832366127}, {1., 0.2706705664732254}, {2., 
     0.2706705664732254}, {3., 0.18044704431548358`}, {4., 
     0.09022352215774179}, {5., 0.03608940886309672}, {6., 
     0.012029802954365574`}, {7., 0.0034370865583901638`}, {8., 
     0.0008592716395975409}, {9., 0.000190949253243898}, {10., 
     0.000038189850648779595`}, {11., 6.943609208869018*^-6}, {12., 
     1.1572682014781697`*^-6}, {13., 1.7804126176587223`*^-7}, {14., 
     2.5434465966553178`*^-8}}], {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"P[n]\"", TraditionalForm]},
  AxesOrigin->{0, 2.5434465966553178`*^-8},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox["\"Poisson a = 2\"", TraditionalForm],
  PlotRange->{{0., 14.}, {2.5434465966553178`*^-8, 0.2706705664732254}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5859834154155293`*^9, 3.6173488549701805`*^9, 
  3.617348949766865*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"PoissonDistribution", "[", 
      RowBox[{"repeticao", " ", "p"}], "]"}], ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "14"}], "}"}], ",", 
   RowBox[{"ExtentSize", "\[Rule]", "Full"}], ",", 
   RowBox[{"ExtentElementFunction", "\[Rule]", "\"\<Rectangle\>\""}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"n", ",", "\"\<P[n]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Poisson a = 2\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6173488831889257`*^9, 3.6173488835795507`*^9}},
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], 
    AbsoluteThickness[1.6], {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{-0.5, 2.5434465966553178`*^-8}, {0.5, 0.1353352832366127},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{0.5, 2.5434465966553178`*^-8}, {1.5, 0.2706705664732254},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{1.5, 2.5434465966553178`*^-8}, {2.5, 0.2706705664732254},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{2.5, 2.5434465966553178`*^-8}, {3.5, 0.18044704431548358`},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{3.5, 2.5434465966553178`*^-8}, {4.5, 0.09022352215774179},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{4.5, 2.5434465966553178`*^-8}, {5.5, 0.03608940886309672},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{5.5, 2.5434465966553178`*^-8}, {6.5, 0.012029802954365574`},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{6.5, 2.5434465966553178`*^-8}, {7.5, 0.0034370865583901638`},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{7.5, 2.5434465966553178`*^-8}, {8.5, 0.0008592716395975409},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{8.5, 2.5434465966553178`*^-8}, {9.5, 0.000190949253243898},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{9.5, 2.5434465966553178`*^-8}, {10.5, 0.000038189850648779595`},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{10.5, 2.5434465966553178`*^-8}, {11.5, 6.943609208869018*^-6},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{11.5, 2.5434465966553178`*^-8}, {12.5, 1.1572682014781697`*^-6},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{12.5, 2.5434465966553178`*^-8}, {13.5, 1.7804126176587223`*^-7},
       RoundingRadius->0]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      RectangleBox[{13.5, 2.5434465966553178`*^-8}, {14.5, 2.5434465966553178`*^-8},
       RoundingRadius->0]}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["n", TraditionalForm], 
    FormBox["\"P[n]\"", TraditionalForm]},
  AxesOrigin->{-0.5, 2.5434465966553178`*^-8},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox["\"Poisson a = 2\"", TraditionalForm],
  PlotRange->{{-0.5, 14.5}, {2.5434465966553178`*^-8, 0.2706705664732254}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5859834154467826`*^9, 3.617348885360798*^9, 
  3.6173489497981143`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{973, 862},
WindowMargins->{{143, Automatic}, {Automatic, 47}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.1999999999999, 841.8}},
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 235, 3, 71, "Subsubtitle"],
Cell[817, 27, 95, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[937, 32, 134, 1, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[1096, 37, 225, 5, 31, "Input"],
Cell[1324, 44, 1713, 50, 78, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3074, 99, 211, 4, 31, "Input"],
Cell[3288, 105, 123, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3448, 112, 233, 5, 31, "Input"],
Cell[3684, 119, 273, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3994, 130, 283, 7, 31, "Input"],
Cell[4280, 139, 119, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4436, 146, 142, 3, 31, "Input"],
Cell[4581, 151, 136, 3, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4754, 159, 124, 2, 31, "Input"],
Cell[4881, 163, 117, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5035, 170, 260, 6, 31, "Input"],
Cell[5298, 178, 120, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5455, 185, 354, 9, 31, "Input"],
Cell[5812, 196, 252, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6101, 207, 735, 19, 52, "Input"],
Cell[6839, 228, 7391, 207, 205, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14267, 440, 397, 10, 31, "Input"],
Cell[14667, 452, 9957, 231, 191, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24661, 688, 137, 2, 31, "Input"],
Cell[24801, 692, 6547, 186, 229, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31397, 884, 129, 1, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[31551, 889, 252, 6, 31, "Input"],
Cell[31806, 897, 1825, 52, 56, "Output"]
}, Open  ]],
Cell[33646, 952, 512, 9, 68, "Text"],
Cell[CellGroupData[{
Cell[34183, 965, 904, 22, 72, "Input"],
Cell[35090, 989, 4175, 101, 283, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39314, 1096, 172, 2, 39, "Subsubsection"],
Cell[39489, 1100, 137, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[39651, 1105, 987, 24, 72, "Input"],
Cell[40641, 1131, 4462, 124, 287, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45152, 1261, 249, 4, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[45426, 1269, 391, 10, 31, "Input"],
Cell[45820, 1281, 464, 9, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46321, 1295, 620, 15, 52, "Input"],
Cell[46944, 1312, 4418, 123, 287, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51399, 1440, 271, 6, 31, "Input"],
Cell[51673, 1448, 276, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51986, 1459, 569, 14, 31, "Input"],
Cell[52558, 1475, 273, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52868, 1486, 1037, 28, 72, "Input"],
Cell[53908, 1516, 176, 3, 31, "Output"]
}, Open  ]],
Cell[54099, 1522, 259, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[54383, 1531, 725, 19, 72, "Input"],
Cell[55111, 1552, 109921, 1424, 6512, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[165069, 2981, 545, 12, 46, "Input"],
Cell[165617, 2995, 13043, 373, 259, "Output"]
}, Open  ]],
Cell[178675, 3371, 771, 12, 68, "Text"],
Cell[CellGroupData[{
Cell[179471, 3387, 137, 2, 31, "Input"],
Cell[179611, 3391, 150, 3, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179798, 3399, 177, 4, 31, "Input"],
Cell[179978, 3405, 139, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[180154, 3412, 300, 7, 31, "Input"],
Cell[180457, 3421, 159, 3, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[180653, 3429, 187, 4, 31, "Input"],
Cell[180843, 3435, 136, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181016, 3442, 264, 7, 31, "Input"],
Cell[181283, 3451, 139, 2, 31, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[181471, 3459, 162, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[181658, 3465, 234, 5, 31, "Input"],
Cell[181895, 3472, 123, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182055, 3479, 103, 1, 31, "Input"],
Cell[182161, 3482, 122, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182320, 3489, 68, 1, 31, "Input"],
Cell[182391, 3492, 139, 3, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182567, 3500, 144, 3, 31, "Input"],
Cell[182714, 3505, 123, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182874, 3512, 708, 17, 52, "Input"],
Cell[183585, 3531, 6377, 179, 278, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189999, 3715, 827, 20, 52, "Input"],
Cell[190829, 3737, 7009, 197, 278, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197875, 3939, 802, 20, 52, "Input"],
Cell[198680, 3961, 7597, 215, 278, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206314, 4181, 799, 20, 52, "Input"],
Cell[207116, 4203, 7604, 215, 278, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214757, 4423, 811, 21, 52, "Input"],
Cell[215571, 4446, 8232, 233, 278, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223840, 4684, 350, 9, 31, "Input"],
Cell[224193, 4695, 7722, 221, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231952, 4921, 806, 20, 52, "Input"],
Cell[232761, 4943, 8227, 233, 278, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[241025, 5181, 1341, 34, 92, "Input"],
Cell[242369, 5217, 58041, 1193, 262, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[300447, 6415, 1088, 28, 92, "Input"],
Cell[301538, 6445, 62789, 1295, 262, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[364364, 7745, 637, 16, 52, "Input"],
Cell[365004, 7763, 3918, 96, 264, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[368959, 7864, 738, 18, 52, "Input"],
Cell[369700, 7884, 5929, 131, 297, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)