Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SeedRandom", "[", "n", "]"}], ";", 
    RowBox[{"x", "=", 
     RowBox[{"Random", "[", 
      RowBox[{"Integer", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"z", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"x", "==", "y"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Complement", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Random", "[", "Integer", "]"}], "+", "1"}], "]"}],
          "]"}], "}"}], ",", 
       RowBox[{"Complement", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], " ", "]"}]}], 
    ";", "
", 
    RowBox[{"config0", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", "
", 
       RowBox[{"LightBlue", ",", "
", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
        "
", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", " ", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", "2"}], "}"}]}], "]"}], ",", " ", 
        "
", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "2"}], "}"}]}], "]"}], ",", 
        "
", "Black", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"1", ",", " ", 
            RowBox[{"{", 
             RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}], 
         "]"}], ",", "
", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"2", ",", " ", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}], 
         "]"}], ",", "
", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"3", ",", " ", 
            RowBox[{"{", 
             RowBox[{"3.5", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}],
          "]"}]}], "}"}], "]"}]}], ";", "
", 
    RowBox[{"config1", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", "
", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"\[Wolf]", ",", 
            RowBox[{"{", 
             RowBox[{".5", ",", "1"}], "}"}]}], "]"}], ",", " ", 
          "100"}], "]"}], ",", "
", "LightBlue", 
        ",", "
", 
        RowBox[{"Tooltip", "[", 
         RowBox[{
          RowBox[{"Rectangle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1.5", ",", " ", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2.5", ",", "2"}], "}"}]}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"x", "==", "2"}], ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<$\>\"", ",", " ", "60"}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\[Wolf]", ",", " ", "60"}], "]"}]}], "]"}]}], 
         "]"}], ",", " ", "
", 
        RowBox[{"Tooltip", "[", 
         RowBox[{
          RowBox[{"Rectangle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "2"}], "}"}]}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"x", "==", "3"}], ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<$\>\"", ",", " ", "60"}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\[Wolf]", ",", " ", "60"}], "]"}]}], "]"}]}], 
         "]"}], ",", "
", "Black", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"2", ",", " ", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}], 
         "]"}], ",", "
", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"3", ",", " ", 
            RowBox[{"{", 
             RowBox[{"3.5", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}],
          "]"}]}], "
", "}"}], "]"}]}], ";", 
    "
", 
    RowBox[{"config2", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"\[Wolf]", ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1"}], "}"}]}], "]"}], ",", "100"}], 
         "]"}], ",", "
", "LightBlue", ",", 
        "
", 
        RowBox[{"Tooltip", "[", 
         RowBox[{
          RowBox[{"Rectangle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"x", "==", "1"}], ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<$\>\"", ",", " ", "60"}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\[Wolf]", ",", " ", "60"}], "]"}]}], "]"}]}], 
         "]"}], ",", " ", "
", 
        RowBox[{"Tooltip", "[", 
         RowBox[{
          RowBox[{"Rectangle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "2"}], "}"}]}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"x", "==", "3"}], ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<$\>\"", ",", " ", "60"}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\[Wolf]", ",", " ", "60"}], "]"}]}], "]"}]}], 
         "]"}], ",", "
", "Black", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"1", ",", " ", 
            RowBox[{"{", 
             RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}], 
         "]"}], ",", "
", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"3", ",", " ", 
            RowBox[{"{", 
             RowBox[{"3.5", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}],
          "]"}]}], "}"}], "]"}]}], ";", "
", 
    RowBox[{"config3", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", "
", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"\[Wolf]", ",", 
            RowBox[{"{", 
             RowBox[{"3.5", ",", "1"}], "}"}]}], "]"}], ",", "100"}], 
         "]"}], ",", "
", "LightBlue", ",", 
        "
