CTsums.nb

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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    445049,      10006]
NotebookOptionsPosition[    429038,       9734]
NotebookOutlinePosition[    429403,       9750]
CellTagsIndexPosition[    429360,       9747]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox["This notebook accompanies the paper:  \"Creative Telescoping on \
Multiple Sums\" by Christoph Koutschan and Elaine Wong.\n", "Text",
  FontWeight->"Bold"],
 StyleBox["The paper has been submitted for publication to a special issue of \
the Springer-Birkhauser Journal, Mathematics in Computer Science, as part of \
the post-proceedings for CASC 2020.", "Text"]
}], "Text",
 Background->RGBColor[
  1, 0.9, 1],ExpressionUUID->"75d1eae0-b3a8-462f-86ba-7853c0717068"],

Cell[CellGroupData[{

Cell["Package Loading", "Subsection",ExpressionUUID->"f787820a-8cd1-4e7e-9711-22d5f78753d8"],

Cell["\<\
The following packages are available for free download at this link: \
https://www3.risc.jku.at/research/combinat/software/ergosum/packages.html
They should be saved in the same directory as the notebook.\
\>", "Text",ExpressionUUID->"52222d23-1fa0-48d5-809e-ec83471af75c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "RISC`HolonomicFunctions`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "RISC`Guess`"}], ";"}]}], "Input",
 InitializationCell->True,
 CellLabel->"In[1]:=",ExpressionUUID->"42e0a8dd-14e1-4a64-885a-e55bd67054c4"],

Cell["\<\
HolonomicFunctions Package version 1.7.3 (21-Mar-2017)
written by Christoph Koutschan
Copyright Research Institute for Symbolic Computation (RISC),
Johannes Kepler University, Linz, Austria\
\>", "Text",
 CellFrame->True,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 ShowAutoSpellCheck->False,
 FontColor->RGBColor[0, 0, 0],
 Background->RGBColor[
  0.796887, 0.789075, 
   0.871107],ExpressionUUID->"544b7308-f5ee-4978-a2df-9601ae38503b"],

Cell[BoxData["\<\"--> Type  ?HolonomicFunctions  for help.\"\>"], "Print",
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"53ce25a2-54bd-4fcf-9a95-420b03a4089a"],

Cell["\<\
Package GeneratingFunctions version 0.8 written by Christian Mallinger
Copyright Research Institute for Symbolic Computation (RISC),
Johannes Kepler University, Linz, Austria\
\>", "Text",
 CellFrame->True,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 ShowAutoSpellCheck->False,
 FontColor->RGBColor[0, 0, 0],
 Background->RGBColor[
  0.796887, 0.789075, 
   0.871107],ExpressionUUID->"62d5b142-e37c-448b-9a0e-523e75b7fd1c"],

Cell["\<\
Guess Package version 0.52
written by Manuel Kauers
Copyright Research Institute for Symbolic Computation (RISC),
Johannes Kepler University, Linz, Austria\
\>", "Text",
 CellFrame->True,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 ShowAutoSpellCheck->False,
 FontColor->RGBColor[0, 0, 0],
 Background->RGBColor[
  0.796887, 0.789075, 
   0.871107],ExpressionUUID->"75998d08-e847-4864-a766-1f785830800a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Definitions", "Subsection",ExpressionUUID->"75794a32-e337-47d0-a164-3ff4e0189f95"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Original", " ", "Formula", " ", 
    RowBox[{"(", "1", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"polyG", "[", 
     RowBox[{"b_", ",", "m_", ",", "s_", ",", "x_"}], "]"}], ":=", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Binomial", "[", 
        RowBox[{"s", ",", "r"}], "]"}], 
       RowBox[{"Binomial", "[", 
        RowBox[{
         RowBox[{"k", "-", "1"}], ",", 
         RowBox[{"r", "-", "1"}]}], "]"}], 
       RowBox[{"(", 
        RowBox[{"b", "-", "1"}], ")"}], 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], "/", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "b"}], ")"}], "^", "r"}]}], " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "b"}], ")"}], "^", "i"}], " ", 
          RowBox[{"Binomial", "[", 
           RowBox[{
            RowBox[{"r", "-", "1"}], ",", "i"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", 
           RowBox[{"r", "-", "1", "-", 
            RowBox[{"Max", "[", 
             RowBox[{
              RowBox[{"k", "-", "m"}], ",", "0"}], "]"}]}]}], "}"}]}], 
        "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", 
        RowBox[{"m", "+", "s", "-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "s"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Split", " ", "Sums"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"G1", "[", 
     RowBox[{"b_", ",", "m_", ",", "s_", ",", "x_"}], "]"}], ":=", 
    RowBox[{"-", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Binomial", "[", 
         RowBox[{"s", ",", "r"}], "]"}], " ", 
        RowBox[{"Binomial", "[", 
         RowBox[{
          RowBox[{"k", "-", "1"}], ",", 
          RowBox[{"r", "-", "1"}]}], "]"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "-", "1"}], ")"}], "^", "r"}], " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], " ", "/", " ", 
         RowBox[{"b", "^", "r"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"m", "+", "s", "-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "s"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"G2", "[", 
     RowBox[{"b_", ",", "m_", ",", "s_", ",", "x_"}], "]"}], ":=", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Binomial", "[", 
        RowBox[{"s", ",", "r"}], "]"}], " ", 
       RowBox[{"Binomial", "[", 
        RowBox[{
         RowBox[{"k", "-", "1"}], ",", 
         RowBox[{"r", "-", "1"}]}], "]"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "b"}], ")"}], "/", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "b"}], ")"}], "^", "r"}]}], " ", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{
            RowBox[{"r", "-", "1"}], ",", "i"}], "]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "b"}], ")"}], "^", "i"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"b", " ", "x"}], ")"}], "^", "k"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"r", "-", 
            RowBox[{"(", 
             RowBox[{"k", "-", "m"}], ")"}]}], ",", 
           RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", 
        RowBox[{"m", "+", "1"}], ",", 
        RowBox[{"m", "+", "s", "-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "s"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Triple", " ", "Sum", " ", "No", " ", "Max", " ", 
     RowBox[{"(", "8", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"summand", "[", 
     RowBox[{
     "b_", ",", "m_", ",", "s_", ",", "x_", ",", "k_", ",", "r_", ",", "i_"}],
      "]"}], ":=", 
    RowBox[{
     RowBox[{"Binomial", "[", 
      RowBox[{"s", ",", "r"}], "]"}], 
     RowBox[{"Binomial", "[", 
      RowBox[{
       RowBox[{"k", "-", "1"}], ",", 
       RowBox[{"r", "-", "1"}]}], "]"}], 
     RowBox[{"Binomial", "[", 
      RowBox[{
       RowBox[{"r", "-", "1"}], ",", "i"}], "]"}], 
     RowBox[{"(", 
      RowBox[{"b", "-", "1"}], ")"}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "b"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"r", "-", "i"}], ")"}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tripleG", "[", 
     RowBox[{"b_", ",", "m_", ",", "s_", ",", "x_"}], "]"}], ":=", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"summand", "[", 
       RowBox[{
       "b", ",", "m", ",", "s", ",", "x", ",", "k", ",", "r", ",", "i"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", 
        RowBox[{"m", "+", "s", "-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "s"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0", ",", 
        RowBox[{"r", "-", "1", "-", 
         RowBox[{"(", 
          RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellLabel->"In[4]:=",ExpressionUUID->"0fbd259b-2885-4071-ad9d-591a7731c6fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "do", " ", "a", " ", "few", " ", "experimental", " ", "sanity", 
    " ", "checks", " ", "to", " ", "confirm", " ", "that", " ", "our", " ", 
    "definitions", " ", "are", " ", "the", " ", 
    RowBox[{"same", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Together", "[", 
           RowBox[{
            RowBox[{"polyG", "[", 
             RowBox[{"b", ",", "m", ",", "s", ",", "x"}], "]"}], "-", 
            RowBox[{"G1", "[", 
             RowBox[{"b", ",", "m", ",", "s", ",", "x"}], "]"}], "-", 
            RowBox[{"G2", "[", 
             RowBox[{"b", ",", "m", ",", "s", ",", "x"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "30"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"s", ",", "30"}], "}"}]}], "]"}], "//", "Flatten"}], "//", 
       "Union"}], ")"}], "===", 
     RowBox[{"{", "0", "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Together", "[", 
           RowBox[{
            RowBox[{"polyG", "[", 
             RowBox[{"b", ",", "m", ",", "s", ",", "x"}], "]"}], "-", 
            RowBox[{"tripleG", "[", 
             RowBox[{"b", ",", "m", ",", "s", ",", "x"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "30"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"s", ",", "30"}], "}"}]}], "]"}], "//", "Flatten"}], "//", 
       "Union"}], ")"}], "===", 
     RowBox[{"{", "0", "}"}]}], "]"}]}]}]], "Input",
 CellLabel->"In[98]:=",ExpressionUUID->"0abf9cb7-14b5-407c-a316-72a0e4948976"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"137.949822`", ",", "True"}], "}"}]], "Output",
 CellLabel->"Out[98]=",ExpressionUUID->"9cebc10e-29e9-410d-b037-e3b9ee7e9687"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"135.609899`", ",", "True"}], "}"}]], "Output",
 CellLabel->"Out[99]=",ExpressionUUID->"1a689ac7-ac90-4346-9f15-e805800a4ee6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Toy Example (6)", "Subsection",ExpressionUUID->"8fa7b09c-9efe-4940-a3ce-018efbad7302"],

Cell["\<\
ALERT:  We prefix all functions with \"te-\" (for toy example) in this \
section to prevent repeated usage later.\
\>", "Text",ExpressionUUID->"2f4c351d-03f3-418b-bba1-8cb721b34a87"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"TraditionalForm", "[", 
  RowBox[{"HoldForm", "[", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"Binomial", "[", 
      RowBox[{"n", ",", "k"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "5", ",", "n"}], "}"}]}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"teSummand", "[", 
    RowBox[{"n_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Binomial", "[", 
    RowBox[{"n", ",", "k"}], "]"}]}], ";"}]}], "Input",
 CellLabel->"In[13]:=",ExpressionUUID->"b0c78238-ddb3-4165-b2c9-fee6ff14e91f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "5"}], "n"], 
    TemplateBox[{"n","k"},
     "Binomial"]}],
   HoldForm], TraditionalForm]], "Output",
 CellLabel->
  "Out[13]//TraditionalForm=",ExpressionUUID->"1db3977f-97a2-4199-84d0-\
6b596ed42c19"]
}, Open  ]],

Cell["\<\
Creative Telescoping can take as input the summand OR the annihilator of the \
summand for the sum to be determined.\
\>", "Text",ExpressionUUID->"56e9dbda-2c6f-451f-80f9-4f2ce8444bf4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CreativeTelescoping", "[", 
  RowBox[{
   RowBox[{"Annihilator", "[", 
    RowBox[{
     RowBox[{"teSummand", "[", 
      RowBox[{"n", ",", "k"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"S", "[", "k", "]"}], ",", 
       RowBox[{"S", "[", "n", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"S", "[", "k", "]"}], "-", "1"}], ",", 
   RowBox[{"S", "[", "n", "]"}]}], "]"}]], "Input",
 CellLabel->"In[35]:=",ExpressionUUID->"c82f49e8-7f4a-4cd5-a727-0cc3556d74e5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["S", "n"], "-", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", 
     FractionBox["k", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "k", "-", "n"}]]}], "}"}]}], "}"}]], "Output",\

 CellLabel->"Out[35]=",ExpressionUUID->"1b111f79-8b8e-452e-a220-f47134fee938"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"tePlist", ",", "teQlist"}], "}"}], "=", 
  RowBox[{"CreativeTelescoping", "[", 
   RowBox[{
    RowBox[{"teSummand", "[", 
     RowBox[{"n", ",", "k"}], "]"}], ",", 
    RowBox[{
     RowBox[{"S", "[", "k", "]"}], "-", "1"}], ",", 
    RowBox[{"S", "[", "n", "]"}]}], "]"}]}]], "Input",
 CellLabel->"In[36]:=",ExpressionUUID->"e1109690-7f90-4dbc-b5cb-7725eeb158ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["S", "n"], "-", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", 
     FractionBox["k", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "k", "-", "n"}]]}], "}"}]}], "}"}]], "Output",\

 CellLabel->"Out[36]=",ExpressionUUID->"c4419769-1d3b-48c9-85ac-7162e5517423"]
}, Open  ]],

Cell["Here, we deal with singularities and commutation.", "Text",ExpressionUUID->"9e19e8c6-78a7-45af-bbbe-8454fecb9d83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Since", " ", "the", " ", "sum", " ", "takes", " ", "on", " ", "nonzero", 
     " ", "values", " ", "outside", " ", "of", " ", "the", " ", "summation", 
     " ", "bounds", " ", "AND", " ", "the", " ", "operator", " ", "and", " ", 
     "the", " ", "summation", " ", "does", " ", "not", " ", "commute", " ", 
     "AND", " ", "the", " ", "certificate", " ", "has", " ", "a", " ", 
     "singularity", " ", "at", " ", "one", " ", "of", " ", "the", " ", 
     "boundary", " ", "values"}], ",", " ", 
    RowBox[{
    "we", " ", "have", " ", "a", " ", "nonzero", " ", "inhomogeneous", " ", 
     RowBox[{"part", ".", " ", "We"}], " ", "collect", " ", "all", " ", 
     "such", " ", "terms", " ", 
     RowBox[{"here", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"teDeltapart", "[", 
     RowBox[{"lower_", ",", "upper_"}], "]"}], ":=", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"delta", "=", 
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{
          RowBox[{"teQlist", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"Binomial", "[", 
           RowBox[{"n", ",", "k"}], "]"}]}], "]"}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"delta", "/.", 
         RowBox[{"{", 
          RowBox[{"k", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{"upper", "+", "1"}], ")"}]}], "}"}]}], ")"}], "-", 
       RowBox[{"(", 
        RowBox[{"delta", "/.", 
         RowBox[{"{", 
          RowBox[{"k", "\[Rule]", "lower"}], "}"}]}], ")"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"teCompensated", "[", "upper_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"j", "=", 
         RowBox[{"n", "-", "upper"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Binomial", "[", 
          RowBox[{
           RowBox[{"n", "+", "1"}], ",", 
           RowBox[{"n", "-", "j", "+", "1"}]}], "]"}]}], "-", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Binomial", "[", 
             RowBox[{
              RowBox[{"n", "+", "1"}], ",", 
              RowBox[{"n", "+", "1", "-", "j", "+", "k"}]}], "]"}], "-", 
            RowBox[{"2", 
             RowBox[{"Binomial", "[", 
              RowBox[{"n", ",", 
               RowBox[{"n", "-", "j", "+", "k"}]}], "]"}]}]}], ")"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "j"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"teCompensated", "[", "i", "]"}], "//", "Together"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"n", "-", "3"}], ",", 
       RowBox[{"n", "+", "3"}], ",", "1"}], "}"}]}], "]"}], " "}]}]], "Input",\

 CellLabel->"In[41]:=",ExpressionUUID->"b93fa38a-795a-4a8e-a524-a7f4754b74f4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "6"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "n"}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["n", "2"]}], "-", 
      SuperscriptBox["n", "3"]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"n", "-", 
      SuperscriptBox["n", "2"]}], ")"}]}], ",", 
   RowBox[{"-", "n"}], ",", 
   RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[43]=",ExpressionUUID->"0020b624-2b64-4629-a7d9-7b6b3d012bf5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Such", " ", "parts", " ", "disappear", " ", "if", " ", "the", " ", 
      "lower", " ", "limit", " ", "of", " ", "the", " ", "sum", " ", "is"}], 
     " ", "\[LessEqual]", " ", 
     RowBox[{
     "0", " ", "or", " ", "the", " ", "upper", " ", "limit", " ", "is"}], " ",
      "\[GreaterEqual]", " ", 
     RowBox[{"n", "+", "1"}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "with", " ", "a", " ", "division", " ", "by", " ", "zero", " ", "error", 
      " ", "for", " ", "k"}], "=", 
     RowBox[{"n", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "use", " ", "the", " ", "term", " ", 
    "\"\<natural boundaries\>\"", " ", "to", " ", "describe", " ", "the", " ",
     "sum", " ", "in", " ", "the", " ", "case", " ", "that", " ", "the", " ", 
    "inhomogeneous", " ", "parts", " ", 
    RowBox[{"disappear", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"teInhomoparts", "[", 
      RowBox[{"lower_", ",", "upper_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"teCompensated", "[", "upper", "]"}], "+", 
      RowBox[{"teDeltapart", "[", 
       RowBox[{"lower", ",", "upper"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"teInhomoparts", "[", 
     RowBox[{"5", ",", 
      RowBox[{"n", "-", "1"}]}], "]"}], "//", "FullSimplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Quiet", "[", 
    RowBox[{"teInhomoparts", "[", 
     RowBox[{"5", ",", "n"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"teInhomoparts", "[", 
    RowBox[{"0", ",", 
     RowBox[{"n", "+", "1"}]}], "]"}]}]}]], "Input",
 CellLabel->"In[56]:=",ExpressionUUID->"4fb4ca84-3257-4194-a8bd-30d358cd39fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "24"]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "3"}], "+", "n"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", "n"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", "n"}]], "Output",
 CellLabel->"Out[57]=",ExpressionUUID->"6f4c608c-9119-4116-8121-b3395f40c2f3"],

Cell[BoxData["Indeterminate"], "Output",
 CellLabel->"Out[58]=",ExpressionUUID->"1aa2b2ca-c39e-4dd8-90ba-0e34cd3d4e3e"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[59]=",ExpressionUUID->"cb9c36f9-37db-4ba8-8251-5c88a293a941"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "can", " ", "now", " ", "find", " ", "the", " ", "annihilator", 
    " ", "for", " ", "the", " ", "inhomogeneous", " ", "part", " ", "and", 
    " ", "multiply", " ", 
    RowBox[{"(", 
     RowBox[{"on", " ", "the", " ", "left"}], ")"}], " ", "to", " ", "P", " ",
     "to", " ", "get", " ", "the", " ", "annihilator", " ", "for", " ", "the",
     " ", "whole", " ", 
    RowBox[{"sum", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"teAnninhomo", "=", 
     RowBox[{
      RowBox[{"Annihilator", "[", 
       RowBox[{
        RowBox[{"teInhomoparts", "[", 
         RowBox[{"5", ",", 
          RowBox[{"n", "-", "1"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"S", "[", "n", "]"}], "}"}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"teAnn", "=", 
     RowBox[{"teAnninhomo", "**", 
      RowBox[{"tePlist", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Check", "."}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ApplyOreOperator", "[", 
     RowBox[{"teAnn", ",", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"teSummand", "[", 
         RowBox[{"n", ",", "k"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "5", ",", "n"}], "}"}]}], "]"}]}], "]"}], "//", 
    "Together"}]}]}]], "Input",
 CellLabel->"In[48]:=",ExpressionUUID->"74bc8752-638d-44bf-a390-e405116e176e"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[50]=",ExpressionUUID->"978c1e12-c892-4885-b4cb-5a40f4d5ed22"]
}, Open  ]],

Cell["\<\
We solve the recurrence to get a closed form, equivalent to Mathematica's \
result.\
\>", "Text",ExpressionUUID->"982bac74-385e-4017-a1a9-9964f8df2748"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Here", ",", " ", 
    RowBox[{
    "we", " ", "illustrate", " ", "the", " ", "use", " ", "of", " ", 
     "Carsten", " ", 
     RowBox[{"Schneider", "'"}], "s", " ", "Sigma", " ", "package"}], ",", 
    " ", 
    RowBox[{
    "which", " ", "has", " ", "a", " ", "very", " ", "nice", " ", 
     "recurrence", " ", 
     RowBox[{"solver", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Sigma`Summation`Objects`S", "=", "SigmaS"}], ";"}], "\n", 
   RowBox[{
    RowBox[{
    "Sigma`Summation`SumProducts`CreativeTelescoping", "=", "SigmaCT"}], 
    ";"}], "\n", 
   RowBox[{"Quiet", "[", 
    RowBox[{
     RowBox[{"Import", "[", "\"\<Sigma.m\>\"", "]"}], ",", 
     RowBox[{"General", "::", "shdw"}]}], "]"}], "\n", 
   RowBox[{
    RowBox[{"Remove", "[", 
     RowBox[{
     "Sigma`Summation`Objects`S", ",", 
      "Sigma`Summation`SumProducts`CreativeTelescoping"}], "]"}], 
    ";"}]}]}]], "Input",ExpressionUUID->"c3e446d7-0fe8-49e5-a9bd-\
d6c2216d4546"],

