CA rule composition.nb

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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    206240,       5505]
NotebookOptionsPosition[    203549,       5427]
NotebookOutlinePosition[    203906,       5443]
CellTagsIndexPosition[    203863,       5440]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Analysing ECAs", "Chapter",
 CellChangeTimes->{{3.623693276429282*^9, 3.623693310819024*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"initd", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", 
     ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", 
     ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", 
     ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", 
     ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", 
     ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", 
     ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", 
     ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", 
     ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", 
     ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", 
     ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", 
     ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", 
     ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", 
     ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", 
     ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", 
     ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
     ",", "1", ",", "1", ",", "1"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.599735892711907*^9, 3.599735914257448*^9}, {
  3.5997466888577957`*^9, 3.599746695139825*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ECAClass", "=", 
   RowBox[{"GatherBy", "[", 
    RowBox[{
     RowBox[{"SortBy", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"11", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"13", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"14", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"15", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"18", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"19", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"22", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"23", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"24", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"25", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"26", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"27", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"28", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"29", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"30", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"32", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"33", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"34", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"35", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"36", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"37", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"38", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"40", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"41", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"42", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"43", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"44", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"45", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"46", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"50", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"51", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"54", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"56", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"57", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"58", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"60", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"62", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"72", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"73", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"74", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"76", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"77", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"78", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"90", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"94", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"104", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"105", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"106", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"108", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"110", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"122", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"126", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"128", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"130", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"132", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"134", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"136", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"138", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"140", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"142", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"146", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"150", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"152", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"154", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"156", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"160", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"162", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"164", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"168", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"170", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"172", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"178", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"184", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"200", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"204", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"232", ",", "2"}], "}"}]}], "}"}], ",", "Last"}], "]"}], 
     ",", "Last"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.582990364451247*^9, 3.582990373525338*^9}, {
  3.582990466904204*^9, 3.5829904817038403`*^9}, {3.582991123613345*^9, 
  3.582991207872808*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"allNonSymmetricECAs", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7",
      ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", 
     "14", ",", "15", ",", "18", ",", "19", ",", "22", ",", "23", ",", "24", 
     ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", 
     "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", 
     ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", 
     "46", ",", "50", ",", "51", ",", "54", ",", "56", ",", "57", ",", "58", 
     ",", "60", ",", "62", ",", "72", ",", "73", ",", "74", ",", "76", ",", 
     "77", ",", "78", ",", "90", ",", "94", ",", "104", ",", "105", ",", 
     "106", ",", "108", ",", "110", ",", "122", ",", "126", ",", "128", ",", 
     "130", ",", "132", ",", "134", ",", "136", ",", "138", ",", "140", ",", 
     "142", ",", "146", ",", "150", ",", "152", ",", "154", ",", "156", ",", 
     "160", ",", "162", ",", "164", ",", "168", ",", "170", ",", "172", ",", 
     "178", ",", "184", ",", "200", ",", "204", ",", "232"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.601120992483733*^9, 3.6011210217824707`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CAComposite", "[", 
   RowBox[{
   "ruleA_", ",", "ruleB_", ",", "range_", ",", "depth_", ",", "init_"}], 
   "]"}], ":=", 
  RowBox[{"NestList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CellularAutomaton", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"ruleB", ",", "2", ",", "range"}], "}"}], ",", 
       RowBox[{"CellularAutomaton", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"ruleA", ",", "2", ",", "range"}], "}"}], ",", "#"}], 
        "]"}]}], "]"}], "&"}], ",", "init", ",", "depth"}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.597987147221589*^9, 3.597987246015255*^9}, {
   3.597987289266029*^9, 3.5979872916972113`*^9}, {3.5979909075061493`*^9, 
   3.597990933398568*^9}, 3.597991044128209*^9, {3.598004891997698*^9, 
   3.598004903824848*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CACompositeKernel", "[", 
   RowBox[{"rulelist_", ",", "range_", ",", "init_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"initlocal", ",", "CAout"}], "}"}], ",", 
    RowBox[{
     RowBox[{"CAout", "=", 
      RowBox[{"{", "}"}]}], ";", 
     RowBox[{"initlocal", "=", "init"}], ";", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"initlocal", "=", 
         RowBox[{"CellularAutomaton", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", "2", ",", "range"}], "}"}], ",", "initlocal"}], 
          "]"}]}], ";", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"CAout", ",", "initlocal"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "rulelist"}], "}"}]}], "]"}], ";", 
     RowBox[{"Last", "[", "CAout", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5992381765161133`*^9, 3.599238182351606*^9}, {
   3.599238229170432*^9, 3.599238278499549*^9}, {3.5992383090694447`*^9, 
   3.59923831893012*^9}, {3.599238361598666*^9, 3.599238362348287*^9}, 
   3.599238395290669*^9, {3.59923843449209*^9, 3.599238531354851*^9}, {
   3.5992386163996477`*^9, 3.599238690345603*^9}, {3.5992387446677017`*^9, 
   3.599238846584852*^9}, {3.599238880482441*^9, 3.599238913808485*^9}, {
   3.599239366571578*^9, 3.599239371432724*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CACompositeList", "[", 
   RowBox[{"rulelist_", ",", "range_", ",", "init_", ",", "depth_"}], "]"}], ":=", 
  RowBox[{"NestList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CACompositeKernel", "[", 
      RowBox[{"rulelist", ",", "range", ",", "#"}], "]"}], "&"}], ",", "init",
     ",", "depth"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.597987147221589*^9, 3.597987246015255*^9}, {
   3.597987289266029*^9, 3.5979872916972113`*^9}, {3.5979909075061493`*^9, 
   3.597990933398568*^9}, 3.597991044128209*^9, {3.598004891997698*^9, 
   3.598004903824848*^9}, {3.5992389366703033`*^9, 3.5992389861634073`*^9}, {
   3.59923903233926*^9, 3.599239034303215*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindCRulesList", "[", 
   RowBox[{"list_", ",", "range_", ",", "init_"}], "]"}], ":=", 
  RowBox[{"Union", "[", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "offset", "}"}], ",", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"range", "==", 
         RowBox[{"1", "/", "2"}]}], ",", 
        RowBox[{"offset", "=", "2"}], ",", 
        RowBox[{"offset", "=", 
         RowBox[{"IntegerPart", "[", 
          RowBox[{"range", "/", "0.5"}], "]"}]}]}], "]"}], ";", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"ListA", ",", "ListB", ",", "flows", ",", "crule"}], "}"}],
           ",", 
          RowBox[{
           RowBox[{"ListA", "=", 
            RowBox[{"Partition", "[", 
             RowBox[{"init", ",", 
              RowBox[{"IntegerPart", "[", 
               RowBox[{
                RowBox[{"range", "/", "0.5"}], "+", "1"}], "]"}], ",", "1", 
              ",", "1"}], "]"}]}], ";", 
           RowBox[{"ListB", "=", 
            RowBox[{"Partition", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", "offset", "]"}], "]"}], "&"}], "/@", 
               RowBox[{"Partition", "[", 
                RowBox[{
                 RowBox[{"Last", "@", 
                  RowBox[{"CACompositeList", "[", 
                   RowBox[{
                    RowBox[{"list", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", "range", ",", "init",
                     ",", "1"}], "]"}]}], ",", 
                 RowBox[{"IntegerPart", "[", 
                  RowBox[{
                   RowBox[{"range", "/", "0.5"}], "+", "1"}], "]"}], ",", "1",
                  ",", "1"}], "]"}]}], ",", "1"}], "]"}]}], ";", 
           RowBox[{"flows", "=", 
            RowBox[{"Rule", "@@@", 
             RowBox[{"Union", "[", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"ListA", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"ListB", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "1", ",", 
                  RowBox[{"Length", "[", "ListB", "]"}]}], "}"}]}], "]"}], 
              "]"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"crule", "=", 
            RowBox[{"FromDigits", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
                RowBox[{"Reverse", "[", 
                 RowBox[{"Union", "[", 
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ListA", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    RowBox[{"ListB", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", 
                    RowBox[{"Length", "[", "ListB", "]"}]}], "}"}]}], "]"}], 
                  "]"}], "]"}]}], "]"}], ",", "2"}], "]"}]}], ";", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", "flows", "]"}], "\[Equal]", 
              RowBox[{"2", "^", 
               RowBox[{"IntegerPart", "[", 
                RowBox[{
                 RowBox[{"range", "/", "0.5"}], "+", "1"}], "]"}]}]}], ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"list", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", "crule"}], "}"}], ",", 
               "1"}], "]"}]}], "]"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "list", "]"}]}], "}"}]}], "]"}]}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.598105117949279*^9, 3.598105252205121*^9}, {
   3.598105307947424*^9, 3.5981053082582684`*^9}, {3.598105724718457*^9, 
   3.598105820585956*^9}, 3.598105967303337*^9, {3.598118962297936*^9, 
   3.598119004118178*^9}, {3.5981630300715723`*^9, 3.598163092226243*^9}, {
   3.598163153764402*^9, 3.598163177103812*^9}, {3.5981632300949507`*^9, 
   3.598163230486773*^9}, 3.5981632651140823`*^9, {3.598163777676515*^9, 
   3.598163781814682*^9}, {3.599553671146694*^9, 3.599553685942417*^9}, {
   3.599556799391514*^9, 3.599556827617412*^9}, 3.599556956442505*^9, {
   3.5995604866455383`*^9, 3.599560488681794*^9}, {3.599563614974758*^9, 
   3.599563615752427*^9}, {3.5995637197000837`*^9, 3.599563784656328*^9}, {
   3.599563815544503*^9, 3.5995638727931347`*^9}, {3.5995639318661213`*^9, 
   3.599563943630056*^9}, 3.599564625777588*^9, 3.599564664461873*^9, {
   3.59956469704257*^9, 3.599564746056201*^9}, {3.599567244070753*^9, 
   3.599567245191485*^9}, {3.599567679698821*^9, 3.599567685889488*^9}, {
   3.599642870348319*^9, 3.599642873135069*^9}, {3.599644589590407*^9, 
   3.599644656107362*^9}, 3.5996447146264563`*^9, {3.599644846115711*^9, 
   3.599644877571535*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CACompositeKernelE", "[", 
   RowBox[{"rulelist_", ",", "range_", ",", "init_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"initlocal", ",", "CAout"}], "}"}], ",", 
    RowBox[{
     RowBox[{"CAout", "=", 
      RowBox[{"{", "}"}]}], ";", 
     RowBox[{"initlocal", "=", "init"}], ";", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"initlocal", "=", 
         RowBox[{"CellularAutomaton", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", "2", ",", "range"}], "}"}], ",", "initlocal"}], 
          "]"}]}], ";", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"CAout", ",", "initlocal"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "rulelist"}], "}"}]}], "]"}], ";", "CAout"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5992381765161133`*^9, 3.599238182351606*^9}, {
   3.599238229170432*^9, 3.599238278499549*^9}, {3.5992383090694447`*^9, 
   3.59923831893012*^9}, {3.599238361598666*^9, 3.599238362348287*^9}, 
   3.599238395290669*^9, {3.59923843449209*^9, 3.599238531354851*^9}, {
   3.5992386163996477`*^9, 3.599238690345603*^9}, {3.5992387446677017`*^9, 
   3.599238846584852*^9}, {3.599238880482441*^9, 3.599238913808485*^9}, {
   3.599239366571578*^9, 3.599239371432724*^9}, {3.5994997022623253`*^9, 
   3.5994997126257133`*^9}, {3.5995000003837757`*^9, 3.59950003642164*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CACompositeListE", "[", 
   RowBox[{"rulelist_", ",", "range_", ",", "init_", ",", "depth_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"initlocal", ",", "CAout", ",", "CBout"}], "}"}], ",", 
    RowBox[{
     RowBox[{"CAout", "=", 
      RowBox[{"{", "}"}]}], ";", 
     RowBox[{"CBout", "=", 
      RowBox[{"{", "}"}]}], ";", 
     RowBox[{"initlocal", "=", "init"}], ";", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", 
       RowBox[{"i", "<=", "depth"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{
        RowBox[{"CBout", "=", 
         RowBox[{"CACompositeKernelE", "[", 
          RowBox[{"rulelist", ",", "range", ",", "initlocal"}], "]"}]}], ";", 
        
        RowBox[{"initlocal", "=", 
         RowBox[{"Last", "[", "CBout", "]"}]}], ";", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"CAout", ",", "CBout"}], "]"}]}]}], "]"}], ";", 
     RowBox[{"Flatten", "[", 
      RowBox[{"CAout", ",", "1"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.59950458070112*^9, 3.599504586548246*^9}, {
   3.5995047638535223`*^9, 3.599504790891749*^9}, {3.599504822080103*^9, 
   3.5995048527327843`*^9}, {3.5995048838057623`*^9, 3.599504922806595*^9}, {
   3.599504957035524*^9, 3.599505040004251*^9}, {3.599505088759513*^9, 
   3.59950508938822*^9}, 3.599505121317*^9, {3.599505262807818*^9, 
   3.599505265556027*^9}, {3.5995052972315273`*^9, 3.599505318822414*^9}, {
   3.599505364188764*^9, 3.599505413583146*^9}, {3.599505498203163*^9, 
   3.599505498886989*^9}, 3.5995057119992447`*^9, {3.599505818692946*^9, 
   3.5995058445881767`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetRule", "[", 
   RowBox[{"list_", ",", "complement_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
   RowBox[{"Select", "[", 
    RowBox[{"list", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "==", "complement"}], "&"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.592386985338442*^9, 3.5923870582150784`*^9}, {
   3.592387113344039*^9, 3.592387281126347*^9}, {3.5923879688160954`*^9, 
   3.592387973927719*^9}, {3.592388048808938*^9, 3.5923880511673307`*^9}, {
   3.5923880983063803`*^9, 3.592388101991847*^9}, {3.592388188356803*^9, 
   3.592388192900669*^9}, 3.592388572346705*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"RuleTestECA", "[", "n_Integer", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"tuples", "=", 
       RowBox[{"Reverse", "@", 
        RowBox[{"Tuples", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", "3"}], "]"}]}]}], ",", 
      RowBox[{"rnumber", "=", 
       RowBox[{"IntegerDigits", "[", 
        RowBox[{"n", ",", "2", ",", "8"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", 
      RowBox[{"Thread", "[", 
       RowBox[{"{", 
        RowBox[{"tuples", ",", "rnumber"}], "}"}], "]"}]}], ")"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.583055242015767*^9, 3.583055242045135*^9}, {
  3.583059146164802*^9, 3.58305914658022*^9}, {3.583060316085026*^9, 
  3.5830603189176083`*^9}, {3.583070826133515*^9, 3.583070834026513*^9}, {
  3.583071723386078*^9, 3.5830717304417973`*^9}, {3.583071831685729*^9, 
  3.583071832197866*^9}, {3.5830910163917933`*^9, 3.583091018095769*^9}, {
  3.583091095833119*^9, 3.5830911488760242`*^9}, {3.583092266948061*^9, 
  3.5830923432586613`*^9}, {3.584286347152988*^9, 3.584286377133615*^9}, {
  3.592386689377857*^9, 3.5923867146245832`*^9}, {3.592386773497541*^9, 
  3.5923867982166653`*^9}, {3.5923868434735613`*^9, 3.5923868794332867`*^9}, {
  3.592387068441893*^9, 3.59238707369424*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetReflectiveRuleECA", "[", "rule_", "]"}], ":=", 
  RowBox[{"FromDigits", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"GetRule", "[", 
        RowBox[{
         RowBox[{"RuleTestECA", "[", "rule", "]"}], ",", 
         RowBox[{"Reverse", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "&"}], "/@", 
      RowBox[{"RuleTestECA", "[", "rule", "]"}]}], "]"}], ",", "2"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.592387456946249*^9, 3.5923875077525377`*^9}, {
   3.5923875922107143`*^9, 3.5923876033468924`*^9}, {3.592387640124757*^9, 
   3.592387660785947*^9}, {3.592387905984006*^9, 3.592387931585168*^9}, {
   3.592388165524521*^9, 3.592388312513043*^9}, {3.592388427102166*^9, 
   3.592388427261134*^9}, 3.5923885851212473`*^9, {3.5923886745458603`*^9, 
   3.5923886773741417`*^9}, {3.592388763236823*^9, 3.592388804995427*^9}, {
   3.5923888352145147`*^9, 3.592388837402237*^9}, 3.5924183453921223`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetConjugateRuleECA", "[", "rule_", "]"}], ":=", 
  RowBox[{"FromDigits", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "-", 
        RowBox[{"GetRule", "[", 
         RowBox[{
          RowBox[{"RuleTestECA", "[", "rule", "]"}], ",", 
          RowBox[{"1", "-", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "&"}], "/@", 
      RowBox[{"RuleTestECA", "[", "rule", "]"}]}], "]"}], ",", "2"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.592387456946249*^9, 3.5923875077525377`*^9}, {
   3.5923875922107143`*^9, 3.5923876033468924`*^9}, {3.592387640124757*^9, 
   3.592387660785947*^9}, {3.592387905984006*^9, 3.592387931585168*^9}, {
   3.592388165524521*^9, 3.592388312513043*^9}, {3.592388427102166*^9, 
   3.592388427261134*^9}, 3.5923885851212473`*^9, {3.592388819792595*^9, 
   3.592388827187578*^9}, {3.5923889790981503`*^9, 3.5923889819946423`*^9}, {
   3.5924183377567368`*^9, 3.592418343090575*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetRCRuleECA", "[", "rule_", "]"}], ":=", 
  RowBox[{"FromDigits", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "-", 
        RowBox[{"GetRule", "[", 
         RowBox[{
          RowBox[{"RuleTestECA", "[", "rule", "]"}], ",", 
          RowBox[{"Reverse", "[", 
           RowBox[{"1", "-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}]}], "&"}], "/@", 
      
      RowBox[{"RuleTestECA", "[", "rule", "]"}]}], "]"}], ",", "2"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.592387456946249*^9, 3.5923875077525377`*^9}, {
   3.5923875922107143`*^9, 3.5923876033468924`*^9}, {3.592387640124757*^9, 
   3.592387660785947*^9}, {3.592387905984006*^9, 3.592387931585168*^9}, {
   3.592388165524521*^9, 3.592388312513043*^9}, {3.592388427102166*^9, 
   3.592388427261134*^9}, 3.5923885851212473`*^9, {3.592388819792595*^9, 
   3.592388827187578*^9}, {3.5923889790981503`*^9, 3.5923889819946423`*^9}, {
   3.592391433468001*^9, 3.5923914564133244`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetMinRuleECA", "[", "rule_", "]"}], ":=", 
  RowBox[{"Min", "[", 
   RowBox[{"{", 
    RowBox[{"rule", ",", 
     RowBox[{"GetReflectiveRuleECA", "[", "rule", "]"}], ",", 
     RowBox[{"GetConjugateRuleECA", "[", "rule", "]"}], ",", 
     RowBox[{"GetRCRuleECA", "[", "rule", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5978648161531973`*^9, 3.597864823860743*^9}, {
  3.597864901844129*^9, 3.597864990816433*^9}, {3.597866897049638*^9, 
  3.597866898210415*^9}, {3.623343909858498*^9, 3.623343922559381*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetECAClass", "[", "rule_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"ECAClass", ",", "1"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "rule"}], "&"}]}], "]"}],
     "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6251176713356*^9, 3.625117808643083*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindRuleComb", "[", "rlist_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rlist", "[", 
       RowBox[{"[", 
        RowBox[{"Length", "[", "rlist", "]"}], "]"}], "]"}], ",", "i"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Permutations", "[", 
       RowBox[{"Take", "[", 
        RowBox[{"rlist", ",", 
         RowBox[{
          RowBox[{"Length", "[", "rlist", "]"}], "-", "1"}]}], "]"}], "]"}]}],
      "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.624901971895019*^9, 3.624901976326586*^9}, {
  3.624902134540472*^9, 3.624902182441412*^9}, {3.624902240440583*^9, 
  3.624902262881707*^9}, {3.624902326310877*^9, 3.624902426750113*^9}, {
  3.624902470524723*^9, 3.6249025010743647`*^9}, {3.6249031915875177`*^9, 
  3.62490324760823*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ShowSymRules", "[", "rule_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{"rule", ",", 
    RowBox[{"GetReflectiveRuleECA", "[", "rule", "]"}], ",", 
    RowBox[{"GetConjugateRuleECA", "[", "rule", "]"}], ",", 
    RowBox[{"GetRCRuleECA", "[", "rule", "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.6249043986595497`*^9, 3.624904466712944*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetSymRulesTuples", "[", "rlist_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{"rlist", ",", 
         RowBox[{
          RowBox[{"Length", "[", "rlist", "]"}], "-", "1"}]}], "]"}], ",", 
       RowBox[{"rlist", "[", 
        RowBox[{"[", 
         RowBox[{"Length", "[", "rlist", "]"}], "]"}], "]"}]}], "}"}], "}"}], 
    ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ShowSymRules", "[", "i", "]"}], ",", 
        RowBox[{"rlist", "[", 
         RowBox[{"[", 
          RowBox[{"Length", "[", "rlist", "]"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Take", "[", 
         RowBox[{"rlist", ",", 
          RowBox[{
           RowBox[{"Length", "[", "rlist", "]"}], "-", "1"}]}], "]"}]}], 
       "}"}]}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.624904470951908*^9, 3.624904474070175*^9}, {
   3.6249045546386833`*^9, 3.624904595417385*^9}, {3.624904824738949*^9, 
   3.6249049453704767`*^9}, {3.6249061334099703`*^9, 3.624906397957183*^9}, 
   3.624906512001027*^9, {3.624906549364163*^9, 3.624906590668878*^9}, {
   3.624906646409984*^9, 3.624906663999404*^9}, {3.624906701880636*^9, 
   3.62490676906182*^9}, {3.6249068433439493`*^9, 3.624906868176242*^9}, {
   3.6249069173112373`*^9, 3.6249069237714853`*^9}, {3.624907002936783*^9, 
   3.624907011794594*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetBaseTuple", "[", "rlist_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "init", "}"}], ",", 
    RowBox[{
     RowBox[{"RandomInteger", "[", 
      RowBox[{"1", ",", "10"}], "]"}], ";", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"i", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                RowBox[{"i", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"CACompositeList", "[", 
                  RowBox[{
                   RowBox[{"i", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", "1", ",", "init", 
                   ",", "10"}], "]"}], "==", 
                 RowBox[{"CellularAutomaton", "[", 
                  RowBox[{
                   RowBox[{"i", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "init", ",", "10"}], 
                  "]"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", 
                RowBox[{"FindRuleComb", "[", "#", "]"}]}], "}"}]}], "]"}], 
            "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"#", "&"}], "/@", 
             RowBox[{"GetSymRulesTuples", "[", "rlist", "]"}]}], ")"}]}], ",",
           "1"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "==", "True"}], "&"}]}], "]"}], 
      "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.6249039124384947`*^9, {3.6249040227295113`*^9, 3.624904059237197*^9}, {
   3.6249040964144077`*^9, 3.6249041172228622`*^9}, {3.624904303740114*^9, 
   3.6249043076649837`*^9}, {3.624904563025193*^9, 3.624904616132368*^9}, {
   3.624904657097436*^9, 3.6249046580569963`*^9}, {3.624905076512395*^9, 
   3.624905137573791*^9}, {3.6249059088690853`*^9, 3.624905914108302*^9}, {
   3.6249059967920628`*^9, 3.624906010976708*^9}, {3.624907252839006*^9, 
   3.62490726954392*^9}, {3.62490871126154*^9, 3.624908727364238*^9}, {
   3.6249088807868147`*^9, 3.624908916260475*^9}, {3.624908947468657*^9, 
   3.62490894804344*^9}, {3.624909003403792*^9, 3.624909004374123*^9}, 
   3.624909160478386*^9, {3.6249092123204393`*^9, 3.624909303963419*^9}, {
   3.6249093490180283`*^9, 3.624909448168645*^9}, {3.6249095138376713`*^9, 
   3.624909520238307*^9}, {3.624909675155208*^9, 3.624909678201535*^9}, 
   3.625338689731572*^9, {3.6260652992161417`*^9, 3.626065350574188*^9}, 
   3.626083135844563*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetSymRulesTuplesNew", "[", "rlist_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "init", ",", "setA", ",", "setB", ",", "setB2", ",", "setB3", ",", 
      "setC", ",", "setC2", ",", "setC3", ",", "setC4"}], "}"}], ",", 
    RowBox[{
     RowBox[{"init", "=", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"1", ",", "5"}], "]"}]}], ";", 
     RowBox[{"setA", "=", 
      RowBox[{"Union", "[", 
       RowBox[{"Tuples", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ShowSymRules", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"rlist", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", 
     RowBox[{"setB", "=", 
      RowBox[{"Union", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Total", "[", "#", "]"}], "&"}], "/@", "setA"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"setB2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"rlist", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], "&"}], "/@", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"#", ",", 
                RowBox[{"Total", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
             "setA"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "i"}], "&"}]}], 
           "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "setB"}], "}"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"setB3", "=", 
      RowBox[{"Union", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Total", "[", "#", "]"}], "&"}], "/@", "setB2"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"setC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#", ",", 
              RowBox[{"Total", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
           "setB2"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "i"}], "&"}]}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "setB3"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"setC2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"Flatten", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"FindRuleComb", "[", "#", "]"}], "&"}], "/@", 
          RowBox[{"Flatten", "[", 
           RowBox[{"setC", ",", "1"}], "]"}]}], ",", "1"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"setC3", "=", 
      RowBox[{"Union", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Total", "[", 
          RowBox[{"Flatten", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "&"}], "/@", 
        "setC2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"setC4", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{"#", ",", 
            RowBox[{
             RowBox[{"Length", "[", "#", "]"}], "-", "1"}]}], "]"}], ",", 
          RowBox[{"#", "[", 
           RowBox[{"[", " ", 
            RowBox[{"Length", "[", "#", "]"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                   RowBox[{"Total", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], "/@",
                 "setC2"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "i"}], "&"}]}], 
              "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "setC3"}], "}"}]}], "]"}], ",", "1"}], 
          "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"i", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"i", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"CACompositeList", "[", 
             RowBox[{
              RowBox[{"i", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "1", ",", "init", ",", 
              "10"}], "]"}], "==", 
            RowBox[{"CellularAutomaton", "[", 
             RowBox[{
              RowBox[{"i", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "init", ",", "10"}], 
             "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "setC4"}], "}"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "==", "True"}], "&"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.625424283741619*^9, 3.625424314214918*^9}, {
   3.6254551848347273`*^9, 3.6254552624028788`*^9}, {3.6254552934868727`*^9, 
   3.6254553071685658`*^9}, 3.625455501033203*^9, {3.625455580313554*^9, 
   3.6254555853774643`*^9}, {3.625455675949045*^9, 3.6254556893451633`*^9}, {
   3.625455722409872*^9, 3.625455732187945*^9}, {3.625455785761047*^9, 
   3.625455848979014*^9}, {3.625455883584889*^9, 3.6254558863564873`*^9}, {
   3.625455919106831*^9, 3.625455921806233*^9}, {3.6254560022805634`*^9, 
   3.625456082168865*^9}, {3.625456145111349*^9, 3.62545615187761*^9}, {
   3.625456182486278*^9, 3.625456234764192*^9}, {3.625456278263093*^9, 
   3.625456444580688*^9}, {3.625456575193078*^9, 3.625456699368539*^9}, {
   3.6254567421498003`*^9, 3.62545684419038*^9}, {3.625457048168597*^9, 
   3.62545706372209*^9}, {3.6254962521691093`*^9, 3.625496257219335*^9}, {
   3.625496349570571*^9, 3.625496402703361*^9}, {3.625496440400412*^9, 
   3.625496503046908*^9}, {3.6254965349476833`*^9, 3.625496538465605*^9}, {
   3.625496618025831*^9, 3.625496637254168*^9}, {3.62549669637145*^9, 
   3.625496703725485*^9}, {3.6254967441338387`*^9, 3.625496804096979*^9}, {
   3.625496858537023*^9, 3.625496871785018*^9}, {3.6254970435117188`*^9, 
   3.625497126128098*^9}, {3.625497188522109*^9, 3.625497191748529*^9}, {
   3.625497258686755*^9, 3.625497289854476*^9}, {3.6254976128951063`*^9, 
   3.625497668963541*^9}, {3.625497725751494*^9, 3.625497733716448*^9}, {
   3.625497829611574*^9, 3.625497858879924*^9}, 3.6254979172482157`*^9, {
   3.625497967689666*^9, 3.625498018646628*^9}, 3.625498192880578*^9, {
   3.625498283994981*^9, 3.6254983059678593`*^9}, {3.6254983675405073`*^9, 
   3.625498367913484*^9}, {3.6254984034248047`*^9, 3.625498403925147*^9}, {
   3.6254985150370703`*^9, 3.6254985539366283`*^9}, {3.625498587317685*^9, 
   3.6254986208809423`*^9}, {3.625498697730007*^9, 3.625498701048126*^9}, {
   3.625498798551612*^9, 3.625498798994254*^9}, {3.625498897525104*^9, 
   3.625498898388891*^9}, {3.6254990337125483`*^9, 3.625499186375617*^9}, {
   3.625499216416794*^9, 3.6254994229285097`*^9}, {3.625499466772214*^9, 
   3.6254994974447737`*^9}, 3.625499530914042*^9, {3.625499581232212*^9, 
   3.625499594208803*^9}, {3.625499653171686*^9, 3.6254996874352083`*^9}, {
   3.6254997181955748`*^9, 3.625499741940374*^9}, {3.625506261817575*^9, 
   3.6255063053506308`*^9}, {3.6255063909007998`*^9, 3.625506584996121*^9}, {
   3.625506626864777*^9, 3.6255066342851143`*^9}, {3.625506670489427*^9, 
   3.625506691669113*^9}, {3.625506814625134*^9, 3.625506823940075*^9}, {
   3.625506911122713*^9, 3.625506915125033*^9}, {3.625506947699553*^9, 
   3.625506999820745*^9}, {3.625507063129146*^9, 3.6255070803224907`*^9}, {
   3.625507134082921*^9, 3.625507267754875*^9}, {3.625507340812676*^9, 
   3.625507341315139*^9}, {3.6255073881430817`*^9, 3.625507389987547*^9}, {
   3.625507434314722*^9, 3.625507438762804*^9}, {3.6255074689265013`*^9, 
   3.625507480756444*^9}, {3.6255075790574217`*^9, 3.625507580875243*^9}, {
   3.626242866188835*^9, 3.626242881769823*^9}, {3.652107318208253*^9, 
   3.652107318583728*^9}, 3.652107378468853*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetLowestTuple", "[", "rule_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"Length", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
        "SetE2"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "rule"}], "&"}]}], 
      "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#1", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "<", 
       RowBox[{"#2", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.624971246063848*^9, 3.6249712484542007`*^9}, {
  3.624972833955621*^9, 3.624972876814316*^9}, {3.62497301312318*^9, 
  3.6249730412863607`*^9}, {3.624973078458178*^9, 3.624973169394745*^9}, {
  3.6249732526330633`*^9, 3.624973272742288*^9}, {3.624973354687216*^9, 
  3.624973363347501*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetSymRulesTuplesNew2", "[", "rlist_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"init", ",", "setA"}], "}"}], ",", 
    RowBox[{
     RowBox[{"init", "=", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"1", ",", "10"}], "]"}]}], ";", 
     RowBox[{"setA", "=", 
      RowBox[{"Union", "[", 
       RowBox[{"Tuples", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ShowSymRules", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"rlist", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", 
     RowBox[{"setA", "=", 
      RowBox[{"Union", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Permutations", "[", "#", "]"}], "&"}], "/@", "setA"}], 
         ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"rlist", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"CACompositeList", "[", 
             RowBox[{"i", ",", "1", ",", "init", ",", "10"}], "]"}], "==", 
            RowBox[{"CellularAutomaton", "[", 
             RowBox[{
              RowBox[{"rlist", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "init", ",", "10"}], 
             "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "setA"}], "}"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "==", "True"}], "&"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.625424283741619*^9, 3.625424314214918*^9}, {
   3.6254551848347273`*^9, 3.6254552624028788`*^9}, {3.6254552934868727`*^9, 
   3.6254553071685658`*^9}, 3.625455501033203*^9, {3.625455580313554*^9, 
   3.6254555853774643`*^9}, {3.625455675949045*^9, 3.6254556893451633`*^9}, {
   3.625455722409872*^9, 3.625455732187945*^9}, {3.625455785761047*^9, 
   3.625455848979014*^9}, {3.625455883584889*^9, 3.6254558863564873`*^9}, {
   3.625455919106831*^9, 3.625455921806233*^9}, {3.6254560022805634`*^9, 
   3.625456082168865*^9}, {3.625456145111349*^9, 3.62545615187761*^9}, {
   3.625456182486278*^9, 3.625456234764192*^9}, {3.625456278263093*^9, 
   3.625456444580688*^9}, {3.625456575193078*^9, 3.625456699368539*^9}, {
   3.6254567421498003`*^9, 3.62545684419038*^9}, {3.625457048168597*^9, 
   3.62545706372209*^9}, {3.6254962521691093`*^9, 3.625496257219335*^9}, {
   3.625496349570571*^9, 3.625496402703361*^9}, {3.625496440400412*^9, 
   3.625496503046908*^9}, {3.6254965349476833`*^9, 3.625496538465605*^9}, {
   3.625496618025831*^9, 3.625496637254168*^9}, {3.62549669637145*^9, 
   3.625496703725485*^9}, {3.6254967441338387`*^9, 3.625496804096979*^9}, {
   3.625496858537023*^9, 3.625496871785018*^9}, {3.6254970435117188`*^9, 
   3.625497126128098*^9}, {3.625497188522109*^9, 3.625497191748529*^9}, {
   3.625497258686755*^9, 3.625497289854476*^9}, {3.6254976128951063`*^9, 
   3.625497668963541*^9}, {3.625497725751494*^9, 3.625497733716448*^9}, {
   3.625497829611574*^9, 3.625497858879924*^9}, 3.6254979172482157`*^9, {
   3.625497967689666*^9, 3.625498018646628*^9}, 3.625498192880578*^9, {
   3.625498283994981*^9, 3.6254983059678593`*^9}, {3.6254983675405073`*^9, 
   3.625498367913484*^9}, {3.6254984034248047`*^9, 3.625498403925147*^9}, {
   3.6254985150370703`*^9, 3.6254985539366283`*^9}, {3.625498587317685*^9, 
   3.6254986208809423`*^9}, {3.625498697730007*^9, 3.625498701048126*^9}, {
   3.625498798551612*^9, 3.625498798994254*^9}, {3.625498897525104*^9, 
   3.625498898388891*^9}, {3.6254990337125483`*^9, 3.625499186375617*^9}, {
   3.625499216416794*^9, 3.6254994229285097`*^9}, {3.625499466772214*^9, 
   3.6254994974447737`*^9}, 3.625499530914042*^9, {3.625499581232212*^9, 
   3.625499594208803*^9}, {3.625499653171686*^9, 3.6254996874352083`*^9}, {
   3.6254997181955748`*^9, 3.625499741940374*^9}, {3.625506261817575*^9, 
   3.6255063053506308`*^9}, {3.6255063909007998`*^9, 3.625506584996121*^9}, {
   3.625506626864777*^9, 3.6255066342851143`*^9}, {3.625506670489427*^9, 
   3.625506691669113*^9}, {3.625506814625134*^9, 3.625506823940075*^9}, {
   3.625506911122713*^9, 3.625506915125033*^9}, {3.625506947699553*^9, 
   3.625506999820745*^9}, {3.625507063129146*^9, 3.6255070803224907`*^9}, {
   3.625507134082921*^9, 3.625507267754875*^9}, {3.625507340812676*^9, 
   3.625507341315139*^9}, {3.6255073881430817`*^9, 3.625507389987547*^9}, {
   3.625507434314722*^9, 3.625507438762804*^9}, {3.6255074689265013`*^9, 
   3.625507480756444*^9}, {3.6255075790574217`*^9, 3.625507580875243*^9}, {
   3.6261709558271914`*^9, 3.626171006142899*^9}, {3.626172185291189*^9, 
   3.626172265340877*^9}, {3.6261723174739943`*^9, 3.626172535949993*^9}, {
   3.626172573296302*^9, 3.626172619704475*^9}, {3.626172678977077*^9, 
   3.626172679638899*^9}, {3.626172741763564*^9, 3.626172868893504*^9}, {
   3.626172927538026*^9, 3.6261729372042913`*^9}, {3.6261729678607807`*^9, 
   3.626172983532452*^9}, {3.626173014982025*^9, 3.626173208834906*^9}, {
   3.626173238855688*^9, 3.6261732667015333`*^9}, {3.626173312931135*^9, 
   3.6261733217972097`*^9}, 3.6261940168424063`*^9, 3.626194071839999*^9, {
   3.6261941589728947`*^9, 3.626194199316121*^9}, {3.6261942338689623`*^9, 
   3.626194234147753*^9}, {3.6261942849143143`*^9, 3.626194300719841*^9}, {
   3.626194344290553*^9, 3.62619441770572*^9}, {3.6261944528024673`*^9, 
   3.626194489961328*^9}, {3.626194524696031*^9, 3.6261945459754057`*^9}, {
   3.626194603205266*^9, 3.626194680919594*^9}, {3.6261947123306913`*^9, 
   3.626194722702284*^9}, {3.626194781699819*^9, 3.626194818015739*^9}, {
   3.626194856258996*^9, 3.62619503263727*^9}, {3.626196939181898*^9, 
   3.626196945855678*^9}, {3.626242895042532*^9, 3.6262429003350973`*^9}, {
   3.652110048063364*^9, 3.652110048466545*^9}, {3.652110091612485*^9, 
   3.652110096112671*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetMinalSet", "[", 
   RowBox[{"rlist_", ",", "set_"}], "]"}], ":=", 
  RowBox[{"MinimalBy", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#", ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", 
        RowBox[{"Total", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
     RowBox[{"Select", "[", 
      RowBox[{"set", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
         RowBox[{"rlist", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}]}], ",", "Last"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.626252374738358*^9, 3.626252518783641*^9}, {
  3.6262527255364723`*^9, 3.626252725846272*^9}, {3.626252790290676*^9, 
  3.626252817570063*^9}, {3.626252886997017*^9, 3.626252975996271*^9}, {
  3.626253296499248*^9, 3.6262533015124693`*^9}, {3.626267758679349*^9, 
  3.626267770023622*^9}, {3.626267872835874*^9, 3.62626790485541*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetFirstTuple", "[", 
   RowBox[{"rlist_", ",", "set_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{"set", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
       RowBox[{"rlist", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.6262673800167713`*^9, {3.626267440305565*^9, 3.6262675900489407`*^9}, {
   3.6262684829137363`*^9, 3.626268627805334*^9}, {3.626268689093524*^9, 
   3.6262686904112473`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Display all ECA compositions", "Chapter",
 CellChangeTimes->{{3.623693276429282*^9, 3.623693295763269*^9}, {
  3.624889658948975*^9, 3.624889673700508*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CoreTriples", "=", 
   RowBox[{"{", 
    RowBox[{
    "3", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      "15", ",", "19", ",", "23", ",", "25", ",", "26", ",", "27", ",", "28", 
     ",", "29", ",", "30", ",", "32", ",", "33", ",", "35", ",", "36", ",", 
     "37", ",", "38", ",", "40", ",", "43", ",", "51", ",", "57", ",", "58", 
     ",", "60", ",", "62", ",", "73", ",", "76", ",", "77", ",", "90", ",", 
     "94", ",", "104", ",", "105", ",", "108", ",", "126", ",", "128", ",", 
     "134", ",", "154", ",", "160", ",", "168", ",", "170", ",", "200", ",", 
     "204"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.624889641452574*^9, 3.62488964249339*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"init", "=", 
   RowBox[{"ArrayPad", "[", 
    RowBox[{
     RowBox[{"RandomInteger", "[", 
      RowBox[{"1", ",", "100"}], "]"}], ",", "5"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.624888989530973*^9, 3.6248890004906273`*^9}, {
  3.624889036652767*^9, 3.6248890374230843`*^9}, {3.6248905531870623`*^9, 
  3.6248905578123302`*^9}, {3.6248905997426043`*^9, 3.624890628102453*^9}, {
  3.624891619939464*^9, 3.624891620116694*^9}, {3.624902890247148*^9, 
  3.624902896687016*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CoreTriplesTest2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"GetMinRuleECA", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"GetMinRuleECA", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
       RowBox[{"GetMinRuleECA", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"FindCRulesList", "[", 
       RowBox[{
        RowBox[{"Tuples", "[", 
         RowBox[{"CoreTriples", ",", "2"}], "]"}], ",", "1", ",", "initd"}], 
       "]"}], "/.", 
      RowBox[{"Null", "\[Rule]", 
       RowBox[{"Sequence", "[", "]"}]}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.598163552099381*^9, 3.598163577948818*^9}, {
   3.598200724676499*^9, 3.5982007422975683`*^9}, 3.598201224439736*^9, 
   3.5982020874712667`*^9, {3.598202223961111*^9, 3.598202225446381*^9}, 
   3.5982029694290113`*^9, {3.598206735549552*^9, 3.598206738305752*^9}, 
   3.5982456011909647`*^9, 3.598246552641255*^9, 3.598247230131925*^9, {
   3.5982476028234873`*^9, 3.5982476098049726`*^9}, 3.5982479587921257`*^9, {
   3.5982654724129*^9, 3.598265503074533*^9}, {3.598268978101789*^9, 
   3.598268983389748*^9}, {3.5982698983326263`*^9, 3.598269905984206*^9}, {
   3.598272151702478*^9, 3.598272152078174*^9}, {3.600491976574345*^9, 
   3.60049197881673*^9}, 3.623343343027812*^9, {3.623681712144813*^9, 
   3.623681730165389*^9}, {3.623682009552425*^9, 3.623682020753456*^9}, 
   3.623682080875247*^9, {3.62412642507063*^9, 3.6241265009864187`*^9}, {
   3.6241265440448837`*^9, 3.62412654905103*^9}, {3.624130063325869*^9, 
   3.6241300737349033`*^9}, {3.624130181875272*^9, 3.624130182387434*^9}, {
   3.624130234617824*^9, 3.624130235901145*^9}, {3.624130271372652*^9, 
   3.62413027276517*^9}, {3.624130322800364*^9, 3.624130324220666*^9}, 
   3.624160073777698*^9, 3.624210595855146*^9, {3.6242106915826797`*^9, 
   3.6242106918193417`*^9}, {3.624210723188024*^9, 3.624210726003886*^9}, {
   3.6242108856734943`*^9, 3.624210900923849*^9}, {3.624211761554723*^9, 
   3.624211769624978*^9}, {3.624245938019581*^9, 3.624245964732685*^9}, {
   3.6242463039825563`*^9, 3.624246310304037*^9}, {3.6242466328293056`*^9, 
   3.624246646444728*^9}, {3.624288123577066*^9, 3.624288204088195*^9}, {
   3.624294730785363*^9, 3.624294759472664*^9}, {3.624298673613933*^9, 
   3.624298678505704*^9}, 3.6242994302108917`*^9, 3.6242996082645197`*^9, 
   3.6243001779762793`*^9, {3.624728972451236*^9, 3.624728997820078*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"RuleTupleExtra", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "35", ",", "3", ",", "15", ",", "170", ",", "3", ",", "35", ",", "170", 
       ",", "11"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15", ",", "170", ",", "51"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15", ",", "170", ",", "3", ",", "168", ",", "128"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "35", ",", "170", ",", "200"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15", ",", "170", ",", "3", ",", "35", ",", "170", ",", "19"}], 
      "}"}], ",", 
     RowBox[{
      StyleBox["{", "Code"], 
      RowBox[{"60", ",", "3", ",", "170", ",", "126"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"35", ",", "15", ",", "170", ",", "29", ",", "13"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14", ",", "15", ",", "170", ",", "35", ",", "12"}], "}"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.624970860066866*^9, 3.624970909807221*^9}, {
   3.624970989118469*^9, 3.624971100864015*^9}, {3.624972183786438*^9, 
   3.624972184560876*^9}, {3.625037699806748*^9, 3.625037719608474*^9}, 
   3.626338893401703*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"RuleTupleExtraRules", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"11", "->", 
      RowBox[{"{", 
       RowBox[{"59", ",", "63", ",", "55"}], "}"}]}], ",", 
     RowBox[{"51", "->", 
      RowBox[{"{", 
       RowBox[{"15", ",", "170"}], "}"}]}], ",", 
     RowBox[{"128", "->", 
      RowBox[{"{", 
       RowBox[{"15", ",", "170", ",", "3", ",", "168"}], "}"}]}], ",", 
     RowBox[{"200", "->", 
      RowBox[{"{", 
       RowBox[{"63", ",", "59", ",", "170"}], "}"}]}], ",", 
     RowBox[{"19", "->", 
      RowBox[{"{", 
       RowBox[{"170", ",", "3", ",", "35", ",", "15", ",", "170"}], "}"}]}], 
     ",", 
     RowBox[{"126", "->", 
      RowBox[{"{", 
       RowBox[{"195", ",", "63", ",", "170"}], "}"}]}], ",", 
     RowBox[{"13", "->", 
      RowBox[{"{", 
       RowBox[{"35", ",", "15", ",", "170", ",", "29"}], "}"}]}], ",", 
     RowBox[{"12", "->", 
      RowBox[{"{", 
       RowBox[{"14", ",", "15", ",", "170", ",", "35"}], "}"}]}], ",", 
     RowBox[{"204", "->", 
      RowBox[{"{", 
       RowBox[{"15", ",", "170", ",", "15", ",", "170"}], "}"}]}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6249724013098507`*^9, 3.624972483263318*^9}, {
   3.626148617629266*^9, 3.626148621029273*^9}, {3.65210525282314*^9, 
   3.6521053089240847`*^9}, 3.6521056092911463`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "/.", 
        "RuleTupleExtraRules"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"Union", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"GetMinalSet", "[", 
           RowBox[{"#", ",", "CoreTriplesTest2"}], "]"}], "&"}], "/@", 
         "CoreTriplesTest2"}], ",", "1"}], "]"}]}], "]"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.624888012800877*^9, 3.624888088714155*^9}, {
   3.624888136087215*^9, 3.6248881399743423`*^9}, {3.624888195278314*^9, 
   3.624888198408145*^9}, 3.6249358695541887`*^9, {3.624968836887293*^9, 
   3.624968837028339*^9}, 3.624972499803438*^9, {3.625033273359346*^9, 
   3.6250332790034533`*^9}, 3.6250379422762833`*^9, {3.626253437887738*^9, 
   3.626253448723311*^9}, {3.626267774798973*^9, 3.6262677754309683`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", "SetE"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.624888306536664*^9, 3.6248883075002203`*^9}, {
  3.624888347337729*^9, 3.6248884216431293`*^9}, {3.6248884813316593`*^9, 
  3.624888486074277*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE2A", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Take", "[", 
      RowBox[{"#", ",", 
       RowBox[{
        RowBox[{"Length", "[", "#", "]"}], "-", "1"}]}], "]"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"GetLowestTuple", "[", "#", "]"}], "&"}], "/@", 
      RowBox[{"Union", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "SetE2"}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.624973181351624*^9, 3.624973229738324*^9}, {
   3.6249734623991623`*^9, 3.624973479155785*^9}, {3.624974788284374*^9, 
   3.624974828254471*^9}, 3.62497489033689*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inita", "=", 
   RowBox[{"ArrayPad", "[", 
    RowBox[{
     RowBox[{"RandomInteger", "[", 
      RowBox[{"1", ",", "100"}], "]"}], ",", "5"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.624888989530973*^9, 3.6248890004906273`*^9}, {
   3.624889036652767*^9, 3.6248890374230843`*^9}, {3.6248905531870623`*^9, 
   3.6248905578123302`*^9}, {3.6248905997426043`*^9, 3.624890628102453*^9}, {
   3.624891619939464*^9, 3.624891620116694*^9}, {3.624902890247148*^9, 
   3.624902896687016*^9}, 3.625508457568378*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dynamic", "[", "k", "]"}]], "Input",
 CellChangeTimes->{{3.6261983186060753`*^9, 3.626198347691527*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`k, StandardForm],
  ImageSizeCache->{8., {0., 9.}}]], "Output",
 CellChangeTimes->{{3.626198326289151*^9, 3.6261983488455067`*^9}, 
   3.626243042487814*^9, 3.65122029101586*^9, 3.651457865127673*^9, 
   3.652024781695772*^9, 3.652063772922673*^9, 3.654437192257984*^9, 
   3.654437570166541*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE3", "=", 
   RowBox[{"SortBy", "[", 
    RowBox[{
     RowBox[{"Union", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"GetFirstTuple", "[", 
         RowBox[{"#", ",", 
          RowBox[{"SortBy", "[", 
           RowBox[{"SetE2", ",", "Last"}], "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"SortBy", "[", 
        RowBox[{"SetE2", ",", "Last"}], "]"}]}], "]"}], ",", "Last"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.626268646997913*^9, 3.626268677524981*^9}, {
  3.6262687846691713`*^9, 3.626268792793466*^9}, {3.6262688461987047`*^9, 
  3.6262688515730553`*^9}, {3.62626890452695*^9, 3.626268929791028*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE4", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"GetSymRulesTuplesNew", "[", "#", "]"}], "&"}], "/@", 
      RowBox[{"SortBy", "[", 
       RowBox[{"SetE3", ",", "Last"}], "]"}]}], ")"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.626270023092289*^9, 3.626270029116558*^9}, {
  3.626403742698587*^9, 3.626403748496235*^9}, {3.652106816816401*^9, 
  3.652106817537451*^9}, {3.654437495177137*^9, 3.654437501324952*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE4", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", 
     RowBox[{"Union", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"SetE4", ",", "1"}], "]"}], "]"}]}], "/.", " ", 
    RowBox[{"Null", " ", "\[Rule]", " ", 
     RowBox[{"Sequence", "[", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.652105945051015*^9, 3.652105945533937*^9}, {
  3.652106185339777*^9, 3.652106185932066*^9}, {3.652106369177548*^9, 
  3.652106455409532*^9}, {3.65321529063065*^9, 3.653215304268127*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"prcand", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"SetE4", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Length", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.652063930999074*^9, 3.652064101485968*^9}, {
  3.652064409522686*^9, 3.652064414458802*^9}, {3.652122247739205*^9, 
  3.652122250605755*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"emulrules", "=", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}], "&"}], "/@", "SetE4"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.652078416899818*^9, 3.652078430763608*^9}, {
   3.652078470556346*^9, 3.6520784787998247`*^9}, {3.652078542307797*^9, 
   3.652078556777663*^9}, {3.6520785933483267`*^9, 3.65207867211442*^9}, 
   3.6538310531570377`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE42", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"i", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"GetMinRuleECA", "[", "#", "]"}], "&"}], "/@", 
        RowBox[{"i", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "SetE4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.652080863761243*^9, 3.6520809842196627`*^9}, {
  3.652081131790866*^9, 3.652081137875948*^9}, {3.652081192834527*^9, 
  3.652081196951288*^9}, {3.652081385368681*^9, 3.652081503162613*^9}, {
  3.6520818751331463`*^9, 3.652081880880919*^9}, {3.6521116618240557`*^9, 
  3.652111690509802*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE42", "=", 
   RowBox[{"Union", "[", "SetE42", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6520833052274017`*^9, 3.652083334985278*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetE43", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "/.", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "x___", ",", "15", ",", "170", ",", "15", ",", "170", ",", "z___"}],
           "}"}], "\[RuleDelayed]", 
         RowBox[{"{", 
          RowBox[{"x", ",", "e", ",", "z"}], "}"}]}]}]}], "}"}], "&"}], "/@", 
    "SetE42"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.653216375533433*^9, 3.653216405282295*^9}, {
  3.653216454101151*^9, 3.6532164698528967`*^9}, {3.653216505780119*^9, 
  3.6532165188894587`*^9}, {3.653216573612206*^9, 3.653216633557721*^9}, {
  3.653216672692357*^9, 3.6532167232539673`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartA", "=", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", "SetE42"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.652106482520413*^9, 3.652106496291564*^9}, {
  3.652612749918913*^9, 3.6526127543650103`*^9}, {3.6526141410074883`*^9, 
  3.652614165799172*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartB", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "SetE42"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.652106482520413*^9, 3.652106496291564*^9}, {
  3.652612749918913*^9, 3.6526127543650103`*^9}, {3.6526141410074883`*^9, 
  3.652614190026763*^9}, {3.652614286900052*^9, 3.652614294723296*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"List", " ", "of", " ", "prime", " ", "rules"}], 
  "Subsection"]], "Input",
 CellChangeTimes->{{3.65261433997701*^9, 3.652614344538905*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"#RuleTable", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"TableForm", "[", 
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Row", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", 
               "\"\<\[EmptySmallCircle]\>\""}], "]"}], "}"}], "&"}], "/@", 
           RowBox[{"Select", "[", 
            RowBox[{"SetE42", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "i"}], "&"}]}], 
            "]"}]}], ",", "20", ",", "20", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Union", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", "SetE42"}], "]"}]}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.626950986589781*^9, 3.626951043894824*^9}, {
   3.626951077578854*^9, 3.626951103876717*^9}, {3.626951182265044*^9, 
   3.6269512268780413`*^9}, {3.6269512626777573`*^9, 
   3.6269513048131657`*^9}, {3.62695134794694*^9, 3.626951467966206*^9}, {
   3.626951726094013*^9, 3.626951786722176*^9}, {3.626951906526161*^9, 
   3.6269519086144133`*^9}, {3.626951953140212*^9, 3.626951960361487*^9}, {
   3.626952036733835*^9, 3.626952060375894*^9}, {3.626966281345047*^9, 
   3.626966289421793*^9}, {3.6269663251457148`*^9, 3.626966348192315*^9}, 
   3.6269663850146437`*^9, {3.62696878298881*^9, 3.62696879682929*^9}, {
   3.627011249896076*^9, 3.627011279123919*^9}, 3.627011370122219*^9, 
   3.627011401156467*^9, 3.627011498273184*^9, {3.627011552668543*^9, 
   3.6270115627450027`*^9}, {3.6270115933567133`*^9, 
   3.6270116097235107`*^9}, {3.627137474364368*^9, 3.627137477539218*^9}, {
   3.62714664930334*^9, 3.627146690473816*^9}, {3.627146737966791*^9, 
   3.6271467488655787`*^9}, {3.627146838540721*^9, 3.6271468651938*^9}, {
   3.6271471510888567`*^9, 3.6271471562705927`*^9}, {3.62714847155618*^9, 
   3.627148488966823*^9}, 3.627148524195731*^9, {3.6271485663100758`*^9, 
   3.627148570461968*^9}, 3.627222909787785*^9, {3.651461895797402*^9, 
   3.651461897554483*^9}, 3.652081949578875*^9, {3.652081990763775*^9, 
   3.652082001370019*^9}, 3.6544377189552593`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"RuleTable", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"TableForm", "[", 
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Row", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", 
               "\"\<\[EmptySmallCircle]\>\""}], "]"}], "}"}], "&"}], "/@", 
           RowBox[{"Select", "[", 
            RowBox[{"SetE43", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "i"}], "&"}]}], 
            "]"}]}], ",", "20", ",", "20", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Union", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", "SetE43"}], "]"}]}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.626950986589781*^9, 3.626951043894824*^9}, {
   3.626951077578854*^9, 3.626951103876717*^9}, {3.626951182265044*^9, 
   3.6269512268780413`*^9}, {3.6269512626777573`*^9, 
   3.6269513048131657`*^9}, {3.62695134794694*^9, 3.626951467966206*^9}, {
   3.626951726094013*^9, 3.626951786722176*^9}, {3.626951906526161*^9, 
   3.6269519086144133`*^9}, {3.626951953140212*^9, 3.626951960361487*^9}, {
   3.626952036733835*^9, 3.626952060375894*^9}, {3.626966281345047*^9, 
   3.626966289421793*^9}, {3.6269663251457148`*^9, 3.626966348192315*^9}, 
   3.6269663850146437`*^9, {3.62696878298881*^9, 3.62696879682929*^9}, {
   3.627011249896076*^9, 3.627011279123919*^9}, 3.627011370122219*^9, 
   3.627011401156467*^9, 3.627011498273184*^9, {3.627011552668543*^9, 
   3.6270115627450027`*^9}, {3.6270115933567133`*^9, 
   3.6270116097235107`*^9}, {3.627137474364368*^9, 3.627137477539218*^9}, {
   3.62714664930334*^9, 3.627146690473816*^9}, {3.627146737966791*^9, 
   3.6271467488655787`*^9}, {3.627146838540721*^9, 3.6271468651938*^9}, {
   3.6271471510888567`*^9, 3.6271471562705927`*^9}, {3.62714847155618*^9, 
   3.627148488966823*^9}, 3.627148524195731*^9, {3.6271485663100758`*^9, 
   3.627148570461968*^9}, 3.627222909787785*^9, {3.651461895797402*^9, 
   3.651461897554483*^9}, 3.652081949578875*^9, {3.652081990763775*^9, 
   3.652082001370019*^9}, {3.653216755300661*^9, 3.653216759202655*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"headings", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Style", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Bold", ",", "14"}], "}"}]}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"\"\<ECA Rule\>\"", ",", "\"\<Prime Rule Composition\>\""}], 
     "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6250405814483347`*^9, 3.625040635975189*^9}, 
   3.625040687134964*^9, {3.6250446878336363`*^9, 3.625044775082864*^9}, {
   3.625045208393345*^9, 3.625045238188766*^9}, {3.625061227012886*^9, 
   3.6250612355945168`*^9}, {3.626339305735095*^9, 3.6263393063324957`*^9}, {
   3.6269517040225782`*^9, 3.6269517166359377`*^9}, {3.6514592125243587`*^9, 
   3.6514592231974487`*^9}, {3.651459487582139*^9, 3.651459487833444*^9}, {
   3.6514596837898693`*^9, 3.651459684057446*^9}, {3.6515437138722343`*^9, 
   3.651543726347445*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"TableOfRuleEmul", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"RuleTable", ",", "headings"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.625040693187091*^9, 3.6250407083273897`*^9}, 
   3.6250407479340773`*^9, 3.625044812957485*^9, 3.626246935090149*^9, 
   3.6262470334376307`*^9, {3.626247070541677*^9, 3.626247073308758*^9}, {
   3.6263403576284733`*^9, 3.626340359260516*^9}, {3.626404712543233*^9, 
   3.6264047258570137`*^9}, {3.626951780467806*^9, 3.626951798568737*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"TableOfRuleEmul1", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Take", "[", 
      RowBox[{"RuleTable", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "44"}], "}"}]}], "]"}], ",", "headings"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.652025387148704*^9, 3.6520254090996513`*^9}, {
  3.652025467029799*^9, 3.652025487021703*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"TableOfRuleEmul2", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Take", "[", 
      RowBox[{"RuleTable", ",", 
       RowBox[{"{", 
        RowBox[{"45", ",", "88"}], "}"}]}], "]"}], ",", "headings"}], "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{
  3.652025390932498*^9, {3.652025494001052*^9, 3.652025499003819*^9}, {
   3.652117899567441*^9, 3.6521179000618668`*^9}, {3.653214992881855*^9, 
   3.653214993562518*^9}, {3.654437732132866*^9, 3.654437732869863*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Pane", "[", 
       RowBox[{"#", ",", 
        RowBox[{"ImageSizeAction", "\[Rule]", "\"\<ShrinkToFit\>\""}]}], 
       "]"}], "&"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"TableOfRuleEmul1", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"TableOfRuleEmul2", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "45"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.626951820018937*^9, 3.627223904341508*^9, {3.651459248685759*^9, 
   3.65145925434363*^9}, {3.651459689033885*^9, 3.651459689275577*^9}, 
   3.652025531237164*^9, 3.652117927203085*^9, 3.6521180034116287`*^9, {
   3.652118175484715*^9, 3.652118210745573*^9}, {3.652118243285757*^9, 
   3.6521182582430353`*^9}, 3.652118365691224*^9, {3.652118449332925*^9, 
   3.652118456702696*^9}, 3.652120106450371*^9, {3.652120147025416*^9, 
   3.6521201509524813`*^9}, {3.654437790501995*^9, 3.654437808893268*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     PaneBox[
      StyleBox["\<\"ECA Rule\"\>",
       StripOnInput->False,
       LineColor->GrayLevel[0],
       FrontFaceColor->GrayLevel[0],
       BackFaceColor->GrayLevel[0],
       GraphicsColor->GrayLevel[0],
       FontSize->14,
       FontWeight->Bold,
       FontColor->GrayLevel[0]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      StyleBox["\<\"Prime Rule Composition\"\>",
       StripOnInput->False,
       LineColor->GrayLevel[0],
       FrontFaceColor->GrayLevel[0],
       BackFaceColor->GrayLevel[0],
       GraphicsColor->GrayLevel[0],
       FontSize->14,
       FontWeight->Bold,
       FontColor->GrayLevel[0]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      StyleBox["\<\"ECA Rule\"\>",
       StripOnInput->False,
       LineColor->GrayLevel[0],
       FrontFaceColor->GrayLevel[0],
       BackFaceColor->GrayLevel[0],
       GraphicsColor->GrayLevel[0],
       FontSize->14,
       FontWeight->Bold,
       FontColor->GrayLevel[0]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      StyleBox["\<\"Prime Rule Composition\"\>",
       StripOnInput->False,
       LineColor->GrayLevel[0],
       FrontFaceColor->GrayLevel[0],
       BackFaceColor->GrayLevel[0],
       GraphicsColor->GrayLevel[0],
       FontSize->14,
       FontWeight->Bold,
       FontColor->GrayLevel[0]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["0",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","3","32"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["56",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "28"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["1",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170","3",
                "168","170","3","35","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["57",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","57"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["2",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","170","3","35",
                "15","170","14","15","170","35"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["58",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","58"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["3",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","3","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["60",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "60"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["4",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "32"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["62",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","62"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["5",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "160"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["72",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","3","35","170",
                "76"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["6",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "40"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["73",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","73"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["7",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "168"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["74",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "26"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["8",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","3","35","170",
                "14","15","170","35"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["76",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","76","76"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["9",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","9","e"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["77",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","77"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["10",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","10","170","3",
                "35","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["78",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "58"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["11",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","35","3",
                "19"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["90",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "90"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["12",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","14","15",
                "170","35","14","15","170","35"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["94",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","94"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["13",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","35","15",
                "170","29"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["104",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","104"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["14",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","14","76"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["105",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","105"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["15",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","e"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["106",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "30"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["18",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","170","3","35",
                "15","170","76"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["108",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","108"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["19",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","170","3","35",
                "15","170","3","35","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["110",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "62"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["22",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "104"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["122",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "94"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["23",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","23"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["126",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "60","3","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["24",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","25","14","15",
                "170","35"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["128",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","3","35","170",
                "15","170","3","168"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["25",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","25"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["130",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","9","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["26",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","26"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["132",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "33"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["27",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","27"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["134",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","134"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["28",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","28","76"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["136",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","3","170","3",
                "35","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["29",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","29"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["138",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","35","3","19",
                "170","3","35","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["30",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","30"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["140",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "35"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["32",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","32","14","15",
                "170","35"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["142",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "43"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["33",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","33"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["146",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "73"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["34",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","14","15",
                "170","35","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["150",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "105"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["35",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","35"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["152",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "25"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["36",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","36","170","3",
                "35","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["154",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","154"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["37",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","37"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["156",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "57"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["38",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","38"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["160",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","160"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["40",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","40","76"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["162",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "35","15","170","29"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["41",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "134"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["164",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "37"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["42",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","14","15",
                "170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["168",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","168"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["43",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e","43"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["170",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","15",
                "170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["44",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "38"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["172",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "27"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["45",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "154"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["178",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "77"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["46",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","14","15",
                "170","35","25"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["184",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "29"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["50",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "76"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["200",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "170","3","35","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["51",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["204",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","e"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]},
    {
     PaneBox["54",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "108"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox["232",
      ImageSizeAction->"ShrinkToFit"], 
     PaneBox[
      TagBox[GridBox[{
         {
          TagBox[GridBox[{
             {
              
              TemplateBox[{
               "\[EmptySmallCircle]","\"\[EmptySmallCircle]\"","15","170",
                "23"},
               "RowWithSeparators"]}
            },
            
            GridBoxAlignment->{
             "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
              "Rows" -> {{
                 Offset[0.2]}}, "RowsIndexed" -> {}}],
           Column]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[2.0999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       Function[BoxForm`e$, 
        TableForm[BoxForm`e$]]],
      ImageSizeAction->"ShrinkToFit"]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.6520259792562313`*^9, 3.652083372336322*^9, 3.652111735044837*^9, 
   3.652117928054693*^9, 3.652117963510705*^9, 3.6521181198818483`*^9, {
   3.652118254567101*^9, 3.6521182591054993`*^9}, 3.652118366446495*^9, {
   3.652118450417717*^9, 3.6521184574530983`*^9}, 3.652118519772954*^9, 
   3.652118627537168*^9, 3.652120107840357*^9, 3.652120151904209*^9, 
   3.653216341861244*^9, 3.653216769323742*^9, 3.654437737231407*^9, {
   3.654437792758275*^9, 3.654437809884018*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1235, 817},
WindowMargins->{{Automatic, 31}, {Automatic, 0}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 99, 1, 65, "Chapter"],
Cell[682, 25, 2998, 43, 114, "Input"],
Cell[3683, 70, 6770, 188, 148, "Input"],
Cell[10456, 260, 1257, 20, 63, "Input"],
Cell[11716, 282, 829, 22, 46, "Input"],
Cell[12548, 306, 1374, 32, 97, "Input"],
Cell[13925, 340, 695, 14, 28, "Input"],
Cell[14623, 356, 5500, 125, 114, "Input"],
Cell[20126, 483, 1446, 33, 97, "Input"],
Cell[21575, 518, 1681, 38, 131, "Input"],
Cell[23259, 558, 750, 19, 28, "Input"],
Cell[24012, 579, 1598, 38, 46, "Input"],
Cell[25613, 619, 1039, 22, 28, "Input"],
Cell[26655, 643, 1037, 23, 28, "Input"],
Cell[27695, 668, 1082, 25, 28, "Input"],
Cell[28780, 695, 558, 11, 28, "Input"],
Cell[29341, 708, 506, 15, 28, "Input"],
Cell[29850, 725, 869, 23, 28, "Input"],
Cell[30722, 750, 378, 8, 28, "Input"],
Cell[31103, 760, 1508, 38, 46, "Input"],
Cell[32614, 800, 2774, 64, 63, "Input"],
Cell[35391, 866, 9227, 220, 199, "Input"],
Cell[44621, 1088, 1280, 36, 28, "Input"],
Cell[45904, 1126, 6052, 108, 80, "Input"],
Cell[51959, 1236, 1018, 26, 28, "Input"],
Cell[52980, 1264, 617, 17, 28, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53634, 1286, 162, 2, 65, "Chapter"],
Cell[53799, 1290, 734, 13, 46, "Input"],
Cell[54536, 1305, 521, 11, 28, "Input"],
Cell[55060, 1318, 2650, 49, 46, "Input"],
Cell[57713, 1369, 1197, 30, 46, "Input"],
Cell[58913, 1401, 1339, 36, 46, "Input"],
Cell[60255, 1439, 1305, 35, 28, "Input"],
Cell[61563, 1476, 510, 15, 28, "Input"],
Cell[62076, 1493, 719, 21, 28, "Input"],
Cell[62798, 1516, 548, 11, 28, "Input"],
Cell[CellGroupData[{
Cell[63371, 1531, 128, 2, 28, "Input"],
Cell[63502, 1535, 343, 6, 28, "Output"]
}, Open  ]],
Cell[63860, 1544, 669, 17, 28, "Input"],
Cell[64532, 1563, 515, 13, 28, "Input"],
Cell[65050, 1578, 722, 19, 28, "Input"],
Cell[65775, 1599, 461, 13, 28, "Input"],
Cell[66239, 1614, 496, 13, 28, "Input"],
Cell[66738, 1629, 780, 20, 28, "Input"],
Cell[67521, 1651, 178, 4, 28, "Input"],
Cell[67702, 1657, 848, 23, 28, "Input"],
Cell[68553, 1682, 387, 11, 28, "Input"],
Cell[68943, 1695, 475, 12, 28, "Input"],
Cell[69421, 1709, 176, 4, 40, "Input"],
Cell[69600, 1715, 2573, 55, 46, "Input"],
Cell[72176, 1772, 2594, 55, 46, "Input"],
Cell[74773, 1829, 907, 19, 28, "Input"],
Cell[75683, 1850, 520, 9, 28, "Input"],
Cell[76206, 1861, 396, 11, 28, "Input"],
Cell[76605, 1874, 519, 13, 28, "Input"],
Cell[CellGroupData[{
Cell[77149, 1891, 1330, 31, 46, "Input"],
Cell[78482, 1924, 125039, 3499, 921, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)