", 
        RowBox[{"Tooltip", "[", 
         RowBox[{
          RowBox[{"Rectangle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"x", "==", "1"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<$\>\"", ",", " ", "60"}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\[Wolf]", ",", " ", "60"}], "]"}]}], "]"}]}], 
         "]"}], ",", " ", "
", 
        RowBox[{"Tooltip", "[", 
         RowBox[{
          RowBox[{"Rectangle", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1.5", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2.5", ",", "2"}], "}"}]}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"x", "==", "2"}], ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<$\>\"", ",", " ", "60"}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"\[Wolf]", ",", " ", "60"}], "]"}]}], "]"}]}], 
         "]"}], ",", "Black", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"1", ",", " ", 
            RowBox[{"{", 
             RowBox[{".5", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}], 
         "]"}], ",", "
", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"2", ",", " ", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1.5"}], "}"}]}], "]"}], ",", "44"}], 
         "]"}]}], "}"}], "]"}]}], ";", "
", 
    RowBox[{"Which", "[", 
     RowBox[{
      RowBox[{"y", "==", "0"}], ",", "config0", ",", 
      RowBox[{"z", "==", 
       RowBox[{"{", "1", "}"}]}], ",", " ", "config1", ",", " ", 
      RowBox[{"z", "==", 
       RowBox[{"{", "2", "}"}]}], ",", " ", "config2", ",", 
      RowBox[{"z", "==", 
       RowBox[{"{", "3", "}"}]}], ",", " ", "config3"}], "]"}]}], ",",
    "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "\"\<select a door\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "->", "\"\<1\>\""}], ",", 
       RowBox[{"2", "->", "\"\<2\>\""}], ",", 
       RowBox[{"3", "->", "\"\<3\>\""}], ",", 
       RowBox[{"0", "->", "\"\<reset\>\""}]}], "}"}], ",", " ", 
     RowBox[{"ControlType", "->", "RadioButtonBar"}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "50", ",", "\"\<shuffle\>\""}], "}"}], ",", 
     "12", ",", "123", ",", "1"}], "}"}], ",", " ", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", "1", "}"}]}], ",", 
   RowBox[{"TrackedSymbols", ":>", 
    RowBox[{"{", 
     RowBox[{"y", ",", "n"}], "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.382474808171875*^9, 3.382474957953125*^9}, {
   3.38247498975*^9, 3.38247499996875*^9}, {3.3824754634375*^9, 
   3.382475481625*^9}, {3.38247552675*^9, 3.382475560875*^9}, {
   3.38247559878125*^9, 3.38247559971875*^9}, {3.38247565853125*^9, 
   3.38247568890625*^9}, {3.382475746375*^9, 3.3824757581875*^9}, {
   3.382475789359375*^9, 3.3824758093125*^9}, {3.3824759408125*^9, 
   3.382475953265625*^9}, {3.3824760095*^9, 3.382476015109375*^9}, {
   3.38247604728125*^9, 3.382476079515625*^9}, {3.382476328671875*^9, 
   3.382476343484375*^9}, {3.382477188609375*^9, 
   3.382477208328125*^9}, {3.382477269765625*^9, 
   3.382477361046875*^9}, {3.382477888703125*^9, 
   3.38247790715625*^9}, {3.382478219890625*^9, 3.382478229046875*^9},
    3.382577205875*^9, {3.38257800378125*^9, 3.382578051109375*^9}, {
   3.382578155171875*^9, 3.382578225265625*^9}, {3.382578413390625*^9,
    3.38257843121875*^9}, {3.382578612953125*^9, 
   3.3825786453125*^9}, {3.382578746078125*^9, 
   3.382578815390625*^9}, {3.382578860734375*^9, 
   3.382578910234375*^9}, {3.38257894584375*^9, 3.3825789466875*^9}, {
   3.38257911940625*^9, 3.382579165640625*^9}, {3.3826607710625*^9, 
   3.382660785015625*^9}, {3.382660983578125*^9, 
   3.38266102309375*^9}, {3.382661163921875*^9, 3.382661205515625*^9},
    3.382661241703125*^9, {3.38266128221875*^9, 
   3.382661302296875*^9}, {3.382662213671875*^9, 
   3.38266225440625*^9}, {3.382662514484375*^9, 
   3.38266259884375*^9}, {3.382662650953125*^9, 3.3826626516875*^9}, {
   3.382662682421875*^9, 3.382662721640625*^9}, {3.38266284865625*^9, 
   3.38266286165625*^9}, {3.38266290365625*^9, 
   3.382662931734375*^9}, {3.38266297803125*^9, 
   3.382663014765625*^9}, {3.382663381734375*^9, 3.38266351775*^9}, {
   3.3826637083125*^9, 3.38266378515625*^9}, {3.382663931265625*^9, 
   3.382663941609375*^9}, {3.382664026765625*^9, 
   3.38266405128125*^9}, {3.38266511403125*^9, 3.38266511459375*^9}, {
   3.38266573759375*^9, 3.382665762765625*^9}, {3.3826660369375*^9, 
   3.382666066078125*^9}, {3.38266610265625*^9, 
   3.38266610990625*^9}, {3.382717452734375*^9, 
   3.382717458828125*^9}, {3.3827175576875*^9, 3.382717582625*^9}, {
   3.3827176269375*^9, 3.38271764546875*^9}, {3.382719120421875*^9, 
   3.382719123328125*^9}, {3.382719743796875*^9, 
   3.38271974434375*^9}, {3.382719865015625*^9, 3.382719910109375*^9},
    3.382720730578125*^9, {3.382720766625*^9, 3.382720782484375*^9}, {
   3.382720814390625*^9, 3.38272084303125*^9}, {3.38272092303125*^9, 
   3.3827209256875*^9}, {3.382721098265625*^9, 3.3827211545625*^9}, {
   3.382721859796875*^9, 3.382721868765625*^9}, {3.38272191684375*^9, 
   3.382722012625*^9}, {3.382724269234375*^9, 3.382724277953125*^9}, {
   3.382734487328125*^9, 3.3827344881875*^9}, {3.382734580765625*^9, 
   3.382734635796875*^9}, {3.382734720859375*^9, 3.382734725625*^9}, {
   3.382734768359375*^9, 3.3827349004375*^9}, {3.382734987453125*^9, 
   3.38273499509375*^9}, {3.382735570609375*^9, 
   3.382735646859375*^9}, {3.382735680390625*^9, 
   3.38273582890625*^9}, {3.382735867515625*^9, 
   3.382735871734375*^9}, {3.38273600840625*^9, 3.382736035234375*^9},
    3.382736148125*^9, {3.382736252109375*^9, 3.3827362686875*^9}, {
   3.38273636515625*^9, 3.382736374203125*^9}, {3.382736493171875*^9, 
   3.382736588921875*^9}, {3.38273661934375*^9, 3.38273664575*^9}, {
   3.3827366964375*^9, 3.38273669771875*^9}, {3.38273673253125*^9, 
   3.382736867015625*^9}, 3.382737191921875*^9, {3.38273814425*^9, 
   3.3827381823125*^9}, {3.382738229796875*^9, 3.3827382375*^9}, {
   3.382738294765625*^9, 3.3827382951875*^9}, {3.382738332609375*^9, 
   3.382738336265625*^9}, {3.382738634390625*^9, 
   3.38273867559375*^9}, {3.38273990571875*^9, 3.3827399094375*^9}, {
   3.382740181921875*^9, 3.382740201015625*^9}, {3.382740455453125*^9,
    3.38274046009375*^9}, 3.38279825835188*^9, {3.38295569978435*^9, 
   3.382955727237475*^9}, {3.382955814081225*^9, 
   3.3829558182531*^9}, {3.3846240232140455`*^9, 
   3.3846240235109186`*^9}, 3.7598100781707993`*^9},
 CellID->88496314],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 50, $CellContext`y$$ = 0, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`y$$], 0, "select a door"}, {
      1 -> "1", 2 -> "2", 3 -> "3", 0 -> "reset"}}, {{
       Hold[$CellContext`n$$], 50, "shuffle"}, 12, 123, 1}}, 
    Typeset`size$$ = {360., {91., 96.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`y$856825$$ = False, $CellContext`n$856826$$ = 
    0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`n$$ = 50, $CellContext`y$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`y$$, $CellContext`y$856825$$, False], 
        Hold[$CellContext`n$$, $CellContext`n$856826$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, 
      "Body" :> (
       SeedRandom[$CellContext`n$$]; $CellContext`x = 
        Random[Integer, {1, 3}]; $CellContext`z = 
        If[$CellContext`x == $CellContext`y$$, {
           Part[
            Complement[{1, 2, 3}, {$CellContext`x, $CellContext`y$$}],
             Random[Integer] + 1]}, 
          
          Complement[{1, 2, 
           3}, {$CellContext`x, $CellContext`y$$}]]; \