Cell[BoxData[
 RowBox[{
  StyleBox["Sigma",
   FontColor->RGBColor[1, 0, 0]], 
  RowBox[{" ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", " ", "A"}], " ", "summation", " ", "package", " ", "by", 
     " ", "Carsten", " ", "Schneider"}], " ", "\[LongDash]", " ", 
    RowBox[{"\[Copyright]", " ", "RISC"}], " ", "\[LongDash]", "  ", 
    RowBox[{"V", " ", "2.01", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"May", " ", "12"}], ",", " ", "2016"}], ")"}], "  "}]}]}], 
  ButtonBox[
   StyleBox["Help", "Hyperlink",
    FontVariations->{"Underline"->True}],
   Appearance->{Automatic, None, "Normal", Automatic},
   ButtonData:>{"", ""},
   ButtonFunction:>Sigma`Version`Private`SigmaHelp[],
   Evaluator->Automatic]}]], "Print",
 CellFrame->0.5,
 FontColor->RGBColor[0, 0, 0],
 Background->RGBColor[0.796887, 0.789075, 0.871107],
 ButtonBoxOptions->{
 Active->True},ExpressionUUID->"d4c6ee02-3c98-485d-8b77-1d0e06e82906"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Solving", " ", "the", " ", "recurrence", " ", "and", " ", "comparing", 
    " ", "closed", " ", 
    RowBox[{"forms", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"teInicond", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{"teSummand", "[", 
          RowBox[{"n", ",", "k"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "5", ",", "n"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "0", ",", "15"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SolveRecurrence", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ApplyOreOperator", "[", 
        RowBox[{"teAnn", ",", 
         RowBox[{"c", "[", "n", "]"}]}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"c", "[", "n", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"teClosedall", "=", 
    RowBox[{
     RowBox[{"FindLinearCombination", "[", 
      RowBox[{"%", ",", "teInicond", ",", "n", ",", "3", ",", 
       RowBox[{"MinInitialValue", "\[Rule]", "5"}]}], "]"}], "/.", 
     RowBox[{
     "Sigma`Summation`Objects`Private`MyPower", "\[Rule]", 
      "Power"}]}]}]}]}]], "Input",
 CellLabel->"In[60]:=",ExpressionUUID->"e6a0cc4a-ec38-4ce1-9b03-24dc8347de32"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "24"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "24"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["2", 
      RowBox[{"3", "+", "n"}]]}], "-", 
    RowBox[{"14", " ", "n"}], "-", 
    RowBox[{"11", " ", 
     SuperscriptBox["n", "2"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["n", "3"]}], "-", 
    SuperscriptBox["n", "4"]}], ")"}]}]], "Output",
 CellLabel->"Out[62]=",ExpressionUUID->"b9d63988-c633-466a-afd0-882050d083f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "closed", " ", "form", " ", "is", " ", "equivalent", " ", "to",
     " ", 
    RowBox[{"Mathematica", "'"}], "s", " ", 
    RowBox[{"version", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"teClosedmath", "=", 
     RowBox[{"Together", "[", 
      RowBox[{"Simplify", "[", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{"Binomial", "[", 
          RowBox[{"n", ",", "k"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "5", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"teClosedall", "===", "teClosedmath"}]}]}]], "Input",
 CellLabel->"In[65]:=",ExpressionUUID->"b172a516-466d-4e55-95fc-2b2905d39ffa"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[66]=",ExpressionUUID->"d7008897-e2da-433b-8cd4-3e06e7ebc487"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Guessing", "Subsection",ExpressionUUID->"5463895f-e6e6-45c2-aeae-5a957405402c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "generate", " ", "data", " ", "necessary", " ", "for", " ", 
    "guessing", " ", "in", " ", "all", " ", "four", " ", 
    RowBox[{"variables", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "We", " ", "impose", " ", "what", " ", "we", " ", "believe", " ", "the", 
     " ", "shape", " ", "of", " ", "the", " ", "recurrence", " ", "to", " ", 
     "be"}], ",", " ", 
    RowBox[{
    "and", " ", "if", " ", "such", " ", "a", " ", "recurrence", " ", 
     "exists"}], ",", " ", 
    RowBox[{"the", " ", "function", " ", "will", " ", "find", " ", 
     RowBox[{"one", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"datalist", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"polyG", "[", 
          RowBox[{"b", ",", "m", ",", "s", ",", "x"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"b", ",", "2", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s", ",", "10"}], "}"}]}], "]"}], "//", "Together"}], 
      ")"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"guessrec", "=", 
    RowBox[{
     RowBox[{"GuessMultRE", "[", 
      RowBox[{"datalist", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"c", "[", 
          RowBox[{"x", ",", "b", ",", "m", ",", "s"}], "]"}], ",", 
         RowBox[{"c", "[", 
          RowBox[{"x", ",", "b", ",", "m", ",", 
           RowBox[{"s", "+", "1"}]}], "]"}], ",", 
         RowBox[{"c", "[", 
          RowBox[{"x", ",", "b", ",", "m", ",", 
           RowBox[{"s", "+", "2"}]}], "]"}], ",", 
         RowBox[{"c", "[", 
          RowBox[{"x", ",", "b", ",", "m", ",", 
           RowBox[{"s", "+", "3"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "b", ",", "m", ",", "s"}], "}"}], ",", "4", ",", 
       RowBox[{"StartPoint", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellLabel->"In[68]:=",ExpressionUUID->"18bf66b7-6880-4b9b-bb52-19a103d64887"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "m", "+", "s"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"], " ", 
   RowBox[{"c", "[", 
    RowBox[{"x", ",", "b", ",", "m", ",", "s"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "4"}], "-", 
     RowBox[{"2", " ", "m"}], "-", 
     RowBox[{"3", " ", "s"}], "+", "x", "+", 
     RowBox[{"b", " ", "x"}], "+", 
     RowBox[{"m", " ", "x"}], "+", 
     RowBox[{"b", " ", "m", " ", "x"}], "+", 
     RowBox[{"s", " ", "x"}], "+", 
     RowBox[{"b", " ", "s", " ", "x"}]}], ")"}], " ", 
   RowBox[{"c", "[", 
    RowBox[{"x", ",", "b", ",", "m", ",", 
     RowBox[{"1", "+", "s"}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"5", "+", "m", "+", 
     RowBox[{"3", " ", "s"}], "-", 
     RowBox[{"3", " ", "x"}], "-", 
     RowBox[{"3", " ", "b", " ", "x"}], "-", 
     RowBox[{"m", " ", "x"}], "-", 
     RowBox[{"b", " ", "m", " ", "x"}], "-", 
     RowBox[{"2", " ", "s", " ", "x"}], "-", 
     RowBox[{"2", " ", "b", " ", "s", " ", "x"}], "+", 
     RowBox[{"b", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", "m", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", "s", " ", 
      SuperscriptBox["x", "2"]}]}], ")"}], " ", 
   RowBox[{"c", "[", 
    RowBox[{"x", ",", "b", ",", "m", ",", 
     RowBox[{"2", "+", "s"}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "+", "s"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"b", " ", "x"}]}], ")"}], " ", 
   RowBox[{"c", "[", 
    RowBox[{"x", ",", "b", ",", "m", ",", 
     RowBox[{"3", "+", "s"}]}], "]"}]}]}]], "Output",
 CellLabel->"Out[69]=",ExpressionUUID->"ac8c7809-0657-4ba3-8844-5fddcb09be11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Since", " ", "the", " ", "recurrence", " ", "only", " ", "depends", " ", 
     "on", " ", "s"}], ",", " ", 
    RowBox[{
    "we", " ", "make", " ", "some", " ", "subsitutions", " ", "so", " ", 
     "that", " ", "it", " ", "looks", " ", "nicer", " ", "for", " ", 
     RowBox[{"printing", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "the", " ", "minimal", " ", "order", " ", 
    "recurrence", " ", "that", " ", "generates", " ", "the", " ", 
    "annihilating", " ", "ideal", " ", "for", " ", 
    RowBox[{"polyG", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"guessrec", "=", 
   RowBox[{"guessrec", "/.", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Thread", "[", 
        RowBox[{
         RowBox[{"c", "[", 
          RowBox[{"x", ",", "b", ",", "m", ",", 
           RowBox[{"s", "+", "#"}]}], "]"}], "\[Rule]", 
         RowBox[{"c", "[", 
          RowBox[{"s", "+", "#"}], "]"}]}], "]"}], "&"}], "/@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Range", "[", "4", "]"}], "-", "1"}], ")"}]}], 
     ")"}]}]}]}]], "Input",ExpressionUUID->"268275fd-b27c-4dee-a112-\
c51cdcd6a2a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "m", "+", "s"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"], " ", 
   RowBox[{"c", "[", "s", "]"}]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "4"}], "-", 
     RowBox[{"2", " ", "m"}], "-", 
     RowBox[{"3", " ", "s"}], "+", "x", "+", 
     RowBox[{"b", " ", "x"}], "+", 
     RowBox[{"m", " ", "x"}], "+", 
     RowBox[{"b", " ", "m", " ", "x"}], "+", 
     RowBox[{"s", " ", "x"}], "+", 
     RowBox[{"b", " ", "s", " ", "x"}]}], ")"}], " ", 
   RowBox[{"c", "[", 
    RowBox[{"1", "+", "s"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"5", "+", "m", "+", 
     RowBox[{"3", " ", "s"}], "-", 
     RowBox[{"3", " ", "x"}], "-", 
     RowBox[{"3", " ", "b", " ", "x"}], "-", 
     RowBox[{"m", " ", "x"}], "-", 
     RowBox[{"b", " ", "m", " ", "x"}], "-", 
     RowBox[{"2", " ", "s", " ", "x"}], "-", 
     RowBox[{"2", " ", "b", " ", "s", " ", "x"}], "+", 
     RowBox[{"b", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", "m", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", "s", " ", 
      SuperscriptBox["x", "2"]}]}], ")"}], " ", 
   RowBox[{"c", "[", 
    RowBox[{"2", "+", "s"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "+", "s"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"b", " ", "x"}]}], ")"}], " ", 
   RowBox[{"c", "[", 
    RowBox[{"3", "+", "s"}], "]"}]}]}]], "Output",
 CellLabel->"Out[70]=",ExpressionUUID->"3fac610b-f7bd-4949-9a3d-598ccee03116"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Strategy Implementations for our Problem", "Section",ExpressionUUID->"a27a19c8-8cd0-4099-9c75-379e1a258bec"],

Cell["\<\
The following implementations do not depend on each other and each section \
can be run on its own. All relevant definitions for that particular section \
are self-contained.\
\>", "Text",ExpressionUUID->"1770d1ee-533d-4060-acef-2399931b8a19"],

Cell[CellGroupData[{

Cell["\<\
Treatment of Inhomogeneous Parts: Singularities and Commutation\
\>", "Subsection",ExpressionUUID->"a305cc1f-1523-455b-b483-c519aa5c11c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Summand", " ", "of", " ", "G1"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"b_", ",", "s_", ",", "x_", ",", "k_", ",", "r_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Binomial", "[", 
       RowBox[{"s", ",", "r"}], "]"}], " ", 
      RowBox[{"Binomial", "[", 
       RowBox[{
        RowBox[{"k", "-", "1"}], ",", 
        RowBox[{"r", "-", "1"}]}], "]"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "-", "1"}], ")"}], "^", "r"}], " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], " ", "/", " ", 
       RowBox[{"b", "^", "r"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Innersum", " ", "of", " ", "G1"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"F1", "[", 
      RowBox[{"b_", ",", "s_", ",", "x_", ",", "k_"}], "]"}], ":=", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"b", ",", "s", ",", "x", ",", "k", ",", "r"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Creative", " ", 
      RowBox[{"Telescoping", ":", " ", 
       RowBox[{
       "Observe", " ", "that", " ", "we", " ", "have", " ", "a", " ", 
        "singularity", " ", "at", " ", "r"}]}]}], "=", 
     RowBox[{"s", "+", 
      RowBox[{"1", " ", "in", " ", "the", " ", "first", " ", 
       RowBox[{"certificate", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Pinner1", ",", "Qinner1"}], "}"}], "=", 
    RowBox[{"CreativeTelescoping", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"b", ",", "s", ",", "x", ",", "k", ",", "r"}], "]"}], ",", 
      RowBox[{
       RowBox[{"S", "[", "r", "]"}], "-", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "s", "]"}], ",", 
        RowBox[{"S", "[", "k", "]"}]}], "}"}]}], "]"}]}]}]}]], "Input",
 CellLabel->"In[73]:=",ExpressionUUID->"2b7aa76a-3cfe-4a96-8128-21b081aaef97"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"b", " ", "s", " ", "x"}], 
       SubscriptBox["S", "s"]}], "+", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "-", "k"}], ")", 
       SubscriptBox["S", "k"]}], "+", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"k", " ", "x"}], "-", 
        RowBox[{"s", " ", "x"}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "+", "k"}], ")", 
       SubsuperscriptBox["S", "k", "2"]}], "+", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "x"}], "-", 
        RowBox[{"b", " ", "x"}], "-", 
        RowBox[{"k", " ", "x"}], "-", 
        RowBox[{"b", " ", "k", " ", "x"}], "+", 
        RowBox[{"s", " ", "x"}], "-", 
        RowBox[{"b", " ", "s", " ", "x"}]}], ")", 
       SubscriptBox["S", "k"]}], "+", 
      RowBox[{"b", " ", "k", " ", 
       SuperscriptBox["x", "2"]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"b", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "k"}], " ", "r"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          RowBox[{"r", " ", "s"}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", "s"}]}], ")"}], " ", "x"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "k", "-", "r"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "r", "-", "s"}], ")"}]}]]}], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["b", "2"], " ", "k", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "r"}], "+", 
         SuperscriptBox["r", "2"]}], ")"}], " ", 
       SuperscriptBox["x", "2"]}], 
      RowBox[{"2", "+", 
       RowBox[{"3", " ", "k"}], "+", 
       SuperscriptBox["k", "2"], "-", 
       RowBox[{"3", " ", "r"}], "-", 
       RowBox[{"2", " ", "k", " ", "r"}], "+", 
       SuperscriptBox["r", "2"]}]]}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[75]=",ExpressionUUID->"dd875c59-108a-4628-b93c-21451469c82c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"deltapart", "[", 
    RowBox[{"lower_", ",", "upper_", ",", "head_", ",", "pos_"}], "]"}], ":=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"delta", "=", 
       RowBox[{"ApplyOreOperator", "[", 
        RowBox[{
         RowBox[{"head", "[", 
          RowBox[{"[", "pos", "]"}], "]"}], ",", 
         RowBox[{"f", "[", 
          RowBox[{"b", ",", "s", ",", "x", ",", "k", ",", "r"}], "]"}]}], 
        "]"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"delta", "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"upper", "+", "1"}], ")"}]}], "}"}]}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{"delta", "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", "lower"}], "}"}]}], ")"}]}]}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "We", " ", "determine", " ", "the", " ", "delta", " ", "part", " ", "for",
      " ", "the", " ", "sum", " ", "up", " ", "to", " ", "r"}], "=", 
    RowBox[{"s", "-", 
     RowBox[{"1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", ".", "e", "."}], ",", " ", 
        RowBox[{
        "up", " ", "to", " ", "the", " ", "point", " ", "that", " ", "we", 
         " ", "can", " ", "avoid", " ", "the", " ", "singularity", " ", "in", 
         " ", "our", " ", 
         RowBox[{"evaluation", "."}]}]}], " "}]}]}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deltapart", "[", 
   RowBox[{"1", ",", 
    RowBox[{"s", "-", "1"}], ",", "Qinner1", ",", "1"}], "]"}], "//", 
  "Simplify"}]}], "Input",
 CellLabel->"In[76]:=",ExpressionUUID->"a931d654-ff18-4dbd-b3be-f926b3cfc731"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "b"}], "b"], ")"}], "s"], " ", "b", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", "s", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "k"}], "+", "s"}], ")"}], " ", "x", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "x"}], ")"}], "k"], " ", 
   RowBox[{"Binomial", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "+", "k"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "s"}]}], "]"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "-", "k", "+", "s"}]]], "Output",
 CellLabel->"Out[77]=",ExpressionUUID->"90d91716-7dd8-402b-9973-8d4c4f25df65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "The", " ", "original", " ", "sum", " ", "must", " ", "be", " ", 
     "``filled", " ", 
     RowBox[{"in", "''"}], " ", "to", " ", "account", " ", "for", " ", "the", 
     " ", "missing", " ", "term", " ", "at", " ", "r"}], "=", 
    RowBox[{"s", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "gives", " ", "us", " ", "the", " ", "following", " ", 
    "compensation", " ", 
    RowBox[{"term", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"compensatedSing", "=", 
   RowBox[{"-", 
    RowBox[{"ReleaseHold", "[", 
     RowBox[{
      RowBox[{"ApplyOreOperator", "[", 
       RowBox[{
        RowBox[{"Pinner1", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Hold", "[", 
         RowBox[{"f", "[", 
          RowBox[{"b", ",", "s", ",", "x", ",", "k", ",", "r"}], "]"}], 
         "]"}]}], "]"}], "/.", 
      RowBox[{"r", "\[Rule]", "s"}]}], "]"}]}]}]}]], "Input",
 CellLabel->"In[78]:=",ExpressionUUID->"ec273a68-cf8d-454e-aa0f-0532ff223455"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "b"}], ")"}], "s"]}], " ", 
   SuperscriptBox["b", 
    RowBox[{"1", "-", "s"}]], " ", "s", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "s"}], ")"}], " ", "x", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "x"}], ")"}], "k"], " ", 
   RowBox[{"Binomial", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "+", "k"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "s"}]}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "b"}], ")"}], "s"], " ", 
   SuperscriptBox["b", 
    RowBox[{"-", "s"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "x"}], ")"}], "k"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"k", " ", "x"}], "-", 
     RowBox[{"s", " ", "x"}]}], ")"}], " ", 
   RowBox[{"Binomial", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "+", "k"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "s"}]}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "b"}], ")"}], "s"], " ", 
   SuperscriptBox["b", 
    RowBox[{"-", "s"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "k"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", "x"}], ")"}], 
    RowBox[{"1", "+", "k"}]], " ", 
   RowBox[{"Binomial", "[", 
    RowBox[{"k", ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "s"}]}], "]"}]}]}]], "Output",
 CellLabel->"Out[78]=",ExpressionUUID->"5a98f068-4784-4e64-8be3-170a3bbfb9f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "We", " ", "also", " ", "have", " ", "to", " ", "concern", " ", 
     "ourselves", " ", "with", " ", "the", " ", "compensated", " ", "parts", 
     " ", "from", " ", "any", " ", "and", " ", "all", " ", 
     RowBox[{"S", "[", "s", "]"}], " ", 
     RowBox[{"operators", ".", " ", "Luckily"}]}], ",", " ", 
    RowBox[{
     RowBox[{"there", " ", "is", " ", "only", " ", "one", " ", "s"}], "-", 
     RowBox[{"shift", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"compensatedSshift", "[", 
      RowBox[{"coeff_", ",", "upper_", ",", "shift_", ",", "ind_List"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"-", "coeff"}], "*", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"b", ",", 
          RowBox[{"s", "+", "shift"}], ",", "x", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"ind", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", 
            RowBox[{"k", "+", "i"}], ",", "k"}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"ind", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", 
            RowBox[{"r", "+", "i"}], ",", "r"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"upper", "+", "1"}], ",", 
          RowBox[{"upper", "+", "shift"}]}], "}"}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "The", " ", "annhilator", " ", "for", " ", "the", " ", "inhomogeneous", 
      " ", "parts"}], ",", " ", 
     RowBox[{"together", " ", "with", " ", "the", " ", "telescoper"}], ",", 
     " ", 
     RowBox[{
     "gives", " ", "the", " ", "annihilator", " ", "for", " ", "the", " ", 
      "whole", " ", 
      RowBox[{"sum", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inhomoparts1", "=", 
     RowBox[{
      RowBox[{"compensatedSshift", "[", 
       RowBox[{
        RowBox[{"b", " ", "s", " ", "x"}], ",", 
        RowBox[{"s", "-", "1"}], ",", "1", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "+", "compensatedSing", "+", 
      RowBox[{"deltapart", "[", 
       RowBox[{"1", ",", 
        RowBox[{"s", "-", "1"}], ",", "Qinner1", ",", "1"}], "]"}]}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ann1", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Annihilator", "[", 
        RowBox[{"inhomoparts1", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", "s", "]"}], ",", 
           RowBox[{"S", "[", "k", "]"}]}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "**", 
      RowBox[{"Pinner1", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"For", " ", "the", " ", "second", " ", "certificate"}], ",", " ", 
     RowBox[{"there", " ", "are", " ", "no", " ", "singularities"}], ",", " ", 
     RowBox[{
     "and", " ", "the", " ", "boundaries", " ", "are", " ", "natural"}], ",", 
     " ", 
     RowBox[{
     "so", " ", "the", " ", "delta", " ", "part", " ", "is", " ", "0", " ", 
      "and", " ", "we", " ", "just", " ", "need", " ", "to", " ", "treat", 
      " ", "the", " ", 
      RowBox[{"commutation", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inhomoparts2", "=", 
     RowBox[{
      RowBox[{"compensatedSshift", "[", 
       RowBox[{
        RowBox[{"k", "+", "2"}], ",", "s", ",", "2", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "+", 
      RowBox[{"deltapart", "[", 
       RowBox[{"1", ",", "s", ",", "Qinner1", ",", "2"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ann2", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Annihilator", "[", 
        RowBox[{"inhomoparts2", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", "s", "]"}], ",", 
           RowBox[{"S", "[", "k", "]"}]}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "**", 
      RowBox[{"Pinner1", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Support", "[", 
    RowBox[{"{", 
     RowBox[{"ann1", ",", "ann2"}], "}"}], "]"}]}]}]], "Input",
 CellLabel->"In[79]:=",ExpressionUUID->"6d6e8a63-a58a-4e19-a005-49d92e481b86"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubsuperscriptBox["S", "s", "2"], 
      SubscriptBox["S", "k"]}], ",", 
     RowBox[{
      SubscriptBox["S", "s"], 
      SubsuperscriptBox["S", "k", "2"]}], ",", 
     SubsuperscriptBox["S", "k", "3"], ",", 
     SubsuperscriptBox["S", "s", "2"], ",", 
     RowBox[{
      SubscriptBox["S", "s"], 
      SubscriptBox["S", "k"]}], ",", 
     SubsuperscriptBox["S", "k", "2"], ",", 
     SubscriptBox["S", "s"], ",", 
     SubscriptBox["S", "k"], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubsuperscriptBox["S", "k", "3"], ",", 
     SubsuperscriptBox["S", "k", "2"], ",", 
     SubscriptBox["S", "k"], ",", "1"}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[84]=",ExpressionUUID->"d25a32ea-f8cf-4935-8840-7b7a698d8087"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "now", " ", "confirm", " ", "that", " ", "our", " ", 
    "annihilators", " ", "are", " ", "correct", " ", "and", " ", "indeed", 
    " ", "annihilates", " ", "our", " ", 
    RowBox[{"sum", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"ApplyOreOperator", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ann1", ",", "ann2"}], "}"}], ",", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"b", ",", "s", ",", "x", ",", "k", ",", "r"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "1", ",", "s"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellLabel->"In[85]:=",ExpressionUUID->"21736cec-c90a-4801-90cd-936da8c382dd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[85]=",ExpressionUUID->"064a89ed-7752-4015-adfd-8d23fee119e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "confirm", " ", "that", " ", "our", " ", "computations", " ", 
    "are", " ", 
    RowBox[{"correct", "."}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"OreReduce", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ann1", ",", "ann2"}], "}"}], ",", "Pinner1"}], "]"}]}]], "Input",\

 CellLabel->"In[86]:=",ExpressionUUID->"b1485961-0aea-4e9b-a8b6-f54a9210c746"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[86]=",ExpressionUUID->"38c33d29-2e47-4ec7-b152-59fb2f4bded7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"In", " ", "fact"}], ",", " ", 
    RowBox[{
    "the", " ", "telescopers", " ", "are", " ", "the", " ", "correct", " ", 
     "annihilators", " ", "already", " ", "due", " ", "to", " ", "a", " ", 
     "natural", " ", "boundaries", " ", 
     RowBox[{"argument", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Annihilator", "[", 
    RowBox[{
     RowBox[{"F1", "[", 
      RowBox[{"b", ",", "s", ",", "x", ",", "k"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"S", "[", "s", "]"}], ",", 
       RowBox[{"S", "[", "k", "]"}]}], "}"}]}], "]"}], "===", 
   "Pinner1"}]}]], "Input",
 CellLabel->"In[87]:=",ExpressionUUID->"e32f407a-f375-43af-b64a-906fded3eee9"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[87]=",ExpressionUUID->"627e5d48-e97d-4596-bb6e-a6d6242db7a1"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Treatment of Inhomogeneous Parts: Closure", "Subsection",ExpressionUUID->"4f59ca7e-b0bf-4a86-b500-4baea6fd6b53"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "G1", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"G1", "[", 
     RowBox[{"b_", ",", "m_", ",", "s_", ",", "x_"}], "]"}], ":=", 
    RowBox[{"-", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Binomial", "[", 
         RowBox[{"s", ",", "r"}], "]"}], " ", 
        RowBox[{"Binomial", "[", 
         RowBox[{
          RowBox[{"k", "-", "1"}], ",", 
          RowBox[{"r", "-", "1"}]}], "]"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "-", "1"}], ")"}], "^", "r"}], " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], " ", "/", " ", 
         RowBox[{"b", "^", "r"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"m", "+", "s", "-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "s"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Subs", " ", "for", " ", 
     RowBox[{"testing", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"subs", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"b", "\[Rule]", "31"}], ",", 
       RowBox[{"m", "\[Rule]", "15"}], ",", 
       RowBox[{"x", "\[Rule]", 
        RowBox[{"5", "/", "7"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"checksubs", "=", 
     RowBox[{"{", 
      RowBox[{"31", ",", "15", ",", "s", ",", "x"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Summand", " ", "of", " ", "G1"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"b_", ",", "s_", ",", "x_", ",", "k_", ",", "r_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Binomial", "[", 
       RowBox[{"s", ",", "r"}], "]"}], " ", 
      RowBox[{"Binomial", "[", 
       RowBox[{
        RowBox[{"k", "-", "1"}], ",", 
        RowBox[{"r", "-", "1"}]}], "]"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "-", "1"}], ")"}], "^", "r"}], " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], " ", "/", " ", 
       RowBox[{"b", "^", "r"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Innersum", " ", "of", " ", "G1"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"F1", "[", 
      RowBox[{"b_", ",", "s_", ",", "x_", ",", "k_"}], "]"}], ":=", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"b", ",", "s", ",", "x", ",", "k", ",", "r"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Creative", " ", "Telescoping"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Pinner1", ",", "Qinner1"}], "}"}], "=", 
     RowBox[{"CreativeTelescoping", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"b", ",", "s", ",", "x", ",", "k", ",", "r"}], "]"}], ",", 
       RowBox[{
        RowBox[{"S", "[", "r", "]"}], "-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"S", "[", "s", "]"}], ",", 
         RowBox[{"S", "[", "k", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Pouter1", ",", "Qouter1"}], "}"}], "=", 
    RowBox[{"CreativeTelescoping", "[", 
     RowBox[{"Pinner1", ",", 
      RowBox[{
       RowBox[{"S", "[", "k", "]"}], "-", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{"S", "[", "s", "]"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellLabel->"In[88]:=",ExpressionUUID->"a4ddf166-1f54-489e-a721-42e3ac62e61b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"b", " ", "x"}]}], ")", 
      SubscriptBox["S", "s"]}], "+", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"1", "+", "k"}], 
       RowBox[{"b", " ", "s", " ", "x"}]], 
      SubscriptBox["S", "k"]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "k"}], "+", "s", "-", 
       RowBox[{"b", " ", "s"}]}], 
      RowBox[{"b", " ", "s"}]]}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[94]=",ExpressionUUID->"e0326bca-defd-4238-ab04-10544e2e2674"]
}, Open  ]],

Cell["\<\
Symbolic Computation : Here we deal with unnatural boundaries and the fact \
that the telescoper does not commute with the sum and make the appropriate \
adjustments \
\>", "Text",ExpressionUUID->"c7ab86dd-10f2-41d5-8f96-e49faf7ea7e5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "first", " ", "apply", " ", "the", " ", "certificates", " ", 
    "and", " ", "then", " ", "determine", " ", "the", " ", "collapsing", " ", 
    "sum", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"up", " ", "to", " ", "k"}], "=", 
       RowBox[{"m", "+", "s", "-", "1"}]}], ")"}], "."}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"outercert1", "=", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"delta", "=", 
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"Qouter1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"F1", "[", 
            RowBox[{"b", ",", "s", ",", "x", ",", "k"}], "]"}]}], "]"}]}], 
        "}"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"k", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{"s", "+", "m"}], ")"}]}]}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"k", "\[Rule]", "1"}]}], ")"}]}]}], "]"}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Next", ",", " ", 
     RowBox[{
     "we", " ", "determine", " ", "the", " ", "annihilator", " ", "of", " ", 
      "the", " ", "collapsed", " ", "sum", " ", "and", " ", "extra", " ", 
      "stuff", " ", "that", " ", "was", " ", "added", " ", "to", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"P", "*", 
         RowBox[{"F", "[", 
          RowBox[{"s", ",", "k"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "1", ",", 
          RowBox[{"m", "+", "s", "-", "1"}]}], "}"}]}], "]"}], " ", "so", " ",
       "that", " ", "what", " ", "remains", " ", "is", " ", "P", "*", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"s", ",", "k"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"m", "+", "s", "-", "1"}]}], "}"}]}], "]"}], "."}]}]}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"outerstuff1", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"b", " ", "x"}]}], ")"}], 
      RowBox[{"F1", "[", 
       RowBox[{"b", ",", 
        RowBox[{"s", "+", "1"}], ",", "x", ",", 
        RowBox[{"m", "+", "s"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "The", " ", "inhomogeneous", " ", "part", " ", "is", " ", "the", " ", 
     "combination", " ", "of", " ", "stuff", " ", "we", " ", "want", " ", 
     "to", " ", "remove", " ", "and", " ", "the", " ", "telescoped", " ", 
     RowBox[{"sum", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"inhom1", "=", 
    RowBox[{"FunctionExpand", "[", 
     RowBox[{
      RowBox[{"-", "outerstuff1"}], "+", "outercert1"}], "]"}]}]}]}]], "Input",\

 CellLabel->
  "In[124]:=",ExpressionUUID->"fd96da27-4ce1-4753-9c88-3c76771ea712"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "b"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "s", "-", 
       RowBox[{"b", " ", "s"}]}], ")"}], " ", "x"}], "b"]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "b"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "b", "-", "s", "+", 
      RowBox[{"b", " ", "s"}]}], ")"}], " ", "x"}], "b"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "b"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "m", "+", "s"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", "x"}], ")"}], 
     RowBox[{"1", "+", "m", "+", "s"}]], " ", 
    RowBox[{"Hypergeometric2F1", "[", 
     RowBox[{
      RowBox[{"1", "-", "s"}], ",", 
      RowBox[{
       RowBox[{"-", "m"}], "-", "s"}], ",", "2", ",", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", "b"}], "b"]}], "]"}]}], 
   RowBox[{
    SuperscriptBox["b", "2"], " ", "x"}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "b"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "m"}], "-", 
      RowBox[{"b", " ", "s"}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", "x"}], ")"}], 
     RowBox[{"m", "+", "s"}]], " ", 
    RowBox[{"Hypergeometric2F1", "[", 
     RowBox[{
      RowBox[{"1", "-", "s"}], ",", 
      RowBox[{"1", "-", "m", "-", "s"}], ",", "2", ",", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", "b"}], "b"]}], "]"}]}], 
   SuperscriptBox["b", "2"]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "b"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "s"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", "x"}], ")"}], 
     RowBox[{"m", "+", "s"}]], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"b", " ", "x"}]}], ")"}], " ", 
    RowBox[{"Hypergeometric2F1", "[", 
     RowBox[{
      RowBox[{"1", "-", "m", "-", "s"}], ",", 
      RowBox[{"-", "s"}], ",", "2", ",", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", "b"}], "b"]}], "]"}]}], "b"]}]], "Output",
 CellLabel->
  "Out[126]=",ExpressionUUID->"c511414c-5cfa-4073-89b1-d74ccb1a0614"]
}, Open  ]],

Cell["\<\
We now illustrate how inhom1 can be simplified and rewritten so that we can \
use the closure property of applying an operator. \
\>", "Text",ExpressionUUID->"e8076519-45f5-4ddb-963c-af59d0107aa8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "first", " ", "two", " ", "terms", " ", "do", " ", "not", " ", 
    "contain", " ", "2", "F1s", " ", "so", " ", "they", " ", "will", " ", 
    "be", " ", "easy", " ", "to", " ", 
    RowBox[{"treat", ".", " ", "We"}], " ", "therefore", " ", "separate", " ",
     "inhom1", " ", "into", " ", "two", " ", 
    RowBox[{"parts", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"inhom1first", "=", 
     RowBox[{"inhom1", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inhom1last", "=", 
     RowBox[{"inhom1", "[", 
      RowBox[{"[", 
       RowBox[{"3", ";;", "5"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "We", " ", "rewrite", " ", "inhom1last", " ", "as", " ", "a", " ", 
     "combination", " ", "of", " ", "some", " ", "shifts", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"by", " ", "observation"}], ")"}], "."}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hg", "[", 
     RowBox[{"s_", ",", "m_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", " ", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "s"}], ")"}]}], "*", 
     RowBox[{"Hypergeometric2F1", "[", 
      RowBox[{
       RowBox[{"1", "-", "s"}], ",", 
       RowBox[{"2", "-", "m", "-", "s"}], ",", "2", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "1"}], ")"}], "/", "b"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pf1", "=", 
     RowBox[{"HoldForm", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "b"}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "m", "+", "s"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "^", "2"}], " ", "x", " ", "*", " ", "b", " ", "x"}], 
         " ", ")"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pf2", "=", 
     RowBox[{"HoldForm", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "b"}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "m"}], "-", 
          RowBox[{"b", " ", "s"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "^", "2"}], " ", "*", " ", "b", " ", "x"}], ")"}]}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pf3", "=", 
     RowBox[{"HoldForm", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "b"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "+", "s"}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"b", " ", "*", "b", " ", "x"}], ")"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "This", " ", "is", " ", "the", " ", "new", " ", "operator", " ", 
     "constructed", " ", "from", " ", "the", " ", "above", " ", 
     RowBox[{"observations", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"op", "=", 
     RowBox[{
      RowBox[{"pf1", " ", 
       RowBox[{
        RowBox[{"S", "[", "m", "]"}], "^", "2"}]}], "+", 
      RowBox[{"pf2", " ", 
       RowBox[{"S", "[", "m", "]"}]}], "+", 
      RowBox[{"pf3", " ", 
       RowBox[{"S", "[", "s", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"applyop", "=", 
     RowBox[{"ReleaseHold", "[", 
      RowBox[{"ApplyOreOperator", "[", 
       RowBox[{"op", ",", 
        RowBox[{"hg", "[", 
         RowBox[{"s", ",", "m"}], "]"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "We", " ", "can", " ", "see", " ", "that", " ", "our", " ", "operator", 
     " ", "gives", " ", "us", " ", "the", " ", "correct", " ", 
     RowBox[{"expression", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", "inhom1last", "]"}], "===", 
    RowBox[{"Simplify", "[", "applyop", "]"}]}]}]}]], "Input",
 CellLabel->
  "In[127]:=",ExpressionUUID->"2343d248-f10d-428a-a205-47905e434315"],

Cell[BoxData["True"], "Output",
 CellLabel->
  "Out[135]=",ExpressionUUID->"e408f987-1fa5-4f44-9a0e-bb8b2a62f046"]
}, Open  ]],

Cell["\<\
This allows us to compute the annihilator for inhom1 by computing the \
separate annihilators and applying the closure property. \
\>", "Text",ExpressionUUID->"e5bcad7d-f7ff-437f-a1bd-8be5df2438eb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"anninhom1first", "=", 
   RowBox[{"Annihilator", "[", 
    RowBox[{"inhom1first", ",", 
     RowBox[{"{", 
      RowBox[{"S", "[", "s", "]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anninhom1last", "=", 
   RowBox[{"DFiniteOreAction", "[", 
    RowBox[{
     RowBox[{"Annihilator", "[", 
      RowBox[{
       RowBox[{"hg", "[", 
        RowBox[{"s", ",", "m"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"S", "[", "m", "]"}], ",", 
         RowBox[{"S", "[", "s", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"ReleaseHold", "[", "op", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R1", "=", 
    RowBox[{"DFinitePlus", "[", 
     RowBox[{"anninhom1first", ",", 
      RowBox[{"{", 
       RowBox[{"ToOrePolynomial", "[", 
        RowBox[{
         RowBox[{"anninhom1last", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"OreAlgebra", "[", 
          RowBox[{"S", "[", "s", "]"}], "]"}]}], "]"}], "}"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "now", " ", "finally", " ", "have", " ", "a", " ", "good", " ", 
    "annihilator", " ", "for", " ", 
    RowBox[{"polyfirst", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"annouter1", "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"#", "**", 
         RowBox[{"Pouter1", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "&"}], "/@", "R1"}], 
     ")"}]}], ";"}], " ", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "support", " ", "gives", " ", "an", " ", "idea", " ", "of", 
    " ", "the", " ", "operators", " ", "that", " ", "we", " ", "are", " ", 
    "dealing", " ", "with", " ", "in", " ", "our", " ", "annihilating", " ", 
    RowBox[{"ideal", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Support", "[", "annouter1", "]"}]}], "Input",
 CellLabel->
  "In[136]:=",ExpressionUUID->"47d15982-77ef-445a-bdc4-acd4adc23dd1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    SubsuperscriptBox["S", "s", "4"], ",", 
    SubsuperscriptBox["S", "s", "3"], ",", 
    SubsuperscriptBox["S", "s", "2"], ",", 
    SubscriptBox["S", "s"], ",", "1"}], "}"}], "}"}]], "Output",
 CellLabel->
  "Out[140]=",ExpressionUUID->"c8f831cd-41d4-4862-86b1-0ff1cc1b73cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Another", " ", "quick", " ", "check", " ", "confirms", " ", "that", " ", 
    "we", " ", "are", " ", "on", " ", "the", " ", "right", " ", 
    RowBox[{"track", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"G1", "@@", "checksubs"}], ")"}], "/.", 
           RowBox[{"x", "\[Rule]", 
            RowBox[{"5", "/", "7"}]}]}]}], "]"}], "&"}], "/@", "annouter1"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "30"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"%", "/.", "subs"}], "//", "Flatten"}], "//", "Union"}], ")"}],
     "===", 
    RowBox[{"{", "0", "}"}]}]}]}]], "Input",
 CellLabel->
  "In[141]:=",ExpressionUUID->"23065065-f846-471c-8b23-fdddf3a76156"],

Cell[BoxData["True"], "Output",
 CellLabel->
  "Out[142]=",ExpressionUUID->"08057c5c-3271-461d-8488-5f2b12a37c7a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Speedup: DFiniteSub", "Subsection",ExpressionUUID->"ffb9bb04-aade-40a0-bf7a-7032cfcc90e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "G2", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"G2", "[", 
      RowBox[{"b_", ",", "m_", ",", "s_", ",", "x_"}], "]"}], ":=", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Binomial", "[", 
         RowBox[{"s", ",", "r"}], "]"}], " ", 
        RowBox[{"Binomial", "[", 
         RowBox[{
          RowBox[{"k", "-", "1"}], ",", 
          RowBox[{"r", "-", "1"}]}], "]"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "b"}], ")"}], "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"-", "b"}], ")"}], "^", "r"}]}], " ", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Binomial", "[", 
            RowBox[{
             RowBox[{"r", "-", "1"}], ",", "i"}], "]"}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"-", "b"}], ")"}], "^", "i"}], " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"b", " ", "x"}], ")"}], "^", "k"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"r", "-", 
             RowBox[{"(", 
              RowBox[{"k", "-", "m"}], ")"}]}], ",", 
            RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"m", "+", "1"}], ",", 
         RowBox[{"m", "+", "s", "-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "s"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"subs", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"b", "\[Rule]", "31"}], ",", 
       RowBox[{"m", "\[Rule]", "15"}], ",", 
       RowBox[{"x", "\[Rule]", 
        RowBox[{"5", "/", "7"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"checksubs", "=", 
     RowBox[{"{", 
      RowBox[{"31", ",", "15", ",", "s", ",", "x"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Inner", " ", "Summand", " ", "of", " ", "G2"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"h", "[", 
      RowBox[{"s_", ",", "k_", ",", "r_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Binomial", "[", 
       RowBox[{"s", ",", "r"}], "]"}], " ", 
      RowBox[{"Binomial", "[", 
       RowBox[{
        RowBox[{"k", "-", "1"}], ",", 
        RowBox[{"r", "-", "1"}]}], "]"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "b"}], ")"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "b"}], ")"}], "^", "r"}]}], " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Binomial", "[", 
          RowBox[{
           RowBox[{"r", "-", "1"}], ",", "i"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"-", "b"}], ")"}], "^", "i"}], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", " ", "x"}], ")"}], "^", "k"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"r", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "m"}], ")"}]}], ",", 
          RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Inner", " ", "Sum", " ", "of", " ", "G2"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"H", "[", 
      RowBox[{"s_", ",", "k_"}], "]"}], ":=", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"h", "[", 
        RowBox[{"s", ",", "k", ",", "r"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Creative", " ", "Telescoping"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Pinner2", ",", "Qinner2"}], "}"}], "=", 
     RowBox[{"CreativeTelescoping", "[", 
      RowBox[{
       RowBox[{"h", "[", 
        RowBox[{"s", ",", "k", ",", "r"}], "]"}], ",", 
       RowBox[{
        RowBox[{"S", "[", "r", "]"}], "-", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"S", "[", "k", "]"}], ",", 
         RowBox[{"S", "[", "s", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Timing", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Pouter2", ",", "Qouter2"}], "}"}], "=", 
       RowBox[{"CreativeTelescoping", "[", 
        RowBox[{"Pinner2", ",", 
         RowBox[{
          RowBox[{"S", "[", "k", "]"}], "-", "1"}], ",", 
         RowBox[{"{", 
          RowBox[{"S", "[", "s", "]"}], "}"}]}], "]"}]}], ";"}], "]"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "This", " ", "took", " ", "about", " ", "70", " ", "seconds", " ", "so", 
     " ", "we", " ", "save", " ", "it", " ", "and", " ", "then", " ", 
     "import", " ", "it", " ", "for", " ", "use", " ", "in", " ", "this", " ", 
     RowBox[{"notebook", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Pouter2", ",", "Qouter2"}], "}"}], "=", 
     RowBox[{"Import", "[", "\"\<ctouter2.m\>\"", "]"}]}], ";"}], 
   " "}]}]], "Input",
 CellLabel->
  "In[151]:=",ExpressionUUID->"ad12d752-f905-46ab-bb67-cbd124113565"],

Cell["\<\
Symbolic Computation I: Here we deal with the fact that the telescoper does \
not commute with the sum and make the appropriate adjustments.\
\>", "Text",ExpressionUUID->"0462d3f5-bf82-44ca-a3d1-d87a29cc2386"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "first", " ", "apply", " ", "the", " ", "certificates", " ", 
    "and", " ", "then", " ", "determine", " ", "the", " ", "collapsing", " ", 
    "sum", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"up", " ", "to", " ", "k"}], "=", 
       RowBox[{"m", "+", "s", "-", "1"}]}], ")"}], "."}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"outercert2", "=", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"delta", "=", 
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{"Qouter2", ",", 
           RowBox[{"HH", "[", 
            RowBox[{"s", ",", "k"}], "]"}]}], "]"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"k", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{"m", "+", "s"}], ")"}]}]}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"k", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}]}]}], ")"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Next", " ", "we", " ", "determine", " ", "the", " ", "stuff", " ", 
     "that", " ", "must", " ", "be", " ", "removed", " ", "to", " ", "take", 
     " ", "into", " ", "account", " ", "the", " ", "extra", " ", "shifts", 
     " ", "when", " ", "moving", " ", "the", " ", "telescopers", " ", 
     "outside", " ", "of", " ", "the", " ", 
     RowBox[{"sum", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Pouter2coeff", "=", 
     RowBox[{"OrePolynomialListCoefficients", "[", 
      RowBox[{"Pouter2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"outerstuff2", "=", 
     RowBox[{"Total", "[", 
      RowBox[{
       RowBox[{"Pouter2coeff", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "3"}], "]"}], "]"}], "*", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{"HH", "[", 
            RowBox[{
             RowBox[{"s", "+", "i"}], ",", "k"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", 
             RowBox[{"m", "+", "s"}], ",", 
             RowBox[{"m", "+", "s", "+", "i", "-", "1"}]}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3", ",", "1", ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "The", " ", "inhomogeneous", " ", "part", " ", "is", " ", "a", " ", 
     "combination", " ", "of", " ", "stuff", " ", "we", " ", "want", " ", 
     "to", " ", "remove", " ", "and", " ", "the", " ", "telescoped", " ", 
     "sums", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"from", " ", "the", " ", "delta"}], ")"}], "."}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inhom2", "=", 
     RowBox[{
      RowBox[{"-", "outerstuff2"}], "+", "outercert2"}]}], ";"}]}]}]], "Input",\

 CellLabel->
  "In[158]:=",ExpressionUUID->"4cba6e8d-091d-40e4-b354-11e541db85ea"],

Cell["\<\
Symbolic Computation II: Here we try to avoid Mathematica's use of 2F1s and \
DifferenceRoots by rewriting all the inhomogeneous parts as an operator. \
\>", "Text",ExpressionUUID->"fde6d19f-854f-440f-ba3c-aa78b41a94c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "We", " ", "first", " ", "note", " ", "that", " ", "the", " ", "pieces", 
     " ", "that", " ", "DO", " ", "NOT", " ", "have", " ", "2", "F1s", " ", 
     "evaluate", " ", "to", " ", "0"}], ":", " ", 
    RowBox[{
    "this", " ", "corresponds", " ", "to", " ", "evaluating", " ", "the", " ",
      "sum", " ", "with", " ", "the", " ", "certificates", " ", "at", " ", 
     "the", " ", "lower", " ", 
     RowBox[{"boundary", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"posfree", "=", 
     RowBox[{
      RowBox[{"Position", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"FreeQ", "[", 
           RowBox[{"#", ",", "Hypergeometric2F1"}], "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"List", "@@", 
            RowBox[{"inhom2", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
           RowBox[{"HH", "\[Rule]", "H"}]}], ")"}]}], ",", "True"}], "]"}], "//",
       "Flatten"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"inhom2", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "posfree"}], "]"}], "]"}], "/.", 
      RowBox[{"HH", "\[Rule]", "H"}]}], "//", "Cancel"}], "//", 
    "FunctionExpand"}]}]}]], "Input",
 CellLabel->
  "In[162]:=",ExpressionUUID->"be2a6cd7-ef75-4eb8-b438-ed622ba663d2"],

Cell[BoxData["0"], "Output",
 CellLabel->
  "Out[163]=",ExpressionUUID->"a9121d70-629b-4874-a839-cb4ba172bbe4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "remove", " ", "those", " ", "zero", " ", "pieces", " ", "and", 
    " ", "proceed", " ", "to", " ", "determine", " ", "an", " ", 
    "annihilator", " ", "for", " ", "the", " ", "rest", " ", "of", " ", 
    RowBox[{"inhom2", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"inhom2rest", "=", 
     RowBox[{"(", 
      RowBox[{"inhom2", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", 
         RowBox[{"Complement", "[", 
          RowBox[{
           RowBox[{"Range", "[", "9", "]"}], ",", "posfree"}], "]"}]}], "]"}],
        "]"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "We", " ", "construct", " ", "an", " ", "operator", " ", "for", " ", 
     "these", " ", "parts", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
       "this", " ", "is", " ", "done", " ", "by", " ", "observation"}], ")"}],
       "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"newop", "=", 
     RowBox[{"Qouter2", "-", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Pouter2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"S", "[", "s", "]"}], ",", "i"}], "]"}], "**", 
         RowBox[{
          RowBox[{"S", "[", "s", "]"}], "^", "i"}], "**", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"S", "[", "k", "]"}], "^", "j"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "0", ",", 
             RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Let", "'"}], "s", " ", "make", " ", "sure", " ", "our", " ", 
     "operator", " ", "is", " ", "correct", " ", "after", " ", "the", " ", 
     "application", " ", "and", " ", 
     RowBox[{"substitution", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Together", "[", 
     RowBox[{
      RowBox[{"inhom2rest", "-", 
       RowBox[{"ApplyOreOperator", "[", 
        RowBox[{"newop", ",", 
         RowBox[{"HH", "[", 
          RowBox[{"s", ",", "k"}], "]"}]}], "]"}]}], "/.", 
      RowBox[{"k", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{"m", "+", "s"}], ")"}]}]}], "]"}], "===", 
    RowBox[{"{", "0", "}"}]}]}]}]], "Input",
 CellLabel->
  "In[164]:=",ExpressionUUID->"6094b2f0-ac2c-434c-9044-e1aee50fb860"],

Cell[BoxData["True"], "Output",
 CellLabel->
  "Out[166]=",ExpressionUUID->"d7e3fe92-7caa-4ac3-a3e1-d73aa4e13294"]
}, Open  ]],

Cell["\<\
Symbolic Computation III: Finally, we take control of the substitution by \
deciding which monomial to use first.\
\>", "Text",ExpressionUUID->"4dd36d95-de4d-42f5-8c85-e20ebb4ff213"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "the", " ", "long", " ", "way", " ", "and", " ", 
    "we", " ", "keep", " ", "it", " ", "here", " ", "so", " ", "that", " ", 
    "the", " ", "timings", " ", "can", " ", "be", " ", 
    RowBox[{"compared", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"R2act", "=", 
      RowBox[{"DFiniteOreAction", "[", 
       RowBox[{"Pinner2", ",", "newop"}], "]"}]}], ";"}], "]"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"The", " ", "above", " ", "took", " ", "331", " ", 
    RowBox[{"seconds", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"R2", "=", 
      RowBox[{"DFiniteSubstitute", "[", 
       RowBox[{"R2act", ",", 
        RowBox[{"{", 
         RowBox[{"k", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"m", "+", "s"}], ")"}]}], "}"}]}], "]"}]}], ";"}], "]"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"This", " ", "above", " ", "took", " ", "107860", " ", 
    RowBox[{"seconds", "!!"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"annouter2", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"R2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "**", 
       RowBox[{"Pouter2", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";"}], " ", 
   "*)"}]}]], "Input",ExpressionUUID->"c1ee94e0-abeb-4ded-98dd-1ffffa7c0def"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Here", ",", " ", 
    RowBox[{
    "we", " ", "are", " ", "taking", " ", "control", " ", "of", " ", "the", 
     " ", 
     RowBox[{"substitution", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"First", ",", " ", 
    RowBox[{
    "we", " ", "compute", " ", "the", " ", "operators", " ", "that", " ", 
     "act", " ", "on", " ", "our", " ", "inhomogeneous", " ", 
     RowBox[{"parts", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"R2act", "=", 
      RowBox[{"DFiniteOreAction", "[", 
       RowBox[{"Pinner2", ",", "newop"}], "]"}]}], ";"}], "]"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "above", " ", "took", " ", "331", " ", "seconds", " ", "so", 
    " ", "we", " ", "save", " ", "and", " ", 
    RowBox[{"reload", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"R2act", "=", 
     RowBox[{"Import", "[", "\"\<ctR2act.m\>\"", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "The", " ", "following", " ", "information", " ", "allows", " ", "us", 
     " ", "to", " ", "determine", " ", "the", " ", "holonomic", " ", "rank", 
     " ", "and", " ", 
     RowBox[{"shape", "/", "size"}], " ", "of", " ", "our", " ", 
     RowBox[{"operator", "."}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"#", "/@", "R2act"}], ")"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"ByteCount", ",", "Support"}], "}"}]}]}]}]], "Input",
 CellLabel->
  "In[143]:=",ExpressionUUID->"a1d6b318-ea54-4810-8ded-2b78d8148dfc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"19199856", ",", "9133192", ",", "22585680"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["S", "s", "2"], ",", 
       SubscriptBox["S", "k"], ",", 
       SubscriptBox["S", "s"], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["S", "k"], 
        SubscriptBox["S", "s"]}], ",", 
       SubscriptBox["S", "k"], ",", 
       SubscriptBox["S", "s"], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["S", "k", "2"], ",", 
       SubscriptBox["S", "k"], ",", 
       SubscriptBox["S", "s"], ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output",\

 CellLabel->
  "Out[144]=",ExpressionUUID->"503c2854-e4b0-4798-943c-88af5a0c1197"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "also", " ", "identify", " ", "the", " ", "set", " ", "of", " ",
     "irreducible", " ", "monomials", " ", "of", " ", "the", " ", "Groebener",
     " ", "basis", " ", "for", " ", "the", " ", "annihilating", " ", 
    RowBox[{"ideal", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"UnderTheStaircase", "[", "R2act", "]"}]}]], "Input",
 CellLabel->
  "In[145]:=",ExpressionUUID->"6ea535c0-f40c-4735-ae6f-6e844013d186"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   SubscriptBox["S", "s"], ",", 
   SubscriptBox["S", "k"]}], "}"}]], "Output",
 CellLabel->
  "Out[145]=",ExpressionUUID->"fa5b5555-2046-4591-ac1b-81fcb4627739"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"We", " ", "now", " ", "do", " ", "DFiniteSub", " ", "by", " ", 
    RowBox[{"hand", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "To", " ", "do", " ", "this", " ", "we", " ", "will", " ", "construct", 
    " ", "an", " ", "operator", " ", "T", " ", "with", " ", "the", " ", 
    "desired", " ", 
    RowBox[{"properties", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"In", " ", "particular"}], ",", " ", 
    RowBox[{
    "it", " ", "should", " ", "be", " ", "generated", " ", "by", " ", "the", 
     " ", "Groebner", " ", "basis", " ", "of", " ", "R2act", " ", "and", " ", 
     "have", " ", "support", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"S", "[", "s", "]"}], 
         RowBox[{"S", "[", "k", "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"S", "[", "s", "]"}], 
           RowBox[{"S", "[", "k", "]"}]}], ")"}], "^", "2"}]}], "}"}], ".", 
      " ", "We"}], " ", "do", " ", "this", " ", "using", " ", "the", " ", 
     "command", " ", 
     RowBox[{"OreReduce", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "also", " ", "apply", " ", "the", " ", "substitution", " ", 
    RowBox[{"already", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"red00", "=", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"red11", "=", 
     RowBox[{"OrePolynomialListCoefficients", "[", 
      RowBox[{"OreReduce", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"S", "[", "k", "]"}], 
         RowBox[{"S", "[", "s", "]"}]}], ",", 
        RowBox[{"Together", "[", "R2act", "]"}], ",", 
        RowBox[{"OrePolynomialSubstitute", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"k", "\[Rule]", 
           RowBox[{"m", "+", "s"}]}], "}"}]}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Speedup", " ", "actually", " ", "occurs", " ", 
     RowBox[{"here", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"red22a", "=", 
      RowBox[{"OreReduce", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"S", "[", "k", "]"}], "^", "2"}], 
         RowBox[{
          RowBox[{"S", "[", "s", "]"}], "^", "2"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"Together", "[", 
          RowBox[{"R2act", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], "}"}], ",", 
        RowBox[{"OrePolynomialSubstitute", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"k", "\[Rule]", 
           RowBox[{"m", "+", "s"}]}], "}"}]}]}], "]"}]}], ";", " ", 
     RowBox[{"Print", "[", "\"\<Timing for red22a\>\"", "]"}], ";"}], " ", 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"red22a", ">>", "\"\<red22a.m\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coeffs", "=", 
     RowBox[{"Together", "[", 
      RowBox[{
       RowBox[{"OrePolynomialListCoefficients", "[", 
        RowBox[{"R2act", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}], "/.", 
       RowBox[{"k", "\[Rule]", 
        RowBox[{"m", "+", "s"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coeffs1", "=", 
     RowBox[{"Together", "[", 
      RowBox[{
       RowBox[{"coeffs", "[", 
        RowBox[{"[", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], "]"}], "]"}], "/", 
       RowBox[{"coeffs", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coeffs2", "=", 
     RowBox[{"Together", "[", 
      RowBox[{
       RowBox[{"LeadingCoefficient", "[", "red22a", "]"}], "*", "coeffs1"}], 
      "]"}]}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"red22", "=", 
      RowBox[{"Together", "[", 
       RowBox[{
        RowBox[{"Rest", "[", 
         RowBox[{"OrePolynomialListCoefficients", "[", "red22a", "]"}], "]"}],
         "-", "coeffs2"}], "]"}]}], ";", " ", 
     RowBox[{"Print", "[", "\"\<Timing for red22\>\"", "]"}], ";"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"red22", ">>", "\"\<red22.m\>\""}], ";"}]}]}]], "Input",
 CellLabel->"In[82]:=",ExpressionUUID->"c14dc187-2fee-414a-9225-3f390192d112"],

Cell[BoxData["\<\"Timing for red22a\"\>"], "Print",
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"605f0e49-b328-4125-8ad5-bb462edb239f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1004.665933`", ",", "Null"}], "}"}]], "Output",
 CellLabel->"Out[84]=",ExpressionUUID->"66329bbc-00c8-4889-988d-de24e91aafc0"],

Cell[BoxData["\<\"Timing for red22\"\>"], "Print",
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"f2bb19aa-694d-4345-aac0-b41b187111c0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3211.569356`", ",", "Null"}], "}"}]], "Output",
 CellLabel->"Out[89]=",ExpressionUUID->"0136afe0-1489-4973-aabd-36aaca0ad8f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Next", ",", " ", 
    RowBox[{"from", " ", "our", " ", "ansatz", " ", "for", " ", "T"}], ",", 
    " ", 
    RowBox[{
    "we", " ", "solve", " ", "the", " ", "corresponding", " ", "system", " ", 
     "for", " ", "the", " ", 
     RowBox[{"coefficients", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"sys", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"red00", ",", "red11", ",", "red22"}], "}"}], "]"}]}], ";"}], 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Timing", "[", 
    RowBox[{
     RowBox[{"R2", "=", 
      RowBox[{
       RowBox[{"NormalizeVector", "[", 
        RowBox[{
         RowBox[{"NullSpace", "[", "sys", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], "//", "Reverse"}]}], ";", " ", 
     RowBox[{
     "Print", "[", "\"\<Timing for solving the linear system.\>\"", "]"}], 
     ";"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"R2", "=", 
     RowBox[{"ToOrePolynomial", "[", 
      RowBox[{
       RowBox[{"R2", ".", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"S", "[", "s", "]"}], "^", "2"}], ",", 
          RowBox[{"S", "[", "s", "]"}], ",", "1"}], "}"}]}], ",", 
       RowBox[{"OreAlgebra", "[", 
        RowBox[{"S", "[", "s", "]"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "The", " ", "whole", " ", "procedure", " ", "takes", " ", "about", " ", 
     "4200", " ", "seconds", " ", "so", " ", "we", " ", "save", " ", "it", 
     " ", "and", " ", "this", " ", "can", " ", "be", " ", "imported", " ", 
     "by", " ", "removing", " ", "the", " ", "comments", " ", "from", " ", 
     "the", " ", "following", " ", 
     RowBox[{"code", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"R2", "=", 
      RowBox[{"Import", "[", "\"\<ctR2.m\>\"", "]"}]}], ";"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "This", " ", "now", " ", "gives", " ", "us", " ", "the", " ", "desired", 
     " ", "annihilator", " ", "for", " ", 
     RowBox[{"G2", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"annouter2", "=", 
     RowBox[{"{", 
      RowBox[{"R2", "**", 
       RowBox[{"Pouter2", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";"}], "  ", 
   "\[IndentingNewLine]", 
   RowBox[{"UnderTheStaircase", "[", "annouter2", "]"}], " "}]}]], "Input",
 CellLabel->
  "In[153]:=",ExpressionUUID->"465065a0-da9e-4bd5-9f86-d0072f708d21"],

Cell[BoxData["\<\"Timing for solving the linear system.\"\>"], "Print",
 CellLabel->
  "During evaluation of \
In[153]:=",ExpressionUUID->"5a560e19-6f4e-4622-a27c-eaf1738dc462"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.107975`", ",", "Null"}], "}"}]], "Output",
 CellLabel->
  "Out[154]=",ExpressionUUID->"adace755-4872-40b0-88f8-799a13f66ffc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   SubscriptBox["S", "s"], ",", 
   SubsuperscriptBox["S", "s", "2"], ",", 
   SubsuperscriptBox["S", "s", "3"], ",", 
   SubsuperscriptBox["S", "s", "4"]}], "}"}]], "Output",
 CellLabel->
  "Out[157]=",ExpressionUUID->"e645e968-4b23-47e3-9e4d-5322c465eca2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "perform", " ", "a", " ", "quick", " ", "sanity", " ", "check", 
    " ", "to", " ", "see", " ", "that", " ", "this", " ", "is", " ", "indeed",
     " ", "the", " ", "correct", " ", "annihilator", " ", "for", " ", 
    RowBox[{"G2", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"G2", "@@", "checksubs"}], ")"}], "/.", 
           RowBox[{"x", "\[Rule]", 
            RowBox[{"5", "/", "7"}]}]}]}], "]"}], "&"}], "/@", "annouter2"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "30"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"%", "/.", "subs"}], ")"}], "//", "Flatten"}], "//", 
      "Union"}], ")"}], "===", 
    RowBox[{"{", "0", "}"}]}]}]}]], "Input",
 CellLabel->
  "In[158]:=",ExpressionUUID->"2acaf8bf-ee75-41a2-9977-ee8d6f38522b"],

Cell[BoxData["True"], "Output",
 CellLabel->
  "Out[159]=",ExpressionUUID->"161ec0c5-b026-4540-8265-2810b00d6502"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Speedup: Gamma Insertions", "Subsection",ExpressionUUID->"82a4f26a-8e4d-484a-ae1a-f0810f46895e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "is", " ", "the", " ", "guessed", " ", "recurrence", " ", 
    "that", " ", "we", " ", "will", " ", "use", " ", "to", " ", "compare", 
    " ", "our", " ", 
    RowBox[{"result", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"guessrecpoly", "=", 
     RowBox[{"ToOrePolynomial", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", "m", "+", "s"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"], " ", 
         RowBox[{"c", "[", "s", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "-", 
           RowBox[{"2", " ", "m"}], "-", 
           RowBox[{"3", " ", "s"}], "+", "x", "+", 
           RowBox[{"b", " ", "x"}], "+", 
           RowBox[{"m", " ", "x"}], "+", 
           RowBox[{"b", " ", "m", " ", "x"}], "+", 
           RowBox[{"s", " ", "x"}], "+", 
           RowBox[{"b", " ", "s", " ", "x"}]}], ")"}], " ", 
         RowBox[{"c", "[", 
          RowBox[{"1", "+", "s"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"5", "+", "m", "+", 
           RowBox[{"3", " ", "s"}], "-", 
           RowBox[{"3", " ", "x"}], "-", 
           RowBox[{"3", " ", "b", " ", "x"}], "-", 
           RowBox[{"m", " ", "x"}], "-", 
           RowBox[{"b", " ", "m", " ", "x"}], "-", 
           RowBox[{"2", " ", "s", " ", "x"}], "-", 
           RowBox[{"2", " ", "b", " ", "s", " ", "x"}], "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "2"]}], "+", 
           RowBox[{"b", " ", "m", " ", 
            SuperscriptBox["x", "2"]}], "+", 
           RowBox[{"b", " ", "s", " ", 
            SuperscriptBox["x", "2"]}]}], ")"}], " ", 
         RowBox[{"c", "[", 
          RowBox[{"2", "+", "s"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "+", "s"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], " ", 
         RowBox[{"c", "[", 
          RowBox[{"3", "+", "s"}], "]"}]}]}], ",", 
       RowBox[{"c", "[", "s", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{"(*", " ", 
    RowBox[{
    "Here", " ", "is", " ", "the", " ", "summand", " ", "for", " ", "the", 
     " ", "triple", " ", 
     RowBox[{"sum", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"summand", "[", 
      RowBox[{
      "m_", ",", "s_", ",", "b_", ",", "x_", ",", "k_", ",", "r_", ",", 
       "i_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Binomial", "[", 
       RowBox[{"s", ",", "r"}], "]"}], "*", 
      RowBox[{"Binomial", "[", 
       RowBox[{
        RowBox[{"k", "-", "1"}], ",", 
        RowBox[{"r", "-", "1"}]}], "]"}], "*", 
      RowBox[{"(", 
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "b"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "-", "r"}], ")"}]}]}], ")"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "b"}], ")"}], "^", 
       RowBox[{"(", "i", ")"}]}], "*", 
      RowBox[{"Binomial", "[", 
       RowBox[{
        RowBox[{"r", "-", "1"}], ",", "i"}], "]"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "-", "1"}], ")"}], "/", "b"}], ")"}], "^", "r"}], "*", 
      
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", " ", "x"}], ")"}], "^", "k"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "New", " ", "summand", " ", "with", " ", "one", " ", "or", " ", "two", 
     " ", "gamma", " ", 
     RowBox[{"factors", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"summandTwoGammas", "[", 
     RowBox[{
     "m_", ",", "s_", ",", "b_", ",", "x_", ",", "k_", ",", "r_", ",", "i_"}],
      "]"}], ":=", 
    RowBox[{
     RowBox[{"Binomial", "[", 
      RowBox[{"s", ",", "r"}], "]"}], "*", 
     RowBox[{"Binomial", "[", 
      RowBox[{
       RowBox[{"k", "-", "1"}], ",", 
       RowBox[{"r", "-", "1"}]}], "]"}], "*", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "b"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "r"}], ")"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"-", "b"}], ")"}], "^", 
      RowBox[{"(", "i", ")"}]}], "*", 
     RowBox[{"Binomial", "[", 
      RowBox[{
       RowBox[{"r", "-", "1"}], ",", "i"}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "1"}], ")"}], "/", "b"}], ")"}], "^", "r"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Gamma", "[", 
        RowBox[{"k", "+", "eps"}], "]"}], "/", 
       RowBox[{"Gamma", "[", "k", "]"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Gamma", "[", 
        RowBox[{"r", "-", "i", "-", 
         RowBox[{"(", 
          RowBox[{"k", "-", "m"}], ")"}], "+", "eps"}], "]"}], "/", 
       RowBox[{"Gamma", "[", 
        RowBox[{"r", "-", "i", "-", 
         RowBox[{"(", 
          RowBox[{"k", "-", "m"}], ")"}]}], "]"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"summandOneGamma", "[", 
     RowBox[{
     "m_", ",", "s_", ",", "b_", ",", "x_", ",", "k_", ",", "r_", ",", "i_"}],
      "]"}], ":=", 
    RowBox[{
     RowBox[{"Binomial", "[", 
      RowBox[{"s", ",", "r"}], "]"}], "*", 
     RowBox[{"Binomial", "[", 
      RowBox[{
       RowBox[{"k", "-", "1"}], ",", 
       RowBox[{"r", "-", "1"}]}], "]"}], "*", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "b"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "r"}], ")"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"-", "b"}], ")"}], "^", 
      RowBox[{"(", "i", ")"}]}], "*", 
     RowBox[{"Binomial", "[", 
      RowBox[{
       RowBox[{"r", "-", "1"}], ",", "i"}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "1"}], ")"}], "/", "b"}], ")"}], "^", "r"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", " ", "x"}], ")"}], "^", "k"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Gamma", "[", 
        RowBox[{"r", "-", "i", "-", 
         RowBox[{"(", 
          RowBox[{"k", "-", "m"}], ")"}], "+", "eps"}], "]"}], "/", 
       RowBox[{"Gamma", "[", 
        RowBox[{"r", "-", "i", "-", 
         RowBox[{"(", 
          RowBox[{"k", "-", "m"}], ")"}]}], "]"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Triple", " ", 
     RowBox[{"sum", ":", " ", 
      RowBox[{
      "this", " ", "is", " ", "the", " ", "same", " ", "as", " ", "G", " ", 
       "and", " ", 
       RowBox[{"Gnomax", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"T", "[", 
      RowBox[{"m_", ",", "s_"}], "]"}], ":=", 
     RowBox[{"Hold", "[", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"summand", "[", 
         RowBox[{
         "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", "i"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "1", ",", 
          RowBox[{"m", "+", "s", "-", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "1", ",", "s"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", 
          RowBox[{"r", "-", "1", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "This", " ", "is", " ", "our", " ", "corrected", " ", "sum", " ", "with", 
     " ", "Gammas", " ", "on", " ", "a", " ", "slightly", " ", "enlarged", 
     " ", 
     RowBox[{"region", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Tnew2", "[", 
      RowBox[{"m_", ",", "s_"}], "]"}], ":=", 
     RowBox[{"Hold", "[", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"summandTwoGammas", "[", 
         RowBox[{
         "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", "i"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", 
          RowBox[{"-", "1"}], ",", 
          RowBox[{"m", "+", "s", "+", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", 
          RowBox[{"-", "1"}], ",", 
          RowBox[{"s", "+", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"-", "2"}], ",", 
          RowBox[{"r", "+", "1", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Tnew1", "[", 
      RowBox[{"m_", ",", "s_"}], "]"}], ":=", 
     RowBox[{"Hold", "[", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"summandOneGamma", "[", 
         RowBox[{
         "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", "i"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", 
          RowBox[{"-", "1"}], ",", 
          RowBox[{"m", "+", "s", "+", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", 
          RowBox[{"-", "1"}], ",", 
          RowBox[{"s", "+", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"-", "2"}], ",", 
          RowBox[{"r", "+", "1", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellLabel->"In[9]:=",ExpressionUUID->"5420e6f8-3a01-4047-a9a2-9718d8cf1093"],

Cell[CellGroupData[{

Cell["Figures", "Subsubsection",ExpressionUUID->"7c01307d-9692-4956-876c-221e4fec7d92"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "following", " ", "figure", " ", "gives", " ", "a", " ", 
    "visual", " ", "representation", " ", "of", " ", "how", " ", "we", " ", 
    "distinguish", " ", "the", " ", "points", " ", "we", " ", "like", " ", 
    "from", " ", "the", " ", "points", " ", "we", " ", 
    RowBox[{"don", "'"}], "t", " ", 
    RowBox[{"like", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Blue", " ", 
    RowBox[{"dots", ":", " ", 
     RowBox[{
      RowBox[{"the", " ", "summand", " ", "is", " ", "non"}], "-", 
      RowBox[{
      "zero", " ", "AND", " ", "properly", " ", "within", " ", "the", " ", 
       "given", " ", 
       RowBox[{"boundaries", "."}]}]}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Red", " ", 
    RowBox[{"dots", ":", " ", 
     RowBox[{
      RowBox[{"the", " ", "summand", " ", "is", " ", "non"}], "-", 
      RowBox[{
      "zero", " ", "and", " ", "outside", " ", "of", " ", "the", " ", "given",
        " ", 
       RowBox[{"boundaries", "."}]}]}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Empty", ":", " ", 
    RowBox[{"The", " ", "summand", " ", "is", " ", 
     RowBox[{"zero", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Goal", ":", " ", 
    RowBox[{
    "Manipulate", " ", "the", " ", "summand", " ", "with", " ", "gamma", " ", 
     "corrections", " ", "until", " ", "we", " ", "only", " ", "see", " ", 
     "the", " ", "blue", " ", 
     RowBox[{"dots", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"limit", "=", "5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"s", "=", "10"}], ",", 
       RowBox[{"m", "=", "15"}], ",", 
       RowBox[{"b", "=", "7"}], ",", 
       RowBox[{"x", "=", 
        RowBox[{"1", "/", "2"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"summand", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], "===", "0"}], ",", 
           RowBox[{"{", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", 
                 RowBox[{"m", "+", "s", "-", "1"}]}], "&&", 
                RowBox[{"1", "\[LessEqual]", "r", "\[LessEqual]", "s"}], "&&", 
                RowBox[{"0", "\[LessEqual]", "i", "\[LessEqual]", 
                 RowBox[{"r", "-", "1", "-", 
                  RowBox[{"(", 
                   RowBox[{"k", "-", "m"}], ")"}]}]}]}], ",", "Blue", ",", 
               "Red"}], "]"}], ",", 
             RowBox[{"Sphere", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"k", ",", "r", ",", "i"}], "}"}], ",", "0.3"}], 
              "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", 
           RowBox[{"-", "limit"}], ",", 
           RowBox[{"m", "+", "s", "+", "limit"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", 
           RowBox[{"-", "limit"}], ",", 
           RowBox[{"s", "+", "limit"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"-", "limit"}], ",", 
           RowBox[{"s", "+", "limit"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<k\>\"", ",", "\"\<r\>\"", ",", "\"\<i\>\""}], "}"}]}]}],
       "\[IndentingNewLine]", "]"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellLabel->"In[16]:=",ExpressionUUID->"8d172776-c2da-4835-9c01-3bbca606d8e2"],

Cell[BoxData[
 Graphics3DBox[{{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-5, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-5, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-4, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-4, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-3, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-3, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-2, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-2, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{-1, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{-1, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
     {RGBColor[1, 0, 0], SphereBox[{0, 0, -5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, -4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, -3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, -2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, -1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 9}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 10}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 11}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 12}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 13}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 14}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 0, 15}, 0.3]}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{0, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{0, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{1, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{2, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{2, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{2, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{3, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{3, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{3, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{3, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{3, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{3, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{11, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{12, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{13, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{14, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{15, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{16, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{16, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{17, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{17, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{17, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{18, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{18, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{18, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{19, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{19, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{19, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{20, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{20, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{20, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{21, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{21, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{21, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{22, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{22, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{22, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{23, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{23, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{23, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{23, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{23, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{23, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{24, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{24, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{24, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{24, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{25, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{25, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{25, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{26, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{26, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{26, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{27, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{27, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{27, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{28, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{28, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{28, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{29, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{29, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{29, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[1, 0, 0], 
      SphereBox[{30, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 2, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 3, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 3, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 4, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 4, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 4, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 5, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 5, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 5, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 5, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 6, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 6, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 6, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 6, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 6, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 7, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 7, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 7, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 7, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 7, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 7, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 8, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 8, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 8, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 8, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 8, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 8, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 8, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 9, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 0}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 1}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 2}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 3}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 4}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 5}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 6}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 7}, 0.3]}, 
     {RGBColor[1, 0, 0], SphereBox[{30, 10, 8}, 0.3]}, 
     {RGBColor[1, 0, 0], 
      SphereBox[{30, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}},
  Axes->True,
  AxesLabel->{
    FormBox["\"k\"", TraditionalForm], 
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"i\"", TraditionalForm]},
  ImageSize->{360., 360.},
  ImageSizeRaw->Automatic,
  ViewAngle->0.3161845123216475,
  ViewPoint->{1.3901560161180755`, -1.7290609717855654`, 2.5549587876712763`},
  
  ViewVertical->{-0.18257832372554464`, 0.8313534821119796, 
   1.6443742470339944`}]], "Output",
 CellLabel->"Out[17]=",ExpressionUUID->"e400991a-47e2-4430-9202-5621dc24e105"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "can", " ", "see", " ", "that", " ", "our", " ", "\"\<bad\>\"", 
    " ", 
    RowBox[{"(", "red", ")"}], " ", "points", " ", "go", " ", "away", " ", 
    "after", " ", "applying", " ", "the", " ", 
    RowBox[{"gammas", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"s", "=", "10"}], ",", 
      RowBox[{"m", "=", "15"}], ",", 
      RowBox[{"b", "=", "7"}], ",", 
      RowBox[{"x", "=", 
       RowBox[{"1", "/", "2"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"Table", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"summandTwoGammas", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], "/.", 
             RowBox[{"eps", "\[Rule]", "0"}]}], ")"}], "===", "0"}], ",", 
          RowBox[{"{", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", 
                RowBox[{"m", "+", "s", "-", "1"}]}], "&&", 
               RowBox[{"1", "\[LessEqual]", "r", "\[LessEqual]", "s"}], "&&", 
               
               RowBox[{"0", "\[LessEqual]", "i", "\[LessEqual]", 
                RowBox[{"r", "-", "1", "-", 
                 RowBox[{"(", 
                  RowBox[{"k", "-", "m"}], ")"}]}]}]}], ",", "Blue", ",", 
              "Red"}], "]"}], ",", 
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"k", ",", "r", ",", "i"}], "}"}], ",", "0.3"}], 
             "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", 
          RowBox[{"-", "limit"}], ",", 
          RowBox[{"m", "+", "s", "+", "limit"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", 
          RowBox[{"-", "limit"}], ",", 
          RowBox[{"s", "+", "limit"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"-", "limit"}], ",", 
          RowBox[{"s", "+", "limit"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<k\>\"", ",", "\"\<r\>\"", ",", "\"\<i\>\""}], "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "]"}]}]], "Input",
 CellLabel->"In[18]:=",ExpressionUUID->"1dfbcff6-f73d-476d-9dcd-40f702e51d62"],