$CellContext`config0 = Graphics[{LightBlue, 
           Rectangle[{0, 0}, {1, 2}], 
           Rectangle[{1.5, 0}, {2.5, 2}], 
           Rectangle[{3, 0}, {4, 2}], Black, 
           Style[
            Text[1, {0.5, 1.5}], 44], 
           Style[
            Text[2, {2, 1.5}], 44], 
           Style[
            Text[3, {3.5, 1.5}], 44]}]; $CellContext`config1 = 
        Graphics[{
           Style[
            Text[$CellContext`\[Wolf], {0.5, 1}], 100], LightBlue, 
           Tooltip[
            Rectangle[{1.5, 0}, {2.5, 2}], 
            If[$CellContext`x == 2, 
             Style["$", 60], 
             Style[$CellContext`\[Wolf], 60]]], 
           Tooltip[
            Rectangle[{3, 0}, {4, 2}], 
            If[$CellContext`x == 3, 
             Style["$", 60], 
             Style[$CellContext`\[Wolf], 60]]], Black, 
           Style[
            Text[2, {2, 1.5}], 44], 
           Style[
            Text[3, {3.5, 1.5}], 44]}]; $CellContext`config2 = 
        Graphics[{
           Style[
            Text[$CellContext`\[Wolf], {2, 1}], 100], LightBlue, 
           Tooltip[
            Rectangle[{0, 0}, {1, 2}], 
            If[$CellContext`x == 1, 
             Style["$", 60], 
             Style[$CellContext`\[Wolf], 60]]], 
           Tooltip[
            Rectangle[{3, 0}, {4, 2}], 
            If[$CellContext`x == 3, 
             Style["$", 60], 
             Style[$CellContext`\[Wolf], 60]]], Black, 
           Style[
            Text[1, {0.5, 1.5}], 44], 
           Style[
            Text[3, {3.5, 1.5}], 44]}]; $CellContext`config3 = 
        Graphics[{
           Style[
            Text[$CellContext`\[Wolf], {3.5, 1}], 100], LightBlue, 
           Tooltip[
            Rectangle[{0, 0}, {1, 2}], 
            If[$CellContext`x == 1, 
             Style["$", 60], 
             Style[$CellContext`\[Wolf], 60]]], 
           Tooltip[
            Rectangle[{1.5, 0}, {2.5, 2}], 
            If[$CellContext`x == 2, 
             Style["$", 60], 
             Style[$CellContext`\[Wolf], 60]]], Black, 
           Style[
            Text[1, {0.5, 1.5}], 44], 
           Style[
            Text[2, {2, 1.5}], 44]}]; 
       Which[$CellContext`y$$ == 
         0, $CellContext`config0, $CellContext`z == {
          1}, $CellContext`config1, $CellContext`z == {
          2}, $CellContext`config2, $CellContext`z == {
          3}, $CellContext`config3]), 
      "Specifications" :> {{{$CellContext`y$$, 0, "select a door"}, {
         1 -> "1", 2 -> "2", 3 -> "3", 0 -> "reset"}, ControlType -> 
         RadioButtonBar}, {{$CellContext`n$$, 50, "shuffle"}, 12, 123,
          1}}, "Options" :> {
       AutorunSequencing -> {1}, 
        TrackedSymbols :> {$CellContext`y$$, $CellContext`n$$}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{405., {148., 154.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.759810078171183*^9},
 CellID->301648605]
}, {2}]]