Cell[BoxData[
 Graphics3DBox[{{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{1, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{2, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{2, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{2, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{3, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{3, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{3, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{3, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{3, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{3, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{4, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{4, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{5, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{5, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{6, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{6, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{7, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{7, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{8, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{8, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{9, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{9, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{10, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{10, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{11, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{11, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{11, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{12, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{12, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{12, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{13, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{13, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{13, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{14, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{14, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{14, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \

     {RGBColor[0, 0, 1], 
      SphereBox[{15, 1, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 2, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 2, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 3, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 3, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 4, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 4, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 5, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 5, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 6, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 6, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 7, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 7, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 8, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 8, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 9, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 9, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{15, 10, 8}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{15, 10, 9}, 
       0.3]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 2, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 3, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 3, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 4, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 4, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 5, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 5, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 6, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 6, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 7, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 7, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 8, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 8, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 9, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 9, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{16, 10, 7}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{16, 10, 8}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 3, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 4, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 4, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 5, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 5, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 6, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 6, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 7, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 7, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 8, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 8, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 9, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 9, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{17, 10, 6}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{17, 10, 7}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{18, 4, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 5, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{18, 5, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 6, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{18, 6, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 7, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{18, 7, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 8, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{18, 8, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 9, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{18, 9, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{18, 10, 5}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{18, 10, 6}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{19, 5, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 6, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{19, 6, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 7, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{19, 7, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 8, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{19, 8, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 9, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{19, 9, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{19, 10, 4}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{19, 10, 5}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{20, 6, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 7, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{20, 7, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 8, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{20, 8, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 9, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{20, 9, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{20, 10, 3}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{20, 10, 4}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{21, 7, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 8, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{21, 8, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 9, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{21, 9, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{21, 10, 2}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{21, 10, 3}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{22, 8, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 9, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{22, 9, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], SphereBox[{22, 10, 1}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{22, 10, 2}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{23, 9, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], SphereBox[{23, 10, 0}, 0.3]}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{23, 10, 1}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, 
     {RGBColor[0, 0, 1], 
      SphereBox[{24, 10, 0}, 
       0.3]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}}},
  Axes->True,
  AxesLabel->{
    FormBox["\"k\"", TraditionalForm], 
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"i\"", TraditionalForm]},
  ImageSize->{360., 360.},
  ImageSizeRaw->Automatic,
  ViewAngle->0.3272499969892144,
  ViewPoint->{1.231179740961056, -2.518441714363713, 1.8951643139315992`},
  ViewVertical->{-0.27020166003099394`, -0.5434567844499909, 
   2.303656894600409}]], "Output",
 CellLabel->"Out[18]=",ExpressionUUID->"6aa72181-15d1-4572-8118-5782a865ee49"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Result and Timings for Two Gamma Insertions (+ Treatment of Singularities)\
\>", "Subsubsection",ExpressionUUID->"9e42d747-7d05-46f8-913b-4245a9713b62"],

Cell["\<\
First we derive the annihilator for the triple sum by applying creative \
telescoping three times.\
\>", "Text",ExpressionUUID->"abd7d877-bf7c-40c0-a95e-5aa0a7aa41ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cti2", "=", 
    RowBox[{"CreativeTelescoping", "[", 
     RowBox[{
      RowBox[{"summandTwoGammas", "[", 
       RowBox[{
       "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", "i"}], 
       "]"}], ",", 
      RowBox[{
       RowBox[{"S", "[", "i", "]"}], "-", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "r", "]"}], ",", 
        RowBox[{"S", "[", "k", "]"}], ",", 
        RowBox[{"S", "[", "s", "]"}]}], "}"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"ctr2", "=", 
    RowBox[{"CreativeTelescoping", "[", 
     RowBox[{
      RowBox[{"cti2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"S", "[", "r", "]"}], "-", "1"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"ctk2", "=", 
    RowBox[{"FindCreativeTelescoping", "[", 
     RowBox[{
      RowBox[{"ctr2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "k", "]"}], "-", "1"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellLabel->"In[16]:=",ExpressionUUID->"991aefe8-4434-4b99-8916-888260eb2e14"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"666.55967`", ",", "Null"}], "}"}]], "Output",
 CellLabel->"Out[16]=",ExpressionUUID->"cef373e6-9ded-4da0-861f-00a4959d5586"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"The", " ", "result", " ", "is", " ", "not", " ", "too", " ", 
    RowBox[{"bad", ":", " ", 
     RowBox[{
      RowBox[{"a", " ", "fourth"}], "-", 
      RowBox[{"order", " ", "recurrence", " ", "in", " ", 
       RowBox[{"s", "."}]}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Factor", "[", 
    RowBox[{
     RowBox[{"ctk2", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "/.", 
     RowBox[{"eps", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "And", " ", "this", " ", "recurrence", " ", "lies", " ", "in", " ", 
      "the", " ", "ideal", " ", "generated", " ", "by", " ", "the", " ", 
      "guessed", " ", "one"}], ",", " ", 
     RowBox[{"and", " ", "this", " ", "completes", " ", "the", " ", 
      RowBox[{"proof", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"OreReduce", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ctk2", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "/.", 
      RowBox[{"eps", "\[Rule]", "0"}]}], ",", 
     RowBox[{"{", "guessrecpoly", "}"}]}], "]"}]}]}]], "Input",
 CellLabel->"In[35]:=",ExpressionUUID->"de39d191-edd9-4050-a5f3-30ee7eda8994"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "+", "s"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"3", "+", "s"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"b", " ", "x"}]}], ")"}]}], 
   SubsuperscriptBox["S", "s", "4"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "+", "s"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"9", "+", "m", "+", 
      RowBox[{"4", " ", "s"}], "-", 
      RowBox[{"5", " ", "x"}], "-", 
      RowBox[{"6", " ", "b", " ", "x"}], "-", 
      RowBox[{"m", " ", "x"}], "-", 
      RowBox[{"b", " ", "m", " ", "x"}], "-", 
      RowBox[{"2", " ", "s", " ", "x"}], "-", 
      RowBox[{"3", " ", "b", " ", "s", " ", "x"}], "+", 
      RowBox[{"2", " ", "b", " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"b", " ", "m", " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"b", " ", "s", " ", 
       SuperscriptBox["x", "2"]}]}], ")"}]}], 
   SubsuperscriptBox["S", "s", "3"]}], "+", 
  RowBox[{"(", 
   RowBox[{"19", "+", 
    RowBox[{"5", " ", "m"}], "+", 
    RowBox[{"21", " ", "s"}], "+", 
    RowBox[{"3", " ", "m", " ", "s"}], "+", 
    RowBox[{"6", " ", 
     SuperscriptBox["s", "2"]}], "-", 
    RowBox[{"21", " ", "x"}], "-", 
    RowBox[{"7", " ", "b", " ", "x"}], "-", 
    RowBox[{"7", " ", "m", " ", "x"}], "-", 
    RowBox[{"3", " ", "b", " ", "m", " ", "x"}], "-", 
    RowBox[{"22", " ", "s", " ", "x"}], "-", 
    RowBox[{"9", " ", "b", " ", "s", " ", "x"}], "-", 
    RowBox[{"4", " ", "m", " ", "s", " ", "x"}], "-", 
    RowBox[{"2", " ", "b", " ", "m", " ", "s", " ", "x"}], "-", 
    RowBox[{"6", " ", 
     SuperscriptBox["s", "2"], " ", "x"}], "-", 
    RowBox[{"3", " ", "b", " ", 
     SuperscriptBox["s", "2"], " ", "x"}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"5", " ", "b", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"2", " ", "m", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"3", " ", "b", " ", "m", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"4", " ", "s", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"6", " ", "b", " ", "s", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"m", " ", "s", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"2", " ", "b", " ", "m", " ", "s", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["s", "2"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"2", " ", "b", " ", 
     SuperscriptBox["s", "2"], " ", 
     SuperscriptBox["x", "2"]}]}], ")", 
   SubsuperscriptBox["S", "s", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "8"}], "-", 
      RowBox[{"4", " ", "m"}], "-", 
      RowBox[{"11", " ", "s"}], "-", 
      RowBox[{"3", " ", "m", " ", "s"}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["s", "2"]}], "+", 
      RowBox[{"5", " ", "x"}], "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"3", " ", "m", " ", "x"}], "+", 
      RowBox[{"b", " ", "m", " ", "x"}], "+", 
      RowBox[{"6", " ", "s", " ", "x"}], "+", 
      RowBox[{"2", " ", "b", " ", "s", " ", "x"}], "+", 
      RowBox[{"2", " ", "m", " ", "s", " ", "x"}], "+", 
      RowBox[{"b", " ", "m", " ", "s", " ", "x"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["s", "2"], " ", "x"}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["s", "2"], " ", "x"}]}], ")"}]}], 
   SubscriptBox["S", "s"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "s"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "m", "+", "s"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"]}]}]], "Output",
 CellLabel->"Out[35]=",ExpressionUUID->"68e80106-5641-49a1-b960-078b3e093576"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[36]=",ExpressionUUID->"5f85c009-0899-4208-bbf2-b454efed90b6"]
}, Open  ]],

Cell["\<\
Next, we certify that the recurrence is correct by showing that the \
inhomogeneous parts are 0 (expected since we have our natural boundaries). \
However, there are still singularities in the certificates so it is still a \
nontrivial (and not yet automated task) to certify.\
\>", "Text",ExpressionUUID->"baad67d2-349f-488f-963f-88c875789e26"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "are", " ", "the", " ", "operators", " ", "we", " ", "have", 
    " ", "to", " ", "worry", " ", "about", " ", "in", " ", "the", " ", 
    "telescopers", " ", "and", " ", "location", " ", "of", " ", 
    RowBox[{"singularities", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FindSing", "[", 
     RowBox[{"var_", ",", "ops_"}], "]"}], ":=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{
          RowBox[{"ops", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "/.", 
          RowBox[{"eps", "\[Rule]", "0"}]}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"Variables", ",", "Support"}], "}"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"#", "\[Equal]", "0"}], ",", "var"}], "]"}], "&"}], "/@", 
       RowBox[{"(", 
        RowBox[{"Denominator", "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ApplyOreOperator", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"ops", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
             RowBox[{"c", "[", "var", "]"}]}], "]"}], "//", "Together"}], 
          ")"}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"FindSing", "[", 
    RowBox[{"i", ",", "cti2"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FindSing", "[", 
    RowBox[{"r", ",", "ctr2"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FindSing", "[", 
    RowBox[{"k", ",", "ctk2"}], "]"}]}]}]], "Input",
 CellLabel->"In[37]:=",ExpressionUUID->"3650d016-f5d4-4574-a504-3b7766e7ac3a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "k", ",", "m", ",", "r", ",", "s", ",", "x", ",", 
       RowBox[{"S", "[", "k", "]"}], ",", 
       RowBox[{"S", "[", "r", "]"}], ",", 
       RowBox[{"S", "[", "s", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["S", "s"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["S", "r"], ",", 
         SubscriptBox["S", "k"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox["S", "k", "2"], ",", 
         SubscriptBox["S", "k"], ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", "\[Rule]", "r"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", "\[Rule]", 
         RowBox[{
          RowBox[{"-", "k"}], "+", "m", "+", "r"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"i", "\[Rule]", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "eps", "-", "k", "+", "m", "+", "r"}]}], 
       "}"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[38]=",ExpressionUUID->"479ab747-efdd-45e2-ab5e-775489c6a043"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "k", ",", "m", ",", "s", ",", "x", ",", 
       RowBox[{"S", "[", "k", "]"}], ",", 
       RowBox[{"S", "[", "s", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox["S", "s", "2"], ",", 
         SubscriptBox["S", "k"], ",", 
         SubscriptBox["S", "s"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["S", "k"], 
          SubscriptBox["S", "s"]}], ",", 
         SubscriptBox["S", "k"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox["S", "k", "2"], ",", 
         SubscriptBox["S", "k"], ",", 
         SubscriptBox["S", "s"], ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"1", "+", "s"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"2", "+", "s"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"r", "\[Rule]", 
        RowBox[{"1", "+", "s"}]}], "}"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"1", "+", "k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"2", "+", "k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"1", "+", "s"}]}], "}"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[39]=",ExpressionUUID->"65c8c4ef-29df-4451-b7e8-22039e97a328"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "m", ",", "s", ",", "x", ",", 
       RowBox[{"S", "[", "s", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox["S", "s", "4"], ",", 
        SubsuperscriptBox["S", "s", "3"], ",", 
        SubsuperscriptBox["S", "s", "2"], ",", 
        SubscriptBox["S", "s"], ",", "1"}], "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", "\[Rule]", 
        RowBox[{"-", "eps"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", "\[Rule]", 
        RowBox[{"1", "+", "m", "+", "s"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", "\[Rule]", 
        RowBox[{"2", "+", "m", "+", "s"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", "\[Rule]", 
        RowBox[{"3", "+", "m", "+", "s"}]}], "}"}]}], "}"}], "}"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[40]=",ExpressionUUID->"d45989c7-730b-47e6-b084-c44856b19478"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "we", " ", "certify", " ", "the", " ", "first", " ", "CT", 
    " ", "by", " ", "confirming", " ", "that", " ", "the", " ", 
    "inhomogeneous", " ", "parts", " ", "are", " ", "0.", " ", "We", " ", 
    "only", " ", "need", " ", "to", " ", "check", " ", "it", " ", "for", " ", 
    "the", " ", "second", " ", 
    RowBox[{"certificate", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"deltaparti", "[", 
     RowBox[{"certs_", ",", "lower_", ",", "upper_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"delta", "=", 
          RowBox[{"ApplyOreOperator", "[", 
           RowBox[{"certs", ",", 
            RowBox[{"S2C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}]}], "]"}]}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"delta", "/.", 
           RowBox[{"{", 
            RowBox[{"i", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{"upper", "+", "1"}], ")"}]}], "}"}]}], ")"}], "-", 
         RowBox[{"(", 
          RowBox[{"delta", "/.", 
           RowBox[{"{", 
            RowBox[{"i", "\[Rule]", "lower"}], "}"}]}], ")"}]}]}], "]"}], 
      ")"}], "/.", 
     RowBox[{"S2C", "\[Rule]", "summandTwoGammas"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"comppartsi2", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"ApplyOreOperator", "[", 
           RowBox[{
            RowBox[{"cti2", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"S2C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"i", "\[Rule]", 
            RowBox[{"r", "-", "1", "-", 
             RowBox[{"(", 
              RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], ")"}], "+", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"cti2", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"S2C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"i", "\[Rule]", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
      RowBox[{"S2C", "\[Rule]", "summandTwoGammas"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"deltaparti", "[", 
         RowBox[{
          RowBox[{"cti2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "0", ",", 
          RowBox[{"r", "-", "2", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "m"}], ")"}]}]}], "]"}], "-", "comppartsi2"}], 
       ")"}], "/.", 
      RowBox[{"eps", "\[Rule]", "0"}]}], "]"}], "===", "0"}]}]}]], "Input",Exp\
ressionUUID->"1baa85a8-b022-4edf-8ce6-4ee2df011f0d"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[43]=",ExpressionUUID->"c9bc6bfa-4e66-4051-a919-3719c0a1fa19"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "we", " ", "certify", " ", "the", " ", "second", " ", "CT", 
    " ", "by", " ", "confirming", " ", "that", " ", "the", " ", 
    "inhomogeneous", " ", "parts", " ", "are", " ", "0."}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"deltapartr", "[", 
     RowBox[{"certs_", ",", "lower_", ",", "upper_"}], "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"delta", "=", 
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{"certs", ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S2C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], 
          "]"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"{", 
           RowBox[{"r", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{"upper", "+", "1"}], ")"}]}], "}"}]}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"{", 
           RowBox[{"r", "\[Rule]", "lower"}], "}"}]}], ")"}]}]}], "]"}], 
     ")"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"comppartsr", "[", "1", "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{
          RowBox[{"ctr2", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"S2C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", "s"}], "}"}]}], ")"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr2", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S2C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "1"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"3", ";;", "4"}], "]"}], "]"}], "+", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr2", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S2C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "2"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"comppartsr", "[", "2", "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{
          RowBox[{"ctr2", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"S2C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", "s"}], "}"}]}], ")"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr2", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S2C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "1"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"comppartsr", "[", "3", "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{
          RowBox[{"ctr2", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"S2C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", "s"}], "}"}]}], ")"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr2", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S2C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "1"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Simplify", "[", 
               RowBox[{
                RowBox[{"deltapartr", "[", 
                 RowBox[{
                  RowBox[{"ctr2", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ",", "i"}], "]"}], "]"}], ",", "1", ",", 
                  RowBox[{"s", "-", "1"}]}], "]"}], "-", 
                RowBox[{"comppartsr", "[", "i", "]"}]}], "]"}], "/.", 
              RowBox[{"{", 
               RowBox[{"S2C", "\[Rule]", "summandTwoGammas"}], "}"}]}], "/.", 
             
             RowBox[{"{", 
              RowBox[{"eps", "\[Rule]", "0"}], "}"}]}], ")"}], "//", 
           "FunctionExpand"}], "//", "FullSimplify"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}], "//", 
      "Union"}], ")"}], "===", 
    RowBox[{"{", "0", "}"}]}]}]}]], "Input",
 CellLabel->"In[44]:=",ExpressionUUID->"a54dc7cc-4ad6-47f5-afc2-61bb5d738c66"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[48]=",ExpressionUUID->"e49247dd-265a-44c9-bcf2-868f2a4f1e12"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Result and Timings for One Gamma Insertion (+ Treatment",
 StyleBox[" ", "Subsubsection"],
 "of Singularities)"
}], "Subsubsection",ExpressionUUID->"ab257e3a-f8cc-4902-af42-c310e443a69e"],

Cell["\<\
First we derive the annihilator for the triple sum by applying creative \
telescoping three times. \
\>", "Text",ExpressionUUID->"ee5fcce6-40f1-4c8b-bca7-519a722ca23b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cti1", "=", 
    RowBox[{"CreativeTelescoping", "[", 
     RowBox[{
      RowBox[{"summandOneGamma", "[", 
       RowBox[{
       "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", "i"}], 
       "]"}], ",", 
      RowBox[{
       RowBox[{"S", "[", "i", "]"}], "-", "1"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "r", "]"}], ",", 
        RowBox[{"S", "[", "k", "]"}], ",", 
        RowBox[{"S", "[", "s", "]"}]}], "}"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"ctr1", "=", 
    RowBox[{"CreativeTelescoping", "[", 
     RowBox[{
      RowBox[{"cti1", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"S", "[", "r", "]"}], "-", "1"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"ctk1", "=", 
    RowBox[{"FindCreativeTelescoping", "[", 
     RowBox[{
      RowBox[{"ctr1", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "k", "]"}], "-", "1"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellLabel->"In[17]:=",ExpressionUUID->"7ff3465e-ca73-4e8e-83a3-b1d8b0106b97"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"26.606763`", ",", "Null"}], "}"}]], "Output",
 CellLabel->"Out[17]=",ExpressionUUID->"5765b0d8-54d2-4bea-90a1-771d9c7423cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "result", " ", "is", " ", "exactly", " ", "the", " ", "third", 
    " ", "order", " ", "recurrence", " ", "that", " ", "we", " ", 
    RowBox[{"guessed", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ctk1", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}], "/.", 
    RowBox[{"eps", "\[Rule]", "0"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"-", "%"}], "===", "guessrecpoly"}]}]}]], "Input",
 CellLabel->"In[29]:=",ExpressionUUID->"68f7bdd8-0a2c-4318-a3d7-df11aaa385dc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", "+", "s", "-", 
    RowBox[{"2", " ", "b", " ", "x"}], "-", 
    RowBox[{"b", " ", "s", " ", "x"}]}], ")", 
   SubsuperscriptBox["S", "s", "3"]}], "+", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "5"}], "-", "m", "-", 
    RowBox[{"3", " ", "s"}], "+", 
    RowBox[{"3", " ", "x"}], "+", 
    RowBox[{"3", " ", "b", " ", "x"}], "+", 
    RowBox[{"m", " ", "x"}], "+", 
    RowBox[{"b", " ", "m", " ", "x"}], "+", 
    RowBox[{"2", " ", "s", " ", "x"}], "+", 
    RowBox[{"2", " ", "b", " ", "s", " ", "x"}], "-", 
    RowBox[{"b", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"b", " ", "m", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"b", " ", "s", " ", 
     SuperscriptBox["x", "2"]}]}], ")", 
   SubsuperscriptBox["S", "s", "2"]}], "+", 
  RowBox[{"(", 
   RowBox[{"4", "+", 
    RowBox[{"2", " ", "m"}], "+", 
    RowBox[{"3", " ", "s"}], "-", 
    RowBox[{"5", " ", "x"}], "-", 
    RowBox[{"b", " ", "x"}], "-", 
    RowBox[{"3", " ", "m", " ", "x"}], "-", 
    RowBox[{"b", " ", "m", " ", "x"}], "-", 
    RowBox[{"4", " ", "s", " ", "x"}], "-", 
    RowBox[{"b", " ", "s", " ", "x"}], "+", 
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"b", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"m", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"b", " ", "m", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"s", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"b", " ", "s", " ", 
     SuperscriptBox["x", "2"]}]}], ")", 
   SubscriptBox["S", "s"]}], "+", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "-", "m", "-", "s", "+", 
    RowBox[{"2", " ", "x"}], "+", 
    RowBox[{"2", " ", "m", " ", "x"}], "+", 
    RowBox[{"2", " ", "s", " ", "x"}], "-", 
    SuperscriptBox["x", "2"], "-", 
    RowBox[{"m", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"s", " ", 
     SuperscriptBox["x", "2"]}]}], ")"}]}]], "Output",
 CellLabel->"Out[29]=",ExpressionUUID->"fa2039b6-eb67-4955-821c-f08993254517"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[30]=",ExpressionUUID->"3a6d01b9-4645-4711-b18f-b2222514297a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "So", " ", "of", " ", "course", " ", "this", " ", "recurrence", " ", 
     "lies", " ", "in", " ", "the", " ", "ideal", " ", "generated", " ", "by",
      " ", "the", " ", "guessed", " ", "one"}], ",", " ", 
    RowBox[{"and", " ", "this", " ", "completes", " ", "the", " ", 
     RowBox[{"proof", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"OreReduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ctk1", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "/.", 
     RowBox[{"eps", "\[Rule]", "0"}]}], ",", 
    RowBox[{"{", "guessrecpoly", "}"}]}], "]"}]}]], "Input",
 CellLabel->"In[20]:=",ExpressionUUID->"5597abaf-4da9-4cae-8ac1-22306ecaf874"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[20]=",ExpressionUUID->"1003318e-6c2c-4eb3-b848-58e460d89842"]
}, Open  ]],

Cell["\<\
Next, we certify that the recurrence is correct by showing that the \
inhomogeneous parts are 0 (expected since we have our natural boundaries). \
However, there are still singularities in the certificates so it is still a \
nontrivial (and not yet automated task) to certify.\
\>", "Text",ExpressionUUID->"66918186-ee4f-462b-ba81-e6c416d49cbd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "are", " ", "the", " ", "operators", " ", "we", " ", "have", 
    " ", "to", " ", "worry", " ", "about", " ", "in", " ", "the", " ", 
    "telescopers", " ", "and", " ", "location", " ", "of", " ", 
    RowBox[{"singularities", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FindSing", "[", 
     RowBox[{"var_", ",", "ops_"}], "]"}], ":=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{
          RowBox[{"ops", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "/.", 
          RowBox[{"eps", "\[Rule]", "0"}]}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"Variables", ",", "Support"}], "}"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"#", "\[Equal]", "0"}], ",", "var"}], "]"}], "&"}], "/@", 
       RowBox[{"(", 
        RowBox[{"Denominator", "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ApplyOreOperator", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"ops", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
             RowBox[{"c", "[", "var", "]"}]}], "]"}], "//", "Together"}], 
          ")"}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"FindSing", "[", 
    RowBox[{"i", ",", "cti1"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FindSing", "[", 
    RowBox[{"r", ",", "ctr1"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FindSing", "[", 
    RowBox[{"k", ",", "ctk1"}], "]"}]}]}]], "Input",
 CellLabel->"In[31]:=",ExpressionUUID->"54ab4b87-5daf-4ded-b891-cc41b7f7961e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "k", ",", "m", ",", "r", ",", "s", ",", "x", ",", 
       RowBox[{"S", "[", "k", "]"}], ",", 
       RowBox[{"S", "[", "r", "]"}], ",", 
       RowBox[{"S", "[", "s", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["S", "s"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["S", "r"], ",", 
         SubscriptBox["S", "k"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox["S", "k", "2"], ",", 
         SubscriptBox["S", "k"], ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", "\[Rule]", "r"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", "\[Rule]", 
         RowBox[{
          RowBox[{"-", "k"}], "+", "m", "+", "r"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"i", "\[Rule]", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "eps", "-", "k", "+", "m", "+", "r"}]}], 
       "}"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellLabel->"Out[32]=",ExpressionUUID->"be168b42-90eb-4d9f-813f-723526a5d771"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "k", ",", "m", ",", "s", ",", "x", ",", 
       RowBox[{"S", "[", "k", "]"}], ",", 
       RowBox[{"S", "[", "s", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox["S", "s", "2"], ",", 
         SubscriptBox["S", "k"], ",", 
         SubscriptBox["S", "s"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["S", "k"], 
          SubscriptBox["S", "s"]}], ",", 
         SubscriptBox["S", "k"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox["S", "k", "2"], ",", 
         SubscriptBox["S", "k"], ",", 
         SubscriptBox["S", "s"], ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"1", "+", "s"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"2", "+", "s"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"r", "\[Rule]", 
        RowBox[{"1", "+", "s"}]}], "}"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"1", "+", "k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"2", "+", "k"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r", "\[Rule]", 
         RowBox[{"1", "+", "s"}]}], "}"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[33]=",ExpressionUUID->"9cb76ae8-983e-4860-925c-1a679ecc9b9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "m", ",", "s", ",", "x", ",", 
       RowBox[{"S", "[", "s", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox["S", "s", "3"], ",", 
        SubsuperscriptBox["S", "s", "2"], ",", 
        SubscriptBox["S", "s"], ",", "1"}], "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", "\[Rule]", 
        RowBox[{"1", "+", "m", "+", "s"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", "\[Rule]", 
        RowBox[{"2", "+", "m", "+", "s"}]}], "}"}]}], "}"}], "}"}]}], 
  "}"}]], "Output",
 CellLabel->"Out[34]=",ExpressionUUID->"fc601bd8-e506-47e3-8c8b-323f765ad37a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "we", " ", "certify", " ", "the", " ", "first", " ", "CT", 
    " ", "by", " ", "confirming", " ", "that", " ", "the", " ", 
    "inhomogeneous", " ", "parts", " ", "are", " ", "0.", " ", "We", " ", 
    "only", " ", "need", " ", "to", " ", "check", " ", "it", " ", "for", " ", 
    "the", " ", "second", " ", 
    RowBox[{"certificate", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"deltaparti", "[", 
     RowBox[{"certs_", ",", "lower_", ",", "upper_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"delta", "=", 
          RowBox[{"ApplyOreOperator", "[", 
           RowBox[{"certs", ",", 
            RowBox[{"S1C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}]}], "]"}]}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"delta", "/.", 
           RowBox[{"{", 
            RowBox[{"i", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{"upper", "+", "1"}], ")"}]}], "}"}]}], ")"}], "-", 
         RowBox[{"(", 
          RowBox[{"delta", "/.", 
           RowBox[{"{", 
            RowBox[{"i", "\[Rule]", "lower"}], "}"}]}], ")"}]}]}], "]"}], 
      ")"}], "/.", 
     RowBox[{"S1C", "\[Rule]", "summandOneGamma"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"comppartsi2", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"ApplyOreOperator", "[", 
           RowBox[{
            RowBox[{"cti1", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"S1C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"i", "\[Rule]", 
            RowBox[{"r", "-", "1", "-", 
             RowBox[{"(", 
              RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], ")"}], "+", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"cti1", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"S1C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"i", "\[Rule]", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
      RowBox[{"S1C", "\[Rule]", "summandOneGamma"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"deltaparti", "[", 
         RowBox[{
          RowBox[{"cti1", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "0", ",", 
          RowBox[{"r", "-", "2", "-", 
           RowBox[{"(", 
            RowBox[{"k", "-", "m"}], ")"}]}]}], "]"}], "-", "comppartsi2"}], 
       ")"}], "/.", 
      RowBox[{"eps", "\[Rule]", "0"}]}], "]"}], "===", "0"}]}]}]], "Input",
 CellLabel->"In[38]:=",ExpressionUUID->"41e4acc0-55f3-48e8-a425-5d153b002926"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[40]=",ExpressionUUID->"4276bad3-79e6-497c-9064-85c10faa44c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Here", " ", "we", " ", "certify", " ", "the", " ", "second", " ", "CT", 
    " ", "by", " ", "confirming", " ", "that", " ", "the", " ", 
    "inhomogeneous", " ", "parts", " ", "are", " ", "0."}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"deltapartr", "[", 
     RowBox[{"certs_", ",", "lower_", ",", "upper_"}], "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"delta", "=", 
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{"certs", ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S1C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], 
          "]"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"{", 
           RowBox[{"r", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{"upper", "+", "1"}], ")"}]}], "}"}]}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"delta", "/.", 
          RowBox[{"{", 
           RowBox[{"r", "\[Rule]", "lower"}], "}"}]}], ")"}]}]}], "]"}], 
     ")"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"comppartsr", "[", "1", "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{
          RowBox[{"ctr1", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"S1C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", "s"}], "}"}]}], ")"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr1", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S1C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "1"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"3", ";;", "4"}], "]"}], "]"}], "+", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr1", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S1C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "2"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"comppartsr", "[", "2", "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{
          RowBox[{"ctr1", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"S1C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", "s"}], "}"}]}], ")"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr1", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S1C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "1"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"comppartsr", "[", "3", "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"ApplyOreOperator", "[", 
         RowBox[{
          RowBox[{"ctr1", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"S1C", "[", 
             RowBox[{
             "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
              "i"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "0", ",", 
              RowBox[{"r", "-", "1", "-", 
               RowBox[{"(", 
                RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{"r", "\[Rule]", "s"}], "}"}]}], ")"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ApplyOreOperator", "[", 
          RowBox[{
           RowBox[{"ctr1", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"S1C", "[", 
              RowBox[{
              "m", ",", "s", ",", "b", ",", "x", ",", "k", ",", "r", ",", 
               "i"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"r", "-", "1", "-", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "m"}], ")"}]}]}], "}"}]}], "]"}]}], "]"}], 
         "/.", 
         RowBox[{"{", 
          RowBox[{"r", "\[Rule]", 
           RowBox[{"s", "+", "1"}]}], "}"}]}], ")"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Simplify", "[", 
               RowBox[{
                RowBox[{"deltapartr", "[", 
                 RowBox[{
                  RowBox[{"ctr1", "[", 
                   RowBox[{"[", 
                    RowBox[{"2", ",", "i"}], "]"}], "]"}], ",", "1", ",", 
                  RowBox[{"s", "-", "1"}]}], "]"}], "-", 
                RowBox[{"comppartsr", "[", "i", "]"}]}], "]"}], "/.", 
              RowBox[{"{", 
               RowBox[{"S1C", "\[Rule]", "summandOneGamma"}], "}"}]}], "/.", 
             RowBox[{"{", 
              RowBox[{"eps", "\[Rule]", "0"}], "}"}]}], ")"}], "//", 
           "FunctionExpand"}], "//", "FullSimplify"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}], "//", 
      "Union"}], ")"}], "===", 
    RowBox[{"{", "0", "}"}]}]}]}]], "Input",
 CellLabel->"In[41]:=",ExpressionUUID->"e8113d00-3cea-483b-8cee-889299d33379"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[45]=",ExpressionUUID->"75aaaea2-513c-4353-938f-28dc8d48a4dd"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Export to PDF", "Section",ExpressionUUID->"8d24ac7b-e85d-4b7a-9c51-98a0630455a9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<sums_casc2020.pdf\>\"", ",", 
    RowBox[{
     RowBox[{"Get", "[", "\"\<sums_casc2020.nb\>\"", "]"}], "/.", 
     RowBox[{
      RowBox[{"ButtonBox", "[", "__", "]"}], "\[Rule]", "\"\< Help\>\""}]}]}],
    "]"}], ";"}]}], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"e8dd93f0-5139-42a2-8cc6-f954ad421260"]
}, Closed]]
},
Evaluator->"Elaine Local",
WindowSize->{1920, 1171},
WindowMargins->{{1920, Automatic}, {Automatic, 29}},
FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 492, 9, 74, "Text",ExpressionUUID->"75d1eae0-b3a8-462f-86ba-7853c0717068"],
Cell[CellGroupData[{
Cell[1075, 33, 92, 0, 55, "Subsection",ExpressionUUID->"f787820a-8cd1-4e7e-9711-22d5f78753d8"],
Cell[1170, 35, 283, 4, 58, "Text",ExpressionUUID->"52222d23-1fa0-48d5-809e-ec83471af75c"],
Cell[1456, 41, 394, 10, 94, "Input",ExpressionUUID->"42e0a8dd-14e1-4a64-885a-e55bd67054c4",
 InitializationCell->True],
Cell[1853, 53, 453, 13, 122, "Text",ExpressionUUID->"544b7308-f5ee-4978-a2df-9601ae38503b"],
Cell[2309, 68, 178, 3, 25, "Print",ExpressionUUID->"53ce25a2-54bd-4fcf-9a95-420b03a4089a"],
Cell[2490, 73, 438, 12, 99, "Text",ExpressionUUID->"62d5b142-e37c-448b-9a0e-523e75b7fd1c"],
Cell[2931, 87, 419, 13, 122, "Text",ExpressionUUID->"75998d08-e847-4864-a766-1f785830800a"]
}, Closed]],
Cell[CellGroupData[{
Cell[3387, 105, 88, 0, 39, "Subsection",ExpressionUUID->"75794a32-e337-47d0-a164-3ff4e0189f95"],
Cell[3478, 107, 5628, 167, 209, "Input",ExpressionUUID->"0fbd259b-2885-4071-ad9d-591a7731c6fc",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[9131, 278, 1888, 49, 78, "Input",ExpressionUUID->"0abf9cb7-14b5-407c-a316-72a0e4948976"],
Cell[11022, 329, 165, 3, 35, "Output",ExpressionUUID->"9cebc10e-29e9-410d-b037-e3b9ee7e9687"],
Cell[11190, 334, 165, 3, 35, "Output",ExpressionUUID->"1a689ac7-ac90-4346-9f15-e805800a4ee6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[11404, 343, 92, 0, 39, "Subsection",ExpressionUUID->"8fa7b09c-9efe-4940-a3ce-018efbad7302"],
Cell[11499, 345, 192, 3, 35, "Text",ExpressionUUID->"2f4c351d-03f3-418b-bba1-8cb721b34a87"],
Cell[CellGroupData[{
Cell[11716, 352, 565, 16, 55, "Input",ExpressionUUID->"b0c78238-ddb3-4165-b2c9-fee6ff14e91f"],
Cell[12284, 370, 307, 11, 79, "Output",ExpressionUUID->"1db3977f-97a2-4199-84d0-6b596ed42c19"]
}, Open  ]],
Cell[12606, 384, 195, 3, 35, "Text",ExpressionUUID->"56e9dbda-2c6f-451f-80f9-4f2ce8444bf4"],
Cell[CellGroupData[{
Cell[12826, 391, 516, 14, 31, "Input",ExpressionUUID->"c82f49e8-7f4a-4cd5-a727-0cc3556d74e5"],
Cell[13345, 407, 356, 12, 54, "Output",ExpressionUUID->"1b111f79-8b8e-452e-a220-f47134fee938"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13738, 424, 417, 11, 31, "Input",ExpressionUUID->"e1109690-7f90-4dbc-b5cb-7725eeb158ff"],
Cell[14158, 437, 356, 12, 54, "Output",ExpressionUUID->"c4419769-1d3b-48c9-85ac-7162e5517423"]
}, Open  ]],
Cell[14529, 452, 120, 0, 35, "Text",ExpressionUUID->"9e19e8c6-78a7-45af-bbbe-8454fecb9d83"],
Cell[CellGroupData[{
Cell[14674, 456, 3107, 81, 170, "Input",ExpressionUUID->"b93fa38a-795a-4a8e-a524-a7f4754b74f4"],
Cell[17784, 539, 608, 19, 53, "Output",ExpressionUUID->"0020b624-2b64-4629-a7d9-7b6b3d012bf5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18429, 563, 1800, 46, 147, "Input",ExpressionUUID->"4fb4ca84-3257-4194-a8bd-30d358cd39fd"],
Cell[20232, 611, 401, 13, 53, "Output",ExpressionUUID->"6f4c608c-9119-4116-8121-b3395f40c2f3"],
Cell[20636, 626, 119, 1, 35, "Output",ExpressionUUID->"1aa2b2ca-c39e-4dd8-90ba-0e34cd3d4e3e"],
Cell[20758, 629, 107, 1, 35, "Output",ExpressionUUID->"cb9c36f9-37db-4ba8-8251-5c88a293a941"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20902, 635, 1576, 41, 124, "Input",ExpressionUUID->"74bc8752-638d-44bf-a390-e405116e176e"],
Cell[22481, 678, 107, 1, 35, "Output",ExpressionUUID->"978c1e12-c892-4885-b4cb-5a40f4d5ed22"]
}, Open  ]],
Cell[22603, 682, 162, 3, 35, "Text",ExpressionUUID->"982bac74-385e-4017-a1a9-9964f8df2748"],
Cell[CellGroupData[{
Cell[22790, 689, 1052, 30, 126, "Input",ExpressionUUID->"c3e446d7-0fe8-49e5-a9bd-d6c2216d4546"],
Cell[23845, 721, 930, 25, 43, "Print",ExpressionUUID->"d4c6ee02-3c98-485d-8b77-1d0e06e82906"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24812, 751, 1366, 37, 101, "Input",ExpressionUUID->"e6a0cc4a-ec38-4ce1-9b03-24dc8347de32"],
Cell[26181, 790, 495, 15, 53, "Output",ExpressionUUID->"b9d63988-c633-466a-afd0-882050d083f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26713, 810, 789, 21, 78, "Input",ExpressionUUID->"b172a516-466d-4e55-95fc-2b2905d39ffa"],
Cell[27505, 833, 110, 1, 35, "Output",ExpressionUUID->"d7008897-e2da-433b-8cd4-3e06e7ebc487"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27664, 840, 85, 0, 39, "Subsection",ExpressionUUID->"5463895f-e6e6-45c2-aeae-5a957405402c"],
Cell[CellGroupData[{
Cell[27774, 844, 2352, 59, 101, "Input",ExpressionUUID->"18bf66b7-6880-4b9b-bb52-19a103d64887"],
Cell[30129, 905, 1922, 57, 40, "Output",ExpressionUUID->"ac8c7809-0657-4ba3-8844-5fddcb09be11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32088, 967, 1268, 33, 78, "Input",ExpressionUUID->"268275fd-b27c-4dee-a112-c51cdcd6a2a5"],
Cell[33359, 1002, 1739, 53, 40, "Output",ExpressionUUID->"3fac610b-f7bd-4949-9a3d-598ccee03116"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[35147, 1061, 114, 0, 54, "Section",ExpressionUUID->"a27a19c8-8cd0-4099-9c75-379e1a258bec"],
Cell[35264, 1063, 253, 4, 35, "Text",ExpressionUUID->"1770d1ee-533d-4060-acef-2399931b8a19"],
Cell[CellGroupData[{
Cell[35542, 1071, 148, 2, 55, "Subsection",ExpressionUUID->"a305cc1f-1523-455b-b483-c519aa5c11c4"],
Cell[CellGroupData[{
Cell[35715, 1077, 2225, 62, 147, "Input",ExpressionUUID->"2b7aa76a-3cfe-4a96-8128-21b081aaef97"],
Cell[37943, 1141, 2145, 66, 62, "Output",ExpressionUUID->"dd875c59-108a-4628-b93c-21451469c82c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40125, 1212, 1750, 49, 78, "Input",ExpressionUUID->"a931d654-ff18-4dbd-b3be-f926b3cfc731"],
Cell[41878, 1263, 759, 25, 65, "Output",ExpressionUUID->"90d91716-7dd8-402b-9973-8d4c4f25df65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42674, 1293, 1105, 28, 78, "Input",ExpressionUUID->"ec273a68-cf8d-454e-aa0f-0532ff223455"],
Cell[43782, 1323, 1671, 59, 38, "Output",ExpressionUUID->"5a98f068-4784-4e64-8be3-170a3bbfb9f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45490, 1387, 4544, 119, 216, "Input",ExpressionUUID->"6d6e8a63-a58a-4e19-a005-49d92e481b86"],
Cell[50037, 1508, 829, 24, 40, "Output",ExpressionUUID->"d25a32ea-f8cf-4935-8840-7b7a698d8087"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50903, 1537, 793, 20, 55, "Input",ExpressionUUID->"21736cec-c90a-4801-90cd-936da8c382dd"],
Cell[51699, 1559, 152, 3, 35, "Output",ExpressionUUID->"064a89ed-7752-4015-adfd-8d23fee119e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51888, 1567, 445, 12, 55, "Input",ExpressionUUID->"b1485961-0aea-4e9b-a8b6-f54a9210c746"],
Cell[52336, 1581, 152, 3, 35, "Output",ExpressionUUID->"38c33d29-2e47-4ec7-b152-59fb2f4bded7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52525, 1589, 773, 20, 55, "Input",ExpressionUUID->"e32f407a-f375-43af-b64a-906fded3eee9"],
Cell[53301, 1611, 110, 1, 35, "Output",ExpressionUUID->"627e5d48-e97d-4596-bb6e-a6d6242db7a1"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[53460, 1618, 118, 0, 39, "Subsection",ExpressionUUID->"4f59ca7e-b0bf-4a86-b500-4baea6fd6b53"],
Cell[CellGroupData[{
Cell[53603, 1622, 3785, 109, 285, "Input",ExpressionUUID->"a4ddf166-1f54-489e-a721-42e3ac62e61b"],
Cell[57391, 1733, 715, 24, 54, "Output",ExpressionUUID->"e0326bca-defd-4238-ab04-10544e2e2674"]
}, Open  ]],
Cell[58121, 1760, 245, 4, 35, "Text",ExpressionUUID->"c7ab86dd-10f2-41d5-8f96-e49faf7ea7e5"],
Cell[CellGroupData[{
Cell[58391, 1768, 3061, 83, 147, "Input",ExpressionUUID->"fd96da27-4ce1-4753-9c88-3c76771ea712"],
Cell[61455, 1853, 2475, 84, 124, "Output",ExpressionUUID->"c511414c-5cfa-4073-89b1-d74ccb1a0614"]
}, Open  ]],
Cell[63945, 1940, 207, 3, 35, "Text",ExpressionUUID->"e8076519-45f5-4ddb-963c-af59d0107aa8"],
Cell[CellGroupData[{
Cell[64177, 1947, 4357, 125, 308, "Input",ExpressionUUID->"2343d248-f10d-428a-a205-47905e434315"],
Cell[68537, 2074, 114, 2, 35, "Output",ExpressionUUID->"e408f987-1fa5-4f44-9a0e-bb8b2a62f046"]
}, Open  ]],
Cell[68666, 2079, 208, 3, 35, "Text",ExpressionUUID->"e5bcad7d-f7ff-437f-a1bd-8be5df2438eb"],
Cell[CellGroupData[{
Cell[68899, 2086, 2106, 59, 170, "Input",ExpressionUUID->"47d15982-77ef-445a-bdc4-acd4adc23dd1"],
Cell[71008, 2147, 336, 9, 40, "Output",ExpressionUUID->"c8f831cd-41d4-4862-86b1-0ff1cc1b73cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71381, 2161, 1043, 31, 78, "Input",ExpressionUUID->"23065065-f846-471c-8b23-fdddf3a76156"],
Cell[72427, 2194, 114, 2, 35, "Output",ExpressionUUID->"08057c5c-3271-461d-8488-5f2b12a37c7a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[72590, 2202, 96, 0, 39, "Subsection",ExpressionUUID->"ffb9bb04-aade-40a0-bf7a-7032cfcc90e0"],
Cell[72689, 2204, 5358, 158, 308, "Input",ExpressionUUID->"ad12d752-f905-46ab-bb67-cbd124113565"],
Cell[78050, 2364, 219, 3, 35, "Text",ExpressionUUID->"0462d3f5-bf82-44ca-a3d1-d87a29cc2386"],
Cell[78272, 2369, 3231, 89, 170, "Input",ExpressionUUID->"4cba6e8d-091d-40e4-b354-11e541db85ea"],
Cell[81506, 2460, 230, 3, 35, "Text",ExpressionUUID->"fde6d19f-854f-440f-ba3c-aa78b41a94c8"],
Cell[CellGroupData[{
Cell[81761, 2467, 1441, 39, 78, "Input",ExpressionUUID->"be2a6cd7-ef75-4eb8-b438-ed622ba663d2"],
Cell[83205, 2508, 111, 2, 35, "Output",ExpressionUUID->"a9121d70-629b-4874-a839-cb4ba172bbe4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83353, 2515, 2588, 70, 147, "Input",ExpressionUUID->"6094b2f0-ac2c-434c-9044-e1aee50fb860"],
Cell[85944, 2587, 114, 2, 35, "Output",ExpressionUUID->"d7e3fe92-7caa-4ac3-a3e1-d73aa4e13294"]
}, Open  ]],
Cell[86073, 2592, 192, 3, 35, "Text",ExpressionUUID->"4dd36d95-de4d-42f5-8c85-e20ebb4ff213"],
Cell[86268, 2597, 1588, 41, 147, "Input",ExpressionUUID->"c1ee94e0-abeb-4ded-98dd-1ffffa7c0def"],
Cell[CellGroupData[{
Cell[87881, 2642, 1754, 45, 170, "Input",ExpressionUUID->"a1d6b318-ea54-4810-8ded-2b78d8148dfc"],
Cell[89638, 2689, 830, 26, 40, "Output",ExpressionUUID->"503c2854-e4b0-4798-943c-88af5a0c1197"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90505, 2720, 499, 10, 55, "Input",ExpressionUUID->"6ea535c0-f40c-4735-ae6f-6e844013d186"],
Cell[91007, 2732, 212, 6, 35, "Output",ExpressionUUID->"fa5b5555-2046-4591-ac1b-81fcb4627739"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91256, 2743, 4502, 119, 331, "Input",ExpressionUUID->"c14dc187-2fee-414a-9225-3f390192d112"],
Cell[95761, 2864, 156, 3, 25, "Print",ExpressionUUID->"605f0e49-b328-4125-8ad5-bb462edb239f"],
Cell[95920, 2869, 166, 3, 35, "Output",ExpressionUUID->"66329bbc-00c8-4889-988d-de24e91aafc0"],
Cell[96089, 2874, 155, 3, 25, "Print",ExpressionUUID->"f2bb19aa-694d-4345-aac0-b41b187111c0"],
Cell[96247, 2879, 166, 3, 35, "Output",ExpressionUUID->"0136afe0-1489-4973-aabd-36aaca0ad8f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96450, 2887, 2606, 68, 216, "Input",ExpressionUUID->"465065a0-da9e-4bd5-9f86-d0072f708d21"],
Cell[99059, 2957, 177, 3, 25, "Print",ExpressionUUID->"5a560e19-6f4e-4622-a27c-eaf1738dc462"],
Cell[99239, 2962, 167, 4, 35, "Output",ExpressionUUID->"adace755-4872-40b0-88f8-799a13f66ffc"],
Cell[99409, 2968, 308, 8, 40, "Output",ExpressionUUID->"e645e968-4b23-47e3-9e4d-5322c465eca2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99754, 2981, 1157, 33, 78, "Input",ExpressionUUID->"2acaf8bf-ee75-41a2-9977-ee8d6f38522b"],
Cell[100914, 3016, 114, 2, 35, "Output",ExpressionUUID->"161ec0c5-b026-4540-8265-2810b00d6502"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[101077, 3024, 102, 0, 39, "Subsection",ExpressionUUID->"82a4f26a-8e4d-484a-ae1a-f0810f46895e"],
Cell[101182, 3026, 10065, 296, 316, "Input",ExpressionUUID->"5420e6f8-3a01-4047-a9a2-9718d8cf1093"],
Cell[CellGroupData[{
Cell[111272, 3326, 87, 0, 45, "Subsubsection",ExpressionUUID->"7c01307d-9692-4956-876c-221e4fec7d92"],
Cell[CellGroupData[{
Cell[111384, 3330, 4069, 101, 285, "Input",ExpressionUUID->"8d172776-c2da-4835-9c01-3bbca606d8e2"],
Cell[115456, 3433, 156957, 2994, 377, "Output",ExpressionUUID->"e400991a-47e2-4430-9202-5621dc24e105"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272450, 6432, 2732, 69, 147, "Input",ExpressionUUID->"1dfbcff6-f73d-476d-9dcd-40f702e51d62"],
Cell[275185, 6503, 103009, 1750, 377, "Output",ExpressionUUID->"6aa72181-15d1-4572-8118-5782a865ee49"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[378243, 8259, 162, 2, 37, "Subsubsection",ExpressionUUID->"9e42d747-7d05-46f8-913b-4245a9713b62"],
Cell[378408, 8263, 177, 3, 35, "Text",ExpressionUUID->"abd7d877-bf7c-40c0-a95e-5aa0a7aa41ec"],
Cell[CellGroupData[{
Cell[378610, 8270, 1239, 35, 124, "Input",ExpressionUUID->"991aefe8-4434-4b99-8916-888260eb2e14"],
Cell[379852, 8307, 164, 3, 35, "Output",ExpressionUUID->"cef373e6-9ded-4da0-861f-00a4959d5586"]
}, Open  ]],
Cell[CellGroupData[{
Cell[380053, 8315, 1288, 32, 101, "Input",ExpressionUUID->"de39d191-edd9-4050-a5f3-30ee7eda8994"],
Cell[381344, 8349, 3945, 110, 94, "Output",ExpressionUUID->"68e80106-5641-49a1-b960-078b3e093576"],
Cell[385292, 8461, 107, 1, 35, "Output",ExpressionUUID->"5f85c009-0899-4208-bbf2-b454efed90b6"]
}, Open  ]],
Cell[385414, 8465, 355, 5, 35, "Text",ExpressionUUID->"baad67d2-349f-488f-963f-88c875789e26"],
Cell[CellGroupData[{
Cell[385794, 8474, 1728, 45, 124, "Input",ExpressionUUID->"3650d016-f5d4-4574-a504-3b7766e7ac3a"],
Cell[387525, 8521, 1338, 40, 40, "Output",ExpressionUUID->"479ab747-efdd-45e2-ab5e-775489c6a043"],
Cell[388866, 8563, 1721, 53, 40, "Output",ExpressionUUID->"65c8c4ef-29df-4451-b7e8-22039e97a328"],
Cell[390590, 8618, 1055, 31, 40, "Output",ExpressionUUID->"d45989c7-730b-47e6-b084-c44856b19478"]
}, Open  ]],
Cell[CellGroupData[{
Cell[391682, 8654, 3505, 96, 124, "Input",ExpressionUUID->"1baa85a8-b022-4edf-8ce6-4ee2df011f0d"],
Cell[395190, 8752, 110, 1, 35, "Output",ExpressionUUID->"c9bc6bfa-4e66-4051-a919-3719c0a1fa19"]
}, Open  ]],
Cell[CellGroupData[{
Cell[395337, 8758, 8766, 245, 239, "Input",ExpressionUUID->"a54dc7cc-4ad6-47f5-afc2-61bb5d738c66"],
Cell[404106, 9005, 110, 1, 35, "Output",ExpressionUUID->"e49247dd-265a-44c9-bcf2-868f2a4f1e12"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[404265, 9012, 205, 4, 37, "Subsubsection",ExpressionUUID->"ab257e3a-f8cc-4902-af42-c310e443a69e"],
Cell[404473, 9018, 178, 3, 35, "Text",ExpressionUUID->"ee5fcce6-40f1-4c8b-bca7-519a722ca23b"],
Cell[CellGroupData[{
Cell[404676, 9025, 1238, 35, 124, "Input",ExpressionUUID->"7ff3465e-ca73-4e8e-83a3-b1d8b0106b97"],
Cell[405917, 9062, 164, 3, 35, "Output",ExpressionUUID->"5765b0d8-54d2-4bea-90a1-771d9c7423cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[406118, 9070, 609, 15, 78, "Input",ExpressionUUID->"68f7bdd8-0a2c-4318-a3d7-df11aaa385dc"],
Cell[406730, 9087, 2043, 57, 40, "Output",ExpressionUUID->"fa2039b6-eb67-4955-821c-f08993254517"],
Cell[408776, 9146, 110, 1, 35, "Output",ExpressionUUID->"3a6d01b9-4645-4711-b18f-b2222514297a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[408923, 9152, 760, 18, 55, "Input",ExpressionUUID->"5597abaf-4da9-4cae-8ac1-22306ecaf874"],
Cell[409686, 9172, 107, 1, 35, "Output",ExpressionUUID->"1003318e-6c2c-4eb3-b848-58e460d89842"]
}, Open  ]],
Cell[409808, 9176, 355, 5, 35, "Text",ExpressionUUID->"66918186-ee4f-462b-ba81-e6c416d49cbd"],
Cell[CellGroupData[{
Cell[410188, 9185, 1728, 45, 124, "Input",ExpressionUUID->"54ab4b87-5daf-4ded-b891-cc41b7f7961e"],
Cell[411919, 9232, 1338, 40, 40, "Output",ExpressionUUID->"be168b42-90eb-4d9f-813f-723526a5d771"],
Cell[413260, 9274, 1721, 53, 40, "Output",ExpressionUUID->"9cb76ae8-983e-4860-925c-1a679ecc9b9f"],
Cell[414984, 9329, 800, 24, 40, "Output",ExpressionUUID->"fc601bd8-e506-47e3-8c8b-323f765ad37a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[415821, 9358, 3521, 95, 124, "Input",ExpressionUUID->"41e4acc0-55f3-48e8-a425-5d153b002926"],
Cell[419345, 9455, 110, 1, 35, "Output",ExpressionUUID->"4276bad3-79e6-497c-9064-85c10faa44c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[419492, 9461, 8751, 244, 239, "Input",ExpressionUUID->"e8113d00-3cea-483b-8cee-889299d33379"],
Cell[428246, 9707, 110, 1, 35, "Output",ExpressionUUID->"75aaaea2-513c-4353-938f-28dc8d48a4dd"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[428429, 9716, 87, 0, 68, "Section",ExpressionUUID->"8d24ac7b-e85d-4b7a-9c51-98a0630455a9"],
Cell[428519, 9718, 503, 13, 55, "Input",ExpressionUUID->"e8dd93f0-5139-42a2-8cc6-f954ad421260"]
}, Closed]]
}
]
*)