(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    819768,      16063]
NotebookOptionsPosition[    809187,      15757]
NotebookOutlinePosition[    809545,      15773]
CellTagsIndexPosition[    809502,      15770]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   ButtonBox["ResetDirectory",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/ResetDirectory"], "[", "]"}], ";"}], "\n", 
 RowBox[{"SetDirectory", "[", "\"\</home/carrington/RULES\>\"", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.5619763468487186`*^9, 3.561976374634449*^9}, {
  3.572938001198999*^9, 3.572938002588175*^9}, {3.574011029322692*^9, 
  3.574011032659543*^9}}],

Cell[BoxData["\<\"/home/carrington/RULES\"\>"], "Output",
 CellChangeTimes->{
  3.451346623659116*^9, 3.451607110841365*^9, 3.451780936335229*^9, 
   3.451952607992827*^9, 3.451953145664866*^9, 3.45224674718038*^9, 
   3.452249805940818*^9, 3.452249902052923*^9, {3.452249961411521*^9, 
   3.452249968237884*^9}, 3.452297269823166*^9, 3.452388701108736*^9, 
   3.452472984809289*^9, 3.452493654997294*^9, {3.452566692169771*^9, 
   3.452566708579374*^9}, {3.452566802415538*^9, 3.452566810195168*^9}, 
   3.452567351428011*^9, 3.452646736277001*^9, 3.452685924992783*^9, 
   3.452818819022357*^9, 3.452903410209763*^9, 3.4529884221349*^9, 
   3.453009830166803*^9, 3.453010323153886*^9, 3.453012558653506*^9, 
   3.453018080542746*^9, 3.453074709983622*^9, 3.453075325780679*^9, 
   3.453075736159499*^9, 3.453088343459598*^9, 3.453512976882306*^9, 
   3.453523171231482*^9, 3.453530491832768*^9, 3.453597137052867*^9, 
   3.453690163774198*^9, 3.454142662705728*^9, 3.454144558355907*^9, 
   3.454148375503616*^9, 3.454215823981874*^9, 3.454224942217916*^9, 
   3.454232721821506*^9, 3.454661597981772*^9, 3.454661638986604*^9, {
   3.454661702212639*^9, 3.454661722324786*^9}, 3.454727816955872*^9, 
   3.461076051404367*^9, 3.461137675195364*^9, 3.46114647532156*^9, 
   3.461242485998764*^9, 3.461313036751259*^9, 3.461315624719307*^9, 
   3.461317512807704*^9, 3.461402991491694*^9, 3.461410994630117*^9, 
   3.461490360400649*^9, 3.461493914719544*^9, 3.461566690930373*^9, 
   3.461651929051996*^9, 3.461655429383586*^9, 3.461683967036189*^9, 
   3.461705484672684*^9, 3.461742384906201*^9, 3.461918311114943*^9, 
   3.461941756671223*^9, 3.461944945531638*^9, 3.46194552618615*^9, 
   3.462000628421367*^9, 3.462000875579218*^9, 3.462005002106779*^9, 
   3.462032344352009*^9, 3.462089400263787*^9, 3.462186436230735*^9, 
   3.462258178843717*^9, 3.462263684395035*^9, 3.46236393464763*^9, 
   3.462544015313439*^9, 3.462611027134165*^9, 3.462787688920896*^9, 
   3.462790361153168*^9, 3.462799133886736*^9, 3.462799225079311*^9, 
   3.462883465818288*^9, 3.462916527028333*^9, 3.462954359250332*^9, 
   3.463039156438477*^9, 3.463039537957492*^9, 3.463039885211961*^9, 
   3.463126726434346*^9, 3.46321053957035*^9, 3.463320980155924*^9, 
   3.4634212775414*^9, 3.463421348336971*^9, 3.46342142199814*^9, 
   3.463421454881854*^9, 3.463471171424139*^9, 3.463511392253829*^9, 
   3.463745359647621*^9, 3.463757519750528*^9, 3.463814782219269*^9, 
   3.463900340183588*^9, 3.463921264898545*^9, 3.46392965927293*^9, 
   3.463987191142392*^9, 3.463987600217299*^9, 3.46452510115167*^9, 
   3.464532990844851*^9, 3.464533910872051*^9, 3.465746683824676*^9, 
   3.465819813014261*^9, 3.465820282897529*^9, 3.466773520312741*^9, {
   3.467023464904472*^9, 3.467023477306722*^9}, 3.467622698109738*^9, 
   3.467623463027206*^9, 3.467625974041556*^9, 3.46762644180869*^9, 
   3.467796503826502*^9, 3.471863386470339*^9, 3.47186488469704*^9, 
   3.471963468683997*^9, 3.471965786824658*^9, 3.472114979646195*^9, 
   3.472210542862473*^9, 3.472220540293187*^9, 3.472221013981707*^9, 
   3.472286135811968*^9, 3.472314535135233*^9, {3.472314728715763*^9, 
   3.472314750341979*^9}, 3.472341691287715*^9, 3.472407946670646*^9, 
   3.472489023381745*^9, 3.472546681445836*^9, 3.472569251341311*^9, 
   3.472569552016829*^9, 3.472571453550327*^9, 3.472717240268071*^9, 
   3.472719890186892*^9, 3.472720063173348*^9, 3.472802880398536*^9, 
   3.47280903946513*^9, 3.474136235919032*^9, 3.474186576702428*^9, 
   3.474209325544195*^9, 3.474627074702491*^9, 3.476609038608652*^9, 
   3.476694563733671*^9, 3.476792089433931*^9, 3.476962146509323*^9, 
   3.477067118203879*^9, 3.477125559740507*^9, 3.477126551995878*^9, 
   3.47712700251943*^9, 3.477659840384177*^9, 3.477660349300056*^9, 
   3.477660428835244*^9, 3.477660460663136*^9, 3.477661562521286*^9, 
   3.477662659767969*^9, 3.477663154072739*^9, 3.477728120044865*^9, 
   3.477849290871871*^9, 3.478009206277418*^9, 3.478009401757473*^9, 
   3.478033058970196*^9, 3.478037987274267*^9, 3.478075609746403*^9, 
   3.478245711250957*^9, 3.478256063091744*^9, 3.478264672312992*^9, 
   3.478280696700094*^9, 3.478437924639878*^9, 3.478610716648161*^9, 
   3.478681006213592*^9, 3.478791663771638*^9, 3.478846620617105*^9, 
   3.47885170250105*^9, 3.478869312973382*^9, 3.47887528813956*^9, 
   3.47887782216995*^9, 3.478930862280109*^9, 3.478979842065522*^9, 
   3.479018233722246*^9, 3.479018429010259*^9, 3.479037693140408*^9, 
   3.47906693686698*^9, 3.480752205084912*^9, 3.480752811103856*^9, 
   3.480864341175052*^9, 3.485646513899221*^9, 3.48582836913838*^9, 
   3.486445390301632*^9, 3.486517201682392*^9, 3.490706874579503*^9, 
   3.492873180301039*^9, 3.493199380626882*^9, 3.4970250384050083`*^9, 
   3.497689453039218*^9, 3.497689806219193*^9, {3.5619763510242977`*^9, 
   3.561976375768588*^9}, 3.5619769455536613`*^9, 3.562059995127358*^9, 
   3.562228075320546*^9, 3.562281893179666*^9, 3.562309876472307*^9, 
   3.562345137607388*^9, 3.562398385186614*^9, 3.56240043556628*^9, 
   3.562661300652302*^9, 3.562661423479879*^9, 3.563697689643671*^9, 
   3.5636977460608597`*^9, 3.566451899546179*^9, 3.566457273982123*^9, 
   3.56645731856721*^9, 3.566457381666502*^9, 3.566457487188719*^9, 
   3.5664950323324203`*^9, 3.566545235148294*^9, 3.5665617461539507`*^9, 
   3.56656266670402*^9, 3.566565283884571*^9, 3.5666564135144157`*^9, 
   3.5666572902260647`*^9, 3.566718021152005*^9, 3.5667348441378107`*^9, 
   3.566748926429707*^9, 3.566812016068684*^9, 3.566812084455537*^9, 
   3.566813779296418*^9, 3.566835896674507*^9, 3.5668857076275597`*^9, 
   3.5669228115898*^9, 3.566942858248464*^9, 3.567147245741662*^9, 
   3.567321123311283*^9, 3.5674080744670277`*^9, 3.567461828010563*^9, 
   3.5675824982283993`*^9, 3.567680798219081*^9, 3.5677527056420517`*^9, 
   3.567961149253263*^9, 3.568179076985785*^9, 3.5683577081259727`*^9, 
   3.568368338503399*^9, 3.568368439848164*^9, 3.568438884105905*^9, 
   3.56848296264612*^9, 3.568528132996421*^9, 3.56862500249677*^9, 
   3.5686963483367643`*^9, 3.568787435673306*^9, 3.5689620154612617`*^9, 
   3.569088804903467*^9, 3.56948614811061*^9, 3.5695872012869663`*^9, 
   3.569589551701152*^9, 3.569597980302066*^9, 3.5695980659436817`*^9, 
   3.569658513091773*^9, 3.569750905681679*^9, 3.5697512290825443`*^9, 
   3.5697782048369093`*^9, 3.5699320376606293`*^9, 3.569940192301669*^9, 
   3.569966647961948*^9, 3.5699975483858852`*^9, 3.570048823441173*^9, 
   3.5701737613578377`*^9, 3.570340963625246*^9, 3.5703534567185373`*^9, 
   3.5703556202623167`*^9, 3.5703952952604313`*^9, 3.570797809459815*^9, 
   3.570819099369519*^9, 3.570870780783886*^9, 3.5709048307047873`*^9, 
   3.5709511536978197`*^9, 3.57104650364428*^9, 3.571136530710969*^9, 
   3.571300556786641*^9, 3.5713025295389137`*^9, 3.5713230819775476`*^9, 
   3.571384289008367*^9, 3.571389169276188*^9, 3.571412093937224*^9, 
   3.571423301888977*^9, 3.5714245253000174`*^9, 3.5714334070229607`*^9, 
   3.572186775639473*^9, 3.5722781264023027`*^9, 3.5723307639959383`*^9, 
   3.5725922506973457`*^9, 3.572767643505808*^9, 3.572856256964952*^9, 
   3.572864567517715*^9, 3.572866174364275*^9, 3.5729359641358757`*^9, 
   3.572938005548378*^9, 3.572953815879477*^9, 3.572956880446768*^9, 
   3.5731065917939568`*^9, 3.573190907624702*^9, 3.573208205972872*^9, 
   3.5733114298431873`*^9, 3.5733129046849318`*^9, 3.573397586860832*^9, 
   3.5735018774850073`*^9, 3.573531773301256*^9, 3.573621481304081*^9, 
   3.57370558446873*^9, 3.5737961105208387`*^9, 3.573882534656693*^9, 
   3.5739715323594112`*^9, {3.574011022753108*^9, 3.574011035470394*^9}, 
   3.574158064136652*^9, 3.574228664211714*^9, 3.574491954369616*^9, 
   3.574678696545928*^9, 3.5749344251585293`*^9, 3.5750943622080717`*^9, 
   3.575107659410075*^9, 3.575205022134698*^9, 3.575354441935844*^9, 
   3.575369668705641*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["rule collection", "Section",
 CellChangeTimes->{{3.477997584252159*^9, 3.477997596556314*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["enter vertex names",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{
  3.55360331667698*^9, {3.553603358336644*^9, 3.553603377085239*^9}, 
   3.5537540540084953`*^9, 3.5538668262709618`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"qvec", "=", 
   RowBox[{"{", 
    RowBox[{
    "u", ",", "v", ",", "k", ",", "nk", ",", "v1", ",", "v2", ",", "k1", ",", 
     "k2", ",", "nk1", ",", "nk2", ",", "p", ",", "p1", ",", "p2", ",", 
     "BB0k1", ",", "BB0k2", ",", "EE0k1", ",", "EE0k2"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.569597992116458*^9, 3.569597996227056*^9}, {
   3.569598131017337*^9, 3.5695981330828123`*^9}, 3.5696584475971527`*^9, {
   3.569660313401408*^9, 3.5696603344833317`*^9}, {3.5696605196263533`*^9, 
   3.569660531539658*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"namee2", "=", 
   RowBox[{"{", 
    RowBox[{
    "del", ",", "Df", ",", "Gk1", ",", "Gk2", ",", "Df2", ",", "Df3", ",", 
     "Df4", ",", "Df5", ",", "Df6", ",", "D0", ",", "delDf", ",", "Din", ",", 
     "Gc", ",", "Gin", ",", "Gct", ",", "Gct1", ",", "Gct2", ",", "Gct3", ",",
      "Gct3", ",", "Dtp", ",", "Dss", ",", "D1", ",", "D2", ",", "D3", ",", 
     "D4", ",", "D5", ",", "D6", ",", "D7", ",", "D8", ",", "D9", ",", "D10", 
     ",", "D11", ",", "D12", ",", "D13", ",", "D14", ",", "D15", ",", "Dfin", 
     ",", "DFIN", ",", "Dtp2", ",", "Dtp3", ",", "PP1", ",", "PP2"}], "}"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"namee3", "=", 
   RowBox[{"{", 
    RowBox[{"U", ",", "U0", ",", "U1", ",", "U2", ",", "U3", ",", "eps"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"namee4", "=", 
   RowBox[{"{", 
    RowBox[{
    "Vc", ",", "Vr", ",", "Vrr", ",", "V", ",", "V0", ",", "V00", ",", "Vct", 
     ",", "LAM", ",", "LAM4", ",", "VcT1", ",", "VcT2", ",", "VcT3", ",", 
     "VcT4", ",", "Vct1", ",", "Vct2", ",", "Vct3", ",", "Vct4", ",", "Vct11",
      ",", "Vct22", ",", "Vct33", ",", "Vct44", ",", "Vct111", ",", "Vct222", 
     ",", "Vct333", ",", "Vct444", ",", "M4", ",", "M4tilde", ",", "VCT1", 
     ",", "VCT2", ",", "VCT3", ",", "VCT4", ",", "GdR2"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"namee5", "=", 
   RowBox[{"{", 
    RowBox[{"V5", ",", "V50"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"namee6", "=", 
   RowBox[{"{", 
    RowBox[{
    "V6", ",", "V60", ",", "V6c", ",", "V6r", ",", "LAM6", ",", "LAM6a", ",", 
     "V6a", ",", "M6", ",", "M6tilde", ",", "M6rot", ",", "V6rot", ",", 
     "GdR4", ",", "VdR2", ",", "VadR2"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"namee8", "=", 
   RowBox[{"{", 
    RowBox[{
    "V8", ",", "V8c", ",", "V8r", ",", "V8a", ",", "LAM8", ",", "LAM8a", ",", 
     "M8", ",", "M8tilde", ",", "VdR4", ",", "LAM8tilde"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"contractUV", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"contractUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee3", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"namee3", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X", "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee3", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"contractUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee4", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_", ",", "X_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"namee4", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X", "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee4", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"contractUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee5", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_"}], "]"}], 
       "\[Rule]", 
       RowBox[{
        RowBox[{"namee5", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X", "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee5", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"contractUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee6", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_"}],
         "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"namee6", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X", "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee6", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"contractUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee8", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_", ",", 
         "X_", ",", "X_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"namee8", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X", "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee8", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"headUV", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"headUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee3", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_"}], "]"}], "\[Rule]", 
       RowBox[{"namee3", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee3", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"headUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee4", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_", ",", "X_"}], "]"}], "\[Rule]", 
       RowBox[{"namee4", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee4", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"headUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee5", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_"}], "]"}], 
       "\[Rule]", 
       RowBox[{"namee5", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee5", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"headUV", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"namee6", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_", ",", "X_"}],
         "]"}], "\[Rule]", 
       RowBox[{"namee6", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "namee6", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.463474661021544*^9, 3.463474807661974*^9}, 
   3.463475144915683*^9, {3.463931372067109*^9, 3.46393138616653*^9}, {
   3.463993976374892*^9, 3.463993990166833*^9}, {3.463994083312972*^9, 
   3.463994084444167*^9}, {3.463999346239496*^9, 3.463999411518293*^9}, {
   3.497079351573751*^9, 3.497079399119102*^9}, 3.497083294232368*^9, {
   3.497807749677964*^9, 3.497807756494418*^9}, {3.497807796760858*^9, 
   3.4978077980519953`*^9}, {3.4978713304023733`*^9, 3.497871345539629*^9}, {
   3.533060919414287*^9, 3.53306094441595*^9}, {3.533302793093759*^9, 
   3.533302794028532*^9}, {3.533304865841576*^9, 3.5333049022948503`*^9}, {
   3.5535270618573914`*^9, 3.553527091156004*^9}, {3.5535278926932507`*^9, 
   3.553527893478841*^9}, {3.556561887304834*^9, 3.556561896188629*^9}, {
   3.5566029628880463`*^9, 3.556602963843522*^9}, {3.556701338180662*^9, 
   3.556701399357476*^9}, {3.55695329270333*^9, 3.5569533040296793`*^9}, {
   3.557743174632152*^9, 3.557743174747056*^9}, 3.5619768397030087`*^9, {
   3.5622295529188538`*^9, 3.562229559509069*^9}, {3.5672501716199207`*^9, 
   3.56725017845572*^9}, {3.567338279320389*^9, 3.5673382888302317`*^9}, {
   3.568021799576231*^9, 3.568021826358326*^9}, {3.568022514093273*^9, 
   3.5680225153020687`*^9}, {3.5680230609050198`*^9, 3.568023089947562*^9}, {
   3.5683886059514236`*^9, 3.568388615005777*^9}, {3.5684771778672943`*^9, 
   3.5684771786055517`*^9}, {3.5685383785208387`*^9, 
   3.5685383788211517`*^9}, {3.568541206645913*^9, 3.5685412069357862`*^9}, {
   3.568631446144075*^9, 3.5686314579435577`*^9}, {3.569589247467904*^9, 
   3.5695892481635313`*^9}, {3.572860122838477*^9, 3.572860152508889*^9}, {
   3.573536745944862*^9, 3.5735367474674883`*^9}, {3.5738303456438*^9, 
   3.573830347846365*^9}, {3.573882923123045*^9, 3.573882925664557*^9}, 
   3.573888678655292*^9, {3.574059825713469*^9, 3.574059847465188*^9}, {
   3.575353671211838*^9, 3.575353680265766*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nameOne", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
     "qvec", ",", "namee3", ",", "namee4", ",", "namee5", ",", "namee6", ",", 
      "namee8"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameTwo", "=", "namee2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameTwoPartner1", "=", 
   RowBox[{"{", 
    RowBox[{
    "delX", ",", "DfX", ",", "Gk1X", ",", "Gk2X", ",", "Df2X", ",", "Df3X", 
     ",", "Df4X", ",", "Df5X", ",", "Df6X", ",", "D0X", ",", "delDfX", ",", 
     "DinX", ",", "GcX", ",", "GinX", ",", "GctX", ",", "Gct1X", ",", "Gct2X",
      ",", "Gct3X", ",", "Gct3X", ",", "DtpX", ",", "DssX", ",", "D1X", ",", 
     "D2X", ",", "D3X", ",", "D4X", ",", "D5X", ",", "D6X", ",", "D7X", ",", 
     "D8X", ",", "D9X", ",", "D10X", ",", "D11X", ",", "D12X", ",", "D13X", 
     ",", "D14X", ",", "D15X", ",", "DfinX", ",", "DFINX", ",", "Dtp2X", ",", 
     "Dtp3X"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameTwoPartner2", "=", 
   RowBox[{"{", 
    RowBox[{
    "delY", ",", "DfY", ",", "Gk1Y", ",", "Gk2Y", ",", "Df2Y", ",", "Df3Y", 
     ",", "Df4Y", ",", "Df5Y", ",", "Df6Y", ",", "D0Y", ",", "delDfY", ",", 
     "DinY", ",", "GcY", ",", "GinY", ",", "GctY", ",", "Gct1Y", ",", "Gct2Y",
      ",", "Gct3Y", ",", "Gct3Y", ",", "DtpY", ",", "DssY", ",", "D1Y", ",", 
     "D2Y", ",", "D3Y", ",", "D4Y", ",", "D5Y", ",", "D6Y", ",", "D7Y", ",", 
     "D8Y", ",", "D9Y", ",", "D10Y", ",", "D11Y", ",", "D12Y", ",", "D13Y", 
     ",", "D14Y", ",", "D15Y", ",", "DfinY", ",", "DFINY", ",", "Dtp2Y", ",", 
     "Dtp3Y"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameTwoPartner3", "=", 
   RowBox[{"{", 
    RowBox[{
    "delZ", ",", "DfZ", ",", "Gk1Z", ",", "Gk2Z", ",", "Df2Z", ",", "Df3Z", 
     ",", "Df4Z", ",", "Df5Z", ",", "Df6Z", ",", "D0Z", ",", "delDfZ", ",", 
     "DinZ", ",", "GcZ", ",", "GinZ", ",", "GctZ", ",", "Gct1Z", ",", "Gct2Z",
      ",", "Gct3Z", ",", "Gct3Z", ",", "DtpZ", ",", "DssZ", ",", "D1Z", ",", 
     "D2Z", ",", "D3Z", ",", "D4Z", ",", "D5Z", ",", "D6Z", ",", "D7Z", ",", 
     "D8Z", ",", "D9Z", ",", "D10Z", ",", "D11Z", ",", "D12Z", ",", "D13Z", 
     ",", "D14Z", ",", "D15Z", ",", "DfinZ", ",", "DFINZ", ",", "Dtp2Z", ",", 
     "Dtp3Z"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameTwoPartner4", "=", 
   RowBox[{"{", 
    RowBox[{
    "delW", ",", "DfW", ",", "Gk1W", ",", "Gk2W", ",", "Df2W", ",", "Df3W", 
     ",", "Df4W", ",", "Df5W", ",", "Df6W", ",", "D0W", ",", "delDfW", ",", 
     "DinW", ",", "GcW", ",", "GinW", ",", "GctW", ",", "Gct1W", ",", "Gct2W",
      ",", "Gct3W", ",", "Gct3W", ",", "DtpW", ",", "DssW", ",", "D1W", ",", 
     "D2W", ",", "D3W", ",", "D4W", ",", "D5W", ",", "D6W", ",", "D7W", ",", 
     "D8W", ",", "D9W", ",", "D10W", ",", "D11W", ",", "D12W", ",", "D13W", 
     ",", "D14W", ",", "D15W", ",", "DfinW", ",", "DFINW", ",", "Dtp2W", ",", 
     "Dtp3W"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameThree", "=", "namee3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameFour", "=", "namee4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameFive", "=", "namee5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameSix", "=", "namee6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nameEight", "=", "namee8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"remove1", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"remove2", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"remove3", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"remove4", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"remove5", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"remove6", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"remove8", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"remove1", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameOne", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X_", "]"}], "\[Rule]", 
       "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameOne", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"remove2", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"remove3", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_"}], "]"}], "\[Rule]", "1"}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"remove4", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], "\[Rule]", 
       "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"remove5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_"}], "]"}], 
       "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFive", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"remove6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_"}], 
        "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameSix", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"remove8", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameEight", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_", ",", 
         "Z5_", ",", "Z6_"}], "]"}], "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameEight", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"removeAll", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
     "remove1", ",", "remove2", ",", "remove3", ",", "remove4", ",", 
      "remove5", ",", "remove6", ",", "remove8"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drop1", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"drop2", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"drop3", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"drop4", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"drop5", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"drop6", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"drop8", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"drop1", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameOne", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X_", "]"}], "\[Rule]", 
       "0"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameOne", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"drop2", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", "0"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"drop3", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_"}], "]"}], "\[Rule]", "0"}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"drop4", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], "\[Rule]", 
       "0"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"drop5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_"}], "]"}], 
       "\[Rule]", "0"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFive", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"drop6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_"}], 
        "]"}], "\[Rule]", "0"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameSix", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"drop8", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameEight", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_", ",", 
         "Z5_", ",", "Z6_"}], "]"}], "\[Rule]", "0"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameEight", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dropAll", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
     "drop1", ",", "drop2", ",", "drop3", ",", "drop4", ",", "drop5", ",", 
      "drop6", ",", "drop8"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"generic1", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"generic2", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"generic3", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"generic4", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"generic5", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"generic6", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"generic8", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"generic1", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameOne", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "X_", "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameOne", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "xx", "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameOne", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"generic2", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"xx", ",", "xx"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"generic3", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"xx", ",", "xx", ",", "xx"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"generic4", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"xx", ",", "xx", ",", "xx", ",", "xx"}], "]"}]}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"generic5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_"}], "]"}], 
       "\[Rule]", 
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"xx", ",", "xx", ",", "xx", ",", "xx", ",", "xx"}], "]"}]}]}],
      "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFive", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"generic6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_"}], 
        "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"xx", ",", "xx", ",", "xx", ",", "xx", ",", "xx", ",", "xx"}],
         "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameSix", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"generic8", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameEight", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_", ",", 
         "Z5_", ",", "Z6_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameEight", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "xx", ",", "xx", ",", "xx", ",", "xx", ",", "xx", ",", "xx", ",", 
         "xx", ",", "xx"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameEight", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"genericAll", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
     "generic1", ",", "generic2", ",", "generic3", ",", "generic4", ",", 
      "generic5", ",", "generic6", ",", "generic8"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"removeVertices", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
     "remove1", ",", "remove3", ",", "remove4", ",", "remove5", ",", 
      "remove6", ",", "remove8"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"removeExtVars", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", "1"}], ",", 
     RowBox[{"b", "\[Rule]", "1"}], ",", 
     RowBox[{"c", "\[Rule]", "1"}], ",", 
     RowBox[{"d", "\[Rule]", "1"}], ",", 
     RowBox[{"e", "\[Rule]", "1"}], ",", 
     RowBox[{"f", "\[Rule]", "1"}], ",", 
     RowBox[{"g", "\[Rule]", "1"}], ",", 
     RowBox[{"h", "\[Rule]", "1"}], ",", 
     RowBox[{"i", "\[Rule]", "1"}], ",", 
     RowBox[{"j", "\[Rule]", "1"}], ",", 
     RowBox[{"k", "\[Rule]", "1"}], ",", 
     RowBox[{"l", "\[Rule]", "1"}], ",", 
     RowBox[{"m", "\[Rule]", "1"}], ",", 
     RowBox[{"n", "\[Rule]", "1"}], ",", 
     RowBox[{"o", "\[Rule]", "1"}], ",", 
     RowBox[{"p", "\[Rule]", "1"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.473681120384651*^9, 3.473681193504144*^9}, {
   3.47368126955311*^9, 3.473681421004489*^9}, {3.473681765121368*^9, 
   3.473681776139189*^9}, {3.473683154755081*^9, 3.473683155060575*^9}, {
   3.473687309247442*^9, 3.473687381624079*^9}, {3.473687575393358*^9, 
   3.4736877629509478`*^9}, {3.473699510185204*^9, 3.473699535216733*^9}, {
   3.473839834241154*^9, 3.473839962768919*^9}, {3.473865459967591*^9, 
   3.473865462302798*^9}, {3.47413607411965*^9, 3.474136074683202*^9}, {
   3.497027540634687*^9, 3.497027546653771*^9}, {3.497260379537801*^9, 
   3.497260384324869*^9}, {3.498227190117073*^9, 3.498227229904907*^9}, {
   3.531127644491194*^9, 3.5311276598231564`*^9}, {3.53156000794971*^9, 
   3.531560009163218*^9}, {3.531576861966569*^9, 3.5315768623556337`*^9}, {
   3.533046515456234*^9, 3.53304652248193*^9}, {3.533047471233523*^9, 
   3.533047476694051*^9}, {3.533302776388658*^9, 3.533302784429069*^9}, {
   3.537011616402055*^9, 3.5370116177247753`*^9}, {3.553526981320713*^9, 
   3.553526982069253*^9}, {3.553527068768826*^9, 3.5535271138115673`*^9}, {
   3.5535274248015757`*^9, 3.553527425951112*^9}, {3.553527886059314*^9, 
   3.553527902648335*^9}, {3.553528018342249*^9, 3.5535280281549397`*^9}, {
   3.553582908174719*^9, 3.55358291159665*^9}, {3.553598040894122*^9, 
   3.553598041421914*^9}, {3.553603294384159*^9, 3.5536032950103292`*^9}, {
   3.553879514438657*^9, 3.553879576678216*^9}, {3.553943779586054*^9, 
   3.553943780288086*^9}, {3.5565599297626743`*^9, 3.5565599627163353`*^9}, {
   3.55656191000458*^9, 3.556561920389572*^9}, {3.556607261931872*^9, 
   3.556607270328022*^9}, {3.556701406157288*^9, 3.556701564740901*^9}, {
   3.556799709580091*^9, 3.55679971350056*^9}, {3.556801012994913*^9, 
   3.556801014017003*^9}, {3.556801051786696*^9, 3.5568010602011003`*^9}, {
   3.556953310506537*^9, 3.556953318327655*^9}, {3.557743304906583*^9, 
   3.557743332005373*^9}, {3.561976852516335*^9, 3.561976853647138*^9}, {
   3.5619768852863417`*^9, 3.5619769153385773`*^9}, 3.5619769563265553`*^9, {
   3.5619781653786297`*^9, 3.561978166645833*^9}, {3.5619842609176607`*^9, 
   3.561984296304175*^9}, {3.5622295399809523`*^9, 3.562229547002527*^9}, {
   3.5624281242900343`*^9, 3.562428131119155*^9}, 3.562428810421906*^9, {
   3.56248932866849*^9, 3.562489330816639*^9}, {3.562489720610816*^9, 
   3.562489754215189*^9}, {3.562489857708076*^9, 3.56249006700517*^9}, {
   3.5624929496905947`*^9, 3.562492957130818*^9}, {3.562496663506874*^9, 
   3.562496697412167*^9}, {3.562519663083753*^9, 3.562519666598199*^9}, {
   3.563697873637261*^9, 3.5636979334323874`*^9}, {3.569589270787891*^9, 
   3.569589271814803*^9}, {3.569589889223905*^9, 3.569589893547765*^9}, {
   3.573985526943272*^9, 3.5739855762409363`*^9}, {3.575098407290647*^9, 
   3.575098409064527*^9}, {3.575353661180128*^9, 3.575353665681231*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nameAll", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"{", 
    RowBox[{
    "nameTwo", ",", "nameThree", ",", "nameFour", ",", "nameFive", ",", 
     "nameSix", ",", "nameEight"}], "}"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "del", ",", "Df", ",", "Gk1", ",", "Gk2", ",", "Df2", ",", "Df3", ",", 
   "Df4", ",", "Df5", ",", "Df6", ",", "D0", ",", "delDf", ",", "Din", ",", 
   "Gc", ",", "Gin", ",", "Gct", ",", "Gct1", ",", "Gct2", ",", "Gct3", ",", 
   "Gct3", ",", "Dtp", ",", "Dss", ",", "D1", ",", "D2", ",", "D3", ",", "D4",
    ",", "D5", ",", "D6", ",", "D7", ",", "D8", ",", "D9", ",", "D10", ",", 
   "D11", ",", "D12", ",", "D13", ",", "D14", ",", "D15", ",", "Dfin", ",", 
   "DFIN", ",", "Dtp2", ",", "Dtp3", ",", "PP1", ",", "PP2", ",", "U", ",", 
   "U0", ",", "U1", ",", "U2", ",", "U3", ",", "eps", ",", "Vc", ",", "Vr", 
   ",", "Vrr", ",", "V", ",", "V0", ",", "V00", ",", "Vct", ",", "LAM", ",", 
   "LAM4", ",", "VcT1", ",", "VcT2", ",", "VcT3", ",", "VcT4", ",", "Vct1", 
   ",", "Vct2", ",", "Vct3", ",", "Vct4", ",", "Vct11", ",", "Vct22", ",", 
   "Vct33", ",", "Vct44", ",", "Vct111", ",", "Vct222", ",", "Vct333", ",", 
   "Vct444", ",", "M4", ",", "M4tilde", ",", "VCT1", ",", "VCT2", ",", "VCT3",
    ",", "VCT4", ",", "GdR2", ",", "V5", ",", "V50", ",", "V6", ",", "V60", 
   ",", "V6c", ",", "V6r", ",", "LAM6", ",", "LAM6a", ",", "V6a", ",", "M6", 
   ",", "M6tilde", ",", "M6rot", ",", "V6rot", ",", "GdR4", ",", "VdR2", ",", 
   "VadR2", ",", "V8", ",", "V8c", ",", "V8r", ",", "V8a", ",", "LAM8", ",", 
   "LAM8a", ",", "M8", ",", "M8tilde", ",", "VdR4", ",", "LAM8tilde"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.572938017940621*^9, 3.572953816302702*^9, 3.572956880863744*^9, 
   3.5731065920407267`*^9, 3.57319090779172*^9, 3.5733114317120028`*^9, 
   3.573312906350964*^9, 3.573397588029709*^9, 3.5735018787632627`*^9, 
   3.5735317744229097`*^9, {3.573536752709049*^9, 3.573536755840069*^9}, 
   3.5736214826047983`*^9, 3.573705586055113*^9, 3.5737961116990757`*^9, 
   3.573830353373114*^9, 3.573882535940423*^9, 3.573882931251355*^9, 
   3.5738886857716837`*^9, 3.573971533697959*^9, 3.5740110424086246`*^9, 
   3.574059865630172*^9, 3.574158064957127*^9, 3.574228664908904*^9, 
   3.574491955049416*^9, 3.574678697330245*^9, 3.574934426208939*^9, 
   3.575094362946169*^9, 3.575098420570938*^9, 3.575107660227057*^9, 
   3.575205022831605*^9, 3.5753544426092978`*^9, 3.575369668868864*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["additional rules ", "Subsection",
 CellChangeTimes->{{3.461742354680549*^9, 3.461742364668144*^9}, {
   3.467623430424589*^9, 3.467623444879426*^9}, 3.477125699466938*^9, 
   3.497809706283044*^9, {3.5753695790731897`*^9, 3.5753695807421227`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"du", "[", "1", "]"}], "=", "zum1"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "2", "]"}], "=", "zum2"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "3", "]"}], "=", "zum3"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "4", "]"}], "=", "zum4"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "5", "]"}], "=", "zum5"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "6", "]"}], "=", "zum6"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "7", "]"}], "=", "zum7"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "8", "]"}], "=", "zum8"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "9", "]"}], "=", "zum9"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "10", "]"}], "=", "zum10"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "11", "]"}], "=", "zum11"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "12", "]"}], "=", "zum12"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "13", "]"}], "=", "zum13"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "14", "]"}], "=", "zum14"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "15", "]"}], "=", "zum15"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "16", "]"}], "=", "zum16"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "17", "]"}], "=", "zum17"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "18", "]"}], "=", "zum18"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "19", "]"}], "=", "zum19"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "20", "]"}], "=", "zum20"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "21", "]"}], "=", "zum21"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "22", "]"}], "=", "zum22"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "23", "]"}], "=", "zum23"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "24", "]"}], "=", "zum24"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "25", "]"}], "=", "zum25"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "26", "]"}], "=", "zum26"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "27", "]"}], "=", "zum27"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "28", "]"}], "=", "zum28"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "29", "]"}], "=", "zum29"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "30", "]"}], "=", "zum30"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "31", "]"}], "=", "zum31"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "32", "]"}], "=", "zum32"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "33", "]"}], "=", "zum33"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "34", "]"}], "=", "zum34"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "35", "]"}], "=", "zum35"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "36", "]"}], "=", "zum36"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "37", "]"}], "=", "zum37"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "38", "]"}], "=", "zum38"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "39", "]"}], "=", "zum39"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "40", "]"}], "=", "zum40"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "41", "]"}], "=", "zum41"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "42", "]"}], "=", "zum42"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "43", "]"}], "=", "zum43"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "44", "]"}], "=", "zum44"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "45", "]"}], "=", "zum45"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "46", "]"}], "=", "zum46"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "47", "]"}], "=", "zum47"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "48", "]"}], "=", "zum48"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "49", "]"}], "=", "zum49"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "50", "]"}], "=", "zum50"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "51", "]"}], "=", "zum51"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "52", "]"}], "=", "zum52"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "53", "]"}], "=", "zum53"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "54", "]"}], "=", "zum54"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "55", "]"}], "=", "zum55"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "56", "]"}], "=", "zum56"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "57", "]"}], "=", "zum57"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "58", "]"}], "=", "zum58"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "59", "]"}], "=", "zum59"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "60", "]"}], "=", "zum60"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "61", "]"}], "=", "zum61"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "62", "]"}], "=", "zum62"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "63", "]"}], "=", "zum63"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "64", "]"}], "=", "zum64"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "65", "]"}], "=", "zum65"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "66", "]"}], "=", "zum66"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "67", "]"}], "=", "zum67"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "68", "]"}], "=", "zum68"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "69", "]"}], "=", "zum69"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "94", "]"}], "=", "zum94"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "95", "]"}], "=", "zum95"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "96", "]"}], "=", "zum96"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "97", "]"}], "=", "zum97"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "98", "]"}], "=", "zum98"}], ";", 
  RowBox[{
   RowBox[{"du", "[", "99", "]"}], "=", "zum99"}], ";"}]], "Input",
 CellChangeTimes->{{3.460899842823991*^9, 3.460899897276938*^9}, {
   3.46096954280968*^9, 3.460969592247761*^9}, {3.460969781990266*^9, 
   3.46096978686417*^9}, {3.461317318275625*^9, 3.461317339417804*^9}, {
   3.461410902183892*^9, 3.461410922916595*^9}, {3.46159254126208*^9, 
   3.46159258281445*^9}, {3.468599667453051*^9, 3.468599711901671*^9}, {
   3.468600428720676*^9, 3.468600436408313*^9}, 3.477663040346682*^9, {
   3.4978074772856207`*^9, 3.497807478644924*^9}, {3.497808198106328*^9, 
   3.497808373153335*^9}, {3.56811488147974*^9, 3.568115028580604*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"dum1", "=", "zum1"}], ";", 
   RowBox[{"dum2", "=", "zum2"}], ";", 
   RowBox[{"dum3", "=", "zum3"}], ";", 
   RowBox[{"dum4", "=", "zum4"}], ";", 
   RowBox[{"dum5", "=", "zum5"}], ";", 
   RowBox[{"dum6", "=", "zum6"}], ";", 
   RowBox[{"dum7", "=", "zum7"}], ";", 
   RowBox[{"dum8", "=", "zum8"}], ";", 
   RowBox[{"dum9", "=", "zum9"}], ";", 
   RowBox[{"dum10", "=", "zum10"}], ";", 
   RowBox[{"dum11", "=", "zum11"}], ";", 
   RowBox[{"dum12", "=", "zum12"}], ";", 
   RowBox[{"dum13", "=", "zum13"}], ";", 
   RowBox[{"dum14", "=", "zum14"}], ";", 
   RowBox[{"dum15", "=", "zum15"}], ";", 
   RowBox[{"dum16", "=", "zum16"}], ";", 
   RowBox[{"dum17", "=", "zum17"}], ";", 
   RowBox[{"dum18", "=", "zum18"}], ";", 
   RowBox[{"dum19", "=", "zum19"}], ";", 
   RowBox[{"dum20", "=", "zum20"}], ";", 
   RowBox[{"dum21", "=", "zum21"}], ";", 
   RowBox[{"dum22", "=", "zum22"}], ";", 
   RowBox[{"dum23", "=", "zum23"}], ";", 
   RowBox[{"dum24", "=", "zum24"}], ";", 
   RowBox[{"dum25", "=", "zum25"}], ";", 
   RowBox[{"dum26", "=", "zum26"}], ";", 
   RowBox[{"dum27", "=", "zum27"}], ";", 
   RowBox[{"dum28", "=", "zum28"}], ";", 
   RowBox[{"dum29", "=", "zum29"}], ";", 
   RowBox[{"dum96", "=", "zum96"}], ";", 
   RowBox[{"dum97", "=", "zum97"}], ";", 
   RowBox[{"dum98", "=", "zum98"}], ";", 
   RowBox[{"dum99", "=", "zum99"}], ";"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.477662992671259*^9, 3.477663127858412*^9}, {
  3.497807478697434*^9, 3.4978074793785686`*^9}, {3.553603019681797*^9, 
  3.553603023574691*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"fum1", "=", "zum1"}], ";", 
   RowBox[{"fum2", "=", "zum2"}], ";", 
   RowBox[{"fum3", "=", "zum3"}], ";", 
   RowBox[{"fum4", "=", "zum4"}], ";", 
   RowBox[{"fum5", "=", "zum5"}], ";", 
   RowBox[{"fum6", "=", "zum6"}], ";", 
   RowBox[{"fum7", "=", "zum7"}], ";", 
   RowBox[{"fum8", "=", "zum8"}], ";", 
   RowBox[{"fum9", "=", "zum9"}], ";", 
   RowBox[{"fum10", "=", "zum10"}], ";", 
   RowBox[{"fum11", "=", "zum11"}], ";", 
   RowBox[{"fum12", "=", "zum12"}], ";", 
   RowBox[{"fum13", "=", "zum13"}], ";", 
   RowBox[{"fum14", "=", "zum14"}], ";", 
   RowBox[{"fum15", "=", "zum15"}], ";", 
   RowBox[{"fum16", "=", "zum16"}], ";", 
   RowBox[{"fum17", "=", "zum17"}], ";", 
   RowBox[{"fum18", "=", "zum18"}], ";", 
   RowBox[{"fum19", "=", "zum19"}], ";", 
   RowBox[{"fum20", "=", "zum20"}], ";", 
   RowBox[{"fum21", "=", "zum21"}], ";", 
   RowBox[{"fum22", "=", "zum22"}], ";", 
   RowBox[{"fum23", "=", "zum23"}], ";", 
   RowBox[{"fum24", "=", "zum24"}], ";", 
   RowBox[{"fum25", "=", "zum25"}], ";", 
   RowBox[{"fum26", "=", "zum26"}], ";", 
   RowBox[{"fum27", "=", "zum27"}], ";", 
   RowBox[{"fum28", "=", "zum28"}], ";", 
   RowBox[{"fum29", "=", "zum29"}], ";", 
   RowBox[{"fum96", "=", "zum96"}], ";", 
   RowBox[{"fum97", "=", "zum97"}], ";", 
   RowBox[{"fum98", "=", "zum98"}], ";", 
   RowBox[{"fum99", "=", "zum99"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.4979937197277*^9, 3.497993734655752*^9}, {
  3.5536029957168913`*^9, 3.553602999851905*^9}, {3.56645269080681*^9, 
  3.5664526935388002`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"delwork", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{"x_", ",", "y_"}], "]"}], "Y___", " ", 
       RowBox[{"X_", "[", 
        RowBox[{"w___", ",", "y_", ",", "z___"}], "]"}]}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"X", "[", 
        RowBox[{"w", ",", "x", ",", "z"}], "]"}], " ", "Y"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{"y_", ",", "x_"}], "]"}], "Y___", " ", 
       RowBox[{"X_", "[", 
        RowBox[{"w___", ",", "y_", ",", "z___"}], "]"}]}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"X", "[", 
        RowBox[{"w", ",", "x", ",", "z"}], "]"}], " ", "Y"}]}]}], "}"}]}], 
  " ", ";"}]], "Input",
 CellChangeTimes->{{3.553522133205943*^9, 3.553522160488904*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"extVAR", "=", 
   RowBox[{"{", 
    RowBox[{
    "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h",
      ",", "i", ",", "j", ",", "k", ",", "l", ",", "m"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"shiftExt", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", "zum94"}], ",", 
     RowBox[{"b", "\[Rule]", "zum95"}], ",", 
     RowBox[{"c", "\[Rule]", "zum96"}], ",", 
     RowBox[{"d", "\[Rule]", "zum97"}], ",", 
     RowBox[{"e", "\[Rule]", "zum98"}], ",", 
     RowBox[{"f", "\[Rule]", "zum99"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"bigVAR", "=", 
     RowBox[{"{", 
      RowBox[{
      "zum99", ",", "zum98", ",", "zum97", ",", "zum96", ",", "zum95", ",", 
       "zum94"}], "}"}]}], ";"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.460879281297802*^9, 3.460879378523102*^9}, {
  3.460881047428063*^9, 3.460881092731992*^9}, {3.461317423613434*^9, 
  3.461317423894553*^9}, {3.468599836633203*^9, 3.468599836751094*^9}, {
  3.471876605658911*^9, 3.471876606103942*^9}, {3.472571040997623*^9, 
  3.472571045085357*^9}, {3.474135242550309*^9, 3.474135275350329*^9}, {
  3.4978074794174232`*^9, 3.497807479572523*^9}, {3.53286646784664*^9, 
  3.53286647397584*^9}, {3.55360303107535*^9, 3.553603035120689*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dumVEC", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"dumVEC", ",", 
      RowBox[{"du", "[", "ii", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", "69"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"allVARs", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"extVAR", ",", "dumVEC", ",", "bigVAR"}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.468322709282556*^9, 3.468322730560731*^9}, {
   3.468323504330582*^9, 3.468323507886943*^9}, {3.468323543135661*^9, 
   3.468323548185193*^9}, {3.468323740165403*^9, 3.46832374609296*^9}, 
   3.468324088800235*^9, {3.468599761626341*^9, 3.468599762520836*^9}, {
   3.4972567961746273`*^9, 3.4972568024563*^9}, {3.4978081843800507`*^9, 
   3.49780818493874*^9}, {3.5681150358385687`*^9, 3.568115036494626*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"xVec", "=", 
   RowBox[{"{", 
    RowBox[{
    "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 
     ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",", "x12", ",", "x13", 
     ",", "x14", ",", "x15", ",", "x16", ",", "x17", ",", "x18", ",", "x19", 
     ",", "x20", ",", "x21", ",", "x22", ",", "x23", ",", "x24", ",", "x25", 
     ",", "x26", ",", "x27", ",", "x28", ",", "x29", ",", "x30", ",", "x31", 
     ",", "x32", ",", "x33", ",", "x34", ",", "x35", ",", "x36", ",", "x37", 
     ",", "x38", ",", "x39", ",", "x40"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.498026433177101*^9, 3.49802645483407*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"yVec", "=", 
   RowBox[{"{", 
    RowBox[{
    "y1", ",", "y2", ",", "y3", ",", "y4", ",", "y5", ",", "y6", ",", "y7", 
     ",", "y8", ",", "y9", ",", "y10", ",", "y11", ",", "y12", ",", "y13", 
     ",", "y14", ",", "y15", ",", "y16", ",", "y17", ",", "y18", ",", "y19", 
     ",", "y20", ",", "y21", ",", "y22", ",", "y23", ",", "y24", ",", "y25", 
     ",", "y26", ",", "y27", ",", "y28", ",", "y29", ",", "y30", ",", "y31", 
     ",", "y32", ",", "y33", ",", "y34", ",", "y35", ",", "y36", ",", "y37", 
     ",", "y38", ",", "y39", ",", "y40"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4980264061043453`*^9, 3.498026455803892*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"uVec", "=", 
   RowBox[{"{", 
    RowBox[{
    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", 
     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", 
     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", 
     ",", "u20", ",", "u21", ",", "u22", ",", "u23", ",", "u24", ",", "u25", 
     ",", "u26", ",", "u27", ",", "u28", ",", "u29", ",", "u30", ",", "u31", 
     ",", "u32", ",", "u33", ",", "u34", ",", "u35", ",", "u36", ",", "u37", 
     ",", "u38", ",", "u39", ",", "u40"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4980263810892687`*^9, 3.4980263954953203`*^9}, 
   3.498026457572966*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"vVec", "=", 
   RowBox[{"{", 
    RowBox[{
    "v1", ",", "v2", ",", "v3", ",", "v4", ",", "v5", ",", "v6", ",", "v7", 
     ",", "v8", ",", "v9", ",", "v10", ",", "v11", ",", "v12", ",", "v13", 
     ",", "v14", ",", "v15", ",", "v16", ",", "v17", ",", "v18", ",", "v19", 
     ",", "v20", ",", "v21", ",", "v22", ",", "v23", ",", "v24", ",", "v25", 
     ",", "v26", ",", "v27", ",", "v28", ",", "v29", ",", "v30", ",", "v31", 
     ",", "v32", ",", "v33", ",", "v34", ",", "v35", ",", "v36", ",", "v37", 
     ",", "v38", ",", "v39", ",", "v40"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4980263540165987`*^9, 3.498026368353532*^9}, 
   3.4980264583468237`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"wVec", "=", 
   RowBox[{"{", 
    RowBox[{
    "w1", ",", "w2", ",", "w3", ",", "w4", ",", "w5", ",", "w6", ",", "w7", 
     ",", "w8", ",", "w9", ",", "w10", ",", "w11", ",", "w12", ",", "w13", 
     ",", "w14", ",", "w15", ",", "w16", ",", "w17", ",", "w18", ",", "w19", 
     ",", "w20", ",", "w21", ",", "w22", ",", "w23", ",", "w24", ",", "w25", 
     ",", "w26", ",", "w27", ",", "w28", ",", "w29", ",", "w30", ",", "w31", 
     ",", "w32", ",", "w33", ",", "w34", ",", "w35", ",", "w36", ",", "w37", 
     ",", "w38", ",", "w39", ",", "w40"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4980263240733223`*^9, 3.4980263402011023`*^9}, 
   3.498026459542562*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"zVec", "=", 
   RowBox[{"{", 
    RowBox[{
    "z1", ",", "z2", ",", "z3", ",", "z4", ",", "z5", ",", "z6", ",", "z7", 
     ",", "z8", ",", "z9", ",", "z10", ",", "z11", ",", "z12", ",", "z13", 
     ",", "z14", ",", "z15", ",", "z16", ",", "z17", ",", "z18", ",", "z19", 
     ",", "z20", ",", "z21", ",", "z22", ",", "z23", ",", "z24", ",", "z25", 
     ",", "z26", ",", "z27", ",", "z28", ",", "z29", ",", "z30", ",", "z31", 
     ",", "z32", ",", "z33", ",", "z34", ",", "z35", ",", "z36", ",", "z37", 
     ",", "z38", ",", "z39", ",", "z40"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.498026292179738*^9, 3.498026310151545*^9}, 
   3.498026460441802*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Df", "[", 
      RowBox[{
       RowBox[{"allVARs", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "^", "2"}], "]"}], "=", 
     RowBox[{"Df", "[", 
      RowBox[{
       RowBox[{"allVARs", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{"allVARs", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "allVARs", "]"}]}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.472286355110931*^9, 3.472286384218788*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"perms2", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PERMS2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"PERMS2", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"perms2", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "1"}], "]"}], "]"}], "->", 
         RowBox[{"perms2", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms2", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}], "->", 
         RowBox[{"perms2", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "perms2", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"perms3", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PERMS3", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"PERMS3", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"perms3", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "1"}], "]"}], "]"}], "->", 
         RowBox[{"perms3", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms3", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}], "->", 
         RowBox[{"perms3", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms3", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "3"}], "]"}], "]"}], "->", 
         RowBox[{"perms3", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "perms3", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"perms4", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PERMS4", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"PERMS4", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "1"}], "]"}], "]"}], "->", 
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}], "->", 
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "3"}], "]"}], "]"}], "->", 
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "4"}], "]"}], "]"}], "->", 
         RowBox[{"perms4", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "perms4", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"perms5", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PERMS5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"PERMS5", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "1"}], "]"}], "]"}], "->", 
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}], "->", 
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "3"}], "]"}], "]"}], "->", 
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "4"}], "]"}], "]"}], "->", 
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "4"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "5"}], "]"}], "]"}], "->", 
         RowBox[{"perms5", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "5"}], "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "perms5", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"perms6", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PERMS6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"PERMS6", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "1"}], "]"}], "]"}], "->", 
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}], "->", 
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "3"}], "]"}], "]"}], "->", 
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "4"}], "]"}], "]"}], "->", 
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "4"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "5"}], "]"}], "]"}], "->", 
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "5"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "6"}], "]"}], "]"}], "->", 
         RowBox[{"perms6", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "6"}], "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "perms6", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.471878357677334*^9, 3.471878445653959*^9}, {
  3.471878475883123*^9, 3.471878478396684*^9}, {3.471878587496983*^9, 
  3.471878734259851*^9}, {3.498128691533779*^9, 3.498128751258766*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"truncate", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"truncate", ",", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", "X_"}], "]"}], "\[Rule]", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", "X"}], "]"}]}]}], "]"}], ",", 
    
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"truncate", ",", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"X_", ",", 
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], "\[Rule]", 
       RowBox[{"del", "[", 
        RowBox[{"X", ",", 
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.460876317162136*^9, 3.460876368195561*^9}, {
  3.461062701136989*^9, 3.461062820167164*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dropLegsx", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"dropLegsx", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Din", "[", 
           RowBox[{"X_", ",", 
            RowBox[{"extVAR", "[", 
             RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], 
          RowBox[{"Df", "[", 
           RowBox[{"X_", ",", "Y_"}], "]"}]}], "\[Rule]", 
         RowBox[{"del", "[", 
          RowBox[{
           RowBox[{"extVAR", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], ",", "Y"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Din", "[", 
           RowBox[{"X_", ",", 
            RowBox[{"extVAR", "[", 
             RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], 
          RowBox[{"Df", "[", 
           RowBox[{"Y_", ",", "X_"}], "]"}]}], "\[Rule]", 
         RowBox[{"del", "[", 
          RowBox[{
           RowBox[{"extVAR", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], ",", "Y"}], "]"}]}]}], "}"}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dropLegs", "=", 
    RowBox[{"Flatten", "[", "dropLegsx", "]"}]}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.461072124362937*^9, 3.46107212949836*^9}, {
   3.461072175863677*^9, 3.461072337425565*^9}, 3.461073142558196*^9, {
   3.471965764608635*^9, 3.471965770021376*^9}, {3.553603085403697*^9, 
   3.553603116290193*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"removeMark", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Amark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Bmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Cmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Dmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Umark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Vmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Pmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Wmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"UBmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"VBmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"WBmark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"A1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"B1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"C1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"D1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"U1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"V1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"P1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"W1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"UB1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"VB1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"WB1mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"A2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"B2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"C2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"D2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"U2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"V2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"P2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"W2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"UB2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"VB2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"WB2mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"A3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"B3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"C3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"D3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"U3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"V3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"P3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"W3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"UB3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"VB3mark", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"WB3mark", "[", "x_", "]"}], "\[Rule]", "1"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.462261874445103*^9, 3.4622619055461*^9}, {
  3.462544912363502*^9, 3.462544912833078*^9}, {3.462610979420397*^9, 
  3.462611003400001*^9}, {3.463429855551235*^9, 3.463429856750879*^9}, {
  3.472222708809136*^9, 3.472222713321328*^9}, {3.480924143220395*^9, 
  3.480924155853363*^9}, {3.486450727197484*^9, 3.486450803151572*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Amarker", "[", "fcn_", "]"}], ":=", 
   RowBox[{"Complement", "[", 
    RowBox[{
     RowBox[{"Variables", "[", "fcn", "]"}], ",", 
     RowBox[{
      RowBox[{"Variables", "[", "fcn", "]"}], "//.", "removeMark"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.477891601663192*^9, 3.477891635484873*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"varLook", "[", "fcn_", "]"}], ":=", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Variables", "[", "fcn", "]"}], "//.", "removeMark"}], "//.", 
     "genericAll"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.477911898869265*^9, 3.477911903266342*^9}, {
  3.477914501948053*^9, 3.477914572142881*^9}, {3.477914602867845*^9, 
  3.477914605677425*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"switch", "[", 
    RowBox[{"X_", ",", "Y_"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"X", "\[Rule]", "Y"}], ",", 
     RowBox[{"Y", "\[Rule]", "X"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.460890062296474*^9, 3.460890073776704*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"simper", "[", "fcn_", "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"Simplify", "[", 
      RowBox[{"fcn", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "fcn", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5329407281447353`*^9, 3.5329407530404043`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"find", "[", 
    RowBox[{"fcn_", ",", "marke_"}], "]"}], ":=", 
   RowBox[{"fcn", "-", 
    RowBox[{"(", 
     RowBox[{"fcn", "//.", 
      RowBox[{
       RowBox[{"Amark", "[", "marke", "]"}], "\[Rule]", "0"}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.533366834999897*^9, 3.5333668733166103`*^9}, {
  3.533366928429282*^9, 3.533366928738264*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"shift2z", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"shift2w", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"shift2v", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"shift2u", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"shift2x", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"shift2y", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"z2dum", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"w2dum", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"shift2z", ",", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
       RowBox[{"zVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "zVec", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"shift2w", ",", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
       RowBox[{"wVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "wVec", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"shift2v", ",", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
       RowBox[{"vVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "vVec", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"shift2u", ",", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
       RowBox[{"uVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "uVec", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"shift2x", ",", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
       RowBox[{"xVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "xVec", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"shift2y", ",", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
       RowBox[{"yVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "yVec", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"z2dum", ",", 
      RowBox[{
       RowBox[{"zVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "->", 
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "zVec", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"w2dum", ",", 
      RowBox[{
       RowBox[{"wVec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "->", 
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "wVec", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input",\

 CellChangeTimes->{{3.4978085595283327`*^9, 3.4978087638463993`*^9}, {
  3.498025938237646*^9, 3.4980259468251467`*^9}, {3.5681841405816107`*^9, 
  3.568184226929661*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"triple", "[", 
      RowBox[{"dumVEC", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2z"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2w"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "dumVEC", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"quad", "[", 
      RowBox[{"dumVEC", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2z"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2w"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2v"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "dumVEC", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"quint", "[", 
      RowBox[{"dumVEC", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2z"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2w"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2v"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2u"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "dumVEC", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sext", "[", 
      RowBox[{"dumVEC", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dumVEC", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2z"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2w"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2v"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2u"}], ",", 
       RowBox[{
        RowBox[{"dumVEC", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "/.", "shift2y"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "dumVEC", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.468323554716786*^9, 3.46832356051242*^9}, {
  3.46832364953657*^9, 3.468323736490884*^9}, {3.468324400193624*^9, 
  3.468324421730878*^9}, {3.468601961880484*^9, 3.468601962348611*^9}, {
  3.468602052067679*^9, 3.468602071046343*^9}, {3.498025982935577*^9, 
  3.498026008941031*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"unOrderDf", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"X", " ", "Y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df2", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df2", "[", 
       RowBox[{"X", " ", "Y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df3", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df3", "[", 
       RowBox[{"X", " ", "Y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df4", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df4", "[", 
       RowBox[{"X", " ", "Y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df5", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df5", "[", 
       RowBox[{"X", " ", "Y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df6", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df6", "[", 
       RowBox[{"X", " ", "Y"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reOrderDf", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"a_", "*", " ", "b_"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df2", "[", 
       RowBox[{"a_", "*", " ", "b_"}], "]"}], "\[Rule]", 
      RowBox[{"Df2", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df3", "[", 
       RowBox[{"a_", "*", " ", "b_"}], "]"}], "\[Rule]", 
      RowBox[{"Df3", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df4", "[", 
       RowBox[{"a_", "*", " ", "b_"}], "]"}], "\[Rule]", 
      RowBox[{"Df4", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df5", "[", 
       RowBox[{"a_", "*", " ", "b_"}], "]"}], "\[Rule]", 
      RowBox[{"Df5", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df6", "[", 
       RowBox[{"a_", "*", " ", "b_"}], "]"}], "\[Rule]", 
      RowBox[{"Df6", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"a_", "^", "2"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"a", ",", "a"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df2", "[", 
       RowBox[{"a_", "^", "2"}], "]"}], "\[Rule]", 
      RowBox[{"Df2", "[", 
       RowBox[{"a", ",", "a"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df3", "[", 
       RowBox[{"a_", "^", "2"}], "]"}], "\[Rule]", 
      RowBox[{"Df3", "[", 
       RowBox[{"a", ",", "a"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df4", "[", 
       RowBox[{"a_", "^", "2"}], "]"}], "\[Rule]", 
      RowBox[{"Df4", "[", 
       RowBox[{"a", ",", "a"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df5", "[", 
       RowBox[{"a_", "^", "2"}], "]"}], "\[Rule]", 
      RowBox[{"Df5", "[", 
       RowBox[{"a", ",", "a"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df6", "[", 
       RowBox[{"a_", "^", "2"}], "]"}], "\[Rule]", 
      RowBox[{"Df6", "[", 
       RowBox[{"a", ",", "a"}], "]"}]}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.468323424447843*^9, {3.468325049250915*^9, 3.468325051865752*^9}, {
   3.468330780154238*^9, 3.468330815628005*^9}, {3.471945089205026*^9, 
   3.471945121464281*^9}, {3.478257925751415*^9, 3.478257990585787*^9}, {
   3.497807910959238*^9, 3.497807930873683*^9}, {3.498118178594852*^9, 
   3.498118185381208*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"truncate", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"truncate", ",", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", "X_"}], "]"}], "\[Rule]", 
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", "X"}], "]"}]}]}], "]"}], ",", 
    
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"truncate", ",", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"X_", ",", 
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], "\[Rule]", 
       RowBox[{"del", "[", 
        RowBox[{"X", ",", 
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.460876317162136*^9, 3.460876368195561*^9}, {
  3.461062701136989*^9, 3.461062820167164*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"functionMaker", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"functionMaker", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameOne", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "xx", "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameOne", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", "Xf", "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameOne", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"functionMaker", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"xx", ",", "xx"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"Xf", ",", "Yf"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.473681120384651*^9, 3.473681193504144*^9}, {
  3.47368126955311*^9, 3.473681421004489*^9}, {3.473681765121368*^9, 
  3.473681776139189*^9}, {3.473683154755081*^9, 3.473683155060575*^9}, {
  3.473687309247442*^9, 3.473687381624079*^9}, {3.473687575393358*^9, 
  3.4736877629509478`*^9}, {3.473699510185204*^9, 3.473699535216733*^9}, {
  3.473839834241154*^9, 3.473839962768919*^9}, {3.473865459967591*^9, 
  3.473865462302798*^9}, {3.47413607411965*^9, 3.474136074683202*^9}, {
  3.497027540634687*^9, 3.497027546653771*^9}, {3.497260379537801*^9, 
  3.497260384324869*^9}, {3.498227190117073*^9, 3.498227292120298*^9}, {
  3.4982274271273613`*^9, 3.498227446115077*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"unOrder", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"unOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", "*", "Y"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"unOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", "*", "Y", "*", "Z"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"unOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", "*", "Y", "*", "Z", "*", "Z2"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"unOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_"}], "]"}], 
       "\[Rule]", 
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", "*", "Y", "*", "Z", "*", "Z2", "*", "Z3"}], "]"}]}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFive", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"unOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_"}], 
        "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", "*", "Y", "*", "Z", "*", "Z2", "*", "Z3", "*", "Z4"}], 
        "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameSix", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reOrder", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "*", "Y_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "Y"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "^", "2"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameTwo", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "X"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "*", "Y_", "*", "Z_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "Y", ",", "Z"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
         RowBox[{"X_", "^", "2"}], "*", "Z_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "X", ",", "Z"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "^", "3"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameThree", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "X", ",", "X"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "*", "Y_", "*", "Z_", "*", "Z2_"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "*", "Y_", "*", 
         RowBox[{"Z_", "^", "2"}]}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "Y", ",", "Z", ",", "Z"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "*", 
         RowBox[{"Y_", "^", "3"}]}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "Y", ",", "Y", ",", "Y"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "^", "4"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameFour", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "X", ",", "X", ",", "X"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X_", "*", "Y_", "*", "Z_", "*", "Z2_", "*", "Z3_"}], "]"}], 
       "\[Rule]", 
       RowBox[{
        RowBox[{"nameFive", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2", ",", "Z3"}], "]"}]}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameFive", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"reOrder", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{
        "X_", "*", "Y_", "*", "Z_", "*", "Z2_", "*", "Z3_", "*", "Z4_"}], 
        "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"nameSix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "[", 
        RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2", ",", "Z3", ",", "Z4"}], 
        "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameSix", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.473789679931797*^9, 3.47378990476426*^9}, {
  3.473790454957247*^9, 3.473790466450135*^9}, {3.47383997171473*^9, 
  3.473840029900398*^9}, {3.477913285684142*^9, 3.477913365071724*^9}, {
  3.477913453874611*^9, 3.477913454775998*^9}, {3.478258054161975*^9, 
  3.478258062370668*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Dfvec", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Df", "[", 
      RowBox[{"X_", ",", "Y_"}], "]"}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X3_", ",", "Y3_"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X3_", ",", "Y3_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X4_", ",", "Y4_"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X3_", ",", "Y3_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X4_", ",", "Y4_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X5_", ",", "Y5_"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X3_", ",", "Y3_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X4_", ",", "Y4_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X5_", ",", "Y5_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X6_", ",", "Y6_"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X3_", ",", "Y3_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X4_", ",", "Y4_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X5_", ",", "Y5_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X6_", ",", "Y6_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X7_", ",", "Y7_"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X3_", ",", "Y3_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X4_", ",", "Y4_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X5_", ",", "Y5_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X6_", ",", "Y6_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X7_", ",", "Y7_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X8_", ",", "Y8_"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"X_", ",", "Y_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X2_", ",", "Y2_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X3_", ",", "Y3_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X4_", ",", "Y4_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X5_", ",", "Y5_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X6_", ",", "Y6_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X7_", ",", "Y7_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X8_", ",", "Y8_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"X9_", ",", "Y9_"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dfsqvec", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"aX_", ",", "aY_"}], "]"}], "^", "2"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX_", ",", "aY_"}], "]"}], "^", "2"}], 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX2_", ",", "aY2_"}], "]"}], "^", "2"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX_", ",", "aY_"}], "]"}], "^", "2"}], 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX2_", ",", "aY2_"}], "]"}], "^", "2"}], 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX3_", ",", "aY3_"}], "]"}], "^", "2"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX_", ",", "aY_"}], "]"}], "^", "2"}], 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX2_", ",", "aY2_"}], "]"}], "^", "2"}], 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX3_", ",", "aY3_"}], "]"}], "^", "2"}], 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"aX4_", ",", "aY4_"}], "]"}], "^", "2"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"delvec", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Df", "[", 
      RowBox[{"hX_", ",", "hY_"}], "]"}], ",", 
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"hX_", ",", "hY_"}], "]"}], 
      RowBox[{"Df", "[", 
       RowBox[{"hX2_", ",", "hY2_"}], "]"}]}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.462259774351736*^9, 3.462259995630704*^9}, {
  3.462260074232778*^9, 3.462260123501196*^9}, {3.462285630685772*^9, 
  3.462285661882527*^9}, {3.462342854844251*^9, 3.462342887191071*^9}, {
  3.462344815076451*^9, 3.462344857303657*^9}, {3.462345077433358*^9, 
  3.46234509965085*^9}, {3.462345234243396*^9, 3.462345234577755*^9}, {
  3.46254796394273*^9, 3.462547965671942*^9}, {3.497808016316002*^9, 
  3.49780801801536*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"spreader1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x_", ",", "y_"}], "]"}], "^", "2"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df2", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x_", ",", "y_"}], "]"}], "^", "3"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df2", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df3", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x_", ",", "y_"}], "]"}], "^", "4"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df2", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df3", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df4", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x_", ",", "y_"}], "]"}], "^", "5"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df2", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df3", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df4", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df5", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x_", ",", "y_"}], "]"}], "^", "6"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Df", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df2", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df3", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df4", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df5", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"Df6", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spreader2", "=", 
   RowBox[{"spreader1", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Df", "\[Rule]", "Gc"}], ",", 
      RowBox[{"Df2", "\[Rule]", "Gc2"}], ",", 
      RowBox[{"Df3", "\[Rule]", "Gc3"}], ",", 
      RowBox[{"Df4", "\[Rule]", "Gc4"}], ",", 
      RowBox[{"Df5", "\[Rule]", "Gc5"}], ",", 
      RowBox[{"Df6", "\[Rule]", "Gc6"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spreader3", "=", 
   RowBox[{"spreader1", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Df", "\[Rule]", "D0"}], ",", 
      RowBox[{"Df2", "\[Rule]", "D02"}], ",", 
      RowBox[{"Df3", "\[Rule]", "D03"}], ",", 
      RowBox[{"Df4", "\[Rule]", "D04"}], ",", 
      RowBox[{"Df5", "\[Rule]", "D05"}], ",", 
      RowBox[{"Df6", "\[Rule]", "D06"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spreader", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"spreader1", ",", "spreader2", ",", "spreader3"}], "}"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.467887060053778*^9, 3.467887187231894*^9}, {
  3.561985481517128*^9, 3.561985622500411*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "nameTwo", "]"}]], "Input",
 CellChangeTimes->{{3.573985399676873*^9, 3.5739854030105457`*^9}}],

Cell[BoxData["42"], "Output",
 CellChangeTimes->{3.573985403808346*^9, 3.574011043195125*^9, 
  3.574059866258915*^9, 3.574158065604485*^9, 3.574228665661882*^9, 
  3.5744919558322773`*^9, 3.574678698122332*^9, 3.574934427202416*^9, 
  3.575094363783939*^9, 3.57509842123492*^9, 3.575107660965707*^9, 
  3.5752050236437683`*^9, 3.5753544432505493`*^9, 3.575369669566515*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "nameTwoPartner1", "]"}]], "Input",
 CellChangeTimes->{{3.573985411475671*^9, 3.57398541841438*^9}}],

Cell[BoxData["40"], "Output",
 CellChangeTimes->{3.573985419100425*^9, 3.574011043251336*^9, 
  3.574059866268146*^9, 3.574158065613802*^9, 3.5742286656749477`*^9, 
  3.574491955841673*^9, 3.574678698250897*^9, 3.574934427237214*^9, 
  3.575094363796476*^9, 3.5750984212442837`*^9, 3.575107660975605*^9, 
  3.575205023688322*^9, 3.57535444325854*^9, 3.5753696695775537`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"powerspreader", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"powerspreader", ",", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x_", ",", "y_"}], "]"}], "^", "2"}], "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner1", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"powerspreader", ",", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x_", ",", "y_"}], "]"}], "^", "3"}], "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner1", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner2", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"powerspreader", ",", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x_", ",", "y_"}], "]"}], "^", "4"}], "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner1", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner2", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner3", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"powerspreader", ",", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x_", ",", "y_"}], "]"}], "^", "5"}], "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"nameTwo", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner1", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner2", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner3", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{
         RowBox[{"nameTwoPartner4", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "nameTwo", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5624899277388763`*^9, 3.562489929158779*^9}, {
  3.562490074322699*^9, 3.562490240600713*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delX, DfX, Gk1X, Gk2X, Df2X, Df3X, Df4X, Df5X, Df6X, D0X, \
delDfX, DinX, GcX, GinX, GctX, Gct1X, Gct2X, Gct3X, Gct3X, DtpX, DssX, D1X, \
D2X, D3X, D4X, D5X, D6X, D7X, D8X, D9X, D10X, D11X, D12X, D13X, D14X, D15X, \
DfinX, DFINX, Dtp2X, Dtp3X}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669719235*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(42\\)\[NoBreak] of \
\[NoBreak]\\!\\({delX, DfX, Gk1X, Gk2X, Df2X, Df3X, Df4X, Df5X, Df6X, D0X, \
delDfX, DinX, GcX, GinX, GctX, Gct1X, Gct2X, Gct3X, Gct3X, DtpX, DssX, D1X, \
D2X, D3X, D4X, D5X, D6X, D7X, D8X, D9X, D10X, D11X, D12X, D13X, D14X, D15X, \
DfinX, DFINX, Dtp2X, Dtp3X}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669720091*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delX, DfX, Gk1X, Gk2X, Df2X, Df3X, Df4X, Df5X, Df6X, D0X, \
delDfX, DinX, GcX, GinX, GctX, Gct1X, Gct2X, Gct3X, Gct3X, DtpX, DssX, D1X, \
D2X, D3X, D4X, D5X, D6X, D7X, D8X, D9X, D10X, D11X, D12X, D13X, D14X, D15X, \
DfinX, DFINX, Dtp2X, Dtp3X}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669729453*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delY, DfY, Gk1Y, Gk2Y, Df2Y, Df3Y, Df4Y, Df5Y, Df6Y, D0Y, \
delDfY, DinY, GcY, GinY, GctY, Gct1Y, Gct2Y, Gct3Y, Gct3Y, DtpY, DssY, D1Y, \
D2Y, D3Y, D4Y, D5Y, D6Y, D7Y, D8Y, D9Y, D10Y, D11Y, D12Y, D13Y, D14Y, D15Y, \
DfinY, DFINY, Dtp2Y, Dtp3Y}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669729899*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(42\\)\[NoBreak] of \
\[NoBreak]\\!\\({delX, DfX, Gk1X, Gk2X, Df2X, Df3X, Df4X, Df5X, Df6X, D0X, \
delDfX, DinX, GcX, GinX, GctX, Gct1X, Gct2X, Gct3X, Gct3X, DtpX, DssX, D1X, \
D2X, D3X, D4X, D5X, D6X, D7X, D8X, D9X, D10X, D11X, D12X, D13X, D14X, D15X, \
DfinX, DFINX, Dtp2X, Dtp3X}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669730275*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partw\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669744336*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delX, DfX, Gk1X, Gk2X, Df2X, Df3X, Df4X, Df5X, Df6X, D0X, \
delDfX, DinX, GcX, GinX, GctX, Gct1X, Gct2X, Gct3X, Gct3X, DtpX, DssX, D1X, \
D2X, D3X, D4X, D5X, D6X, D7X, D8X, D9X, D10X, D11X, D12X, D13X, D14X, D15X, \
DfinX, DFINX, Dtp2X, Dtp3X}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.5753696697548*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delY, DfY, Gk1Y, Gk2Y, Df2Y, Df3Y, Df4Y, Df5Y, Df6Y, D0Y, \
delDfY, DinY, GcY, GinY, GctY, Gct1Y, Gct2Y, Gct3Y, Gct3Y, DtpY, DssY, D1Y, \
D2Y, D3Y, D4Y, D5Y, D6Y, D7Y, D8Y, D9Y, D10Y, D11Y, D12Y, D13Y, D14Y, D15Y, \
DfinY, DFINY, Dtp2Y, Dtp3Y}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.57536966975543*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delZ, DfZ, Gk1Z, Gk2Z, Df2Z, Df3Z, Df4Z, Df5Z, Df6Z, D0Z, \
delDfZ, DinZ, GcZ, GinZ, GctZ, Gct1Z, Gct2Z, Gct3Z, Gct3Z, DtpZ, DssZ, D1Z, \
D2Z, D3Z, D4Z, D5Z, D6Z, D7Z, D8Z, D9Z, D10Z, D11Z, D12Z, D13Z, D14Z, D15Z, \
DfinZ, DFINZ, Dtp2Z, Dtp3Z}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669755947*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partw\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669756431*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delX, DfX, Gk1X, Gk2X, Df2X, Df3X, Df4X, Df5X, Df6X, D0X, \
delDfX, DinX, GcX, GinX, GctX, Gct1X, Gct2X, Gct3X, Gct3X, DtpX, DssX, D1X, \
D2X, D3X, D4X, D5X, D6X, D7X, D8X, D9X, D10X, D11X, D12X, D13X, D14X, D15X, \
DfinX, DFINX, Dtp2X, Dtp3X}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.5753696697694693`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delY, DfY, Gk1Y, Gk2Y, Df2Y, Df3Y, Df4Y, Df5Y, Df6Y, D0Y, \
delDfY, DinY, GcY, GinY, GctY, Gct1Y, Gct2Y, Gct3Y, Gct3Y, DtpY, DssY, D1Y, \
D2Y, D3Y, D4Y, D5Y, D6Y, D7Y, D8Y, D9Y, D10Y, D11Y, D12Y, D13Y, D14Y, D15Y, \
DfinY, DFINY, Dtp2Y, Dtp3Y}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669770121*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partw"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part \[NoBreak]\\!\\(41\\)\[NoBreak] of \
\[NoBreak]\\!\\({delZ, DfZ, Gk1Z, Gk2Z, Df2Z, Df3Z, Df4Z, Df5Z, Df6Z, D0Z, \
delDfZ, DinZ, GcZ, GinZ, GctZ, Gct1Z, Gct2Z, Gct3Z, Gct3Z, DtpZ, DssZ, D1Z, \
D2Z, D3Z, D4Z, D5Z, D6Z, D7Z, D8Z, D9Z, D10Z, D11Z, D12Z, D13Z, D14Z, D15Z, \
DfinZ, DFINZ, Dtp2Z, Dtp3Z}\\)\[NoBreak] does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.5753696697708282`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partw\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5750984213019447`*^9, 3.575107661118821*^9, 
  3.575205023769215*^9, 3.575354443289158*^9, 3.575369669771798*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"removeSpread", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Df2", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df3", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df4", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df5", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Df6", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", 
      RowBox[{"Df", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spread2one", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Df2", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Df3", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Df4", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Df5", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", "1"}], ",", 
     RowBox[{
      RowBox[{"Df6", "[", 
       RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", "1"}]}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.467887290596138*^9, 3.467887326894446*^9}, 
   3.467890646490788*^9, {3.467979122199602*^9, 3.467979169215694*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"noIndex", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Df", "[", 
       RowBox[{"xx", ",", "xx"}], "]"}], "\[Rule]", "Df"}], ",", 
     RowBox[{
      RowBox[{"U0", "[", 
       RowBox[{"xx", ",", "xx", ",", "xx"}], "]"}], "\[Rule]", "U0"}], ",", 
     RowBox[{
      RowBox[{"U", "[", 
       RowBox[{"xx", ",", "xx", ",", "xx"}], "]"}], "\[Rule]", "U"}], ",", 
     RowBox[{
      RowBox[{"V", "[", 
       RowBox[{"xx", ",", "xx", ",", "xx", ",", "xx"}], "]"}], "\[Rule]", 
      "V"}], ",", 
     RowBox[{
      RowBox[{"V0", "[", 
       RowBox[{"xx", ",", "xx", ",", "xx", ",", "xx"}], "]"}], "\[Rule]", 
      "V0"}], ",", 
     RowBox[{
      RowBox[{"V5", "[", 
       RowBox[{"xx", ",", "xx", ",", "xx", ",", "xx", ",", "xx"}], "]"}], 
      "\[Rule]", "V5"}], ",", 
     RowBox[{
      RowBox[{"U", "[", "xx", "]"}], "\[Rule]", "U"}], ",", 
     RowBox[{
      RowBox[{"V", "[", "xx", "]"}], "\[Rule]", "V"}], ",", 
     RowBox[{
      RowBox[{"V5", "[", "xx", "]"}], "\[Rule]", "V5"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"restoreIndex", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"restoreIndex", ",", 
      RowBox[{
       RowBox[{"noIndex", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "2"}], "]"}], "]"}], "\[Rule]", 
       RowBox[{"noIndex", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "1"}], "]"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "noIndex", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.478015457779095*^9, 3.478015488203437*^9}, {
  3.478015540265218*^9, 3.478015557084545*^9}, {3.478424585193539*^9, 
  3.478424588987584*^9}, {3.478598014630924*^9, 3.47859803266521*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"threeIndex", "=", 
   RowBox[{"{", 
    RowBox[{
    "i", ",", "j", ",", "l", ",", "m", ",", "r", ",", "s", ",", "t", ",", 
     "d1", ",", "d2", ",", "d3", ",", "d4", ",", "d5", ",", "d6", ",", "d7", 
     ",", "d8", ",", "d9", ",", "d10", ",", "d11", ",", "d12", ",", "d13", 
     ",", "d14", ",", "d15", ",", "d16", ",", "zum1", ",", "zum2", ",", 
     "zum3", ",", "zum4", ",", "zum5", ",", "zum6", ",", "zum7", ",", 
     "zum8"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"allIndex", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Flatten", "[", 
     RowBox[{"{", 
      RowBox[{"extVAR", ",", "threeIndex"}], "}"}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.512789997328967*^9, 3.5127900075853977`*^9}, 
   3.512806906104224*^9, {3.512869730609564*^9, 3.512869735993284*^9}, {
   3.51287336631115*^9, 3.512873368590068*^9}, {3.5128734168538733`*^9, 
   3.512873419947411*^9}, {3.512873743500369*^9, 3.512873750171216*^9}, {
   3.5128816996332827`*^9, 3.5128817030018597`*^9}, {3.512954863003442*^9, 
   3.512954864330885*^9}, {3.512955382941947*^9, 3.512955384356883*^9}, {
   3.51307169708877*^9, 3.513071709388839*^9}}],

Cell["order the del' s ", "Text",
 CellChangeTimes->{{3.512804493091909*^9, 3.512804521779155*^9}, {
   3.512804553959708*^9, 3.512804559744589*^9}, {3.512804638158883*^9, 
   3.51280464600744*^9}, {3.512806919458777*^9, 3.512806923354039*^9}, {
   3.51306879331481*^9, 3.513068807744282*^9}, 3.5536027797365103`*^9},
 FontSize->16],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ii", ">", "jj"}], ",", 
        RowBox[{
         RowBox[{"del", "[", 
          RowBox[{
           RowBox[{"allIndex", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], ",", 
           RowBox[{"allIndex", "[", 
            RowBox[{"[", "jj", "]"}], "]"}]}], "]"}], "=", 
         RowBox[{"del", "[", 
          RowBox[{
           RowBox[{"allIndex", "[", 
            RowBox[{"[", "jj", "]"}], "]"}], ",", 
           RowBox[{"allIndex", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "allIndex", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "allIndex", "]"}]}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5127929039991617`*^9, 3.512792923427932*^9}, {
  3.512794219552141*^9, 3.512794272107779*^9}, {3.5128068138217707`*^9, 
  3.512806900721952*^9}, {3.512807126867354*^9, 3.512807127431407*^9}, {
  3.513068825220496*^9, 3.5130688401531878`*^9}, {3.513069613536181*^9, 
  3.51306964177608*^9}, {3.513329925761941*^9, 3.5133299360734797`*^9}, {
  3.553602773690174*^9, 3.5536027740296097`*^9}}],

Cell["\<\
rule to set : del[a, a] = 1, del[i, i] = 3, del[i,j]del[j,i]->3  and also to \
protect the external del's\
\>", "Text",
 CellChangeTimes->{{3.512804493091909*^9, 3.512804521779155*^9}, {
   3.512804553959708*^9, 3.512804559744589*^9}, {3.512804638158883*^9, 
   3.51280464600744*^9}, 3.5128069448982353`*^9, {3.512807492565789*^9, 
   3.512807505042589*^9}},
 FontSize->16],

Cell[BoxData[{
 RowBox[{
  RowBox[{"delRule", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"delRule", ",", 
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", 
         RowBox[{"extVAR", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], "\[Rule]", "1"}]}], "]"}],
     ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"delRule", ",", 
      RowBox[{
       RowBox[{"del", "[", 
        RowBox[{
         RowBox[{"threeIndex", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", 
         RowBox[{"threeIndex", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], "->", "3"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "threeIndex", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ii", "\[NotEqual]", "jj"}], ",", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"delRule", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"del", "[", 
             RowBox[{
              RowBox[{"threeIndex", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], ",", 
              RowBox[{"threeIndex", "[", 
               RowBox[{"[", "jj", "]"}], "]"}]}], "]"}], 
            RowBox[{"del", "[", 
             RowBox[{
              RowBox[{"threeIndex", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], ",", 
              RowBox[{"threeIndex", "[", 
               RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}], "\[Rule]", "3"}]}],
          "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "threeIndex", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "threeIndex", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ii", "\[NotEqual]", "jj"}], ",", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"delRule", ",", 
          RowBox[{
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], ",", 
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "jj", "]"}], "]"}]}], "]"}], "->", 
           RowBox[{"dell", "[", 
            RowBox[{
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], ",", 
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], "]"}]}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.512793235995586*^9, 3.5127932547492323`*^9}, {
  3.51279397748991*^9, 3.5127940753381567`*^9}, {3.512794134924563*^9, 
  3.5127941863964033`*^9}, {3.512794320386911*^9, 3.5127943215580053`*^9}, {
  3.512794708484089*^9, 3.512794792806138*^9}, {3.5128044462220917`*^9, 
  3.512804476187958*^9}, {3.512804545200479*^9, 3.512804550168782*^9}, {
  3.512804595129684*^9, 3.512804606179679*^9}, {3.5128067990191097`*^9, 
  3.5128068016358023`*^9}, {3.512807516925311*^9, 3.512807530489333*^9}}],

Cell["unProtect the external del's", "Text",
 CellChangeTimes->{{3.512804493091909*^9, 3.512804521779155*^9}, {
  3.512804553959708*^9, 3.512804559744589*^9}, {3.512804638158883*^9, 
  3.51280464600744*^9}, {3.5128069448982353`*^9, 3.512806972150465*^9}, {
  3.5128074821370363`*^9, 3.512807484155456*^9}},
 FontSize->16],

Cell[BoxData[{
 RowBox[{
  RowBox[{"extDel", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ii", "\[NotEqual]", "jj"}], ",", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"extDel", ",", 
          RowBox[{
           RowBox[{"dell", "[", 
            RowBox[{
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], ",", 
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "jj", "]"}], "]"}]}], "]"}], "->", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], ",", 
             RowBox[{"extVAR", "[", 
              RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], "]"}]}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.512806579400651*^9, 3.512806645253059*^9}}],

Cell["the three vectors", "Text",
 CellChangeTimes->{{3.512804493091909*^9, 3.512804521779155*^9}, {
  3.512804553959708*^9, 3.512804559744589*^9}, {3.512804638158883*^9, 
  3.51280464600744*^9}, {3.5128069448982353`*^9, 3.512806972150465*^9}, {
  3.5128074821370363`*^9, 3.512807484155456*^9}, {3.512867256833762*^9, 
  3.512867261788672*^9}},
 FontSize->16],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"dot", "[", 
      RowBox[{
       RowBox[{"qvec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{"qvec", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], "=", 
     RowBox[{
      RowBox[{"qvec", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "^", "2"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "qvec", "]"}]}], "}"}]}], "]"}], ";"}]], "Input",\

 CellChangeTimes->{{3.507970947675132*^9, 3.507970963535185*^9}, {
   3.507971104449512*^9, 3.507971178965399*^9}, {3.5127897803610077`*^9, 
   3.512789817610093*^9}, {3.5128672457586203`*^9, 3.512867247487399*^9}, {
   3.512868911101565*^9, 3.512868912358453*^9}, {3.512870877561696*^9, 
   3.512870879658601*^9}, {3.513398322600659*^9, 3.513398322773546*^9}, {
   3.5152302553745604`*^9, 3.515230255526948*^9}, {3.51635188661031*^9, 
   3.516351886896411*^9}, {3.569486550532996*^9, 3.5694865643720903`*^9}, {
   3.569589411468685*^9, 3.569589434312943*^9}, 3.5695894867577333`*^9, {
   3.569589517477621*^9, 3.569589518618297*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ii", ">", "jj"}], ",", 
        RowBox[{
         RowBox[{"dot", "[", 
          RowBox[{
           RowBox[{"qvec", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], ",", 
           RowBox[{"qvec", "[", 
            RowBox[{"[", "jj", "]"}], "]"}]}], "]"}], "=", 
         RowBox[{"dot", "[", 
          RowBox[{
           RowBox[{"qvec", "[", 
            RowBox[{"[", "jj", "]"}], "]"}], ",", 
           RowBox[{"qvec", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "qvec", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "qvec", "]"}]}], "}"}]}], "]"}], ";"}]], "Input",\

 CellChangeTimes->{{3.507971186142679*^9, 3.5079712421882687`*^9}, {
  3.512789820942789*^9, 3.512789835441201*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"getDot3", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"AppendTo", "[", 
       RowBox[{"getDot3", ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"qvec", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], "[", "x_", "]"}], 
          RowBox[{
           RowBox[{"qvec", "[", 
            RowBox[{"[", "jj", "]"}], "]"}], "[", "x_", "]"}]}], "\[Rule]", 
         RowBox[{"dot", "[", 
          RowBox[{
           RowBox[{"qvec", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], ",", 
           RowBox[{"qvec", "[", 
            RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "qvec", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "qvec", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input",\

 CellChangeTimes->{{3.512790204064767*^9, 3.5127903367600517`*^9}, {
  3.5127903938943787`*^9, 3.5127903997350683`*^9}, {3.512792891602509*^9, 
  3.512792898701536*^9}, {3.5127930280264673`*^9, 3.512793051694847*^9}, {
  3.51279322686233*^9, 3.5127932282317877`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"legger", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Vc", "[", 
       RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], 
       RowBox[{"Vr", "[", 
        RowBox[{"z1", ",", "z2", ",", "z3", ",", "z4"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"VDc", "[", 
       RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], 
       RowBox[{"VDr", "[", 
        RowBox[{"z1", ",", "z2", ",", "z3", ",", "z4"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"V6c", "[", 
       RowBox[{
       "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_"}], 
       "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z3", ",", "z5"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z4", ",", "z6"}], "]"}], 
       RowBox[{"V6r", "[", 
        RowBox[{"z1", ",", "z2", ",", "z3", ",", "z4", ",", "z5", ",", "z6"}],
         "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"V8c", "[", 
       RowBox[{
       "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_", ",", 
        "Z5_", ",", "Z6_"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z3", ",", "z5"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z4", ",", "z6"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z5", ",", "z7"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z6", ",", "z8"}], "]"}], 
       RowBox[{"V8r", "[", 
        RowBox[{
        "z1", ",", "z2", ",", "z3", ",", "z4", ",", "z5", ",", "z6", ",", 
         "z7", ",", "z8"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"LAM8", "[", 
       RowBox[{
       "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_", ",", 
        "Z5_", ",", "Z6_"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z3", ",", "z5"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z4", ",", "z6"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z5", ",", "z7"}], "]"}], 
       RowBox[{"Gc", "[", 
        RowBox[{"Z6", ",", "z8"}], "]"}], 
       RowBox[{"LAM8a", "[", 
        RowBox[{
        "z1", ",", "z2", ",", "z3", ",", "z4", ",", "z5", ",", "z6", ",", 
         "z7", ",", "z8"}], "]"}]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"legger2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Vc", "[", 
       RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], " ", 
       RowBox[{"V", "[", 
        RowBox[{"z1", ",", "z2", ",", "z3", ",", "z4"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"V6c", "[", 
       RowBox[{
       "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_"}], 
       "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z3", ",", "z5"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z4", ",", "z6"}], "]"}], " ", 
       RowBox[{"V6a", "[", 
        RowBox[{"z1", ",", "z2", ",", "z3", ",", "z4", ",", "z5", ",", "z6"}],
         "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"V8c", "[", 
       RowBox[{
       "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_", ",", 
        "Z5_", ",", "Z6_"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"X", ",", "z1"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Y", ",", "z2"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z", ",", "z3"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z2", ",", "z4"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z3", ",", "z5"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z4", ",", "z6"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z5", ",", "z7"}], "]"}], " ", 
       RowBox[{"Gc", "[", 
        RowBox[{"Z6", ",", "z8"}], "]"}], " ", 
       RowBox[{"V8a", "[", 
        RowBox[{
        "z1", ",", "z2", ",", "z3", ",", "z4", ",", "z5", ",", "z6", ",", 
         "z7", ",", "z8"}], "]"}]}]}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.553521219545884*^9, 3.55352130090212*^9}, {
  3.55352196146546*^9, 3.553521966623205*^9}, {3.553527264912374*^9, 
  3.553527313174406*^9}, {3.553528106631412*^9, 3.553528120243046*^9}, {
  3.556548086407152*^9, 3.556548093156736*^9}, {3.556561725354022*^9, 
  3.5565617633054647`*^9}, {3.5565619946185017`*^9, 3.556561994722352*^9}, {
  3.556953230580985*^9, 3.556953269557974*^9}, {3.5569542687287197`*^9, 
  3.556954280911152*^9}, {3.556954428736784*^9, 3.5569544456975594`*^9}, {
  3.568624731241322*^9, 3.568624732017962*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"lkx", "=", 
   RowBox[{"<<", "V8PROPERstore"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"V8PROPER", "=", 
   RowBox[{
    RowBox[{"V8a", "[", 
     RowBox[{
     "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_", ",", 
      "Z5_", ",", "Z6_"}], "]"}], "\[Rule]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"lkx", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "//.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Vr", "[", "XX__", "]"}], "\[Rule]", 
         RowBox[{"V", "[", "XX", "]"}]}], ",", 
        RowBox[{
         RowBox[{"V6r", "[", "XX__", "]"}], "\[Rule]", 
         RowBox[{"V6", "[", "XX", "]"}]}], ",", 
        RowBox[{
         RowBox[{"V8r", "[", "XX__", "]"}], "\[Rule]", 
         RowBox[{"V8", "[", "XX", "]"}]}]}], "}"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.568540720865993*^9, 3.568540776159863*^9}, {
   3.568541559186922*^9, 3.568541628115325*^9}, 3.568541673813878*^9, {
   3.568541748093405*^9, 3.568541753247962*^9}, {3.572937820932563*^9, 
   3.572937841764633*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"V6PROPER", "=", 
   RowBox[{"<<", "V6PROPERstore"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"V6PROPER", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"V6a", "[", 
      RowBox[{
      "X_", ",", "Y_", ",", "Z_", ",", "Z2_", ",", "Z3_", ",", "Z4_"}], "]"}],
      "\[Rule]", 
     RowBox[{
      RowBox[{"V6r", "[", 
       RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2", ",", "Z3", ",", "Z4"}], 
       "]"}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Z3", ",", "Z4", ",", "z7"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Y", ",", "Z", ",", "Z2", ",", "z8"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Z2", ",", "Z4", ",", "z7"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Y", ",", "Z", ",", "Z3", ",", "z8"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Z2", ",", "Z3", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Y", ",", "Z", ",", "Z4", ",", "z7"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Z", ",", "Z4", ",", "z7"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Y", ",", "Z2", ",", "Z3", ",", "z8"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Z", ",", "Z3", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Y", ",", "Z2", ",", "Z4", ",", "z7"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Z", ",", "Z2", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Y", ",", "Z3", ",", "Z4", ",", "z7"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Y", ",", "Z4", ",", "z7"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Z", ",", "Z2", ",", "Z3", ",", "z8"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Y", ",", "Z3", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Z", ",", "Z2", ",", "Z4", ",", "z7"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Y", ",", "Z2", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Z", ",", "Z3", ",", "Z4", ",", "z7"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gc", "[", 
        RowBox[{"z7", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"X", ",", "Y", ",", "Z", ",", "z8"}], "]"}], " ", 
       RowBox[{"Vr", "[", 
        RowBox[{"Z2", ",", "Z3", ",", "Z4", ",", "z7"}], "]"}]}]}]}], "//.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Vr", "[", "XX__", "]"}], "\[Rule]", 
       RowBox[{"V", "[", "XX", "]"}]}], ",", 
      RowBox[{
       RowBox[{"V6r", "[", "XX__", "]"}], "\[Rule]", 
       RowBox[{"V6", "[", "XX", "]"}]}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.568538226735157*^9, 3.568538261928586*^9}, {
  3.568538450951185*^9, 3.568538477589757*^9}, {3.5685388566174107`*^9, 
  3.5685388679016647`*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[" modules", "Section",
 CellChangeTimes->{{3.553583865937221*^9, 3.5535838944093246`*^9}, 
   3.568357711410618*^9}],

Cell[CellGroupData[{

Cell["tallyFunction and tallyCheck", "Subsection",
 CellChangeTimes->{{3.569741096577036*^9, 3.5697411124483*^9}},
 Background->RGBColor[1., 0.3333333333333333, 0.]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"varlookFunction", "[", "x0_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"lkx", ",", "lky", ",", "varlist"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"lkx", "=", 
       RowBox[{"Union", "[", 
        RowBox[{
         RowBox[{"Variables", "[", "x0", "]"}], "//.", "removeMark"}], 
        "]"}]}], ";", "\n", 
      RowBox[{"varlist", "=", 
       RowBox[{"{", "}"}]}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"AppendTo", "[", 
         RowBox[{"varlist", ",", 
          RowBox[{"Level", "[", 
           RowBox[{
            RowBox[{"lkx", "[", 
             RowBox[{"[", "ii", "]"}], "]"}], ",", "1"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", 
          RowBox[{"Length", "[", "lkx", "]"}]}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"varList", "=", 
       RowBox[{"Union", "[", 
        RowBox[{"Flatten", "[", "varlist", "]"}], "]"}]}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.566897338692745*^9, 3.566897421983285*^9}, 
   3.5671628956335783`*^9, 3.567162933463525*^9, {3.5671630098497477`*^9, 
   3.5671630150512953`*^9}, {3.573898513874359*^9, 3.5738985205246067`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"tallyFunction", "[", "x0_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"lkx", ",", "lky"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"Clear", "[", 
       RowBox[{"lkx", ",", "lky", ",", "varlist"}], "]"}], ";", "\n", 
      RowBox[{"x00", "=", 
       RowBox[{"Expand", "[", 
        RowBox[{"hold", "+", "x0"}], "]"}]}], ";", "\n", 
      RowBox[{"tallyList", "=", 
       RowBox[{"{", "}"}]}], ";", "\n", 
      RowBox[{"Do", "[", "\n", 
       RowBox[{
        RowBox[{
         RowBox[{"lkx", "=", 
          RowBox[{"Variables", "[", 
           RowBox[{"Simplify", "[", 
            RowBox[{
             RowBox[{"x00", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x00", "[", 
                RowBox[{"[", "ii", "]"}], "]"}], "//.", "removeAll"}], 
              ")"}]}], "]"}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"varlist", "[", "ii", "]"}], "=", 
          RowBox[{"{", "}"}]}], ";", "\n", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"AppendTo", "[", 
            RowBox[{
             RowBox[{"varlist", "[", "ii", "]"}], ",", 
             RowBox[{"Level", "[", 
              RowBox[{
               RowBox[{"lkx", "[", 
                RowBox[{"[", "jj", "]"}], "]"}], ",", "1"}], "]"}]}], "]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "lkx", "]"}]}], "}"}]}], "]"}], ";", "\n", 
         RowBox[{
          RowBox[{"tallied", "[", "ii", "]"}], "=", 
          RowBox[{"Sort", "[", 
           RowBox[{"Tally", "[", 
            RowBox[{"Flatten", "[", 
             RowBox[{"varlist", "[", "ii", "]"}], "]"}], "]"}], "]"}]}], ";", 
         "\n", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"tallyList", ",", 
           RowBox[{"tallied", "[", "ii", "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", 
          RowBox[{"Length", "[", "x00", "]"}]}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"tally", "=", 
       RowBox[{"Union", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"tallyList", ",", "1"}], "]"}], "]"}]}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.56716294651964*^9, {3.567163268349635*^9, 3.567163291303767*^9}, {
   3.56733238414253*^9, 3.567332487555365*^9}, {3.568458847223667*^9, 
   3.568458903435317*^9}, 3.5684589667961807`*^9, 3.5684592103931293`*^9, 
   3.568459267338469*^9, {3.5732127122105923`*^9, 3.57321273083936*^9}, {
   3.57510084512602*^9, 3.57510085200452*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tallyCheck", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x00", ",", "test", ",", "hopxx"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"x00", "=", 
      RowBox[{
       RowBox[{"Expand", "[", 
        RowBox[{"hold", "+", "x0"}], "]"}], "//.", "spreader"}]}], ";", "\n", 
     
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "x00", "]"}], ">", "1000"}], ",", "\n", 
       RowBox[{
        RowBox[{"Print", "[", "\"\<500 terms only\>\"", "]"}], ";", "\n", 
        RowBox[{"int", ":=", 
         RowBox[{"RandomInteger", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "x00", "]"}]}], "}"}], "]"}]}], ";", "\n", 
        
        RowBox[{"test", "=", "0"}], ";", "\n", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{"test", "=", 
           RowBox[{"test", "+", 
            RowBox[{"x00", "[", 
             RowBox[{"[", "int", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "500"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"test", "=", "x00"}]}], "]"}], ";", "\n", 
     RowBox[{"hopxx", "=", 
      RowBox[{"tallyFunction", "[", "test", "]"}]}], ";", "\n", 
     RowBox[{"dumVars", "=", 
      RowBox[{"{", "}"}]}], ";", 
     RowBox[{"extVars", "=", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"hopxx", "[", 
            RowBox[{"[", 
             RowBox[{"ii", ",", "2"}], "]"}], "]"}], "\[Equal]", "2"}], ",", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"dumVars", ",", 
            RowBox[{"hopxx", "[", 
             RowBox[{"[", 
              RowBox[{"ii", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}], ";", 
        "\n", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"hopxx", "[", 
            RowBox[{"[", 
             RowBox[{"ii", ",", "2"}], "]"}], "]"}], "\[Equal]", "1"}], ",", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"extVars", ",", 
            RowBox[{"hopxx", "[", 
             RowBox[{"[", 
              RowBox[{"ii", ",", "1"}], "]"}], "]"}]}], "]"}]}], "]"}], ";", 
        "\n", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"hopxx", "[", 
            RowBox[{"[", 
             RowBox[{"ii", ",", "2"}], "]"}], "]"}], ">", "2"}], ",", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"hopxx", "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", " ", 
              "\"\<appears\>\"", ",", "  ", 
              RowBox[{"hopxx", "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", 
              "\"\<times\>\""}], "}"}], "]"}], ";", 
           RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}], "\n", ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "hopxx", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<external variables are\>\"", ",", "extVars"}], "}"}], 
      "]"}], ";", "\n", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<dummy variables are\>\"", ",", "dumVars"}], "}"}], "]"}], 
     ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Intersection", "[", 
         RowBox[{"dumVars", ",", "extVars"}], "]"}], "\[Equal]", 
        RowBox[{"{", "}"}]}], ",", ",", 
       RowBox[{"Print", "[", "\"\<disaster\>\"", "]"}], ",", 
       RowBox[{"Print", "[", "\"\<disaster\>\"", "]"}]}], "]"}], ";"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.567945961810314*^9, 3.567945962288892*^9}, {
   3.567946570831894*^9, 3.567946575051861*^9}, {3.568446755331112*^9, 
   3.568446881039929*^9}, {3.568446919134069*^9, 3.5684469322055883`*^9}, {
   3.568451863409638*^9, 3.568451983464961*^9}, {3.568452039053068*^9, 
   3.568452058632517*^9}, 3.56845929124329*^9, {3.568459886883757*^9, 
   3.5684599593644733`*^9}, {3.568461078630453*^9, 3.568461121172119*^9}, {
   3.5684612127044983`*^9, 3.5684612512917852`*^9}, 3.5684612889488573`*^9, 
   3.5684624983860197`*^9, {3.568462534037231*^9, 3.568462695477594*^9}, {
   3.568462745412603*^9, 3.568462761259611*^9}, 3.568484406615563*^9, {
   3.568484596868832*^9, 3.568484652616467*^9}, 3.5685404350389967`*^9, {
   3.568555892698986*^9, 3.56855589472759*^9}, {3.568561934121396*^9, 
   3.568561939754592*^9}, {3.5732127617158527`*^9, 3.573212822096547*^9}, {
   3.575355220959268*^9, 3.5753552228518553`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["delFunction[x0]  and delFunctionExt", "Subsection",
 CellChangeTimes->{{3.553583921435215*^9, 3.553583941689301*^9}, {
  3.5681806443211613`*^9, 3.568180650311685*^9}, {3.568459498053397*^9, 
  3.568459499221168*^9}},
 Background->RGBColor[0.2196078431372549, 1., 0.4]],

Cell[BoxData[
 RowBox[{
  RowBox[{"delFunction", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{"x0", "//.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"del", "[", 
          RowBox[{"x_", ",", "y_"}], "]"}], " ", "Y___", " ", 
         RowBox[{"X_", "[", 
          RowBox[{"w___", ",", "y_", ",", "z___"}], "]"}]}], "\[Rule]", 
        RowBox[{
         RowBox[{"X", "[", 
          RowBox[{"w", ",", "x", ",", "z"}], "]"}], " ", "Y"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"del", "[", 
          RowBox[{"y_", ",", "x_"}], "]"}], " ", "Y___", " ", 
         RowBox[{"X_", "[", 
          RowBox[{"w___", ",", "y_", ",", "z___"}], "]"}]}], "\[Rule]", 
        RowBox[{
         RowBox[{"X", "[", 
          RowBox[{"w", ",", "x", ",", "z"}], "]"}], " ", "Y"}]}]}], "}"}]}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{3.553583921435215*^9}],

Cell["\<\
this one uses the external delta function but keeps them : del[a, b] Gc[b, c] \
is replaced by del[a, b] Gc[a, c]\
\>", "Text",
 CellChangeTimes->{{3.5697408955201187`*^9, 3.5697409437717667`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"delExternal", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x0in", ",", "tempx", ",", "extdel", ",", "vars"}], "}"}], ",", 
    "\n", 
    RowBox[{
     RowBox[{"x0out", "=", "0"}], ";", "\n", 
     RowBox[{"x0in", "=", 
      RowBox[{"Expand", "[", 
       RowBox[{"x0", "+", "hold"}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"tempx", "=", 
         RowBox[{"orderFunction", "[", 
          RowBox[{"Complement", "[", 
           RowBox[{
            RowBox[{"Variables", "[", 
             RowBox[{"x0in", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"Variables", "[", 
              RowBox[{"x0in", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], "]"}], "//.", 
             RowBox[{
              RowBox[{"del", "[", "XX__", "]"}], "\[Rule]", "1"}]}]}], "]"}], 
          "]"}]}], ";", "\n", 
        RowBox[{"extdel", "=", 
         RowBox[{"{", "}"}]}], ";", "\n", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"vars", "=", 
            RowBox[{"Level", "[", 
             RowBox[{
              RowBox[{"tempx", "[", 
               RowBox[{"[", "jj", "]"}], "]"}], ",", "1"}], "]"}]}], ";", 
           "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Intersection", "[", 
               RowBox[{"extVAR", ",", "vars"}], "]"}], "\[Equal]", "vars"}], 
             ",", 
             RowBox[{"AppendTo", "[", 
              RowBox[{"extdel", ",", 
               RowBox[{
                RowBox[{"vars", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "\[Rule]", 
                RowBox[{"vars", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", 
            RowBox[{"Length", "[", "tempx", "]"}]}], "}"}]}], "]"}], ";", 
        "\n", 
        RowBox[{"x0out", "=", 
         RowBox[{
          RowBox[{"x0out", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x0in", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x0in", "[", 
                 RowBox[{"[", "ii", "]"}], "]"}], "//.", 
                RowBox[{
                 RowBox[{"del", "[", 
                  RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", "1"}]}], 
               ")"}]}], ")"}], "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"x0in", "[", 
                RowBox[{"[", "ii", "]"}], "]"}], "//.", 
               RowBox[{
                RowBox[{"del", "[", 
                 RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", "1"}]}], "/.", 
              "extdel"}], ")"}]}]}], "//.", 
          RowBox[{"hold", "\[Rule]", "0"}]}]}]}], "\n", ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "x0in", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"x0out", "//.", 
      RowBox[{"hold", "\[Rule]", "0"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.568550935316658*^9, 3.568550938404727*^9}, {
   3.5685509806885633`*^9, 3.568550995389964*^9}, {3.5685512802016487`*^9, 
   3.568551281945498*^9}, {3.568551462206471*^9, 3.568551506450862*^9}, {
   3.56855163057873*^9, 3.5685516409682827`*^9}, {3.568551676858055*^9, 
   3.568551714487503*^9}, {3.568551745808511*^9, 3.568551762056488*^9}, {
   3.568551877627757*^9, 3.568551896890622*^9}, 3.568551993407299*^9, 
   3.568552161997526*^9}],

Cell["\<\
i think:
for this module an external variable is any variable that appears once - for \
this case it doesn\[CloseCurlyQuote]t have to be in extVARs
must have all \[OpenCurlyDoubleQuote]external\[CloseCurlyDoubleQuote] \
variables alphabetically before dummies or gives the wrong answer
run tallyCheck to test if this condition is met. 

this one works only if all externals once and alphabetically before dums
the check in tallyCheck is not good enough for two reasons (1) passes if \
externals are alphabetically before dums; (2) doesn\[CloseCurlyQuote]t check \
individual terms\
\>", "Text",
 CellChangeTimes->{{3.568557141854825*^9, 3.568557185524654*^9}, {
  3.569740731698263*^9, 3.569740796693307*^9}, {3.573897372252809*^9, 
  3.5738974578505917`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"delFunctionW", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "tempx", ",", "tempy", ",", "x0in", ",", "start", ",", "done", ",", 
      "workedx", ",", "delcoe", ",", "gone"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"workedx", "=", "0"}], ";", "\n", 
     RowBox[{"gone", "=", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"x0in", "=", 
      RowBox[{"Expand", "[", 
       RowBox[{"x0", "+", "hold"}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"start", "=", 
         RowBox[{"x0in", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], ";", "\n", 
        RowBox[{"Do", "[", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"tempx", "=", 
            RowBox[{"Complement", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"orderFunction", "[", 
                RowBox[{"Complement", "[", 
                 RowBox[{
                  RowBox[{"Variables", "[", "start", "]"}], ",", 
                  RowBox[{
                   RowBox[{"Variables", "[", "start", "]"}], "//.", 
                   RowBox[{
                    RowBox[{"del", "[", "XX__", "]"}], "\[Rule]", "1"}]}]}], 
                 "]"}], "]"}], "//.", "gone"}], ",", 
              RowBox[{"{", "1", "}"}]}], "]"}]}], ";", "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"tempx", "\[Equal]", 
              RowBox[{"{", "}"}]}], ",", 
             RowBox[{"Break", "[", "]"}], ",", 
             RowBox[{"tempy", "=", 
              RowBox[{
               RowBox[{"tempx", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Rule]", 
               RowBox[{"tempx", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}]}], "]"}], ";", 
           "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Intersection", "[", 
               RowBox[{"extVAR", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"tempx", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                  RowBox[{"tempx", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}], 
              "\[Equal]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"tempx", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"tempx", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
             RowBox[{
              RowBox[{"delcoe", "=", 
               RowBox[{"del", "[", 
                RowBox[{
                 RowBox[{"tempx", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"tempx", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"gone", ",", 
                RowBox[{"delcoe", "\[Rule]", "1"}]}], "]"}]}], ",", 
             RowBox[{"delcoe", "=", "1"}]}], "]"}], ";", "\n", 
           RowBox[{"done", "=", 
            RowBox[{"delcoe", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"start", "//.", "tempy"}], "//.", 
               RowBox[{
                RowBox[{"del", "[", 
                 RowBox[{"X_", ",", "X_"}], "]"}], "\[Rule]", "1"}]}], 
              ")"}]}]}], ";", "\n", 
           RowBox[{"start", "=", "done"}], ";"}], "\n", ",", 
          RowBox[{"{", 
           RowBox[{"cc", ",", "1", ",", "100"}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"workedx", "=", 
         RowBox[{"workedx", "+", 
          RowBox[{"orderFunction", "[", "start", "]"}]}]}], ";"}], "\n", ",", 
       
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "x0in", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"worked", "=", 
      RowBox[{"workedx", "//.", 
       RowBox[{"hold", "\[Rule]", "0"}]}]}]}]}], "\n", "]"}]}]], "Input",
 CellChangeTimes->{{3.568094700831757*^9, 3.568094735181623*^9}, {
   3.568094877596612*^9, 3.568094879023357*^9}, {3.568094929359708*^9, 
   3.568094954243826*^9}, {3.568095282270618*^9, 3.5680952895779*^9}, {
   3.568096198878455*^9, 3.5680962958124323`*^9}, 3.568180691728413*^9, {
   3.568181200315638*^9, 3.5681812064474783`*^9}, {3.568447135288146*^9, 
   3.568447143053479*^9}, 3.568447645737982*^9, {3.568447741499614*^9, 
   3.568447745209238*^9}, {3.5684478531669817`*^9, 3.5684478739583263`*^9}, {
   3.5684500921352053`*^9, 3.5684500927983828`*^9}, 3.568562733793872*^9, 
   3.568563082010385*^9, {3.5685631577887774`*^9, 3.568563170399467*^9}, 
   3.5685639943805656`*^9, {3.568564522799315*^9, 3.5685645508132067`*^9}, 
   3.5685645832591763`*^9, {3.568564629552519*^9, 3.568564632370388*^9}, 
   3.56856474192807*^9, {3.568564837240542*^9, 3.5685648623680487`*^9}, {
   3.568564903368915*^9, 3.568564925338923*^9}, {3.568565521528384*^9, 
   3.568565522088702*^9}, {3.568566297188801*^9, 3.5685664034214973`*^9}, {
   3.568566483378325*^9, 3.568566577835762*^9}, {3.568567129634638*^9, 
   3.5685671413723993`*^9}, 3.5685672566712017`*^9, {3.568567460493219*^9, 
   3.568567488768208*^9}, 3.568567821397739*^9, {3.5685679964471273`*^9, 
   3.568568018522256*^9}, {3.568568160517371*^9, 3.568568165691471*^9}, 
   3.569487869708054*^9, 3.569488062857883*^9}],

Cell["this one orders the del' s but not anything else", "Text",
 CellChangeTimes->{{3.569740809019402*^9, 3.569740825065474*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"delFunctionNO", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "tempx", ",", "tempy", ",", "x0in", ",", "start", ",", "done", ",", 
      "workedx", ",", "delcoe", ",", "gone"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"workedx", "=", "0"}], ";", "\n", 
     RowBox[{"gone", "=", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"x0in", "=", 
      RowBox[{"Expand", "[", 
       RowBox[{"x0", "+", "hold"}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"start", "=", 
         RowBox[{"x0in", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], ";", "\n", 
        RowBox[{"Do", "[", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"tempx", "=", 
            RowBox[{"Complement", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"orderFunction", "[", 
                RowBox[{"Complement", "[", 
                 RowBox[{
                  RowBox[{"Variables", "[", "start", "]"}], ",", 
                  RowBox[{
                   RowBox[{"Variables", "[", "start", "]"}], "//.", 
                   RowBox[{
                    RowBox[{"del", "[", "XX__", "]"}], "\[Rule]", "1"}]}]}], 
                 "]"}], "]"}], "//.", "gone"}], ",", 
              RowBox[{"{", "1", "}"}]}], "]"}]}], ";", "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"tempx", "\[Equal]", 
              RowBox[{"{", "}"}]}], ",", 
             RowBox[{"Break", "[", "]"}], ",", 
             RowBox[{"tempy", "=", 
              RowBox[{
               RowBox[{"tempx", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Rule]", 
               RowBox[{"tempx", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}]}], "]"}], ";", 
           "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Intersection", "[", 
               RowBox[{"extVAR", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"tempx", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                  RowBox[{"tempx", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}], 
              "\[Equal]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"tempx", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"tempx", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
             RowBox[{
              RowBox[{"delcoe", "=", 
               RowBox[{"del", "[", 
                RowBox[{
                 RowBox[{"tempx", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"tempx", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"gone", ",", 
                RowBox[{"delcoe", "\[Rule]", "1"}]}], "]"}]}], ",", 
             RowBox[{"delcoe", "=", "1"}]}], "]"}], ";", "\n", 
           RowBox[{"done", "=", 
            RowBox[{"delcoe", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"start", "//.", "tempy"}], "//.", 
               RowBox[{
                RowBox[{"del", "[", 
                 RowBox[{"X_", ",", "X_"}], "]"}], "\[Rule]", "1"}]}], 
              ")"}]}]}], ";", "\n", 
           RowBox[{"start", "=", "done"}], ";"}], "\n", ",", 
          RowBox[{"{", 
           RowBox[{"cc", ",", "1", ",", "100"}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"workedx", "=", 
         RowBox[{"workedx", "+", "start"}]}], ";"}], "\n", ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "x0in", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"worked", "=", 
      RowBox[{"workedx", "//.", 
       RowBox[{"hold", "\[Rule]", "0"}]}]}]}]}], "\n", "]"}]}]], "Input",
 CellChangeTimes->{{3.569683068121995*^9, 3.5696830824089823`*^9}}],

Cell["\<\
this one doesn' t order deltas - for things like delta[-k1, k2] where the \
arguments are momenta and not indices\
\>", "Text",
 CellChangeTimes->{{3.5697408292071333`*^9, 3.5697408834830503`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"deltaFunction", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "tempx", ",", "tempy", ",", "x0in", ",", "start", ",", "done", ",", 
      "workedx", ",", "delcoe", ",", "gone"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"workedx", "=", "0"}], ";", "\n", 
     RowBox[{"gone", "=", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"x0in", "=", 
      RowBox[{"Expand", "[", 
       RowBox[{"x0", "+", "hold"}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"start", "=", 
         RowBox[{"x0in", "[", 
          RowBox[{"[", "ii", "]"}], "]"}]}], ";", "\n", 
        RowBox[{"Do", "[", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"tempx", "=", 
            RowBox[{"Complement", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Complement", "[", 
                RowBox[{
                 RowBox[{"Variables", "[", "start", "]"}], ",", 
                 RowBox[{
                  RowBox[{"Variables", "[", "start", "]"}], "//.", 
                  RowBox[{
                   RowBox[{"delta", "[", "XX__", "]"}], "\[Rule]", "1"}]}]}], 
                "]"}], "//.", "gone"}], ",", 
              RowBox[{"{", "1", "}"}]}], "]"}]}], ";", "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"tempx", "\[Equal]", 
              RowBox[{"{", "}"}]}], ",", 
             RowBox[{"Break", "[", "]"}], ",", 
             RowBox[{"tempy", "=", 
              RowBox[{
               RowBox[{"tempx", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Rule]", 
               RowBox[{"tempx", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}]}], "]"}], ";", 
           "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Intersection", "[", 
               RowBox[{"extVAR", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"tempx", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                  RowBox[{"tempx", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}], 
              "\[Equal]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"tempx", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"tempx", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
             RowBox[{
              RowBox[{"delcoe", "=", 
               RowBox[{"delta", "[", 
                RowBox[{
                 RowBox[{"tempx", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"tempx", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"gone", ",", 
                RowBox[{"delcoe", "\[Rule]", "1"}]}], "]"}]}], ",", 
             RowBox[{"delcoe", "=", "1"}]}], "]"}], ";", "\n", 
           RowBox[{"done", "=", 
            RowBox[{"delcoe", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"start", "//.", "tempy"}], "//.", 
               RowBox[{
                RowBox[{"delta", "[", 
                 RowBox[{"X_", ",", "X_"}], "]"}], "\[Rule]", "1"}]}], 
              ")"}]}]}], ";", "\n", 
           RowBox[{"start", "=", "done"}], ";"}], "\n", ",", 
          RowBox[{"{", 
           RowBox[{"cc", ",", "1", ",", "100"}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"workedx", "=", 
         RowBox[{"workedx", "+", "start"}]}], ";", "\n", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"ii", "/", "500"}], "\[Element]", "Integers"}], ",", 
          RowBox[{"Print", "[", 
           RowBox[{"N", "[", 
            RowBox[{
             RowBox[{"ii", "/", 
              RowBox[{"Length", "[", "x0in", "]"}]}], ",", "3"}], "]"}], 
           "]"}]}], "]"}], ";"}], "\n", ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "x0in", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"worked", "=", 
      RowBox[{"workedx", "//.", 
       RowBox[{"hold", "\[Rule]", "0"}]}]}]}]}], "\n", "]"}]}]], "Input",
 CellChangeTimes->{{3.568094700831757*^9, 3.568094735181623*^9}, {
   3.568094877596612*^9, 3.568094879023357*^9}, {3.568094929359708*^9, 
   3.568094954243826*^9}, {3.568095282270618*^9, 3.5680952895779*^9}, {
   3.568096198878455*^9, 3.5680962958124323`*^9}, 3.568180691728413*^9, {
   3.568181200315638*^9, 3.5681812064474783`*^9}, {3.568447135288146*^9, 
   3.568447143053479*^9}, 3.568447645737982*^9, {3.568447741499614*^9, 
   3.568447745209238*^9}, {3.5684478531669817`*^9, 3.5684478739583263`*^9}, {
   3.5684500921352053`*^9, 3.5684500927983828`*^9}, 3.568562733793872*^9, 
   3.568563082010385*^9, {3.5685631577887774`*^9, 3.568563170399467*^9}, 
   3.5685639943805656`*^9, {3.568564522799315*^9, 3.5685645508132067`*^9}, 
   3.5685645832591763`*^9, {3.568564629552519*^9, 3.568564632370388*^9}, 
   3.56856474192807*^9, {3.568564837240542*^9, 3.5685648623680487`*^9}, {
   3.568564903368915*^9, 3.568564925338923*^9}, {3.568565521528384*^9, 
   3.568565522088702*^9}, {3.568566297188801*^9, 3.5685664034214973`*^9}, {
   3.568566483378325*^9, 3.568566577835762*^9}, {3.568567129634638*^9, 
   3.5685671413723993`*^9}, 3.5685672566712017`*^9, {3.568567460493219*^9, 
   3.568567488768208*^9}, 3.568567821397739*^9, {3.5685679964471273`*^9, 
   3.568568018522256*^9}, {3.568568160517371*^9, 3.568568165691471*^9}, 
   3.569487869708054*^9, 3.569488062857883*^9, {3.569488317366109*^9, 
   3.569488348005509*^9}, {3.569658490224771*^9, 3.569658491033525*^9}, {
   3.569659089954067*^9, 3.56965910749406*^9}, {3.569670594790722*^9, 
   3.569670596821513*^9}, {3.5696706286525373`*^9, 3.569670634117577*^9}, 
   3.569670786088418*^9, {3.5696708581089077`*^9, 3.569670884511817*^9}, {
   3.569681488711213*^9, 3.569681512179356*^9}, {3.5699104300867558`*^9, 
   3.569910523072773*^9}, {3.5699105788892097`*^9, 3.56991057947068*^9}, 
   3.5699106201697397`*^9, {3.56991066561395*^9, 3.569910671210206*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["orderFunction[x0]", "Subsection",
 CellChangeTimes->{{3.553583956492691*^9, 3.5535839798738327`*^9}},
 Background->RGBColor[0.10196078431372549`, 0.07450980392156863, 1.]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"orderFunction", "[", "x0_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sortedVars", ",", "replaceRules", ",", "sort", ",", "toSort"}],
       "}"}], ",", 
     RowBox[{
      RowBox[{"sortedVars", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"replaceRules", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"sort", "[", "x___", "]"}], ":=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Head", "[", "x", "]"}], "===", "Symbol"}], ",", "x", ",", 
         RowBox[{"Sort", "[", "x", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"holder", "=", 
       RowBox[{"x0", "+", "hold"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"toSort", "=", 
       RowBox[{"Variables", "[", "holder", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"AppendTo", "[", 
         RowBox[{"sortedVars", ",", 
          RowBox[{"sort", "[", 
           RowBox[{"toSort", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", 
          RowBox[{"Length", "[", "toSort", "]"}]}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"AppendTo", "[", 
         RowBox[{"replaceRules", ",", 
          RowBox[{
           RowBox[{"toSort", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
           RowBox[{"sortedVars", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", 
          RowBox[{"Length", "[", "toSort", "]"}]}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"order3", "=", 
       RowBox[{
        RowBox[{"holder", "//.", "replaceRules"}], "//.", 
        RowBox[{"hold", "\[Rule]", "0"}]}]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.553583956492691*^9, {3.553613282195175*^9, 3.553613285678782*^9}, {
   3.553866991470229*^9, 3.553866995782968*^9}, {3.553867036681904*^9, 
   3.553867094851463*^9}, {3.568094676780513*^9, 3.568094679778068*^9}}],

Cell["\<\
i don' t remember what these do - something for the BS calculation which \
doesn' t order all vertices\
\>", "Text",
 CellChangeTimes->{{3.5697410395979548`*^9, 3.569741086625679*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"orderFunction2", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "vars2", ",", "vars4", ",", "sort2", ",", "sort4", ",", "temp", ",", 
      "direction", ",", "tempNew", ",", "tempDum", ",", "tempExt"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Head", "[", "x0", "]"}], "\[Equal]", "Times"}], ",", 
       RowBox[{
       "Print", "[", "\"\<single term - this order function doesn't work\>\"",
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"vars2", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", "x0", "]"}], ",", 
        RowBox[{
         RowBox[{"Variables", "[", "x0", "]"}], "//.", "remove2"}]}], "]"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"vars4", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", "x0", "]"}], ",", 
        RowBox[{
         RowBox[{"Variables", "[", "x0", "]"}], "//.", "remove4"}]}], "]"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"sort2", "=", 
      RowBox[{"{", "}"}]}], ";", 
     RowBox[{"sort4", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"sort2", ",", 
         RowBox[{
          RowBox[{"vars2", "[", 
           RowBox[{"[", "mm", "]"}], "]"}], "\[Rule]", 
          RowBox[{"orderFunction", "[", 
           RowBox[{"vars2", "[", 
            RowBox[{"[", "mm", "]"}], "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"mm", ",", "1", ",", 
         RowBox[{"Length", "[", "vars2", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"temp", "=", 
         RowBox[{"Level", "[", 
          RowBox[{
           RowBox[{"vars4", "[", 
            RowBox[{"[", "hh", "]"}], "]"}], ",", "1"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{"extVAR", ",", 
            RowBox[{"temp", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"direction", "=", "ext"}], ",", 
          RowBox[{"direction", "=", "dum"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"tempExt", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"tempDum", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"MemberQ", "[", 
             RowBox[{"extVAR", ",", 
              RowBox[{"temp", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"tempExt", ",", 
              RowBox[{"temp", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"tempDum", ",", 
              RowBox[{"temp", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", 
            RowBox[{"Length", "[", "temp", "]"}]}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"direction", "\[Equal]", "dum"}], ",", 
          RowBox[{"tempNew", "=", 
           RowBox[{"Flatten", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Sort", "[", "tempDum", "]"}], ",", 
              RowBox[{"Sort", "[", "tempExt", "]"}]}], "}"}], "]"}]}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"direction", "\[Equal]", "ext"}], ",", 
          RowBox[{"tempNew", "=", 
           RowBox[{"Flatten", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Sort", "[", "tempExt", "]"}], ",", 
              RowBox[{"Sort", "[", "tempDum", "]"}]}], "}"}], "]"}]}]}], 
         "]"}], ";", "\n", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"sort4", ",", 
          RowBox[{
           RowBox[{"vars4", "[", 
            RowBox[{"[", "hh", "]"}], "]"}], "\[Rule]", 
           RowBox[{
            RowBox[{"Head", "[", 
             RowBox[{"vars4", "[", 
              RowBox[{"[", "hh", "]"}], "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"hh", ",", "1", ",", 
         RowBox[{"Length", "[", "vars4", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ordered", "=", 
      RowBox[{
       RowBox[{"x0", "/.", "sort2"}], "/.", "sort4"}]}]}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.5685300313380623`*^9, 3.568530039050434*^9}, {
   3.5685300770167227`*^9, 3.5685302202730703`*^9}, {3.568530299531218*^9, 
   3.5685303511327333`*^9}, {3.568530401059119*^9, 3.5685304180812483`*^9}, {
   3.568530534071947*^9, 3.568530729771658*^9}, {3.5685307951779823`*^9, 
   3.568530937391007*^9}, {3.568531015126008*^9, 3.568531121946978*^9}, 
   3.569741038213223*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"orderFunction2", "[", "x0_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "x00", ",", "vars2", ",", "vars4", ",", "sort2", ",", "sort4", ",", 
      "temp", ",", "direction", ",", "tempNew", ",", "tempDum", ",", 
      "tempExt"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"x00", "=", 
      RowBox[{"Expand", "[", 
       RowBox[{"hold", "+", "x0"}], "]"}]}], ";", "\n", 
     RowBox[{"vars2", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", "x00", "]"}], ",", 
        RowBox[{
         RowBox[{"Variables", "[", "x00", "]"}], "//.", "remove2"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{"vars4", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", "x00", "]"}], ",", 
        RowBox[{
         RowBox[{"Variables", "[", "x00", "]"}], "//.", "remove4"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{"sort2", "=", 
      RowBox[{"{", "}"}]}], ";", 
     RowBox[{"sort4", "=", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"sort2", ",", 
         RowBox[{
          RowBox[{"vars2", "[", 
           RowBox[{"[", "mm", "]"}], "]"}], "\[Rule]", 
          RowBox[{"orderFunction", "[", 
           RowBox[{"vars2", "[", 
            RowBox[{"[", "mm", "]"}], "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"mm", ",", "1", ",", 
         RowBox[{"Length", "[", "vars2", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"temp", "=", 
         RowBox[{"Level", "[", 
          RowBox[{
           RowBox[{"vars4", "[", 
            RowBox[{"[", "hh", "]"}], "]"}], ",", "1"}], "]"}]}], ";", "\n", 
        RowBox[{"tempNew", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sort", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"temp", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"temp", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", 
            RowBox[{"Sort", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"temp", "[", 
                RowBox[{"[", "3", "]"}], "]"}], ",", 
               RowBox[{"temp", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], 
          "]"}]}], ";", "\n", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"sort4", ",", 
          RowBox[{
           RowBox[{"vars4", "[", 
            RowBox[{"[", "hh", "]"}], "]"}], "\[Rule]", 
           RowBox[{
            RowBox[{"Head", "[", 
             RowBox[{"vars4", "[", 
              RowBox[{"[", "hh", "]"}], "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"tempNew", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}]}], "]"}], ";"}], "\n",
        ",", 
       RowBox[{"{", 
        RowBox[{"hh", ",", "1", ",", 
         RowBox[{"Length", "[", "vars4", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"ordered", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"x00", "/.", "sort2"}], "/.", "sort4"}], "//.", 
       RowBox[{"hold", "\[Rule]", "0"}]}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.568531252969678*^9, {3.5685315130976667`*^9, 3.568531570773779*^9}, {
   3.568532187656396*^9, 3.568532225675603*^9}, 3.568532273884205*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["shifterM", "Subsection",
 CellChangeTimes->{{3.568179713114607*^9, 3.568179740311492*^9}},
 Background->RGBColor[1, 1, 0]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shifterM", "[", "x0_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x00", ",", "allvars", ",", "term", ",", "sorter"}], "}"}], ",",
      "\n", 
     RowBox[{
      RowBox[{"x00", "=", 
       RowBox[{"Expand", "[", 
        RowBox[{"x0", "+", "hold"}], "]"}]}], ";", "\n", 
      RowBox[{"sorted", "=", "0"}], ";", "\n", 
      RowBox[{"Do", "[", "\n", 
       RowBox[{
        RowBox[{
         RowBox[{"allvars", "=", 
          RowBox[{"Level", "[", 
           RowBox[{
            RowBox[{"Variables", "[", 
             RowBox[{
              RowBox[{"x00", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x00", "[", 
                 RowBox[{"[", "ii", "]"}], "]"}], "//.", "removeAll"}], 
               ")"}]}], "]"}], ",", 
            RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\n", 
         RowBox[{"inner", "=", 
          RowBox[{"Complement", "[", 
           RowBox[{"allvars", ",", "extVAR"}], "]"}]}], ";", "\n", 
         RowBox[{"outer", "=", 
          RowBox[{"Intersection", "[", 
           RowBox[{"allvars", ",", "extVAR"}], "]"}]}], ";", "\n", 
         RowBox[{"sorter", "=", 
          RowBox[{"{", "}"}]}], ";", "\n", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"AppendTo", "[", 
            RowBox[{"sorter", ",", 
             RowBox[{
              RowBox[{"inner", "[", 
               RowBox[{"[", "jj", "]"}], "]"}], "\[Rule]", 
              RowBox[{"dumVEC", "[", 
               RowBox[{"[", "jj", "]"}], "]"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "inner", "]"}]}], "}"}]}], "]"}], ";", 
         "\n", 
         RowBox[{"sorted", "=", 
          RowBox[{"sorted", "+", 
           RowBox[{"orderFunction", "[", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x00", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], "/.", "sorter"}], ")"}], 
            "]"}]}]}], ";", "\n", 
         RowBox[{"(*", " ", 
          RowBox[{
          "this", " ", "is", " ", "the", " ", "testing", " ", "stuff"}], " ", 
          "*)"}], "\n", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Do", "[", "\n", 
            RowBox[{
             RowBox[{
              RowBox[{"cond2", "=", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"ss", ",", "2"}], "]"}], "]"}], "\[Equal]", "2"}],
                  ")"}], "\[Equal]", "True"}]}], ";", "\n", 
              RowBox[{"cond1", "=", 
               RowBox[{
                RowBox[{"Intersection", "[", 
                 RowBox[{"extVAR", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], 
                "\[Equal]", 
                RowBox[{"{", "}"}]}]}], ";", "\n", 
              RowBox[{"cond4", "=", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"ss", ",", "2"}], "]"}], "]"}], "\[Equal]", "1"}],
                  ")"}], "\[Equal]", "True"}]}], ";", "\n", 
              RowBox[{"cond3", "=", 
               RowBox[{
                RowBox[{"MemberQ", "[", 
                 RowBox[{"extVAR", ",", 
                  RowBox[{
                   RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}]}], "]"}], 
                "\[Equal]", "True"}]}], ";", "\n", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"cond1", ",", "cond2"}], "}"}], "\[Equal]", 
                   RowBox[{"{", 
                    RowBox[{"True", ",", "False"}], "}"}]}], ")"}], "&&", 
                 RowBox[{"count", "\[Equal]", "0"}]}], ",", 
                RowBox[{
                 RowBox[{"Print", "[", 
                  RowBox[{"{", 
                   RowBox[{"\"\<bad internal variable\>\"", ",", 
                    RowBox[{
                    RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], 
                 ";", 
                 RowBox[{"count", "=", 
                  RowBox[{"count", "+", "1"}]}]}]}], "]"}], ";", "\n", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"cond3", ",", "cond4"}], "}"}], "\[Equal]", 
                   RowBox[{"{", 
                    RowBox[{"True", ",", "False"}], "}"}]}], ")"}], "&&", 
                 RowBox[{"count", "\[Equal]", "0"}]}], ",", 
                RowBox[{
                 RowBox[{"Print", "[", 
                  RowBox[{"{", 
                   RowBox[{"\"\<bad external variable\>\"", ",", 
                    RowBox[{
                    RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], 
                 ";", 
                 RowBox[{"count", "=", 
                  RowBox[{"count", "+", "1"}]}]}]}], "]"}], ";"}], "\n", ",", 
             
             RowBox[{"{", 
              RowBox[{"ss", ",", "1", ",", 
               RowBox[{"Length", "[", 
                RowBox[{"Tally", "[", "allvars", "]"}], "]"}]}], "}"}]}], 
            "]"}], ";"}], "*)"}], "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ii", "/", "3000"}], "\[Element]", "Integers"}], ",", 
           RowBox[{"Print", "[", "ii", "]"}]}], "]"}], ";"}], "\n", ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", 
          RowBox[{"Length", "[", "x00", "]"}]}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"sorted", "//.", 
       RowBox[{"hold", "\[Rule]", "0"}]}]}]}], "\n", "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.568112676349491*^9, 3.568112710803317*^9}, {
   3.56811279544521*^9, 3.568112797013422*^9}, 3.5681129744607964`*^9, {
   3.568113180692151*^9, 3.568113183679785*^9}, {3.568113342683066*^9, 
   3.568113395218094*^9}, 3.56811344687672*^9, {3.5681152137989597`*^9, 
   3.5681152408845*^9}, {3.568122259436756*^9, 3.568122300814034*^9}, 
   3.568179743993623*^9, {3.5681798295893106`*^9, 3.568179943835959*^9}, 
   3.568180058798112*^9, {3.568180513685246*^9, 3.5681805225741053`*^9}, 
   3.568184396564492*^9, 3.568184427595274*^9, {3.568184785348012*^9, 
   3.568184795628892*^9}, 3.568184854859715*^9, 3.568185122496593*^9, 
   3.56818524417066*^9, 3.568185454065936*^9, {3.568185519733601*^9, 
   3.568185524529088*^9}, {3.568185569308506*^9, 3.568185569615432*^9}, {
   3.568185604245758*^9, 3.568185605173523*^9}, {3.568185687552889*^9, 
   3.568185691670411*^9}, 3.568186187047371*^9, {3.5681864527148867`*^9, 
   3.568186481931734*^9}, 3.5681865593269978`*^9, {3.568186638941956*^9, 
   3.568186639214943*^9}, {3.568186753958103*^9, 3.568186812474069*^9}, {
   3.56818684321026*^9, 3.568186847507305*^9}, {3.568186995741191*^9, 
   3.568187064680312*^9}, {3.568368227992782*^9, 3.568368316593315*^9}, {
   3.568395889403507*^9, 3.568395916696636*^9}, {3.568442656893386*^9, 
   3.568442657365246*^9}, {3.568445480529396*^9, 3.568445490353825*^9}, {
   3.568446169927926*^9, 3.568446173629094*^9}, {3.568485467226276*^9, 
   3.568485469334538*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shifterNO", "[", "x0_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x00", ",", "allvars", ",", "term", ",", "sorter"}], "}"}], ",",
      "\n", 
     RowBox[{
      RowBox[{"x00", "=", 
       RowBox[{"Expand", "[", 
        RowBox[{"x0", "+", "hold"}], "]"}]}], ";", "\n", 
      RowBox[{"sorted", "=", "0"}], ";", "\n", 
      RowBox[{"Do", "[", "\n", 
       RowBox[{
        RowBox[{
         RowBox[{"allvars", "=", 
          RowBox[{"Level", "[", 
           RowBox[{
            RowBox[{"Variables", "[", 
             RowBox[{
              RowBox[{"x00", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x00", "[", 
                 RowBox[{"[", "ii", "]"}], "]"}], "//.", "removeAll"}], 
               ")"}]}], "]"}], ",", 
            RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\n", 
         RowBox[{"inner", "=", 
          RowBox[{"Complement", "[", 
           RowBox[{"allvars", ",", "extVAR"}], "]"}]}], ";", "\n", 
         RowBox[{"outer", "=", 
          RowBox[{"Intersection", "[", 
           RowBox[{"allvars", ",", "extVAR"}], "]"}]}], ";", "\n", 
         RowBox[{"sorter", "=", 
          RowBox[{"{", "}"}]}], ";", "\n", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"AppendTo", "[", 
            RowBox[{"sorter", ",", 
             RowBox[{
              RowBox[{"inner", "[", 
               RowBox[{"[", "jj", "]"}], "]"}], "\[Rule]", 
              RowBox[{"dumVEC", "[", 
               RowBox[{"[", "jj", "]"}], "]"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "inner", "]"}]}], "}"}]}], "]"}], ";", 
         "\n", 
         RowBox[{"sorted", "=", 
          RowBox[{"sorted", "+", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x00", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "/.", "sorter"}], ")"}]}]}], 
         ";", "\n", 
         RowBox[{"(*", " ", 
          RowBox[{
          "this", " ", "is", " ", "the", " ", "testing", " ", "stuff"}], " ", 
          "*)"}], "\n", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Do", "[", "\n", 
            RowBox[{
             RowBox[{
              RowBox[{"cond2", "=", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"ss", ",", "2"}], "]"}], "]"}], "\[Equal]", "2"}],
                  ")"}], "\[Equal]", "True"}]}], ";", "\n", 
              RowBox[{"cond1", "=", 
               RowBox[{
                RowBox[{"Intersection", "[", 
                 RowBox[{"extVAR", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], 
                "\[Equal]", 
                RowBox[{"{", "}"}]}]}], ";", "\n", 
              RowBox[{"cond4", "=", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"ss", ",", "2"}], "]"}], "]"}], "\[Equal]", "1"}],
                  ")"}], "\[Equal]", "True"}]}], ";", "\n", 
              RowBox[{"cond3", "=", 
               RowBox[{
                RowBox[{"MemberQ", "[", 
                 RowBox[{"extVAR", ",", 
                  RowBox[{
                   RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}]}], "]"}], 
                "\[Equal]", "True"}]}], ";", "\n", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"cond1", ",", "cond2"}], "}"}], "\[Equal]", 
                   RowBox[{"{", 
                    RowBox[{"True", ",", "False"}], "}"}]}], ")"}], "&&", 
                 RowBox[{"count", "\[Equal]", "0"}]}], ",", 
                RowBox[{
                 RowBox[{"Print", "[", 
                  RowBox[{"{", 
                   RowBox[{"\"\<bad internal variable\>\"", ",", 
                    RowBox[{
                    RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], 
                 ";", 
                 RowBox[{"count", "=", 
                  RowBox[{"count", "+", "1"}]}]}]}], "]"}], ";", "\n", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"cond3", ",", "cond4"}], "}"}], "\[Equal]", 
                   RowBox[{"{", 
                    RowBox[{"True", ",", "False"}], "}"}]}], ")"}], "&&", 
                 RowBox[{"count", "\[Equal]", "0"}]}], ",", 
                RowBox[{
                 RowBox[{"Print", "[", 
                  RowBox[{"{", 
                   RowBox[{"\"\<bad external variable\>\"", ",", 
                    RowBox[{
                    RowBox[{"Tally", "[", "allvars", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"ss", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], 
                 ";", 
                 RowBox[{"count", "=", 
                  RowBox[{"count", "+", "1"}]}]}]}], "]"}], ";"}], "\n", ",", 
             
             RowBox[{"{", 
              RowBox[{"ss", ",", "1", ",", 
               RowBox[{"Length", "[", 
                RowBox[{"Tally", "[", "allvars", "]"}], "]"}]}], "}"}]}], 
            "]"}], ";"}], "*)"}], "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ii", "/", "3000"}], "\[Element]", "Integers"}], ",", 
           RowBox[{"Print", "[", "ii", "]"}]}], "]"}], ";"}], "\n", ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", 
          RowBox[{"Length", "[", "x00", "]"}]}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"sorted", "//.", 
       RowBox[{"hold", "\[Rule]", "0"}]}]}]}], "\n", "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.568112676349491*^9, 3.568112710803317*^9}, {
   3.56811279544521*^9, 3.568112797013422*^9}, 3.5681129744607964`*^9, {
   3.568113180692151*^9, 3.568113183679785*^9}, {3.568113342683066*^9, 
   3.568113395218094*^9}, 3.56811344687672*^9, {3.5681152137989597`*^9, 
   3.5681152408845*^9}, {3.568122259436756*^9, 3.568122300814034*^9}, 
   3.568179743993623*^9, {3.5681798295893106`*^9, 3.568179943835959*^9}, 
   3.568180058798112*^9, {3.568180513685246*^9, 3.5681805225741053`*^9}, 
   3.568184396564492*^9, 3.568184427595274*^9, {3.568184785348012*^9, 
   3.568184795628892*^9}, 3.568184854859715*^9, 3.568185122496593*^9, 
   3.56818524417066*^9, 3.568185454065936*^9, {3.568185519733601*^9, 
   3.568185524529088*^9}, {3.568185569308506*^9, 3.568185569615432*^9}, {
   3.568185604245758*^9, 3.568185605173523*^9}, {3.568185687552889*^9, 
   3.568185691670411*^9}, 3.568186187047371*^9, {3.5681864527148867`*^9, 
   3.568186481931734*^9}, 3.5681865593269978`*^9, {3.568186638941956*^9, 
   3.568186639214943*^9}, {3.568186753958103*^9, 3.568186812474069*^9}, {
   3.56818684321026*^9, 3.568186847507305*^9}, {3.568186995741191*^9, 
   3.568187064680312*^9}, {3.568368227992782*^9, 3.568368316593315*^9}, {
   3.568395889403507*^9, 3.568395916696636*^9}, {3.568442656893386*^9, 
   3.568442657365246*^9}, {3.568445480529396*^9, 3.568445490353825*^9}, {
   3.568446169927926*^9, 3.568446173629094*^9}, {3.568472806366148*^9, 
   3.568472816595518*^9}, {3.568485479352425*^9, 3.568485479559911*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["loopOrderFunction[x0_]", "Subsection",
 CellChangeTimes->{{3.472825080014275*^9, 3.472825092510461*^9}, {
  3.5620667285806637`*^9, 3.562066733793837*^9}, {3.562403171595973*^9, 
  3.562403172814767*^9}, {3.563697707925933*^9, 3.563697716587801*^9}},
 Background->RGBColor[0.6666666666666666, 0.3333333333333333, 1.]],

Cell["\<\
multiply by hold because Count won' t work right for terms like V0[a, b, c, \
d] with no product of factors - not sure if this is needed?
yes hold is needed for terms with Head Times
new method: if x0 has only one term (Head is not Plus) then put this term in \
brackets\
\>", "Text",
 CellChangeTimes->{{3.562406486673389*^9, 3.5624065536724777`*^9}, {
  3.5668114982418957`*^9, 3.5668115372198267`*^9}, {3.56727452886392*^9, 
  3.567274553101592*^9}},
 FontSize->14],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "loopOrderFunction", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"loopOrderFunction", "[", "x0pp_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "input", ",", "noI", ",", "noV3", ",", "noV4", ",", "noV5", ",", "noV6", 
      ",", "exG1", ",", "exG2", ",", "exG3", ",", "exV1", ",", "exV2", ",", 
      "exV3", ",", "exV4", ",", "x0p", ",", "x0"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"x0p", "=", 
       RowBox[{"Expand", "[", "x0pp", "]"}]}], ";", "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Head", "[", "x0p", "]"}], "\[Equal]", "Plus"}], ",", 
        RowBox[{"x0", "=", "x0p"}], ",", 
        RowBox[{"x0", "=", "x0p"}], ",", 
        RowBox[{"x0", "=", 
         RowBox[{"{", "x0p", "}"}]}]}], "]"}], ";", "\n", 
      RowBox[{"loopOrder", "=", 
       RowBox[{"Expand", "[", 
        RowBox[{
         RowBox[{"hold", "*", "x0"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Vct", "[", 
            RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}], 
           "\[Rule]", 
           RowBox[{
            RowBox[{"Vct1", "[", 
             RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2"}], "]"}], "+", 
            RowBox[{"Vct2", "[", 
             RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2"}], "]"}], "+", 
            RowBox[{"Vct3", "[", 
             RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2"}], "]"}], "+", 
            RowBox[{"Vct4", "[", 
             RowBox[{"X", ",", "Y", ",", "Z", ",", "Z2"}], "]"}]}]}], "}"}]}],
         "]"}]}], ";", "\n", 
      RowBox[{"loopm", "=", "0"}], ";", 
      RowBox[{"loop0", "=", "0"}], ";", 
      RowBox[{"loop1", "=", "0"}], ";", 
      RowBox[{"loop2", "=", "0"}], ";", 
      RowBox[{"loop3", "=", "0"}], ";", 
      RowBox[{"loop4", "=", "0"}], ";", 
      RowBox[{"loop5", "=", "0"}], ";", 
      RowBox[{"loop6", "=", "0"}], ";", 
      RowBox[{"loop7", "=", "0"}], ";", 
      RowBox[{"loop8", "=", "0"}], ";", 
      RowBox[{"loop9", "=", "0"}], ";", 
      RowBox[{"loop10", "=", "0"}], ";", 
      RowBox[{"loop11", "=", "0"}], ";", "\n", 
      RowBox[{"loopLook", "=", 
       RowBox[{"{", "}"}]}], ";", "\n", 
      RowBox[{"Clear", "[", "ii", "]"}], ";", "\n", 
      RowBox[{"Do", "[", "\n", 
       RowBox[{
        RowBox[{
         RowBox[{"input", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"loopOrder", "[", 
             RowBox[{"[", "ii", "]"}], "]"}], "//.", "powerspreader"}], "/.", 
           
           RowBox[{
            RowBox[{"del", "[", 
             RowBox[{"X_", ",", "Y_"}], "]"}], "\[Rule]", 
            RowBox[{"del", "[", 
             RowBox[{"X", ",", "Y", ",", "hold"}], "]"}]}]}]}], ";", "\n", 
         RowBox[{
          RowBox[{"noI", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"noV3", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"noV4", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"noV5", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"noV6", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"exG1", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"exG2", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"exG3", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"exV1", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"exV2", "[", "ii", "]"}], "=", "0"}], ";", 
         RowBox[{
          RowBox[{"exV3", "[", "ii", "]"}], "=", "0"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"noI", "[", "ii", "]"}], "=", 
          RowBox[{
           RowBox[{"noI", "[", "ii", "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Variables", "[", "input", "]"}], "//.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Gin", "[", "XX__", "]"}], "\[Rule]", "1"}], ",", 
                 RowBox[{
                  RowBox[{"del", "[", "XX__", "]"}], "\[Rule]", "1"}]}], 
                "}"}]}], ")"}], ",", 
             RowBox[{"X_", "[", 
              RowBox[{"x_", ",", "y_"}], "]"}]}], "]"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noV3", "[", "ii", "]"}], "=", 
            RowBox[{
             RowBox[{"noV3", "[", "ii", "]"}], "+", 
             RowBox[{"Count", "[", 
              RowBox[{"input", ",", 
               RowBox[{
                RowBox[{"nameThree", "[", 
                 RowBox[{"[", "jj", "]"}], "]"}], "[", "x__", "]"}]}], 
              "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "nameThree", "]"}]}], "}"}]}], "]"}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noV4", "[", "ii", "]"}], "=", 
            RowBox[{
             RowBox[{"noV4", "[", "ii", "]"}], "+", 
             RowBox[{"Count", "[", 
              RowBox[{"input", ",", 
               RowBox[{
                RowBox[{"nameFour", "[", 
                 RowBox[{"[", "jj", "]"}], "]"}], "[", "x__", "]"}]}], 
              "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "nameFour", "]"}]}], "}"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noV5", "[", "ii", "]"}], "=", 
            RowBox[{
             RowBox[{"noV5", "[", "ii", "]"}], "+", 
             RowBox[{"Count", "[", 
              RowBox[{"input", ",", 
               RowBox[{
                RowBox[{"nameFive", "[", 
                 RowBox[{"[", "jj", "]"}], "]"}], "[", "x__", "]"}]}], 
              "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "nameFive", "]"}]}], "}"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noV6", "[", "ii", "]"}], "=", 
            RowBox[{
             RowBox[{"noV6", "[", "ii", "]"}], "+", 
             RowBox[{"Count", "[", 
              RowBox[{"input", ",", 
               RowBox[{
                RowBox[{"nameSix", "[", 
                 RowBox[{"[", "jj", "]"}], "]"}], "[", "x__", "]"}]}], 
              "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "nameSix", "]"}]}], "}"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"exV1", "[", "ii", "]"}], "=", 
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct1", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct1", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct11", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct11", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT1", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT1", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc111", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc111", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"exV2", "[", "ii", "]"}], "=", 
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct2", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct2", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct22", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct22", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT2", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT2", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc222", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc222", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"exV3", "[", "ii", "]"}], "=", 
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct3", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct3", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct33", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct33", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT3", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT3", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc333", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc333", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"exV4", "[", "ii", "]"}], "=", 
          RowBox[{
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct4", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct4", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct44", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vct44", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT4", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"VcT4", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc444", "[", "X_", "]"}]}], "]"}], "+", 
           RowBox[{"Count", "[", 
            RowBox[{"input", ",", 
             RowBox[{"Vc444", "[", 
              RowBox[{"X_", ",", "Y_", ",", "Z_", ",", "Z2_"}], "]"}]}], 
            "]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"noL", "[", "ii", "]"}], "=", 
          RowBox[{
           RowBox[{"noI", "[", "ii", "]"}], "-", 
           RowBox[{"noV3", "[", "ii", "]"}], "-", 
           RowBox[{"noV4", "[", "ii", "]"}], "-", 
           RowBox[{"noV5", "[", "ii", "]"}], "-", 
           RowBox[{"noV6", "[", "ii", "]"}], "+", "1", "+", 
           RowBox[{"exV1", "[", "ii", "]"}], "+", 
           RowBox[{"2", 
            RowBox[{"exV2", "[", "ii", "]"}]}], "+", 
           RowBox[{"3", 
            RowBox[{"exV3", "[", "ii", "]"}]}], "+", 
           RowBox[{"4", 
            RowBox[{"exV4", "[", "ii", "]"}]}]}]}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{"loop0", "=", 
            RowBox[{
             RowBox[{"loop0", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "==", "1"}], ",", 
           RowBox[{"loop1", "=", 
            RowBox[{
             RowBox[{"loop1", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "2"}], ",", 
           RowBox[{"loop2", "=", 
            RowBox[{
             RowBox[{"loop2", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "3"}], ",", 
           RowBox[{"loop3", "=", 
            RowBox[{
             RowBox[{"loop3", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "4"}], ",", 
           RowBox[{"loop4", "=", 
            RowBox[{
             RowBox[{"loop4", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "5"}], ",", 
           RowBox[{"loop5", "=", 
            RowBox[{
             RowBox[{"loop5", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "6"}], ",", 
           RowBox[{"loop6", "=", 
            RowBox[{
             RowBox[{"loop6", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "7"}], ",", 
           RowBox[{"loop7", "=", 
            RowBox[{
             RowBox[{"loop7", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "8"}], ",", 
           RowBox[{"loop8", "=", 
            RowBox[{
             RowBox[{"loop8", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "9"}], ",", 
           RowBox[{"loop9", "=", 
            RowBox[{
             RowBox[{"loop9", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "10"}], ",", 
           RowBox[{"loop10", "=", 
            RowBox[{
             RowBox[{"loop10", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"noL", "[", "ii", "]"}], "\[Equal]", "11"}], ",", 
           RowBox[{"loop11", "=", 
            RowBox[{
             RowBox[{"loop11", "+", 
              RowBox[{"loopOrder", "[", 
               RowBox[{"[", "ii", "]"}], "]"}]}], "//.", 
             RowBox[{"hold", "\[Rule]", "1"}]}]}]}], "]"}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ii", "/", "10000"}], "\[Element]", "Integers"}], ",", 
           RowBox[{"Print", "[", "ii", "]"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"loopLook", ",", 
           RowBox[{"noL", "[", "ii", "]"}]}], "]"}], ";"}], "\n", ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", 
          RowBox[{"Length", "[", "loopOrder", "]"}]}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\n", 
      RowBox[{"union", "=", 
       RowBox[{"Union", "[", "loopLook", "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"loopm", "=", 
       RowBox[{"Expand", "[", 
        RowBox[{
         RowBox[{
         "x0p", "-", "loop0", "-", "loop1", "-", "loop2", "-", "loop3", "-", 
          "loop4", "-", "loop5", "-", "loop6", "-", "loop7", "-", "loop8", 
          "-", "loop9", "-", "loop10", "-", "loop11"}], "//.", 
         RowBox[{"hold", "\[Rule]", "1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"loopChecker", "=", 
       RowBox[{"0", "\[Equal]", "loopm"}]}], ";"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Print", "[", 
       RowBox[{"{", 
        RowBox[{"loopChecker", ",", "union"}], "}"}], "]"}], "*)"}], ";"}]}], 
   "\n", "]"}]}]}], "Input",
 CellChangeTimes->{{3.562403307478565*^9, 3.5624034268730183`*^9}, 
   3.562403545040916*^9, {3.5624036164879417`*^9, 3.5624036838408413`*^9}, {
   3.562403789419299*^9, 3.562403792405449*^9}, 3.562403824859832*^9, 
   3.5624038712010803`*^9, {3.56240488073543*^9, 3.562404897057282*^9}, {
   3.562404946723647*^9, 3.5624049489458923`*^9}, 3.562484455038485*^9, 
   3.562484592147663*^9, 3.562484770012477*^9, 3.562484872210305*^9, {
   3.562490294267723*^9, 3.562490295122126*^9}, {3.5668108952961073`*^9, 
   3.566810902010892*^9}, {3.566811561260285*^9, 3.566811585156808*^9}, {
   3.566812043653894*^9, 3.566812063554269*^9}, {3.566812472816133*^9, 
   3.5668125043609467`*^9}, {3.566812541296193*^9, 3.566812543656445*^9}, {
   3.566910097852117*^9, 3.566910168659422*^9}, {3.566910295542222*^9, 
   3.566910317738991*^9}, {3.566910391849169*^9, 3.5669104094901342`*^9}, {
   3.567268350898058*^9, 3.567268387014542*^9}, {3.567273870982703*^9, 
   3.567273902487047*^9}, 3.5672739352417593`*^9, {3.567274577043305*^9, 
   3.567274596317093*^9}, {3.567274658846936*^9, 3.567274659177651*^9}, {
   3.5673431018908567`*^9, 3.5673431075786133`*^9}, {3.568021868545143*^9, 
   3.568021938205813*^9}, {3.568388528458165*^9, 3.568388583197238*^9}, {
   3.5737060937798634`*^9, 3.573706095160548*^9}, {3.573986647803714*^9, 
   3.573986703776039*^9}, {3.5739867607595587`*^9, 3.573986765093643*^9}, {
   3.573986875630156*^9, 3.5739868942828503`*^9}, {3.573986943510865*^9, 
   3.573986954287982*^9}, {3.574065480435192*^9, 3.574065529357635*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["tracking and dumbing ", "Section",
 CellChangeTimes->{{3.5412230394793797`*^9, 3.541223056090493*^9}, {
  3.568368434423396*^9, 3.56836843495874*^9}, {3.576538507555916*^9, 
  3.5765385149068832`*^9}}],

Cell[CellGroupData[{

Cell["\<\
internalDumb-tracker:   toTrack \[Rule]  TRACKED\
\>", "Subsection",
 CellChangeTimes->{{3.557654102048574*^9, 3.557654115809968*^9}, {
  3.566665636198305*^9, 3.566665637867972*^9}, {3.5666657455524673`*^9, 
  3.5666657512956753`*^9}, {3.566808719537796*^9, 3.566808731652938*^9}},
 Background->RGBColor[0.3333333333333333, 1., 0.4980392156862745]],

Cell[CellGroupData[{

Cell["tracking", "Subsubsection",
 CellChangeTimes->{{3.472553678547106*^9, 3.472553689863352*^9}, {
  3.566801025555196*^9, 3.5668010269144773`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"original", "=", 
   RowBox[{"Expand", "[", "toTrack", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5732885198766413`*^9, 3.5732885263926783`*^9}, {
  3.57398004213113*^9, 3.573980045196509*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"toTrack", "=", 
   RowBox[{"shifterM", "[", "toTrack", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.56844445846323*^9, 3.56844446598232*^9}, {
  3.573277333979615*^9, 3.573277340115162*^9}, {3.57396612019947*^9, 
  3.573966121631618*^9}, {3.5739740718379498`*^9, 3.57397407478468*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"temp", "=", 
   RowBox[{"Variables", "[", "toTrack", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"temp2", ",", 
      RowBox[{"Head", "[", 
       RowBox[{"temp", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "temp", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp3", "=", 
   RowBox[{"Union", "[", "temp2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"varCheck", "=", 
  RowBox[{
   RowBox[{"Intersection", "[", 
    RowBox[{"nameAll", ",", "temp3"}], "]"}], "\[Equal]", 
   "temp3"}]}]}], "Input",
 CellChangeTimes->{{3.5729370864756193`*^9, 3.572937124488682*^9}, {
   3.5729372163080807`*^9, 3.572937240461877*^9}, 3.572937296761849*^9, {
   3.5729381564955807`*^9, 3.5729381596538973`*^9}, 3.573540479114112*^9, 
   3.57354051228506*^9, {3.573552806798629*^9, 3.573552810111413*^9}, 
   3.5735554469023733`*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.573540647882769*^9, 3.573540706105474*^9, 3.573542945233081*^9, 
   3.573543412425105*^9, 3.573543591059575*^9, 3.5735481338752813`*^9, 
   3.573548167749496*^9, 3.5735483572091208`*^9, 3.573548525295115*^9, {
   3.5735485868889*^9, 3.573548653199518*^9}, 3.573548878429181*^9, 
   3.573551106583647*^9, 3.573551311670149*^9, 3.5735527696119623`*^9, 
   3.5735528112768497`*^9, 3.5735530515392847`*^9, 3.5735556824415207`*^9, 
   3.573556716780105*^9, 3.573557002116325*^9, 3.5736339111378202`*^9, 
   3.5736351331703243`*^9, 3.573635521632612*^9, {3.573638134637657*^9, 
   3.573638182882017*^9}, {3.5736392122564096`*^9, 3.57363922629589*^9}, 
   3.5736402061359377`*^9, 3.57364148766201*^9, 3.5736416554414454`*^9, 
   3.573641732341013*^9, 3.573643351359522*^9, 3.5736437523090067`*^9, 
   3.5736439972967567`*^9, 3.573644497987821*^9, 3.573647983627242*^9, 
   3.573706572798563*^9, 3.573706642224469*^9, 3.573706740053185*^9, 
   3.573709193515718*^9, 3.573709432283972*^9, 3.573710049805676*^9, 
   3.5737260054587793`*^9, 3.573726959659212*^9, 3.573727318333252*^9, 
   3.573727598881872*^9, 3.573731297408094*^9, {3.5737316007470083`*^9, 
   3.573731630400131*^9}, 3.573740699759882*^9, 3.573742309724854*^9, 
   3.5737649691066647`*^9, 3.573766995340222*^9, 3.573797283652898*^9, 
   3.5737981591323357`*^9, 3.573799091185638*^9, 3.5738004524382763`*^9, 
   3.573802636410863*^9, 3.5738056236434402`*^9, 3.573818742066471*^9, 
   3.5738203994065228`*^9, 3.5738214920794287`*^9, {3.5738218073027983`*^9, 
   3.573821830514143*^9}, 3.57382201297194*^9, 3.5738221299739523`*^9, 
   3.573822372714376*^9, 3.573823195030985*^9, 3.57382326176527*^9, 
   3.573823769359989*^9, 3.573825296003332*^9, {3.5738263206499777`*^9, 
   3.5738263414330597`*^9}, 3.573826702376799*^9, 3.573827604679409*^9, 
   3.573827786861453*^9, 3.573828131821371*^9, 3.5738290441960506`*^9, 
   3.573829079377207*^9, {3.57382919174026*^9, 3.573829219623657*^9}, 
   3.5738297683154993`*^9, 3.573830558954479*^9, 3.573830685559512*^9, 
   3.573830725852468*^9, 3.573831054971422*^9, 3.5738313095682383`*^9, 
   3.573831636372715*^9, 3.573832068150106*^9, 3.5738324983004503`*^9, 
   3.573834287971531*^9, 3.5738348217106647`*^9, 3.573834897933755*^9, 
   3.573835136749655*^9, 3.573835292324888*^9, 3.573837217011207*^9, 
   3.5738372903815117`*^9, 3.573837330991838*^9, 3.5738381102780848`*^9, {
   3.5738382271869802`*^9, 3.5738382559656277`*^9}, 3.573877107364612*^9, 
   3.573883331017762*^9, 3.573883619056532*^9, 3.573883680951829*^9, 
   3.573883877462366*^9, 3.57388413857449*^9, {3.573885155870284*^9, 
   3.573885183532576*^9}, 3.5738856547714643`*^9, 3.5738857992372503`*^9, 
   3.5738867919954453`*^9, 3.573888766332638*^9, 3.573888927189711*^9, 
   3.573889105082138*^9, 3.573889229021475*^9, 3.573892247990347*^9, 
   3.573892291083613*^9, 3.573892638320381*^9, 3.57389301164851*^9, 
   3.573894278832632*^9, 3.573894991397382*^9, 3.5738954095911283`*^9, 
   3.573908592394279*^9, 3.57393284836727*^9, 3.573966155785809*^9, 
   3.573971798691347*^9, 3.573972473250002*^9, 3.573974249590581*^9, 
   3.573975178892103*^9, 3.573975253701892*^9, {3.573975640579327*^9, 
   3.5739756631868773`*^9}, 3.573975776687611*^9, 3.573976386781101*^9, 
   3.5739776550793037`*^9, 3.573978263152603*^9, 3.5739785752689943`*^9, 
   3.573978737219939*^9, 3.5739799866951017`*^9, 3.573982651384276*^9, 
   3.573984408983707*^9, 3.573984745256948*^9, 3.57398494464603*^9, 
   3.57398510590364*^9, 3.573987262213666*^9, 3.573990967138858*^9, 
   3.574002897525824*^9, 3.5740074590190973`*^9, 3.574007823299419*^9, 
   3.5740487609423*^9, 3.574059675835178*^9, 3.574059919332103*^9, 
   3.574060065425418*^9, 3.5740601819815207`*^9, 3.574060668325083*^9, 
   3.574060892119092*^9, 3.574061686815783*^9, 3.574061797207786*^9, 
   3.574063280176585*^9, 3.574063508942585*^9, 3.574064188821042*^9, 
   3.5740644185581293`*^9, 3.574064747570817*^9, 3.574065053540365*^9, 
   3.574065804183319*^9, 3.574066348419528*^9, 3.574066434562642*^9, 
   3.574071775262231*^9, 3.5740831292454*^9, 3.574139791152329*^9, {
   3.5741437254810133`*^9, 3.574143753356841*^9}, 3.574143791803852*^9, {
   3.574492465570785*^9, 3.574492547103774*^9}, 3.574492788320693*^9, 
   3.5744939719858418`*^9, {3.574496160118866*^9, 3.574496184570052*^9}, 
   3.5745244881066313`*^9, 3.575099366298037*^9, 3.575358761324986*^9, 
   3.575359828364357*^9, 3.575369869709613*^9, 3.575370292329033*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "checkunU0U1", ",", "checkunU0U2", ",", "checkDUMB", ",", "checkTRACK"}], 
   "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.566909253003034*^9, 3.566909257195339*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unU0U", " ", "=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"am", "[", "ii", "]"}], "*", 
      RowBox[{"toTrack", "[", 
       RowBox[{"[", "ii", "]"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"ii", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "toTrack", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.568444427496966*^9, 3.5684444389701157`*^9}, {
  3.56844447146344*^9, 3.5684444792578*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"old", " ", "version", " ", "had", " ", 
     RowBox[{"shifterM", "[", "unU0U", "]"}]}], " ", "-", " ", 
    RowBox[{"is", " ", "this", " ", 
     RowBox[{"needed", " ", "?"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"unU", "=", 
    RowBox[{"hold", "+", "unU0U"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.56779667703506*^9, 3.5677966820671053`*^9}, {
   3.5684426868446283`*^9, 3.5684426875427513`*^9}, 3.572941217814538*^9, 
   3.5729417162075787`*^9, {3.573975704205262*^9, 3.573975706252224*^9}, {
   3.5739757389398127`*^9, 3.573975753480706*^9}, {3.5739757852939453`*^9, 
   3.5739757895045443`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"extSWITCH", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"extSWITCH", ",", 
         RowBox[{
          RowBox[{"extVAR", "[", 
           RowBox[{"[", "ii", "]"}], "]"}], "->", 
          RowBox[{"extVAR", "[", 
           RowBox[{"[", "jj", "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], ";"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.47260053686103*^9, 3.472600613674346*^9}, {
  3.472600784997679*^9, 3.472600785127716*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "Ulist", ",", " ", "Vlist", ",", " ", "removeUx", ",", " ", "removeU", ",",
     " ", "removeVx", ",", " ", "removeV", ",", " ", "V5list", ",", " ", 
    "removeV5x", ",", " ", "removeV5", ",", " ", "V6list", ",", " ", 
    "removeV6x", ",", " ", "removeV6", ",", " ", "V8list", ",", " ", 
    "removeV8x", ",", " ", "removeV8"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.460887092512967*^9, 3.460887160355878*^9}, {
   3.460887379475387*^9, 3.460887478355047*^9}, {3.460887519256063*^9, 
   3.460887523265192*^9}, {3.460888614478695*^9, 3.460888686892979*^9}, {
   3.460888963666696*^9, 3.460889127003538*^9}, {3.460974832360134*^9, 
   3.460974843960829*^9}, 3.461074252089091*^9, {3.461408734912266*^9, 
   3.461408739707158*^9}, {3.461415063315147*^9, 3.461415069196141*^9}, 
   3.462008038206846*^9, {3.463126874689583*^9, 3.463126889050685*^9}, {
   3.471865715126156*^9, 3.471865740049249*^9}, {3.497201374085782*^9, 
   3.497201381766116*^9}, {3.497870759657524*^9, 3.4978707770438757`*^9}, {
   3.553613156118667*^9, 3.553613251798411*^9}, {3.566669031166514*^9, 
   3.566669038225494*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nn", "]"}], "\n", 
 RowBox[{
  RowBox[{"Do", "[", "\n", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Ulist", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", "remove3"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"removeUx", "[", "nn", "]"}], "=", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeUx", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"Ulist", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{
      RowBox[{"removeU", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeUx", "[", "nn", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "*)"}], "\n", 
     RowBox[{
      RowBox[{"Vlist", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", "remove4"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"removeVx", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeVx", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"Vlist", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"removeV", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeVx", "[", "nn", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "*)"}], "\n", 
     RowBox[{
      RowBox[{"V5list", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", "remove5"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"removeV5x", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeV5x", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "5", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"V5list", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"removeV5", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeV5x", "[", "nn", "]"}], "]"}]}], ";", " ", "\n", 
     RowBox[{"(*", " ", "*)"}], "\n", 
     RowBox[{
      RowBox[{"V6list", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", " ", 
         "remove6"}]}], "]"}]}], ";", "\n", " ", 
     RowBox[{
      RowBox[{"removeV6x", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeV6x", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "6", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "5", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"V6list", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"removeV6", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeV6x", "[", "nn", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"V8list", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", " ", 
         "remove8"}]}], "]"}]}], ";", "\n", " ", 
     RowBox[{
      RowBox[{"removeV8x", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeV8x", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "8", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "7", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "6", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "5", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"V8list", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"removeV8", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeV8x", "[", "nn", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"(*", "  ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"delFac", "[", "nn", "]"}], "=", "1"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeU", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV5", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV6", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV8", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"nn", "/", "10000"}], "\[Element]", "Integers"}], ",", 
       RowBox[{"Print", "[", "nn", "]"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", "  ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"nn", ",", " ", "1", ",", " ", 
      RowBox[{"Length", "[", "unU", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input",\

 CellChangeTimes->{{3.5536014718272657`*^9, 3.553601513639205*^9}, 
   3.5536021485220737`*^9, {3.5536022235359793`*^9, 3.5536023088578987`*^9}, {
   3.553766873499381*^9, 3.553766896766595*^9}, {3.5537676416251717`*^9, 
   3.553767647475286*^9}, {3.553768558237782*^9, 3.5537685828288593`*^9}, {
   3.556799339194428*^9, 3.5567993396295156`*^9}, {3.5567997671946707`*^9, 
   3.556799949978176*^9}, {3.55695333972768*^9, 3.556953350032337*^9}, {
   3.566800748725759*^9, 3.566800758744602*^9}, {3.568481067673715*^9, 
   3.5684811702079973`*^9}, {3.56913450704626*^9, 3.5691345086719522`*^9}, 
   3.569136884319392*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unUedTemp", " ", "=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"delFac", "[", "nn", "]"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"unU", "[", 
              RowBox[{"[", "nn", "]"}], "]"}], " ", "//.", " ", 
             RowBox[{"removeU", "[", "nn", "]"}]}], " ", "//.", " ", 
            RowBox[{"removeV", "[", "nn", "]"}]}], "  ", "//.", " ", 
           RowBox[{"removeV5", "[", "nn", "]"}]}], "//.", " ", 
          RowBox[{"removeV6", "[", "nn", "]"}]}], "//.", " ", 
         RowBox[{"removeV8", "[", "nn", "]"}]}], ")"}]}], "//.", 
      "contractUV"}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "unU", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.460887484519225*^9, 3.460887487472227*^9}, {
   3.460888693845164*^9, 3.460888696313563*^9}, 3.460888971980704*^9, {
   3.460889133415619*^9, 3.460889163905212*^9}, {3.460889283793555*^9, 
   3.460889285802747*^9}, {3.460889396744619*^9, 3.460889399690638*^9}, {
   3.460974846078506*^9, 3.460974847211675*^9}, {3.461408741463594*^9, 
   3.461408743327015*^9}, {3.461415069705516*^9, 3.46141507248424*^9}, {
   3.463127003228446*^9, 3.463127008379814*^9}, 3.463431073520055*^9, 
   3.463431565597888*^9, {3.471865667661944*^9, 3.471865670223158*^9}, {
   3.471865760182721*^9, 3.471865810877849*^9}, {3.472292556371234*^9, 
   3.472292560797311*^9}, {3.472600880688924*^9, 3.472600884771973*^9}, {
   3.472601053188025*^9, 3.472601056226757*^9}, {3.472761339412744*^9, 
   3.472761388240501*^9}, {3.472761765158965*^9, 3.472761768441466*^9}, {
   3.4970791938849993`*^9, 3.49707919654972*^9}, {3.497870908964732*^9, 
   3.4978709144263563`*^9}, {3.553600496885445*^9, 3.5536005002315283`*^9}, {
   3.553601339990786*^9, 3.553601349086451*^9}, {3.5536014188073063`*^9, 
   3.553601424477438*^9}, {3.553601595711564*^9, 3.553601609015215*^9}, {
   3.553602317750705*^9, 3.553602330228656*^9}, {3.556799993518066*^9, 
   3.556799998106523*^9}, 3.566800763851472*^9, {3.568481212610113*^9, 
   3.5684812155589943`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unUed", "=", 
   RowBox[{"shifterM", "[", "unUedTemp", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.553601634398973*^9, 3.553601665753121*^9}, {
  3.561994820568272*^9, 3.561994830042706*^9}, {3.568442834119061*^9, 
  3.568442834810575*^9}, {3.5739910765636053`*^9, 3.573991078355872*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"checkUnU0U1", "=", 
  RowBox[{
   RowBox[{"Complement", "[", 
    RowBox[{
     RowBox[{"Variables", "[", "unUed", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Variables", "[", "unUed", "]"}], "//.", "remove3"}], "//.",
          "remove4"}], "//.", "remove5"}], "//.", "remove6"}], "/.", 
      "remove8"}]}], "]"}], "\[Equal]", 
   RowBox[{"{", "}"}]}]}]], "Input",
 CellChangeTimes->{{3.472553716781213*^9, 3.472553742225581*^9}, {
  3.472554887350713*^9, 3.472554887891076*^9}, {3.497027610731042*^9, 
  3.497027613428762*^9}, {3.556800004278373*^9, 3.55680000610835*^9}, {
  3.56667126015378*^9, 3.566671262221869*^9}, {3.566808612029395*^9, 
  3.566808613836892*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.47255488478219*^9, 3.472554889000684*^9}, 
   3.472558017482145*^9, 3.472558771885021*^9, 3.472569665212305*^9, 
   3.472571558397878*^9, 3.472571822965579*^9, 3.472573012193923*^9, 
   3.472573105434306*^9, 3.472573705791717*^9, 3.472575483271425*^9, 
   3.472580889752309*^9, 3.472581554102355*^9, 3.472581792803522*^9, 
   3.472582128787565*^9, 3.472593475376271*^9, 3.472594048148481*^9, 
   3.472594542538735*^9, 3.472594871800592*^9, 3.472595959486733*^9, 
   3.472596159035617*^9, 3.472596235145431*^9, 3.472596532174086*^9, 
   3.472599079361714*^9, 3.47259918602387*^9, 3.472599348803282*^9, 
   3.472600391884972*^9, 3.472600927456062*^9, 3.472601069567938*^9, 
   3.472627260620113*^9, 3.472632875859032*^9, 3.472633145268606*^9, 
   3.472633226253773*^9, 3.472633320045656*^9, 3.472633853808988*^9, 
   3.472655903074282*^9, 3.472656237222361*^9, 3.472656634355864*^9, 
   3.472656799645794*^9, 3.472656944768567*^9, 3.472656978691419*^9, 
   3.472657357604109*^9, 3.472657602504541*^9, 3.472657834257648*^9, 
   3.472657917360071*^9, 3.472658034535609*^9, 3.472658558915635*^9, 
   3.472658681006372*^9, 3.472659421945828*^9, 3.472659500788303*^9, 
   3.472659695885829*^9, 3.472660074867092*^9, 3.472660218845022*^9, 
   3.472660406616724*^9, 3.472714107195047*^9, 3.472714754902903*^9, 
   3.472714966446608*^9, 3.472715043247924*^9, 3.472715172862469*^9, 
   3.47271584852729*^9, 3.472717338223178*^9, 3.472717483847181*^9, 
   3.47271968924525*^9, 3.472719924143049*^9, 3.472720104627362*^9, 
   3.472720419675673*^9, 3.472720552645285*^9, 3.472720699560011*^9, 
   3.472725525468796*^9, 3.472725721116503*^9, 3.472725804712802*^9, 
   3.472726182473232*^9, 3.472726324868483*^9, 3.472726670920178*^9, 
   3.472735667741033*^9, 3.472754859458156*^9, 3.472761064778988*^9, 
   3.472761541968508*^9, 3.472761807728138*^9, 3.472762400051092*^9, 
   3.472762593086251*^9, 3.47280905914641*^9, 3.472809249930718*^9, 
   3.472809333388686*^9, 3.47280936464079*^9, 3.472809402863344*^9, 
   3.472809478694407*^9, 3.472809521361447*^9, 3.472809660847596*^9, 
   3.472809828901569*^9, 3.472809902518638*^9, 3.472810139043642*^9, 
   3.472810450562255*^9, 3.472810533602551*^9, 3.472810588179474*^9, 
   3.472810626827599*^9, 3.472812582328738*^9, 3.472813549095507*^9, 
   3.472814905648527*^9, 3.472815561008785*^9, 3.472817883130491*^9, 
   3.472825022881668*^9, 3.472827354314136*^9, 3.472827491502084*^9, 
   3.472827634019277*^9, {3.472827711110078*^9, 3.472827737211114*^9}, 
   3.472828142393888*^9, 3.472828174860385*^9, {3.472828235805164*^9, 
   3.472828256929141*^9}, 3.472829592217278*^9, 3.472830098737708*^9, 
   3.472830138312194*^9, 3.472830189416107*^9, 3.472830256160607*^9, 
   3.472830302580746*^9, 3.472831745209602*^9, 3.472833686003904*^9, 
   3.472833978915379*^9, 3.472835852959721*^9, 3.472887781823565*^9, 
   3.472888311925216*^9, 3.472888780886455*^9, 3.472889201132212*^9, 
   3.472889241253607*^9, 3.472889299199061*^9, 3.472889336202619*^9, 
   3.472889394968108*^9, 3.472889437938072*^9, 3.472889578162036*^9, 
   3.472889611739107*^9, {3.472889657289122*^9, 3.472889678997535*^9}, 
   3.472889839878658*^9, 3.472892443064934*^9, 3.472897093759252*^9, 
   3.472901368226018*^9, 3.473687888240144*^9, 3.473687942288405*^9, 
   3.473719697088779*^9, 3.473719753803902*^9, 3.474137308101588*^9, 
   3.474137567987867*^9, 3.474187737687206*^9, 3.474188830694975*^9, 
   3.474189017812667*^9, 3.474189391922061*^9, 3.474189746606482*^9, 
   3.474189783861785*^9, 3.474189853432707*^9, 3.474189922980504*^9, 
   3.474190128627469*^9, 3.474191257152623*^9, 3.474191452695849*^9, 
   3.474192129915202*^9, 3.474193635381693*^9, 3.474193815859531*^9, 
   3.4741938703934*^9, 3.474194005168837*^9, 3.474194191779752*^9, 
   3.474195207395764*^9, 3.474195539991443*^9, 3.474195753198496*^9, 
   3.474196002742947*^9, 3.474198600934405*^9, 3.474200685831385*^9, 
   3.474201809883317*^9, 3.47420247788508*^9, 3.474202547186038*^9, 
   3.47420949888042*^9, 3.474209537957136*^9, 3.474209597052712*^9, 
   3.474211701332689*^9, 3.47462895679857*^9, 3.474718467656345*^9, 
   3.475413939847863*^9, 3.475414047361841*^9, 3.475414721203276*^9, 
   3.475414794611305*^9, 3.475414902216881*^9, 3.476609977010316*^9, {
   3.476610535096607*^9, 3.476610553938227*^9}, 3.476611360431768*^9, 
   3.476695927084258*^9, 3.476696178203554*^9, 3.476700813239292*^9, 
   3.47670308478694*^9, 3.476703877231974*^9, 3.476704410563758*^9, 
   3.476704637314777*^9, 3.476705781422086*^9, 3.47670672792491*^9, 
   3.476792357268404*^9, 3.476792456627284*^9, 3.477127208772792*^9, 
   3.477127852994489*^9, 3.477128106494992*^9, 3.477128564448812*^9, 
   3.477128991973677*^9, 3.477132538051246*^9, 3.477133545639572*^9, 
   3.477138167933859*^9, 3.477138590881804*^9, 3.477138802710923*^9, 
   3.477139308171818*^9, 3.477140386343438*^9, 3.477141562939731*^9, 
   3.477141811258497*^9, 3.477142135260394*^9, 3.477142698714245*^9, 
   3.477142838427426*^9, 3.477142953205734*^9, 3.477143107098791*^9, 
   3.477143206645468*^9, 3.477144209193485*^9, 3.477156474089846*^9, 
   3.477156704101043*^9, 3.477156906765409*^9, 3.477156981158871*^9, 
   3.47715737936535*^9, 3.477157575718668*^9, 3.477157758425387*^9, 
   3.477157928489857*^9, 3.477158056255953*^9, 3.477158240180727*^9, 
   3.477158388905335*^9, 3.47715907156879*^9, 3.477162067600468*^9, 
   3.477208186309192*^9, 3.477209320167402*^9, 3.477216849295251*^9, 
   3.477217044003524*^9, 3.477217174530739*^9, 3.477217345688981*^9, 
   3.477217537541035*^9, 3.477222219759204*^9, 3.477296680743955*^9, 
   3.47766200483405*^9, 3.477662077084869*^9, 3.47773778159647*^9, 
   3.477739406184214*^9, 3.477741240658384*^9, 3.477754369181914*^9, 
   3.477754786250702*^9, 3.477754835145374*^9, 3.477754995255858*^9, 
   3.477755462406633*^9, 3.477755985333403*^9, 3.477756969968936*^9, 
   3.477761211154693*^9, 3.477761699429632*^9, 3.477762299637245*^9, 
   3.477812983617454*^9, 3.477817757199091*^9, 3.47781892933154*^9, 
   3.47781901016622*^9, 3.477819192969399*^9, 3.477819298477002*^9, 
   3.47781934234189*^9, 3.477819723725945*^9, 3.477820986414251*^9, 
   3.47782281242457*^9, 3.477835441358986*^9, 3.477838251659735*^9, 
   3.47783828503346*^9, 3.477838906736787*^9, 3.477839747396147*^9, 
   3.477841801075982*^9, 3.477846377277154*^9, 3.47784656370813*^9, 
   3.477847121467038*^9, 3.477848753265428*^9, 3.477848854962727*^9, {
   3.477848906898405*^9, 3.477848916601155*^9}, 3.477849111409046*^9, 
   3.477849159781771*^9, 3.47789113546419*^9, 3.477894133639299*^9, 
   3.477897816874691*^9, 3.477897865549483*^9, 3.477898660495832*^9, 
   3.477898698425874*^9, 3.477898745000072*^9, 3.477899162905026*^9, {
   3.477899215545588*^9, 3.477899239431375*^9}, 3.477899427181203*^9, 
   3.477899663039414*^9, 3.4778998572334*^9, 3.477900012736783*^9, 
   3.477902655065585*^9, {3.477903858721201*^9, 3.477903872758304*^9}, 
   3.477915548679077*^9, {3.477916304033246*^9, 3.477916322437067*^9}, 
   3.477916471752425*^9, 3.477916619608991*^9, 3.477916650478736*^9, 
   3.477916753418834*^9, 3.477916848725401*^9, 3.477916941837537*^9, {
   3.477917009229703*^9, 3.47791708605248*^9}, 3.477917169492975*^9, 
   3.478270864608482*^9, 3.478270944046084*^9, 3.478271245547012*^9, 
   3.478271688496278*^9, 3.478272078697126*^9, 3.478272213435115*^9, 
   3.4782725391407*^9, 3.478272579516928*^9, 3.478272611079294*^9, 
   3.478273293916544*^9, 3.478275911704677*^9, 3.478276053085145*^9, 
   3.478681654754822*^9, 3.4786821532673*^9, 3.478682578284598*^9, 
   3.478682695237866*^9, 3.478683323655205*^9, 3.47868426258878*^9, 
   3.478685085962896*^9, 3.478685942608248*^9, 3.478686809291927*^9, 
   3.478687256773327*^9, 3.478687587176714*^9, 3.478688157917958*^9, 
   3.47868937671266*^9, 3.478691002800405*^9, 3.478691555861372*^9, 
   3.47869206476428*^9, 3.478692364563632*^9, 3.478693001146285*^9, 
   3.478693896737157*^9, 3.478695641512944*^9, 3.478696031490397*^9, 
   3.478697741611083*^9, 3.478699701543834*^9, 3.478700985776806*^9, 
   3.478701082282868*^9, 3.478701447925237*^9, 3.478702064423862*^9, 
   3.478792178180072*^9, 3.47879250631771*^9, 3.478792673530811*^9, 
   3.478792834389103*^9, 3.478796399196174*^9, 3.478798471128481*^9, 
   3.47880164988415*^9, 3.478807640639717*^9, 3.478807856543484*^9, 
   3.478810755145637*^9, 3.478810879269683*^9, 3.478812494006116*^9, 
   3.478812909495888*^9, 3.478813181726538*^9, 3.478847938555396*^9, 
   3.478848087952262*^9, 3.478848490183022*^9, 3.478848934569317*^9, 
   3.478850470350209*^9, 3.478850565161378*^9, 3.478851061453889*^9, 
   3.478851110103858*^9, 3.478852296129605*^9, 3.478852605195882*^9, 
   3.4788527328526*^9, 3.478852947398956*^9, 3.478855088826261*^9, 
   3.478856027288885*^9, 3.478858230529591*^9, 3.478864059015587*^9, 
   3.478864504509454*^9, 3.478865554315161*^9, 3.478869500477302*^9, 
   3.478872379975639*^9, 3.478878108235943*^9, 3.478884324040909*^9, 
   3.478885471876274*^9, 3.478886539904764*^9, 3.478887828849043*^9, 
   3.47889281853205*^9, 3.478894051939219*^9, 3.478897584759245*^9, 
   3.478897915344638*^9, 3.478900803457174*^9, 3.478930946614077*^9, 
   3.478931194733642*^9, 3.478933572168213*^9, 3.478934340990992*^9, 
   3.478935702245981*^9, 3.478937628339028*^9, 3.478939249153772*^9, 
   3.478940408681436*^9, 3.478941267499768*^9, 3.478943271546309*^9, 
   3.478943900633651*^9, 3.478944036002008*^9, 3.478944534785811*^9, 
   3.478953149742219*^9, 3.478962609752019*^9, 3.478972094069218*^9, 
   3.479067240190569*^9, 3.479112814289376*^9, 3.479113005244046*^9, {
   3.479113134303535*^9, 3.479113163296101*^9}, 3.479113288383807*^9, 
   3.479113528556825*^9, 3.479113732914088*^9, 3.479116665913281*^9, 
   3.479124997442161*^9, 3.479661727515962*^9, 3.479731510335094*^9, 
   3.479731571751179*^9, 3.485828440482856*^9, 3.486445430750289*^9, 
   3.486450326071623*^9, 3.486452021091228*^9, 3.486452102195473*^9, 
   3.486452179494178*^9, 3.48645226515258*^9, 3.486452440400828*^9, 
   3.486452805392264*^9, 3.486453105070917*^9, 3.486453333051651*^9, 
   3.486453365052164*^9, {3.48645349686878*^9, 3.486453513982862*^9}, 
   3.486455416711288*^9, {3.486455471516102*^9, 3.486455492122644*^9}, 
   3.486517241961004*^9, 3.49070784090223*^9, 3.490708733349697*^9, 
   3.490711143342772*^9, 3.490712266263602*^9, 3.492177749428937*^9, 
   3.492177893430967*^9, 3.49217792984343*^9, 3.49217802515058*^9, {
   3.492178569463313*^9, 3.492178579943973*^9}, 3.492178612061655*^9, 
   3.492178643286187*^9, {3.492179113373374*^9, 3.492179127043198*^9}, {
   3.492179159282255*^9, 3.492179179686985*^9}, 3.492410393307678*^9, 
   3.492410431721703*^9, 3.492410494516252*^9, 3.49241053588826*^9, 
   3.492410693927262*^9, 3.492410899804775*^9, 3.492412696551022*^9, 
   3.493199511689248*^9, 3.497025117417611*^9, 3.49702615134822*^9, 
   3.497026231081365*^9, 3.497026415319704*^9, 3.4970270879751368`*^9, 
   3.497027268676009*^9, {3.497027601840951*^9, 3.4970276144930277`*^9}, 
   3.49702771956882*^9, 3.497078691543202*^9, 3.4970788386865063`*^9, 
   3.497078999605749*^9, 3.49707929714747*^9, 3.497079416443097*^9, 
   3.49707964778869*^9, 3.49708048608853*^9, 3.497080567879485*^9, 
   3.49708097067664*^9, 3.497081180951502*^9, 3.497081285287217*^9, 
   3.49708134651917*^9, 3.497082645875942*^9, 3.497083234012115*^9, 
   3.4970834179530687`*^9, 3.4970840137079897`*^9, 3.4970841288396797`*^9, 
   3.497084193389202*^9, 3.497084436022193*^9, 3.497165943683668*^9, 
   3.4971660131472387`*^9, 3.4971660888121843`*^9, 3.4971689341692133`*^9, 
   3.497168975036489*^9, 3.497169064502781*^9, 3.497170415748885*^9, 
   3.497170520125834*^9, 3.497171517983056*^9, 3.497171787605631*^9, 
   3.49717227631207*^9, 3.497175030534218*^9, 3.497177295268373*^9, 
   3.497177691412878*^9, 3.497198619478207*^9, 3.497198790441119*^9, 
   3.497199658813002*^9, 3.4972009653701363`*^9, 3.4972012842018223`*^9, 
   3.4972013992982407`*^9, 3.497253845272888*^9, 3.497257692513438*^9, 
   3.497257742314981*^9, 3.497257839940522*^9, 3.497261988274507*^9, 
   3.4972681051076517`*^9, 3.497274270240005*^9, 3.497274715238525*^9, 
   3.497278639338589*^9, 3.49727876554708*^9, 3.497279491942211*^9, 
   3.497280308113508*^9, 3.49728438746626*^9, 3.497284466447598*^9, 
   3.497290194377086*^9, 3.497291368135478*^9, 3.497291946340284*^9, 
   3.497292056117302*^9, 3.497293075309721*^9, 3.497293720268681*^9, 
   3.497293964278114*^9, {3.497294162315754*^9, 3.497294176236925*^9}, 
   3.4972991251757*^9, 3.497299364860629*^9, 3.497299558937173*^9, 
   3.497304724829374*^9, 3.497311683040802*^9, 3.497311773582206*^9, 
   3.497311874563953*^9, 3.49733421637259*^9, 3.497334893475079*^9, 
   3.497339032259324*^9, 3.49733995930364*^9, 3.497343432407506*^9, 
   3.497343727574706*^9, 3.497343927838334*^9, 3.49734417674943*^9, 
   3.49734630270958*^9, 3.497347641379018*^9, 3.497348089645064*^9, 
   3.49734837054322*^9, 3.497348755753851*^9, 3.497349459624965*^9, 
   3.497350337262195*^9, 3.497352124716199*^9, 3.497352176308503*^9, 
   3.497352469586493*^9, 3.497352625204096*^9, 3.497352685952042*^9, 
   3.497353030538052*^9, 3.497353111372492*^9, 3.497353157263145*^9, 
   3.497354323951756*^9, 3.497354485412047*^9, 3.497354808574564*^9, 
   3.497355286738436*^9, 3.497355339672217*^9, 3.497355414148434*^9, 
   3.497357763559791*^9, 3.497357987931092*^9, 3.497358965578212*^9, 
   3.497366060530883*^9, 3.497366182636229*^9, 3.497366380319837*^9, 
   3.497372587763191*^9, 3.497373962631639*^9, 3.4974215416365213`*^9, 
   3.497433633006572*^9, 3.497623778093891*^9, 3.497624490091711*^9, 
   3.497630204137265*^9, 3.497630389026865*^9, 3.497630489004607*^9, 
   3.497630683043908*^9, 3.497630931756813*^9, 3.497631184251843*^9, 
   3.4976325688280563`*^9, 3.497685055446906*^9, {3.4976852107142487`*^9, 
   3.4976852242918386`*^9}, 3.497685550094914*^9, 3.497686656684647*^9, 
   3.497686970332684*^9, 3.4976872855234423`*^9, 3.497691126178885*^9, 
   3.4976914200291348`*^9, 3.497691503462555*^9, 3.497691546952156*^9, 
   3.497691703229269*^9, 3.4976925408736753`*^9, 3.497692609690889*^9, 
   3.497692648024959*^9, 3.4976928273096647`*^9, 3.4976940851487207`*^9, 
   3.4976941585522346`*^9, 3.497694708171797*^9, 3.497694782943862*^9, 
   3.49769484754533*^9, 3.4976949151826763`*^9, 3.4976949610464373`*^9, 
   3.497699279522275*^9, 3.497699376577132*^9, 3.4977002400624104`*^9, 
   3.4977004196424*^9, 3.497701415087337*^9, 3.497704330547379*^9, 
   3.497705930050703*^9, 3.497706197518558*^9, 3.497706436779804*^9, 
   3.4977716362016706`*^9, 3.497773693812208*^9, 3.497775731468111*^9, 
   3.49777590557946*^9, 3.4977795202428007`*^9, 3.497793838084219*^9, 
   3.497793901428618*^9, 3.497794201771854*^9, 3.497794272233527*^9, 
   3.497866284509317*^9, 3.49786736169775*^9, 3.4978685564462547`*^9, 
   3.497870000489629*^9, 3.497870290850325*^9, 3.4978705107985497`*^9, 
   3.49787103750173*^9, 3.497871409546447*^9, 3.497871654130327*^9, 
   3.4978838722326813`*^9, 3.497969495788719*^9, {3.497969534285183*^9, 
   3.497969555032051*^9}, 3.497969705711256*^9, 3.498031645748004*^9, 
   3.4980335184026337`*^9, 3.498038569134007*^9, 3.498040470447319*^9, 
   3.498041413191723*^9, 3.498043569912431*^9, 3.498108334006939*^9, 
   3.498108925156054*^9, 3.498115575381897*^9, {3.498115629431006*^9, 
   3.498115740316289*^9}, 3.498115773548759*^9, {3.4981158381123667`*^9, 
   3.498115860535166*^9}, 3.49811731295*^9, 3.4981174112339354`*^9, 
   3.498121530327717*^9, 3.4981227096384897`*^9, 3.498122774674883*^9, {
   3.498122815846861*^9, 3.498122828875676*^9}, 3.498123325880464*^9, 
   3.498128900669181*^9, {3.49812894708136*^9, 3.498128989368945*^9}, 
   3.4981290795828247`*^9, 3.4981294393771753`*^9, 3.498129692053508*^9, 
   3.498129856389224*^9, 3.4981300096138783`*^9, 3.4981322480235023`*^9, 
   3.498143245672895*^9, 3.4981451788915*^9, 3.498206012407236*^9, 
   3.498210089070361*^9, 3.498211812421974*^9, 3.498216708353355*^9, 
   3.498220754177128*^9, 3.498227044013302*^9, 3.498239857706685*^9, 
   3.498243097710905*^9, 3.498252772997328*^9, 3.498253174008503*^9, 
   3.498290271075974*^9, 3.498293586129821*^9, 3.498294876853519*^9, 
   3.498294929507992*^9, 3.4982955109210567`*^9, 3.4982955624782143`*^9, 
   3.498295602840929*^9, 3.498295645208516*^9, 3.4982962957268953`*^9, 
   3.498296575304151*^9, 3.498296611593816*^9, 3.498296651489007*^9, 
   3.498296861945345*^9, 3.4982971044429073`*^9, 3.4982972613897753`*^9, 
   3.498297348433441*^9, 3.498297904910776*^9, 3.498298759400609*^9, 
   3.498299431016487*^9, 3.4982998591422987`*^9, 3.4983003342646437`*^9, 
   3.498300960397325*^9, 3.498319615236354*^9, 3.498325218991362*^9, 
   3.498424287617655*^9, 3.5033454117014236`*^9, 3.5033948084341784`*^9, 
   3.503394916108033*^9, 3.5033953978683777`*^9, 3.503395987799428*^9, 
   3.503396293948617*^9, 3.503396494182836*^9, 3.503396645212481*^9, 
   3.503397258379833*^9, 3.50340039392006*^9, 3.5064320858340673`*^9, 
   3.506432563640532*^9, 3.506433781350877*^9, 3.506434857672143*^9, 
   3.506435360147937*^9, 3.506436468591601*^9, 3.50643742420958*^9, 
   3.506443744199017*^9, 3.506444033711812*^9, 3.506444103408517*^9, 
   3.506444248378742*^9, 3.506444283409452*^9, 3.506444317682872*^9, 
   3.506444456058969*^9, 3.5064445455410547`*^9, 3.506444617145513*^9, 
   3.5064446475457067`*^9, {3.506444683707223*^9, 3.5064447133123827`*^9}, 
   3.5064447457314663`*^9, 3.506444805096178*^9, 3.506444836109953*^9, 
   3.506444866631562*^9, {3.506444897180677*^9, 3.50644497714465*^9}, {
   3.506445021319647*^9, 3.506445371911852*^9}, 3.506445437824767*^9, 
   3.506445469898979*^9, {3.506445503953595*^9, 3.5064456316428556`*^9}, {
   3.5064456685970087`*^9, 3.506445685673883*^9}, {3.506445751192296*^9, 
   3.506445975593131*^9}, 3.50644618157692*^9, 3.506501341401507*^9, 
   3.506501450317318*^9, 3.506501505237514*^9, 3.506501548813614*^9, 
   3.506501691277111*^9, 3.506501762171769*^9, 3.506502241452186*^9, 
   3.5065022910077753`*^9, 3.50650232343123*^9, 3.5065023561328793`*^9, 
   3.5065023869591312`*^9, 3.50650242215508*^9, {3.506502454448596*^9, 
   3.506502484366064*^9}, 3.506502517773388*^9, 3.506502559374249*^9, 
   3.5118523823210173`*^9, 3.5236095286422987`*^9, 3.5236104365685043`*^9, 
   3.523629869341391*^9, 3.52363040556689*^9, 3.523630858288351*^9, 
   3.531129944248756*^9, 3.5311302642204657`*^9, 3.531131365787683*^9, 
   3.531131517285035*^9, 3.531132481840434*^9, 3.53113308712218*^9, 
   3.531133325552705*^9, 3.531133583949978*^9, 3.531133924788373*^9, 
   3.531134111334778*^9, 3.531134155273649*^9, 3.531136496572261*^9, 
   3.531136965825585*^9, 3.53113742696832*^9, {3.5311374744966784`*^9, 
   3.531137532363242*^9}, 3.531137640320203*^9, 3.5311379323611727`*^9, 
   3.531138099985834*^9, 3.531138263416119*^9, 3.5311407735607224`*^9, 
   3.5315608102297*^9, 3.531560892111326*^9, 3.531561009258312*^9, 
   3.531561286704771*^9, 3.531575326382448*^9, 3.5315754564029408`*^9, 
   3.531576409308415*^9, 3.531577221765654*^9, 3.531577354703527*^9, 
   3.5315774381994743`*^9, 3.5328666134885187`*^9, 3.5328673612290163`*^9, 
   3.5328677122693872`*^9, 3.5328678892518272`*^9, 3.5328679480258427`*^9, 
   3.532868155654467*^9, 3.532868324599362*^9, 3.53286841097464*^9, 
   3.532868738272842*^9, 3.532868874626545*^9, 3.532869810563613*^9, 
   3.532870142164762*^9, 3.5328711327874517`*^9, 3.532871207477355*^9, 
   3.532871289974423*^9, 3.532871368641527*^9, 3.532872304515007*^9, 
   3.532874825080207*^9, 3.532875212461956*^9, 3.532937941577952*^9, 
   3.5329419373114843`*^9, 3.532942589323463*^9, 3.5329427041402807`*^9, 
   3.532943007834754*^9, 3.532943067286771*^9, 3.532943175951885*^9, 
   3.532943264239916*^9, 3.5329433614611893`*^9, 3.532943467664393*^9, 
   3.5329435766522913`*^9, 3.5329444494986153`*^9, 3.532948147778018*^9, 
   3.532949937954002*^9, 3.532951013112187*^9, 3.532951266093116*^9, 
   3.532951423601664*^9, 3.532953183088491*^9, 3.532953445932744*^9, 
   3.5329547883325853`*^9, 3.5329551419369593`*^9, 3.532957693147849*^9, 
   3.533046725559113*^9, 3.533046769450935*^9, 3.533047317928996*^9, 
   3.5330476738241453`*^9, 3.533047755398031*^9, 3.533047938897107*^9, 
   3.533048466688121*^9, 3.5330486127254953`*^9, 3.53304879451643*^9, 
   3.533048947640656*^9, 3.5330490762141867`*^9, 3.533052653113632*^9, 
   3.533061454241498*^9, 3.53321121947279*^9, 3.533211307483424*^9, 
   3.533211379859128*^9, 3.533211443670307*^9, 3.53321148631767*^9, 
   3.5332115482541437`*^9, 3.533211610484315*^9, 3.5332125441141787`*^9, 
   3.533212974383686*^9, 3.5332130533622217`*^9, 3.533214025393729*^9, 
   3.533214268367381*^9, 3.533214354209317*^9, 3.53321477692583*^9, 
   3.5332252598505287`*^9, 3.533284592147192*^9, 3.533285280904119*^9, 
   3.533285670519836*^9, 3.533285825010257*^9, 3.53328601095992*^9, 
   3.533286140630602*^9, 3.533305082450047*^9, 3.5333051616123953`*^9, 
   3.533305195864645*^9, 3.5333052425210857`*^9, 3.533305777214012*^9, 
   3.533306334972924*^9, 3.533307123911487*^9, 3.533308058721949*^9, 
   3.533312027920369*^9, 3.5333122526130457`*^9, 3.5333127097548103`*^9, 
   3.533313146835764*^9, 3.533313506532567*^9, 3.533313731260922*^9, 
   3.5333140238390923`*^9, 3.541240137170354*^9, {3.541240745010232*^9, 
   3.5412407587615967`*^9}, 3.541241040809417*^9, 3.541344885667877*^9, 
   3.553598484335387*^9, 3.553598582697122*^9, 3.553602354157813*^9, 
   3.553764023823144*^9, 3.553766449928207*^9, 3.5537665486391478`*^9, 
   3.553766600612393*^9, 3.553766632749387*^9, {3.553766671105673*^9, 
   3.553766736189169*^9}, 3.5537684213057613`*^9, 3.553799832657174*^9, 
   3.553799883554028*^9, 3.556602931130932*^9, 3.556602983446409*^9, 
   3.556608246894455*^9, {3.556610137952342*^9, 3.556610160491199*^9}, 
   3.5566101994237337`*^9, 3.556614912024807*^9, 3.55661499795728*^9, 
   3.556641401874773*^9, 3.556641459918585*^9, 3.556790957324757*^9, 
   3.5567910302926598`*^9, 3.556791577223919*^9, 3.556791629152205*^9, {
   3.556791817200899*^9, 3.556791896928537*^9}, 3.556792470964922*^9, 
   3.556797350748588*^9, {3.556797584235365*^9, 3.556797653218644*^9}, 
   3.556797759041486*^9, {3.556798993925137*^9, 3.55679904346719*^9}, {
   3.5567990784198933`*^9, 3.5567990969873037`*^9}, {3.556799134093109*^9, 
   3.5567991557507753`*^9}, 3.5567999700414886`*^9, {3.5568000168293123`*^9, 
   3.556800037163911*^9}, 3.556800583177822*^9, 3.556867675491742*^9, 
   3.5568711797865*^9, 3.556871649442685*^9, {3.556955308142406*^9, 
   3.55695532478399*^9}, 3.556955462038362*^9, 3.5569558601968946`*^9, 
   3.556958094658774*^9, 3.556958178322998*^9, 3.5569582304066753`*^9, {
   3.556958701905036*^9, 3.5569587146125793`*^9}, 3.556958865660421*^9, 
   3.557652830363841*^9, 3.557653856908391*^9, 3.5576539722221727`*^9, 
   3.557654644999968*^9, 3.5576553284957047`*^9, 3.5576556835051517`*^9, 
   3.5576608596376057`*^9, 3.557735038999345*^9, 3.557735964952393*^9, 
   3.557739715179002*^9, 3.557740003980281*^9, 3.5577417284496098`*^9, 
   3.557742372532598*^9, 3.557742544993478*^9, {3.557742958252988*^9, 
   3.5577429760946827`*^9}, 3.5577433701829653`*^9, 3.557746312473652*^9, {
   3.56197819129311*^9, 3.561978218841382*^9}, 3.561982537312181*^9, 
   3.5619827783029537`*^9, 3.561984362556217*^9, 3.56199315894538*^9, 
   3.561994869544469*^9, 3.5619963652114697`*^9, 3.561997211933743*^9, 
   3.5619972848589087`*^9, 3.561998467233643*^9, 3.5619996711763906`*^9, 
   3.5620604662077017`*^9, 3.56206376295758*^9, 3.562064149506352*^9, 
   3.562064277837418*^9, 3.562064836525403*^9, 3.562065157407001*^9, 
   3.5620676883949614`*^9, 3.562067876996663*^9, 3.562072558617244*^9, 
   3.562078713954493*^9, 3.562229740091447*^9, 3.562235292840908*^9, 
   3.562252307197528*^9, 3.562257921049252*^9, 3.562263817670212*^9, 
   3.562282198363845*^9, 3.5623100506546507`*^9, 3.562320068755664*^9, 
   3.562320161095553*^9, 3.562320347006913*^9, 3.5623205471882563`*^9, 
   3.562322284781231*^9, 3.56234525283426*^9, 3.562346273844719*^9, 
   3.5623463750921183`*^9, 3.562347979447689*^9, 3.5623984999948187`*^9, 
   3.5624005569602203`*^9, 3.5624052453448677`*^9, 3.562407293892116*^9, 
   3.562410622631583*^9, 3.562410709500391*^9, 3.562410780991169*^9, 
   3.56241222006597*^9, 3.5624123481100283`*^9, 3.562414350963235*^9, {
   3.562414407340323*^9, 3.5624144321433477`*^9}, 3.5624144946719713`*^9, 
   3.5624155155129423`*^9, 3.562415665387793*^9, 3.562419790388249*^9, 
   3.5624278407838*^9, 3.562436640915558*^9, 3.5624804705052557`*^9, {
   3.5624833685140247`*^9, 3.562483393406027*^9}, 3.562497916376013*^9, 
   3.562502909815374*^9, 3.56251515435671*^9, 3.562566506485573*^9, 
   3.562566712186499*^9, 3.562566910887748*^9, 3.562567011363419*^9, 
   3.562569602674165*^9, 3.5626613760336933`*^9, 3.562661444603911*^9, 
   3.566453078437478*^9, 3.566455953270791*^9, 3.566457017622486*^9, 
   3.566457650021594*^9, 3.566458419561778*^9, 3.566459321921159*^9, 
   3.566561659764494*^9, 3.566561834016314*^9, 3.566561891137405*^9, 
   3.566563506633504*^9, 3.56666167170467*^9, 3.566663229754541*^9, 
   3.56666537157049*^9, 3.5666655103358383`*^9, 3.566665669969038*^9, 
   3.566666126899002*^9, 3.566668396923272*^9, 3.566668563543542*^9, {
   3.566668602664089*^9, 3.566668689233697*^9}, 3.566669138960882*^9, 
   3.566669794023918*^9, {3.566669857341167*^9, 3.566669899173936*^9}, 
   3.566670151922246*^9, 3.566670921162409*^9, 3.566670984278655*^9, {
   3.566671075761908*^9, 3.5666711032601337`*^9}, {3.566671320615724*^9, 
   3.566671332541111*^9}, 3.566671641845722*^9, 3.566728752382991*^9, 
   3.5667293107718763`*^9, 3.56672962331364*^9, 3.5667299190634747`*^9, 
   3.566730169029887*^9, 3.566730544453401*^9, 3.56673091723737*^9, 
   3.566731149316264*^9, 3.5667312219964027`*^9, 3.566731359119946*^9, {
   3.566731507246023*^9, 3.56673153444842*^9}, 3.5667316601983547`*^9, 
   3.566731805303358*^9, 3.56673299711604*^9, 3.566733071393566*^9, 
   3.566740736231965*^9, 3.5667407735393047`*^9, 3.56674084652382*^9, 
   3.566741137908918*^9, 3.566741177358485*^9, 3.5667412220789537`*^9, 
   3.566748558102366*^9, 3.566748764884007*^9, 3.566749313304599*^9, {
   3.566749481407919*^9, 3.5667495030399857`*^9}, 3.566749669588583*^9, 
   3.5667500092393827`*^9, 3.566758248881764*^9, 3.566801064799869*^9, 
   3.5668011898943443`*^9, 3.5668012511377296`*^9, 3.566808758408684*^9, 
   3.56680880809586*^9, 3.56681034356222*^9, 3.5668140555359993`*^9, 
   3.566815232272606*^9, 3.566815275810874*^9, 3.566815326646452*^9, 
   3.5668153759056168`*^9, 3.566815706735161*^9, 3.566815840468354*^9, 
   3.566816191659162*^9, 3.566817178494897*^9, 3.566818459945607*^9, 
   3.566819114624586*^9, {3.566819402605939*^9, 3.566819431691502*^9}, 
   3.566819537433172*^9, {3.566820664286475*^9, 3.5668206907914248`*^9}, {
   3.5669056342519197`*^9, 3.5669056633940907`*^9}, {3.566909192667327*^9, 
   3.5669092675497847`*^9}, 3.566910550219885*^9, 3.566911743198779*^9, 
   3.566912291605139*^9, 3.5669127375951653`*^9, 3.566913705314864*^9, 
   3.566919557226891*^9, {3.566919628333949*^9, 3.566919682590307*^9}, {
   3.566919855040351*^9, 3.56691987668192*^9}, 3.566919935365469*^9, {
   3.566920185587462*^9, 3.566920210560092*^9}, 3.566920297626902*^9, {
   3.5669205265658913`*^9, 3.566920554915518*^9}, 3.566920616085423*^9, {
   3.566920891100751*^9, 3.566920911497212*^9}, {3.5669209672263327`*^9, 
   3.566920989711565*^9}, 3.5669210513250093`*^9, {3.566921448073771*^9, 
   3.5669214723450737`*^9}, 3.566921507428546*^9, {3.566922254037239*^9, 
   3.566922290149695*^9}, {3.566922440967629*^9, 3.566922476534877*^9}, {
   3.566923083471438*^9, 3.5669231139973288`*^9}, {3.566923184859049*^9, 
   3.566923200745418*^9}, {3.566925164517398*^9, 3.566925202232525*^9}, {
   3.566925275640636*^9, 3.566925293491845*^9}, {3.5669253615198174`*^9, 
   3.5669253789425592`*^9}, {3.566925997938958*^9, 3.56692603566924*^9}, {
   3.566926077819812*^9, 3.5669260845981007`*^9}, 3.566926138512878*^9, {
   3.5669262543097477`*^9, 3.566926262676601*^9}, 3.566926349529168*^9, {
   3.566926462776888*^9, 3.5669264689746237`*^9}, 3.5669265260643473`*^9, {
   3.566926662422752*^9, 3.566926669432498*^9}, 3.5669267302440357`*^9, {
   3.5669269026108828`*^9, 3.566926907617597*^9}, 3.566926945722405*^9, {
   3.5669270549399757`*^9, 3.5669270790583878`*^9}, {3.566927159504583*^9, 
   3.566927178227059*^9}, {3.566927590836953*^9, 3.566927643902542*^9}, {
   3.56692768648374*^9, 3.5669276945241127`*^9}, 3.566927747883369*^9, {
   3.566927866350374*^9, 3.566927873828471*^9}, 3.566927946818112*^9, {
   3.5669281181166563`*^9, 3.566928124347233*^9}, 3.566928171088029*^9, {
   3.56692832620016*^9, 3.5669283317182083`*^9}, 3.5669283759657927`*^9, {
   3.5669285886626053`*^9, 3.5669286132395287`*^9}, {3.566928728316655*^9, 
   3.566928740200652*^9}, {3.566928816989088*^9, 3.566928826390167*^9}, {
   3.5669431294585876`*^9, 3.5669431505388536`*^9}, 3.5669432962727957`*^9, 
   3.566944021150666*^9, 3.5669455518234177`*^9, 3.566945628199143*^9, 
   3.566948194465007*^9, 3.566994064944373*^9, 3.567015190445775*^9, 
   3.567021818278346*^9, 3.567021904355818*^9, 3.5670281932947083`*^9, 
   3.567058373282411*^9, 3.5670690248019753`*^9, 3.5670690987564583`*^9, 
   3.567070217662835*^9, 3.567073191819378*^9, 3.567073249689426*^9, 
   3.567074107386359*^9, {3.5670792493725224`*^9, 3.5670792709578743`*^9}, 
   3.567079924693516*^9, 3.567089465737886*^9, {3.567092053185522*^9, 
   3.567092072237225*^9}, 3.567092139380105*^9, {3.567092667861855*^9, 
   3.5670927080422993`*^9}, {3.567108369681796*^9, 3.567108389867477*^9}, 
   3.567108475724016*^9, 3.567108665880598*^9, 3.567108730383438*^9, 
   3.5671095214302*^9, 3.567110269257889*^9, 3.567110337963448*^9, 
   3.567111416458968*^9, 3.567114525519649*^9, 3.567114592313634*^9, 
   3.5671157658659983`*^9, 3.567115985602738*^9, 3.567116903799138*^9, 
   3.567116958694022*^9, 3.567117785682646*^9, {3.567122389883065*^9, 
   3.567122415604384*^9}, 3.567122680471072*^9, {3.567124940541087*^9, 
   3.567124950201128*^9}, 3.567125017284273*^9, {3.567125446140131*^9, 
   3.567125471480514*^9}, 3.567162809670424*^9, 3.567243703863812*^9, 
   3.567243736031868*^9, 3.5672455206351843`*^9, 3.567250898910111*^9, 
   3.567253356904604*^9, 3.5672535225324183`*^9, 3.5672537752359467`*^9, {
   3.5672539191214867`*^9, 3.567254009814622*^9}, {3.567254059490073*^9, 
   3.567254093397581*^9}, {3.567254154535556*^9, 3.567254174856246*^9}, {
   3.56725458962323*^9, 3.56725462421587*^9}, {3.567254716253264*^9, 
   3.5672547344079638`*^9}, {3.567260097325848*^9, 3.567260133473613*^9}, {
   3.5672601973274803`*^9, 3.567260206377651*^9}, {3.567261133510878*^9, 
   3.567261203532962*^9}, {3.567261234077958*^9, 3.567261307866414*^9}, {
   3.567261357525558*^9, 3.567261382719893*^9}, {3.567261448140203*^9, 
   3.5672614635878277`*^9}, {3.5672615131670303`*^9, 3.567261523993185*^9}, {
   3.567261554991054*^9, 3.567261561856826*^9}, 3.567266627990905*^9, 
   3.567266948878045*^9, {3.567267104455865*^9, 3.567267226819468*^9}, {
   3.567267259784665*^9, 3.567267280000379*^9}, 3.567268518426241*^9, 
   3.567268642094701*^9, 3.567268753113204*^9, 3.5672689105200233`*^9, 
   3.567268975495069*^9, {3.567269280481339*^9, 3.567269364973371*^9}, {
   3.567269448442123*^9, 3.5672694546238422`*^9}, 3.567269542554965*^9, 
   3.567270318047441*^9, {3.567270915864056*^9, 3.567270921588748*^9}, 
   3.5672709942538443`*^9, 3.567271811045856*^9, {3.5672732705156393`*^9, 
   3.5672732846895247`*^9}, {3.567274752633965*^9, 3.567274813493194*^9}, {
   3.5672748890732203`*^9, 3.567274921361565*^9}, {3.567274985559587*^9, 
   3.567275016105913*^9}, {3.567275119214158*^9, 3.567275148219234*^9}, {
   3.56727522484286*^9, 3.567275237913515*^9}, {3.567275358957521*^9, 
   3.567275389423218*^9}, 3.567321210282275*^9, 3.567321758251123*^9, 
   3.567321845059908*^9, {3.5673220137144337`*^9, 3.5673220271795187`*^9}, 
   3.567322133786069*^9, {3.5673221884232197`*^9, 3.56732220132298*^9}, {
   3.567322241049932*^9, 3.567322253155868*^9}, {3.567322289967066*^9, 
   3.567322335286398*^9}, 3.567326843818458*^9, {3.567326926925784*^9, 
   3.567326937897944*^9}, {3.567327394024672*^9, 3.567327406294745*^9}, 
   3.567330327123102*^9, 3.567331012954365*^9, 3.5673310976308193`*^9, 
   3.567331281371117*^9, 3.567331337336503*^9, 3.5673316279696007`*^9, 
   3.5673318946620207`*^9, 3.567332173190901*^9, 3.56733253829142*^9, {
   3.567332992987069*^9, 3.567333009324255*^9}, 3.567333634278221*^9, 
   3.567334509736546*^9, 3.5673346085028152`*^9, 3.5673346818403387`*^9, 
   3.5673380256369658`*^9, 3.5673381056338787`*^9, 3.567338502614546*^9, 
   3.567338891055781*^9, 3.567338988250659*^9, 3.567339090606675*^9, {
   3.567339542100505*^9, 3.567339582338402*^9}, {3.5673397444381*^9, 
   3.5673397695331707`*^9}, {3.567339864217104*^9, 3.5673398948790693`*^9}, {
   3.567339997993803*^9, 3.5673400322648163`*^9}, {3.567340231419846*^9, 
   3.5673402650822678`*^9}, {3.5673404314366503`*^9, 
   3.5673404644338007`*^9}, {3.5673405912030582`*^9, 3.5673406234015102`*^9}, 
   3.567341210073224*^9, {3.567341428878085*^9, 3.567341540141411*^9}, {
   3.567341574485609*^9, 3.567341589256205*^9}, {3.56734164626336*^9, 
   3.5673416599638042`*^9}, {3.567341739734234*^9, 3.567341752793273*^9}, {
   3.567341845397728*^9, 3.567341855267528*^9}, {3.5673434191212187`*^9, 
   3.567343487575603*^9}, {3.567343542604821*^9, 3.567343567934225*^9}, {
   3.5673436004901237`*^9, 3.567343614355798*^9}, {3.567343670195225*^9, 
   3.56734368419694*^9}, {3.567343763075891*^9, 3.567343776495977*^9}, {
   3.567343873724572*^9, 3.567343884561957*^9}, {3.567345477450097*^9, 
   3.567345499120682*^9}, {3.567345554586907*^9, 3.567345573957996*^9}, {
   3.567345633479866*^9, 3.567345694612893*^9}, {3.567345819814554*^9, 
   3.567345869512252*^9}, {3.567346425583358*^9, 3.567346546815835*^9}, {
   3.567346597142638*^9, 3.567346618032352*^9}, {3.567346703178486*^9, 
   3.567346732185275*^9}, {3.567346837424732*^9, 3.567346851784439*^9}, {
   3.567346971268037*^9, 3.567347005286994*^9}, {3.567347968205617*^9, 
   3.567347988688092*^9}, {3.567348039247098*^9, 3.567348134678979*^9}, {
   3.5673481707215633`*^9, 3.5673481896623163`*^9}, {3.567348248372507*^9, 
   3.567348267337888*^9}, {3.5673545683664827`*^9, 3.567354598709132*^9}, {
   3.5673547702125883`*^9, 3.567354796063498*^9}, {3.567354889759951*^9, 
   3.5673549193765297`*^9}, {3.567354992055593*^9, 3.567355026465931*^9}, {
   3.5673551791237183`*^9, 3.567355221282164*^9}, {3.5673553715941353`*^9, 
   3.567355406975341*^9}, {3.5673558995369253`*^9, 3.567355972475313*^9}, {
   3.567356016133153*^9, 3.5673560455977583`*^9}, {3.567356095629923*^9, 
   3.5673561076045427`*^9}, {3.567356224895005*^9, 3.567356257754187*^9}, {
   3.5673563539321833`*^9, 3.5673563947439413`*^9}, {3.5673565003669453`*^9, 
   3.567356513736156*^9}, {3.56735676144794*^9, 3.5673567979840384`*^9}, 
   3.567359235574253*^9, 3.5673598118203497`*^9, 3.567360139483836*^9, 
   3.567360189817224*^9, 3.567360267103692*^9, {3.567360665390477*^9, 
   3.5673607635316763`*^9}, {3.567360802129134*^9, 3.567360821388571*^9}, {
   3.5673609069596977`*^9, 3.5673609334555283`*^9}, {3.567361052548481*^9, 
   3.567361084028164*^9}, {3.567361195310123*^9, 3.56736123110955*^9}, {
   3.567361366738306*^9, 3.5673613980176897`*^9}, {3.567361546067588*^9, 
   3.567361575837699*^9}, {3.567408893229721*^9, 3.567408915857231*^9}, {
   3.567408955805155*^9, 3.56740897931588*^9}, {3.567409026376566*^9, 
   3.56740904997549*^9}, {3.567409703085553*^9, 3.567409769011354*^9}, {
   3.567409802198029*^9, 3.567409871944791*^9}, {3.56740999026924*^9, 
   3.567410012757292*^9}, {3.567410171281361*^9, 3.567410191995332*^9}, {
   3.5674102946959047`*^9, 3.567410318042468*^9}, {3.5674105383808117`*^9, 
   3.56741060423351*^9}, {3.5674111041787033`*^9, 3.567411132870119*^9}, {
   3.567434070136015*^9, 3.5674341621312323`*^9}, {3.567462094957221*^9, 
   3.567462120140744*^9}, {3.56746215101001*^9, 3.5674621763879957`*^9}, 
   3.567462227996532*^9, {3.567462324274457*^9, 3.567462327726465*^9}, 
   3.567462361156008*^9, 3.567462725062566*^9, {3.5674652432725687`*^9, 
   3.567465246258665*^9}, 3.5674652873731623`*^9, 3.567465993367078*^9, {
   3.567583548546842*^9, 3.5675835521418943`*^9}, 3.567583655878954*^9, 
   3.567586707989846*^9, 3.567616519482203*^9, {3.5676223762753067`*^9, 
   3.5676223782876787`*^9}, 3.567622472827389*^9, 3.5676254829765997`*^9, {
   3.567681819158202*^9, 3.5676818203676662`*^9}, 3.567681868470727*^9, 
   3.567683484777177*^9, {3.5677069490061083`*^9, 3.5677069665838223`*^9}, 
   3.567707374225292*^9, {3.56771684002507*^9, 3.567716853504353*^9}, 
   3.567716950196505*^9, {3.56771875619674*^9, 3.567718766702777*^9}, {
   3.567719010554723*^9, 3.567719041755021*^9}, {3.56771915679142*^9, 
   3.5677191843851023`*^9}, {3.567767125925082*^9, 3.567767226807253*^9}, {
   3.567770122396718*^9, 3.567770146397582*^9}, {3.567770365800165*^9, 
   3.5677704016608267`*^9}, 3.5677704974017982`*^9, {3.567770802066032*^9, 
   3.5677708261170883`*^9}, 3.567770922728249*^9, 3.5677769937629433`*^9, 
   3.567777825276744*^9, {3.567778751543178*^9, 3.5677787775348663`*^9}, 
   3.567778825838069*^9, 3.56777886298979*^9, 3.567779207725996*^9, {
   3.567779435881103*^9, 3.5677794465732937`*^9}, {3.567780048985326*^9, 
   3.567780083445166*^9}, {3.567780130117877*^9, 3.5677801790959463`*^9}, 
   3.567780253093481*^9, {3.5677804183500643`*^9, 3.567780438530128*^9}, 
   3.567780523836553*^9, {3.567780709117968*^9, 3.567780740975195*^9}, {
   3.5677808316536207`*^9, 3.567780836552133*^9}, 3.5677809279184713`*^9, 
   3.567781158584908*^9, {3.567782471618245*^9, 3.567782472606526*^9}, 
   3.5677825413321943`*^9, 3.567782990979158*^9, 3.567787559606308*^9, 
   3.56778773277206*^9, {3.5677878915605907`*^9, 3.567787915128228*^9}, {
   3.5677882654139843`*^9, 3.567788270040696*^9}, 3.567788504905261*^9, 
   3.567789163836514*^9, 3.567789230838724*^9, 3.567789292993319*^9, 
   3.56778934242482*^9, 3.567789381750557*^9, 3.567789428646165*^9, 
   3.56778948302781*^9, 3.567789535738077*^9, 3.567789585760573*^9, 
   3.56778967669571*^9, 3.567789727504138*^9, 3.56778977495723*^9, 
   3.567790034301968*^9, 3.567790138931291*^9, 3.567790240106372*^9, 
   3.567790285995277*^9, 3.5677903439451942`*^9, 3.567790420374447*^9, 
   3.567790461982305*^9, 3.567790506039646*^9, 3.56779053965423*^9, 
   3.567790570365594*^9, 3.5677906263305902`*^9, 3.567790672777028*^9, 
   3.567792769621361*^9, {3.567792878932982*^9, 3.5677929067402077`*^9}, {
   3.567792961531514*^9, 3.567792979113666*^9}, 3.567793091381418*^9, 
   3.567793149386312*^9, 3.567793208518174*^9, 3.567793253184574*^9, 
   3.5677932942449617`*^9, 3.567793353347342*^9, 3.567793389141632*^9, 
   3.5677940189400997`*^9, {3.567797069111247*^9, 3.5677971020812693`*^9}, {
   3.567797161731823*^9, 3.56779718943668*^9}, {3.567797276417727*^9, 
   3.567797307620166*^9}, {3.56779761190429*^9, 3.567797646052487*^9}, {
   3.5677977587015963`*^9, 3.567797784059147*^9}, {3.5677978776616163`*^9, 
   3.567797903443583*^9}, {3.567840171530155*^9, 3.567840365541003*^9}, {
   3.5678404165165033`*^9, 3.567840427258082*^9}, {3.567847153717155*^9, 
   3.567847248747204*^9}, {3.567847528163557*^9, 3.567847531842021*^9}, 
   3.567847573687129*^9, 3.567847723251259*^9, {3.5678480994274797`*^9, 
   3.567848103099516*^9}, 3.56784814420925*^9, 3.5678483110088263`*^9, {
   3.56784876593806*^9, 3.567848783442031*^9}, 3.5678488512514677`*^9, 
   3.5678510980131683`*^9, {3.567851289395275*^9, 3.567851321855671*^9}, 
   3.567851414597807*^9, 3.567851567632207*^9, {3.567851946205636*^9, 
   3.5678519515930223`*^9}, 3.567852059483513*^9, 3.567852418383853*^9, {
   3.567853039311512*^9, 3.567853043874487*^9}, 3.567853103971089*^9, 
   3.567853398492635*^9, {3.567853937274576*^9, 3.5678539652495337`*^9}, 
   3.567854080513623*^9, 3.567859107659957*^9, 3.5678688992893972`*^9, 
   3.567878068731865*^9, 3.567878990952636*^9, 3.567880717477796*^9, 
   3.567881200319137*^9, 3.567881297456407*^9, 3.567927277876461*^9, 
   3.567927325602872*^9, 3.567927443360591*^9, 3.567929956540866*^9, 
   3.567930636410262*^9, 3.567934669864224*^9, 3.56793722139719*^9, 
   3.567938865082189*^9, 3.567939101040133*^9, 3.5679428888616734`*^9, {
   3.5679432854247007`*^9, 3.567943322387031*^9}, {3.567943412344451*^9, 
   3.567943449678886*^9}, {3.5679443760687532`*^9, 3.567944420518889*^9}, 
   3.567945331076685*^9, {3.567945462657284*^9, 3.567945482849504*^9}, 
   3.567946211715191*^9, {3.567946333308077*^9, 3.567946381517487*^9}, 
   3.567946874972579*^9, 3.567946914626656*^9, 3.5679489219378023`*^9, 
   3.5679601779190283`*^9, 3.567960449455777*^9, {3.567960797505967*^9, 
   3.567960825957129*^9}, 3.567961331966982*^9, {3.567961368644471*^9, 
   3.5679613942738743`*^9}, {3.5679614865571404`*^9, 
   3.5679615127066193`*^9}, {3.567961616525818*^9, 3.56796164034693*^9}, {
   3.567961716371189*^9, 3.567961740949101*^9}, {3.567961811176899*^9, 
   3.567961837116448*^9}, {3.567961931119863*^9, 3.567961955673649*^9}, 
   3.567962082850334*^9, 3.5679643952302027`*^9, 3.5679650306986713`*^9, {
   3.5679651571832113`*^9, 3.5679652343503227`*^9}, {3.56796527536526*^9, 
   3.567965302780411*^9}, {3.567965351711727*^9, 3.567965380186997*^9}, {
   3.567965453044552*^9, 3.567965480816986*^9}, {3.567965543620208*^9, 
   3.5679655584764853`*^9}, 3.56796571415514*^9, {3.567967778370729*^9, 
   3.567967797188038*^9}, 3.568007639451429*^9, 3.5680078625210743`*^9, {
   3.568007984960999*^9, 3.56800801079874*^9}, {3.568008041550728*^9, 
   3.568008068107189*^9}, {3.568008125085967*^9, 3.568008151609953*^9}, {
   3.5680081937265987`*^9, 3.5680082215378847`*^9}, {3.568008278146224*^9, 
   3.568008288768179*^9}, {3.568008356487795*^9, 3.568008366167733*^9}, 
   3.5680085590926647`*^9, 3.568012448623995*^9, {3.568012658471859*^9, 
   3.568012682023584*^9}, {3.5680127132376204`*^9, 3.568012737777863*^9}, {
   3.568012780897251*^9, 3.568012804760038*^9}, {3.568012900906583*^9, 
   3.568012927243864*^9}, {3.568013030002132*^9, 3.568013057386808*^9}, {
   3.5680131597229223`*^9, 3.568013185589965*^9}, 3.568013313481208*^9, 
   3.568013872668584*^9, 3.568015248072207*^9, 3.568015967066839*^9, 
   3.568016538105753*^9, 3.568016950470394*^9, 3.568017094117516*^9, {
   3.56801720096478*^9, 3.5680172290147257`*^9}, {3.568017261689835*^9, 
   3.5680172904922857`*^9}, {3.568017329757629*^9, 3.568017358871696*^9}, {
   3.5680174131985807`*^9, 3.568017445605433*^9}, {3.568017514679487*^9, 
   3.56801754449292*^9}, {3.5680176213241577`*^9, 3.5680176509870853`*^9}, 
   3.568017753288217*^9, 3.568019232793612*^9, 3.568019509772388*^9, 
   3.568019578476389*^9, 3.568021400450485*^9, 3.568022467711433*^9, 
   3.568022581487979*^9, 3.568022979431226*^9, 3.568023130177127*^9, {
   3.568023248353613*^9, 3.568023278348475*^9}, {3.568023330812413*^9, 
   3.5680233573231297`*^9}, {3.568023411393671*^9, 3.568023442517109*^9}, {
   3.568023528696307*^9, 3.5680235636721363`*^9}, {3.5680236404918327`*^9, 
   3.568023668510148*^9}, {3.568023773689802*^9, 3.568023806856791*^9}, 
   3.568024058731328*^9, {3.568027625772154*^9, 3.568027658404632*^9}, {
   3.568027713643178*^9, 3.568027720983876*^9}, 3.568027946047777*^9, {
   3.568029381234861*^9, 3.568029391355412*^9}, {3.568029490083395*^9, 
   3.568029570726653*^9}, {3.568029611375166*^9, 3.5680296380527163`*^9}, {
   3.5680297037254963`*^9, 3.568029734345688*^9}, {3.5680298072135353`*^9, 
   3.568029837598052*^9}, {3.568029921457356*^9, 3.568029949028902*^9}, {
   3.568039099689184*^9, 3.568039120252468*^9}, {3.568039689999299*^9, 
   3.5680397318193417`*^9}, 3.568040142742305*^9, {3.568041382656086*^9, 
   3.568041406687401*^9}, {3.568041440951228*^9, 3.5680414659865*^9}, {
   3.568041503551201*^9, 3.56804154870535*^9}, {3.568041601013364*^9, 
   3.568041650193227*^9}, {3.568041717511477*^9, 3.568041768419725*^9}, {
   3.5680418491010027`*^9, 3.568041895355736*^9}, 3.568041969827989*^9, {
   3.568042793943387*^9, 3.568042944382455*^9}, {3.568042990527164*^9, 
   3.5680430422135553`*^9}, {3.568043096538889*^9, 3.5680431394306517`*^9}, 
   3.568043207659032*^9, {3.5680432516816387`*^9, 3.568043278973637*^9}, 
   3.568043340841922*^9, 3.5681287827226677`*^9, 3.568128833034829*^9, 
   3.568133234667001*^9, 3.568136888156939*^9, {3.568136988028164*^9, 
   3.568137011535399*^9}, {3.568137041618178*^9, 3.568137066718276*^9}, {
   3.568137113173358*^9, 3.568137139037348*^9}, {3.568137205644546*^9, 
   3.568137236388597*^9}, {3.568137352233432*^9, 3.5681373821353483`*^9}, {
   3.568137539685906*^9, 3.568137565887249*^9}, 3.568137788679729*^9, 
   3.568140069212274*^9, 3.568143219814906*^9, 3.568276736630254*^9, 
   3.568277021740057*^9, 3.5682773434844646`*^9, 3.568277740342025*^9, {
   3.568277782918997*^9, 3.5682778098299294`*^9}, 3.568278014312532*^9, 
   3.56827806091958*^9, 3.568278139436153*^9, 3.568278369841432*^9, 
   3.568278498316288*^9, 3.5682875627183323`*^9, 3.568288803573241*^9, 
   3.568302258032188*^9, 3.5683262427841663`*^9, 3.5683712362571917`*^9, 
   3.568372366909546*^9, 3.568373250936634*^9, 3.568376292631262*^9, 
   3.5683764201102943`*^9, 3.568376960499712*^9, 3.568377798336227*^9, 
   3.5683793977714033`*^9, 3.568381845946787*^9, 3.568382114735303*^9, 
   3.5683827009866743`*^9, 3.5683874051236887`*^9, 3.568396055513731*^9, 
   3.568396099249428*^9, 3.568443083341811*^9, 3.5684432454998198`*^9, 
   3.568444295977066*^9, 3.5684443868587503`*^9, 3.568444446098227*^9, 
   3.56844448655691*^9, 3.568444596174589*^9, 3.568445785676483*^9, {
   3.568446286118301*^9, 3.5684463059765797`*^9}, 3.568448288884967*^9, 
   3.56844860531612*^9, 3.5684488816018457`*^9, 3.5684529337508717`*^9, 
   3.568481039170326*^9, 3.5684812627549877`*^9, 3.5684813967493353`*^9, 
   3.56853974118475*^9, 3.568539802720931*^9, 3.568541825149514*^9, 
   3.568544320792535*^9, 3.568549406404315*^9, 3.5685494574655046`*^9, 
   3.5685526948160458`*^9, 3.56855735315366*^9, 3.568557463545032*^9, 
   3.568557500749405*^9, 3.5685575542682943`*^9, 3.56855770603386*^9, 
   3.568558997377493*^9, 3.568559039695467*^9, 3.568569546945428*^9, 
   3.568570306654497*^9, 3.568614641098773*^9, {3.568614871350326*^9, 
   3.568614909747624*^9}, 3.568615934196229*^9, 3.568616762997881*^9, 
   3.568616975603732*^9, 3.5686170990668163`*^9, 3.568617290561287*^9, 
   3.568618238187727*^9, 3.5686209960386667`*^9, 3.56862374790902*^9, 
   3.568625543069244*^9, 3.568626761136938*^9, 3.568626810816675*^9, 
   3.568627131138988*^9, 3.568631418576209*^9, 3.568631573468362*^9, 
   3.568632234403631*^9, 3.568632571070673*^9, 3.56863541408073*^9, 
   3.568643996106423*^9, 3.56864416876999*^9, 3.568646143126336*^9, 
   3.568646360947537*^9, 3.568647431464903*^9, 3.568647477117298*^9, 
   3.5686475424649267`*^9, 3.568647687386557*^9, 3.5686477443921547`*^9, 
   3.5686493777760572`*^9, 3.5686497993609867`*^9, {3.5686501448675613`*^9, 
   3.5686501710963583`*^9}, 3.5686503474215803`*^9, 3.568650533425136*^9, 
   3.5686986785861197`*^9, 3.568698939223302*^9, 3.568703215092063*^9, 
   3.5687055547161837`*^9, 3.568706968701379*^9, 3.5687071509695177`*^9, 
   3.568710336840784*^9, 3.56871039253885*^9, 3.568711099148676*^9, {
   3.56871188381748*^9, 3.5687118979887457`*^9}, 3.5687120168817167`*^9, 
   3.568712073148981*^9, 3.56871282570708*^9, 3.5687129361366777`*^9, 
   3.568713083096383*^9, 3.568713170578485*^9, {3.5687132942885313`*^9, 
   3.568713318840674*^9}, 3.568713978843753*^9, 3.5687141308007927`*^9, {
   3.568714177089377*^9, 3.568714206724934*^9}, 3.5687172779430523`*^9, 
   3.568717758348754*^9, 3.568717948936646*^9, 3.568718287440349*^9, 
   3.568719704032806*^9, 3.568720015069962*^9, 3.5687245671003103`*^9, 
   3.568724663822896*^9, 3.5687248842310133`*^9, 3.568725431660812*^9, 
   3.5687255321426563`*^9, 3.568726401479405*^9, 3.568726553756444*^9, 
   3.568726591744729*^9, 3.5687278993700027`*^9, 3.568727954701449*^9, 
   3.568728159170288*^9, 3.5687282298933363`*^9, 3.568728985260572*^9, 
   3.568729229963292*^9, 3.568729320192087*^9, 3.568729803508151*^9, 
   3.568732880718392*^9, 3.56873487310779*^9, 3.568734975454815*^9, 
   3.568735101440955*^9, 3.5687382599815474`*^9, 3.568739201916362*^9, 
   3.5687394950919943`*^9, 3.568739540454908*^9, 3.5687404759695063`*^9, 
   3.5687405959352837`*^9, 3.5687424949006567`*^9, 3.568744487929098*^9, 
   3.568789885349246*^9, 3.568790114595244*^9, 3.568790812922241*^9, 
   3.568790968066598*^9, 3.5687949158517847`*^9, 3.568795048301024*^9, 
   3.568795373730852*^9, 3.568796663849124*^9, 3.568797078744254*^9, 
   3.56879718957944*^9, 3.568797265929675*^9, 3.568797384615581*^9, 
   3.5687977491777983`*^9, 3.56879902705087*^9, 3.568890667369812*^9, 
   3.568890775196519*^9, 3.568890935090156*^9, 3.5688909717256813`*^9, 
   3.568891203928294*^9, 3.5688912775387917`*^9, 3.568892351990738*^9, 
   3.568893847366908*^9, 3.568894531247818*^9, 3.568900823584278*^9, 
   3.568904115089727*^9, 3.568904840143447*^9, 3.56890572939511*^9, 
   3.568906011132104*^9, 3.568906185520699*^9, 3.5689093650053473`*^9, 
   3.5689094000894833`*^9, 3.568973466109771*^9, 3.568976680973279*^9, 
   3.5689811898982887`*^9, {3.5689812393068333`*^9, 3.5689812732416697`*^9}, 
   3.5689814961955757`*^9, 3.568985941210628*^9, 3.568998289961032*^9, 
   3.568998519489457*^9, 3.568998586965201*^9, 3.568998690891974*^9, 
   3.56900004447967*^9, 3.569002997978969*^9, 3.569045541379874*^9, 
   3.569045680840356*^9, 3.569046860789444*^9, 3.569050308218896*^9, 
   3.569051850369115*^9, 3.5690533284280148`*^9, 3.569054094606564*^9, 
   3.569054606099206*^9, 3.569055771427781*^9, 3.569061008659362*^9, 
   3.569061301722651*^9, 3.569065197103347*^9, 3.569066646023213*^9, 
   3.5690678618432207`*^9, 3.56907554007334*^9, 3.5690771559129744`*^9, 
   3.569077666201311*^9, 3.569077953142919*^9, 3.569080612210744*^9, 
   3.5690816076724577`*^9, 3.56908203320947*^9, 3.569082469710547*^9, 
   3.569136074035317*^9, 3.569136772265869*^9, 3.569136892793659*^9, 
   3.5691372607573547`*^9, 3.572937308325539*^9, 3.572938188729*^9, 
   3.572939908558264*^9, 3.572940031712861*^9, 3.572940649268674*^9, 
   3.572940885908472*^9, 3.5729417209925222`*^9, 3.572942616610395*^9, 
   3.572942998708416*^9, 3.5729430992972603`*^9, 3.572943578305938*^9, 
   3.572945424088612*^9, 3.572947119848598*^9, 3.57294717582749*^9, 
   3.5729472831350203`*^9, 3.572947321651917*^9, 3.5729474383642683`*^9, {
   3.572947839368182*^9, 3.572947846236025*^9}, 3.572948108726459*^9, 
   3.572948911056984*^9, 3.57294899856343*^9, 3.572949184891408*^9, 
   3.572958040000052*^9, 3.5729583379752407`*^9, 3.5729585291984797`*^9, {
   3.572959799632053*^9, 3.572959823622876*^9}, 3.572961606728525*^9, 
   3.572961640114821*^9, 3.572963453874413*^9, 3.572964207147785*^9, 
   3.572972269793949*^9, 3.5729725223233023`*^9, 3.5729730349999723`*^9, {
   3.572974198162858*^9, 3.572974216756435*^9}, 3.572974462577463*^9, 
   3.5729768371631517`*^9, 3.5729769214218807`*^9, 3.572977100879889*^9, 
   3.57297717445295*^9, 3.5730202136304693`*^9, 3.5730232637881517`*^9, 
   3.573023470199483*^9, 3.5730235140495157`*^9, 3.573023544639061*^9, 
   3.573023620173677*^9, {3.5730242097001467`*^9, 3.573024255974186*^9}, 
   3.573025964604032*^9, 3.5730263197147293`*^9, 3.5730269180373077`*^9, 
   3.5730270315911617`*^9, 3.573028873807692*^9, 3.573109241902657*^9, 
   3.573109302730227*^9, 3.5731094515230093`*^9, 3.573110482266787*^9, 
   3.5731114587416563`*^9, 3.573111545839602*^9, 3.573113279239896*^9, 
   3.5731134227279*^9, 3.5731146803427258`*^9, 3.573115108052054*^9, 
   3.5731927752079067`*^9, 3.573193361998172*^9, 3.573194841320148*^9, 
   3.573195057413579*^9, 3.5731954033504457`*^9, 3.5731960047300997`*^9, 
   3.5731961526385937`*^9, 3.573196207927524*^9, 3.573196310649506*^9, 
   3.5732024366546297`*^9, 3.573202750549923*^9, 3.5732030712025967`*^9, 
   3.573203198898293*^9, 3.573203448026246*^9, 3.5732090491204863`*^9, 
   3.573209510647002*^9, 3.573209977021224*^9, 3.573210013624516*^9, 
   3.573210283338636*^9, 3.573210561204217*^9, 3.573211320566345*^9, 
   3.5732114562880697`*^9, 3.5732114928482943`*^9, 3.5732115265587*^9, 
   3.573211665767309*^9, 3.573211793597279*^9, 3.573212470326755*^9, 
   3.5732125226226683`*^9, 3.573213015377159*^9, 3.573213115963361*^9, 
   3.57321322446315*^9, {3.573213254778865*^9, 3.5732132763818913`*^9}, 
   3.5732141243305073`*^9, 3.5732149436288443`*^9, 3.573215089485924*^9, 
   3.573215659590494*^9, 3.573215693825733*^9, 3.573215927044107*^9, 
   3.573216051577552*^9, 3.573217401305863*^9, 3.573218142049231*^9, 
   3.573218199835778*^9, 3.573218321745974*^9, 3.573220845596572*^9, 
   3.5732212265156183`*^9, 3.573221652997238*^9, 3.573226228550088*^9, {
   3.5732740277418957`*^9, 3.573274054397147*^9}, 3.573274895731024*^9, 
   3.573274981656164*^9, 3.573275066939424*^9, 3.573275140134665*^9, 
   3.573275384676215*^9, 3.573275640809286*^9, 3.5732766175503387`*^9, {
   3.573276730576579*^9, 3.5732767420484324`*^9}, 3.573276814263893*^9, {
   3.573276844454195*^9, 3.573276880712778*^9}, 3.573276926583585*^9, 
   3.573277126172042*^9, 3.573277298922516*^9, 3.57327737166892*^9, 
   3.573277969679632*^9, 3.5732787102754297`*^9, {3.5732790435101757`*^9, 
   3.5732790695984917`*^9}, 3.5732795562462797`*^9, 3.573279605892664*^9, 
   3.57328013894715*^9, 3.573280328507654*^9, 3.573283665073875*^9, 
   3.5732837196072474`*^9, 3.5732838329161987`*^9, 3.5732839079845123`*^9, 
   3.5732884752828712`*^9, {3.573288550823885*^9, 3.573288563501153*^9}, 
   3.573289192049589*^9, 3.5732895494130707`*^9, 3.573313929440309*^9, 
   3.5733140214282637`*^9, 3.573314454950912*^9, 3.573318847459783*^9, 
   3.573319214601089*^9, 3.573320128725152*^9, 3.57336126350607*^9, 
   3.573361434135474*^9, 3.573362300724493*^9, 3.573362533255032*^9, 
   3.573366524950992*^9, 3.573368745795945*^9, 3.573368830514181*^9, 
   3.573368925908101*^9, 3.573379588281857*^9, 3.5733797230325117`*^9, 
   3.573400462673274*^9, 3.573400642893919*^9, 3.5734007225380087`*^9, 
   3.57340221502466*^9, 3.573407278017316*^9, {3.57344688037335*^9, 
   3.573446904262652*^9}, 3.573447088213879*^9, 3.573449487414783*^9, 
   3.5734495224497633`*^9, {3.5734503343024273`*^9, 3.573450340056548*^9}, 
   3.5734504317484083`*^9, {3.573450694796475*^9, 3.5734507183224907`*^9}, 
   3.573452272376585*^9, 3.573455511992703*^9, {3.573455749053522*^9, 
   3.573455769940455*^9}, 3.573458224842383*^9, 3.5734583383177567`*^9, 
   3.5734642446823*^9, {3.573464454317367*^9, 3.573464489058916*^9}, 
   3.5734647251528378`*^9, 3.5734647583353853`*^9, 3.573465141242918*^9, 
   3.5734652693972197`*^9, 3.573465303092626*^9, 3.5734653462561893`*^9, 
   3.573465760913785*^9, 3.57346582582467*^9, 3.573466085018671*^9, {
   3.573466451122753*^9, 3.573466471424945*^9}, 3.573466803397447*^9, 
   3.573466910896891*^9, 3.573467552036757*^9, 3.573467710253603*^9, 
   3.573468117290285*^9, 3.5734777634356117`*^9, 3.573477877309215*^9, 
   3.57348077595322*^9, 3.5734819335939913`*^9, 3.573482169482861*^9, 
   3.573482363911326*^9, 3.573482400935094*^9, 3.5734824314799633`*^9, {
   3.573482466366068*^9, 3.573482490156755*^9}, {3.57348252880863*^9, 
   3.5734825568134127`*^9}, 3.573482636954397*^9, 3.573487719158916*^9, 
   3.5734880451013517`*^9, 3.5734880907553167`*^9, 3.573488995764448*^9, 
   3.5734890604195232`*^9, 3.573489287227169*^9, 3.5734893626402683`*^9, 
   3.573489817954898*^9, 3.573490425913135*^9, 3.573491920315605*^9, 
   3.573492250403595*^9, 3.573492599598516*^9, 3.573493620436905*^9, 
   3.5734938631576557`*^9, 3.573502502827663*^9, 3.5735322955950537`*^9, 
   3.573535349672765*^9, 3.5735354899690104`*^9, {3.573535770595064*^9, 
   3.573535787518333*^9}, 3.573536853105756*^9, 3.573536970392372*^9, 
   3.573540399801723*^9, 3.5735404633384447`*^9, 3.5735405091600647`*^9, 
   3.573540648297225*^9, 3.5735407065566053`*^9, 3.5735429471133833`*^9, 
   3.573543412721047*^9, 3.573543591516922*^9, 3.573548202055263*^9, 
   3.57354839089454*^9, 3.573548525529546*^9, {3.573548587139925*^9, 
   3.573548657136573*^9}, 3.5735489024628687`*^9, 3.573551316776692*^9, 
   3.573552769839013*^9, 3.5735533062875223`*^9, 3.573555987499434*^9, 
   3.573557264637331*^9, 3.573633911560103*^9, 3.573635138680451*^9, 
   3.573635527438785*^9, {3.573638135051919*^9, 3.573638184525876*^9}, {
   3.573639212560646*^9, 3.5736392278364487`*^9}, 3.573640206308003*^9, 
   3.5736414883122597`*^9, 3.573641655741461*^9, 3.5736417326960707`*^9, 
   3.5736433520676622`*^9, 3.57364375433673*^9, 3.573644002102838*^9, 
   3.5736445011026363`*^9, 3.573647986953734*^9, 3.573706574155789*^9, 
   3.5737066596497593`*^9, 3.573706745398349*^9, 3.573709194022812*^9, 
   3.5737094331169558`*^9, 3.57371005216236*^9, 3.573726053158472*^9, 
   3.573726960019044*^9, 3.5737273186005297`*^9, 3.573727600993556*^9, 
   3.573731300568797*^9, 3.573731600953403*^9, 3.573731651844496*^9, 
   3.573740759628014*^9, 3.5737423128020687`*^9, 3.573764978047373*^9, 
   3.573766997230837*^9, 3.573797301646961*^9, 3.573798167376449*^9, 
   3.57379910142064*^9, 3.573800465371687*^9, 3.573802651296533*^9, 
   3.573805638272134*^9, 3.573818804029558*^9, 3.573820461979784*^9, 
   3.573821492579967*^9, {3.573821808669231*^9, 3.5738218319984503`*^9}, 
   3.573822016004904*^9, 3.5738221335583487`*^9, 3.573822375331985*^9, 
   3.573823202962435*^9, 3.573823269462912*^9, 3.573823777384337*^9, 
   3.573825344025301*^9, {3.573826321015649*^9, 3.573826341913556*^9}, 
   3.57382670541074*^9, 3.5738276077474813`*^9, 3.5738277899357157`*^9, 
   3.5738281348767357`*^9, 3.573829044449872*^9, 3.573829079610848*^9, {
   3.573829191967358*^9, 3.57382921976232*^9}, 3.573829768600721*^9, 
   3.573830559234329*^9, 3.573830687708754*^9, 3.573830727144417*^9, 
   3.573831057128312*^9, 3.5738313100037937`*^9, 3.5738316368007936`*^9, 
   3.573832068588632*^9, 3.5738324985536833`*^9, 3.573834288291807*^9, 
   3.573834822425886*^9, 3.573834898263822*^9, 3.573835137099482*^9, 
   3.573835304298787*^9, 3.573837220683352*^9, 3.573837291687365*^9, 
   3.573837354520029*^9, 3.573838117262892*^9, 3.573838228462448*^9, 
   3.5738382585822077`*^9, 3.573878232523604*^9, 3.573883332668129*^9, 
   3.5738836192807913`*^9, 3.5738836811997004`*^9, 3.573883878895355*^9, 
   3.5738841388385363`*^9, {3.5738851564897013`*^9, 3.573885184199044*^9}, 
   3.573885655010871*^9, 3.5738857994895372`*^9, 3.573886803356007*^9, 
   3.573888767937338*^9, 3.573888927468583*^9, 3.573889105346334*^9, 
   3.573889229668767*^9, 3.573892298094426*^9, 3.573892640217375*^9, 
   3.573893013997732*^9, 3.573894616073571*^9, 3.573895008109034*^9, 
   3.5738954208372707`*^9, 3.573909438926072*^9, {3.5739149366683807`*^9, 
   3.573914961059737*^9}, 3.573933191959835*^9, 3.5739671672357187`*^9, 
   3.573971802216951*^9, 3.5739729680991163`*^9, 3.573974444647676*^9, 
   3.573975181420455*^9, 3.573975271446114*^9, 3.573975665438293*^9, 
   3.573975778654847*^9, 3.573976390683998*^9, 3.5739776584155617`*^9, 
   3.5739782634013357`*^9, 3.573978577689497*^9, 3.573978739647047*^9, 
   3.573979987864295*^9, 3.573982677106209*^9, 3.573984415921842*^9, 
   3.5739847480860863`*^9, 3.5739849467821703`*^9, 3.5739851061940002`*^9, 
   3.573987265303865*^9, 3.57399112644847*^9, 3.574002898528319*^9, 
   3.5740074602113457`*^9, 3.574007824897691*^9, 3.5740502636295977`*^9, 
   3.5740596770804253`*^9, 3.574059920078785*^9, 3.574060066281632*^9, 
   3.574060193174326*^9, 3.574060769095365*^9, 3.574060892813283*^9, 
   3.574061688518195*^9, 3.5740618008374147`*^9, 3.574063383590761*^9, 
   3.5740635096323147`*^9, 3.574064190110961*^9, 3.574064422344757*^9, 
   3.574064751165637*^9, 3.574065057221424*^9, 3.5740658058588057`*^9, 
   3.574066352097025*^9, 3.574066438314496*^9, 3.574071817935763*^9, 
   3.574083129508658*^9, 3.5741400937602453`*^9, {3.574143725908095*^9, 
   3.574143754685957*^9}, 3.574143805348748*^9, {3.5744924657073174`*^9, 
   3.5744925473026*^9}, 3.574492788464405*^9, 3.57449397219783*^9, {
   3.574496160300297*^9, 3.574496185585038*^9}, 3.574525990816822*^9, 
   3.5750993664162273`*^9, 3.5753587615663557`*^9, 3.575359828544168*^9, 
   3.575369869875533*^9, 3.575370292521545*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"checkUnU0U2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"0", "==", 
       RowBox[{"unUed", "-", "unU0U"}]}], "//.", "genericAll"}], "//.", 
     "contractUV"}], "//.", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{"xx", ",", "xx"}], "]"}], "\[Rule]", "1"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.5667312261262693`*^9, 3.56673126645977*^9}, 
   3.56674079362986*^9, {3.566740947186952*^9, 3.566740954739209*^9}, {
   3.566800804152816*^9, 3.5668008068671827`*^9}, {3.56680860066822*^9, 
   3.5668086063963757`*^9}, 3.573975291490093*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{
   RowBox[{"varLook", "[", "unUed", "]"}], "//.", 
   RowBox[{
    RowBox[{"am", "[", "X_", "]"}], "\[Rule]", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.568894103659251*^9, 3.56889412443006*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"del", "[", 
    RowBox[{"xx", ",", "xx"}], "]"}], ",", 
   RowBox[{"Gc", "[", 
    RowBox[{"xx", ",", "xx"}], "]"}], ",", 
   RowBox[{"U", "[", "xx", "]"}], ",", 
   RowBox[{"V", "[", "xx", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.568894108403832*^9, 3.568894125439004*^9}, 
   3.568894531770192*^9, 3.56890082789603*^9, 3.568904115575848*^9, 
   3.568904844733676*^9, 3.568905730853941*^9, 3.568906012723782*^9, 
   3.568906185763083*^9, 3.568909365102577*^9, 3.568909400167576*^9, 
   3.56897346649046*^9, 3.568976681061861*^9, 3.568981189991419*^9, {
   3.568981239406262*^9, 3.568981273616908*^9}, 3.568981496668589*^9, 
   3.5689859414363623`*^9, 3.56899829114144*^9, 3.5689985195837812`*^9, 
   3.5689985870118504`*^9, 3.568998691971208*^9, 3.56900004462507*^9, 
   3.569002999528664*^9, 3.56904554160378*^9, 3.569045680925107*^9, 
   3.569046860966693*^9, 3.569050309609396*^9, 3.569051850487417*^9, 
   3.569053330011578*^9, 3.569054094887686*^9, 3.569054606688242*^9, 
   3.569055771973461*^9, 3.56906100875334*^9, 3.569061301902788*^9, 
   3.569065197173752*^9, 3.5690666467990627`*^9, 3.569067862373188*^9, 
   3.56907554243349*^9, 3.569077157527416*^9, 3.569077667523292*^9, 
   3.569077954435622*^9, 3.569080615266507*^9, 3.56908161121103*^9, 
   3.569082035812742*^9, 3.569082470963791*^9, 3.56913608589576*^9, 
   3.569136772411768*^9, 3.569136894090742*^9, 3.569137265366041*^9, 
   3.572937309856923*^9, 3.5729381888057947`*^9, 3.572939908634581*^9, 
   3.57294066236583*^9, 3.572940886011567*^9, 3.5729417210870943`*^9, 
   3.57294261666348*^9, 3.5729429987936163`*^9, 3.5729430993718023`*^9, 
   3.572943578420969*^9, 3.572945424449465*^9, 3.57294712004394*^9, 
   3.5729471759157753`*^9, 3.57294728333622*^9, 3.572947321738617*^9, 
   3.5729474384132023`*^9, {3.57294783953061*^9, 3.572947846307176*^9}, 
   3.572948108811893*^9, 3.5729489111417723`*^9, 3.572948998650828*^9, 
   3.5729491849450274`*^9, 3.5729580401035767`*^9, 3.572958338076301*^9, 
   3.572958529291005*^9, {3.572959799716055*^9, 3.572959823722213*^9}, 
   3.5729616068905287`*^9, 3.5729616402164917`*^9, 3.572963454201806*^9, 
   3.572964207450953*^9, 3.572972269842795*^9, 3.572972522341866*^9, 
   3.5729730350952682`*^9, {3.572974198242558*^9, 3.572974216844692*^9}, 
   3.57297446271805*^9, 3.572976837258562*^9, 3.5729769215123463`*^9, 
   3.572977100967005*^9, 3.5729771745483427`*^9, 3.5730202137272663`*^9, 
   3.573023263874449*^9, 3.5730234702858267`*^9, 3.573023514144341*^9, 
   3.5730235447281933`*^9, 3.573023620261263*^9, {3.573024209795128*^9, 
   3.573024256068177*^9}, 3.573025964704289*^9, 3.5730263198267183`*^9, 
   3.573026918471593*^9, 3.573027032109518*^9, 3.573028874041291*^9, 
   3.573109241961338*^9, 3.57310930283397*^9, 3.573109451608693*^9, 
   3.5731104824405813`*^9, 3.5731114590580683`*^9, 3.573111546018388*^9, 
   3.573113279309579*^9, 3.5731134229673023`*^9, 3.5731146804317007`*^9, 
   3.5731151081501503`*^9, 3.573192775335167*^9, 3.573193362093298*^9, 
   3.573194841404994*^9, 3.573195057613884*^9, 3.573195403447253*^9, 
   3.573196004776033*^9, 3.573196152737043*^9, 3.573196207943941*^9, 
   3.573196310767312*^9, 3.5732024367012167`*^9, 3.573202752543973*^9, 
   3.573203071305211*^9, 3.573203198994968*^9, 3.573203448101338*^9, 
   3.573209049217181*^9, 3.57320951077505*^9, 3.573209977080552*^9, 
   3.573210013711505*^9, 3.573210283419209*^9, 3.57321056157193*^9, 
   3.573211320721019*^9, 3.57321145649621*^9, 3.573211492992373*^9, 
   3.573211526641583*^9, 3.573211665865748*^9, 3.573211793678884*^9, 
   3.57321247041523*^9, 3.573212522707127*^9, 3.5732130153948317`*^9, 
   3.573213116093034*^9, 3.573213224486493*^9, {3.5732132548632393`*^9, 
   3.573213276471509*^9}, 3.573214124446086*^9, 3.573214943715178*^9, 
   3.573215089631404*^9, 3.5732156596831284`*^9, 3.5732156939226522`*^9, 
   3.5732159271350317`*^9, 3.573216051673647*^9, 3.573217401388071*^9, 
   3.573218142129727*^9, 3.573218199968322*^9, 3.573218321798382*^9, 
   3.573220845761977*^9, 3.573221226740493*^9, 3.573221653015656*^9, 
   3.5732262287638683`*^9, {3.573274027883532*^9, 3.5732740546027927`*^9}, 
   3.5732748960459023`*^9, 3.573274981948105*^9, 3.5732750670506763`*^9, 
   3.573275140363933*^9, 3.573275384767672*^9, 3.573275640900433*^9, 
   3.573276617653653*^9, {3.573276730671224*^9, 3.573276742089406*^9}, 
   3.573276814316882*^9, {3.573276844531849*^9, 3.5732768807315817`*^9}, 
   3.573276926604116*^9, 3.573277126219206*^9, 3.573277299002798*^9, 
   3.573277371766926*^9, 3.573277969760789*^9, 3.573278710352647*^9, {
   3.573279043609283*^9, 3.573279069690734*^9}, 3.5732795563417063`*^9, 
   3.5732796059651423`*^9, 3.573280138963971*^9, 3.573280328551127*^9, 
   3.573283665152115*^9, 3.5732837196749897`*^9, 3.5732838329592524`*^9, 
   3.573283908031714*^9, 3.573288475332335*^9, {3.573288550912024*^9, 
   3.57328856357865*^9}, 3.5732891921397753`*^9, 3.5732895495093412`*^9, 
   3.573313929491743*^9, 3.573314021482164*^9, 3.573314455034565*^9, 
   3.573318847545453*^9, 3.5733192147389803`*^9, 3.573320128860121*^9, 
   3.57336126359403*^9, 3.5733614342474546`*^9, 3.573362300807206*^9, 
   3.5733625333004007`*^9, 3.573366525050747*^9, 3.573368745877743*^9, 
   3.573368830593104*^9, 3.573368925989629*^9, 3.5733795883644133`*^9, 
   3.573379723221272*^9, 3.573400462754807*^9, 3.573400642981188*^9, 
   3.573400722847859*^9, 3.573402215460175*^9, 3.5734072780988894`*^9, {
   3.573446880460384*^9, 3.573446904345273*^9}, 3.5734470882974157`*^9, 
   3.573449487564603*^9, 3.573449522532983*^9, {3.573450334458934*^9, 
   3.573450340139469*^9}, 3.573450431948794*^9, {3.5734506949429407`*^9, 
   3.57345071855177*^9}, 3.573452272465046*^9, 3.573455512040881*^9, {
   3.573455749133463*^9, 3.573455769988327*^9}, 3.57345822492737*^9, 
   3.573458338399829*^9, 3.573464244803637*^9, {3.573464454525202*^9, 
   3.573464489259344*^9}, 3.573464725272629*^9, 3.573464758445249*^9, 
   3.573465141380156*^9, 3.573465269416238*^9, 3.5734653031582203`*^9, 
   3.5734653463034983`*^9, 3.573465761019836*^9, 3.573465825914961*^9, 
   3.573466085112805*^9, {3.5734664512125874`*^9, 3.573466471549486*^9}, 
   3.5734668034659767`*^9, 3.573466911012803*^9, 3.57346755208447*^9, 
   3.573467710358917*^9, 3.5734681174007397`*^9, 3.573477763525873*^9, 
   3.573477877435519*^9, 3.573480776063488*^9, 3.573481933674119*^9, 
   3.5734821695657673`*^9, 3.573482363999037*^9, 3.57348240102637*^9, 
   3.57348243162614*^9, {3.5734824664529047`*^9, 3.573482490358038*^9}, {
   3.573482528955214*^9, 3.573482557046729*^9}, 3.5734826370511208`*^9, 
   3.5734877192531137`*^9, 3.573488045202978*^9, 3.5734880908899803`*^9, 
   3.5734889958452377`*^9, 3.573489060516988*^9, 3.573489287244488*^9, 
   3.573489362719262*^9, 3.5734898180610323`*^9, 3.573490426007058*^9, 
   3.573491920397596*^9, 3.573492250690316*^9, 3.573492600016987*^9, 
   3.573493621436561*^9, 3.573493864166176*^9, 3.573502503792488*^9, 
   3.573532296498193*^9, 3.573535349753641*^9, 3.5735354899834642`*^9, {
   3.5735357706438103`*^9, 3.5735357875993977`*^9}, 3.5735368531839743`*^9, 
   3.573536970609901*^9, 3.573540399889242*^9, 3.573540463429076*^9, 
   3.573540509301579*^9, 3.573540648395197*^9, 3.5735407066473217`*^9, 
   3.573542947431754*^9, 3.5735434128837137`*^9, 3.573543591630765*^9, 
   3.5735482039257307`*^9, 3.573548392720776*^9, 3.573548525631365*^9, {
   3.573548587213852*^9, 3.5735486575394363`*^9}, 3.57354890411754*^9, 
   3.573551317514061*^9, 3.57355276992071*^9, 3.5735533134477262`*^9, 
   3.5735559952303457`*^9, 3.573557271459886*^9, 3.573633911624757*^9, 
   3.573635139354231*^9, 3.573635528093549*^9, {3.5736381351445513`*^9, 
   3.57363818475242*^9}, {3.573639212647891*^9, 3.573639228099225*^9}, 
   3.573640206391202*^9, 3.5736414884296103`*^9, 3.573641655837574*^9, 
   3.573641732769972*^9, 3.5736433522095423`*^9, 3.5736437546270447`*^9, 
   3.573644002626034*^9, 3.5736445015975733`*^9, 3.5736479873930893`*^9, 
   3.573706574404685*^9, 3.573709194161018*^9, 3.573709433403892*^9, 
   3.5737100525121393`*^9, 3.5737260550809107`*^9, 3.573726960083852*^9, 
   3.5737273186921997`*^9, 3.5737276012796383`*^9, 3.57373130095509*^9, 
   3.5737316009997873`*^9, 3.573731653053176*^9, 3.573740761718998*^9, 
   3.5737423131546288`*^9, 3.5737649789492607`*^9, 3.573766997512506*^9, 
   3.573797302820956*^9, 3.5737981681488237`*^9, 3.573799102280528*^9, 
   3.573800466377061*^9, 3.573802652465859*^9, 3.573805639568336*^9, 
   3.573818806493268*^9, 3.573820464654694*^9, 3.573821492688138*^9, {
   3.573821808874325*^9, 3.57382183224573*^9}, 3.573822016409257*^9, 
   3.5738221339232597`*^9, 3.5738223756845837`*^9, 3.5738232035936623`*^9, 
   3.5738232701283703`*^9, 3.573823778060121*^9, 3.573825346504484*^9, {
   3.5738263210873213`*^9, 3.57382634202698*^9}, 3.573826705784213*^9, 
   3.573827608102013*^9, 3.5738277903416567`*^9, 3.5738281352578907`*^9, 
   3.573829044539157*^9, 3.573829079704206*^9, {3.573829192051133*^9, 
   3.573829219779223*^9}, 3.573829768687372*^9, 3.573830559311295*^9, 
   3.5738306879933157`*^9, 3.5738307273578672`*^9, 3.573831057442562*^9, 
   3.573831310099413*^9, 3.573831636889638*^9, 3.573832068686249*^9, 
   3.573832498638465*^9, 3.573834288374061*^9, 3.573834822590686*^9, 
   3.573834898345523*^9, 3.573835137203637*^9, 3.573835305381618*^9, 
   3.5738372211401243`*^9, 3.5738372918928547`*^9, 3.5738373562944613`*^9, 
   3.573838118007814*^9, 3.573838228681939*^9, 3.573838258928872*^9, 
   3.5738782442014523`*^9, 3.5738833328886766`*^9, 3.573883619356736*^9, 
   3.573883681276916*^9, 3.573883879124606*^9, 3.573884138919435*^9, {
   3.5738851566387873`*^9, 3.573885184367565*^9}, 3.573885655098157*^9, 
   3.573885799574608*^9, 3.573886804335497*^9, 3.573888768177804*^9, 
   3.573888927562295*^9, 3.5738891054321938`*^9, 3.573889229820265*^9, 
   3.5738922986609497`*^9, 3.573892640480279*^9, 3.573893014338501*^9, 
   3.573894622259472*^9, 3.573895009362031*^9, 3.5738954219488792`*^9, 
   3.5739094478962*^9, 3.5739149434411488`*^9, 3.573933197195225*^9, 
   3.5739671803149233`*^9, 3.573971802678112*^9, 3.573972975325468*^9, 
   3.573974450358501*^9, 3.573975185162086*^9, 3.5739753012295837`*^9, 
   3.57397566577214*^9, 3.573975778941811*^9, 3.5739763912163773`*^9, 
   3.573977658830846*^9, 3.573978263448042*^9, 3.573978578026441*^9, 
   3.573978739939417*^9, 3.573979988083375*^9, 3.573982678871539*^9, 
   3.573984416687052*^9, 3.5739847484561167`*^9, 3.573984947080864*^9, 
   3.573985106245894*^9, 3.573987265675322*^9, 3.573991131967725*^9, 
   3.574002898798346*^9, 3.574007460402842*^9, 3.574007825084791*^9, 
   3.5740502758653193`*^9, 3.574059677218046*^9, 3.574059920345933*^9, 
   3.574060066428039*^9, 3.574060194354905*^9, 3.574060772368196*^9, 
   3.5740608930514803`*^9, 3.574061688755682*^9, 3.5740618012699413`*^9, 
   3.574063386881452*^9, 3.574063509848336*^9, 3.574064190296794*^9, 
   3.574064422805066*^9, 3.574064751612865*^9, 3.574065057699883*^9, 
   3.574065806087297*^9, 3.574066352538807*^9, 3.574066438769059*^9, 
   3.5740718199641657`*^9, 3.574083129565394*^9, 3.574140099054641*^9, {
   3.574143725974689*^9, 3.574143754880116*^9}, 3.574143806404542*^9, {
   3.5744924657598763`*^9, 3.574492547354896*^9}, 3.574492788507913*^9, 
   3.574493972297863*^9, {3.574496160353222*^9, 3.574496185743092*^9}, 
   3.574526003259701*^9, 3.575099366435587*^9, 3.575358761597002*^9, 
   3.57535982858679*^9, 3.575369869922799*^9, 3.575370292546981*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dumb", "=", 
   RowBox[{"unUed", "//.", 
    RowBox[{
     RowBox[{"am", "[", "X_", "]"}], "\[Rule]", "1"}]}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"dumVars", "=", 
  RowBox[{"Intersection", "[", 
   RowBox[{"dumVEC", ",", 
    RowBox[{"varlookFunction", "[", "dumb", "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"extVars", "=", 
  RowBox[{"Intersection", "[", 
   RowBox[{"extVAR", ",", 
    RowBox[{"varlookFunction", "[", "dumb", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.575369945046481*^9, 3.575370032751964*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"zum1", ",", "zum2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.57536995185505*^9, {3.575369987357128*^9, 3.575370034316038*^9}, 
   3.5753702925673647`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]], "Output",
 CellChangeTimes->{
  3.57536995185505*^9, {3.575369987357128*^9, 3.575370034316038*^9}, 
   3.575370292570163*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "dumVars", "]"}], "<", "9"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsD", "=", 
      RowBox[{"Permutations", "[", "dumVars", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"perms", ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"permsD", "[", 
             RowBox[{"[", "ii", "]"}], "]"}], "}"}], ",", "1"}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.566453553217484*^9, 3.566453559447385*^9}, {
   3.566453607840562*^9, 3.56645360951645*^9}, {3.566454166781165*^9, 
   3.566454186954534*^9}, {3.56645596295844*^9, 3.566455963262384*^9}, {
   3.566728646286663*^9, 3.566728671510144*^9}, {3.56681398288269*^9, 
   3.566814021380763*^9}, {3.566814072332807*^9, 3.5668140761976843`*^9}, 
   3.566815857472272*^9, {3.566815897385008*^9, 3.5668159089962873`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "dumb", "]"}], ",", 
   RowBox[{"Length", "[", "perms", "]"}], ",", "vartot"}], "}"}]], "Input",
 CellChangeTimes->{{3.5668162047128267`*^9, 3.5668162105586977`*^9}, {
  3.5670703007250023`*^9, 3.5670703041536417`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "2", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5668162120642843`*^9, 3.56681717919237*^9, 3.5668184608768272`*^9, 
   3.566819121855217*^9, {3.566819403317864*^9, 3.566819431959525*^9}, 
   3.566819539248521*^9, {3.566820664394114*^9, 3.5668206909879627`*^9}, {
   3.5669056344583883`*^9, 3.566905663530696*^9}, {3.566909192939865*^9, 
   3.566909212173389*^9}, {3.566909242248906*^9, 3.566909267844926*^9}, 
   3.566910550518409*^9, 3.566911743482678*^9, 3.566912291909853*^9, 
   3.566912738184906*^9, 3.566913705822315*^9, 3.566919557966271*^9, {
   3.5669196284646883`*^9, 3.5669196832896976`*^9}, {3.5669198551118183`*^9, 
   3.566919877554406*^9}, 3.566919936131144*^9, {3.566920185743259*^9, 
   3.56692021178755*^9}, 3.5669202988245897`*^9, {3.566920526634253*^9, 
   3.566920556021675*^9}, 3.566920616852064*^9, {3.566920891183673*^9, 
   3.566920912634478*^9}, {3.566920967309914*^9, 3.566920990671735*^9}, 
   3.566921052789402*^9, {3.566921448156314*^9, 3.5669214731897078`*^9}, 
   3.5669215086277733`*^9, {3.566922254243062*^9, 3.566922291256112*^9}, {
   3.5669224411062326`*^9, 3.566922477556472*^9}, {3.566923083532984*^9, 
   3.566923114798777*^9}, {3.566923184936473*^9, 3.5669232015933113`*^9}, {
   3.566925164594838*^9, 3.5669252029894133`*^9}, {3.566925275715769*^9, 
   3.566925294281979*^9}, {3.566925361633781*^9, 3.566925379764408*^9}, {
   3.5669259980912848`*^9, 3.566926036361766*^9}, {3.56692607789297*^9, 
   3.566926085412977*^9}, 3.566926139181719*^9, {3.5669262543858557`*^9, 
   3.566926263720937*^9}, 3.566926350527874*^9, {3.566926462948505*^9, 
   3.566926469982436*^9}, 3.566926527001643*^9, {3.566926662510056*^9, 
   3.56692667019593*^9}, 3.56692673142797*^9, {3.566926902698633*^9, 
   3.56692690848617*^9}, 3.566926946801635*^9, {3.5669270550703163`*^9, 
   3.566927079925063*^9}, {3.566927159585074*^9, 3.566927179083976*^9}, {
   3.566927591057406*^9, 3.5669276444726753`*^9}, {3.566927686653006*^9, 
   3.566927695382573*^9}, 3.566927748640525*^9, {3.566927866440134*^9, 
   3.5669278746763887`*^9}, 3.56692794819798*^9, {3.5669281181960897`*^9, 
   3.566928125287319*^9}, 3.566928172044964*^9, {3.566928326285028*^9, 
   3.566928332462801*^9}, 3.5669283774743357`*^9, {3.566928588744604*^9, 
   3.5669286144757023`*^9}, {3.566928728402067*^9, 3.566928741082672*^9}, {
   3.566928817095496*^9, 3.566928827270805*^9}, {3.566943129804966*^9, 
   3.566943151879869*^9}, 3.5669433003246717`*^9, 3.566944024215119*^9, 
   3.566945552311675*^9, 3.5669456318467607`*^9, 3.566948214578628*^9, 
   3.566994076145659*^9, 3.5670152013362627`*^9, 3.56702181864088*^9, 
   3.567021908910029*^9, 3.567028234906486*^9, 3.567058380860866*^9, 
   3.567069025194109*^9, 3.5670691034649477`*^9, 3.567070221624408*^9, 
   3.567073192094699*^9, 3.567073253893157*^9, 3.567074114278401*^9, {
   3.567079249536703*^9, 3.567079272789109*^9}, 3.567079943243606*^9, 
   3.567089470524653*^9, {3.56709205337074*^9, 3.567092073749111*^9}, 
   3.567092141525877*^9, {3.5670926680788383`*^9, 3.567092708664482*^9}, {
   3.567108370177232*^9, 3.5671083914324083`*^9}, 3.567108477529644*^9, 
   3.567108666397251*^9, 3.567108734198101*^9, 3.567109523552484*^9, 
   3.567110269625445*^9, 3.5671103424483967`*^9, 3.5671114225484037`*^9, 
   3.567114525879079*^9, 3.567114597365656*^9, 3.567115768040606*^9, 
   3.567115987953333*^9, 3.567116904103001*^9, 3.567116962476829*^9, 
   3.5671177934457493`*^9, {3.567122390083941*^9, 3.567122417635491*^9}, 
   3.567122685841758*^9, {3.567124940785139*^9, 3.567124951252294*^9}, 
   3.567125019502407*^9, {3.56712544636616*^9, 3.567125472053507*^9}, 
   3.567162809756112*^9, 3.567243704022346*^9, 3.567243736141315*^9, 
   3.567245520920932*^9, 3.567250899156649*^9, 3.56725335700861*^9, 
   3.567253522922451*^9, 3.567253775374758*^9, {3.567253919245234*^9, 
   3.5672540103462467`*^9}, {3.567254059673905*^9, 3.5672540946749973`*^9}, {
   3.567254154666918*^9, 3.567254175755485*^9}, {3.5672545896996307`*^9, 
   3.567254625512501*^9}, {3.567254716375533*^9, 3.5672547354292107`*^9}, {
   3.5672600974053288`*^9, 3.567260134466467*^9}, {3.567260197471521*^9, 
   3.567260207329595*^9}, {3.567261133643318*^9, 3.56726120381183*^9}, {
   3.567261234284349*^9, 3.5672613085490313`*^9}, {3.567261357612101*^9, 
   3.567261383757043*^9}, {3.567261448395509*^9, 3.5672614644908447`*^9}, {
   3.567261513332464*^9, 3.567261524822484*^9}, {3.567261555209161*^9, 
   3.567261562370286*^9}, 3.567266628575776*^9, 3.5672669494296703`*^9, {
   3.567267104527607*^9, 3.567267227120983*^9}, {3.5672672599563723`*^9, 
   3.5672672803069973`*^9}, 3.567268518578887*^9, 3.5672686422255783`*^9, 
   3.5672687536885767`*^9, 3.567268911067954*^9, 3.5672689758457193`*^9, {
   3.567269280652598*^9, 3.567269365354261*^9}, {3.567269448642769*^9, 
   3.567269455877563*^9}, 3.56726954660858*^9, 3.567270320596263*^9, {
   3.567270916077742*^9, 3.5672709227551203`*^9}, 3.567270998811184*^9, 
   3.5672718135084553`*^9, {3.56727327073812*^9, 3.567273286662468*^9}, {
   3.567274752798568*^9, 3.567274813988681*^9}, {3.567274889254903*^9, 
   3.567274922218534*^9}, {3.567274985680791*^9, 3.567275017383339*^9}, {
   3.5672751193349857`*^9, 3.567275149555522*^9}, {3.5672752249233027`*^9, 
   3.567275238706914*^9}, {3.567275359040538*^9, 3.567275390419717*^9}, 
   3.567321210806202*^9, 3.567321758819571*^9, 3.5673218455934067`*^9, {
   3.567322013853517*^9, 3.567322027487421*^9}, 3.567322134147464*^9, {
   3.567322188556226*^9, 3.567322201640469*^9}, {3.5673222411547203`*^9, 
   3.567322253514876*^9}, {3.567322290125819*^9, 3.567322335605823*^9}, 
   3.567326844243165*^9, {3.567326927088352*^9, 3.5673269381674023`*^9}, {
   3.567327394183237*^9, 3.567327406614603*^9}, 3.5673303300681257`*^9, 
   3.567331021733755*^9, 3.567331098173397*^9, 3.567331281585146*^9, 
   3.567331337905719*^9, 3.567331629230743*^9, 3.56733189523207*^9, 
   3.567332174069828*^9, 3.567332538649016*^9, {3.5673329931966343`*^9, 
   3.567333009624908*^9}, 3.567333634747963*^9, 3.5673345099198713`*^9, 
   3.5673346090640078`*^9, 3.5673346823964643`*^9, 3.5673380257960787`*^9, 
   3.56733810578618*^9, 3.567338503182472*^9, 3.567338892181896*^9, 
   3.5673389883924303`*^9, 3.567339091581238*^9, {3.5673395422296963`*^9, 
   3.5673395826061897`*^9}, {3.56733974462149*^9, 3.567339770130101*^9}, {
   3.567339864347825*^9, 3.56733989592307*^9}, {3.567339998170946*^9, 
   3.567340033344307*^9}, {3.567340231472645*^9, 3.567340266279253*^9}, {
   3.567340431526988*^9, 3.5673404657707777`*^9}, {3.567340591330076*^9, 
   3.567340624558475*^9}, 3.5673412102199907`*^9, {3.56734142909905*^9, 
   3.5673415408159933`*^9}, {3.567341574626598*^9, 3.567341590026619*^9}, {
   3.567341646342002*^9, 3.567341661123782*^9}, {3.567341739841229*^9, 
   3.567341753886386*^9}, {3.5673418454822474`*^9, 3.567341856381241*^9}, {
   3.567343419398264*^9, 3.567343488195031*^9}, {3.56734354271968*^9, 
   3.567343568733398*^9}, {3.567343600606024*^9, 3.5673436152423277`*^9}, {
   3.567343670313878*^9, 3.5673436851633863`*^9}, {3.567343763156074*^9, 
   3.567343777722588*^9}, {3.567343873808865*^9, 3.567343885737199*^9}, {
   3.567345477563037*^9, 3.5673454993876657`*^9}, {3.567345554711733*^9, 
   3.567345574329458*^9}, {3.567345633631905*^9, 3.567345694981271*^9}, {
   3.567345819960644*^9, 3.56734586973778*^9}, {3.5673464257375793`*^9, 
   3.5673465475598583`*^9}, {3.5673465972690067`*^9, 3.567346619246086*^9}, {
   3.567346703288287*^9, 3.567346733459736*^9}, {3.567346837509274*^9, 
   3.567346853079829*^9}, {3.567346971431539*^9, 3.5673470065029173`*^9}, {
   3.5673479683220654`*^9, 3.567347988980847*^9}, {3.567348039397493*^9, 
   3.567348134986004*^9}, {3.567348170856552*^9, 3.56734818992819*^9}, {
   3.5673482485188007`*^9, 3.567348267642708*^9}, {3.567354568525661*^9, 
   3.567354599040338*^9}, {3.5673547704389973`*^9, 3.56735479672077*^9}, {
   3.567354889966888*^9, 3.567354921381674*^9}, {3.567354992174738*^9, 
   3.567355027604727*^9}, {3.567355179246367*^9, 3.567355222728784*^9}, {
   3.567355371735187*^9, 3.5673554081698008`*^9}, {3.567355899695179*^9, 
   3.567355972990851*^9}, {3.567356016281024*^9, 3.567356046629058*^9}, {
   3.567356095711874*^9, 3.567356108510013*^9}, {3.56735622503498*^9, 
   3.567356259177066*^9}, {3.5673563540236177`*^9, 3.56735639598575*^9}, {
   3.567356500487143*^9, 3.567356515327548*^9}, {3.567356761532564*^9, 
   3.567356799403556*^9}, 3.5673592378149433`*^9, 3.567359816823637*^9, 
   3.5673601401003304`*^9, 3.567360189958659*^9, 3.567360267201336*^9, {
   3.567360665535014*^9, 3.5673607643677397`*^9}, {3.567360802323997*^9, 
   3.567360822330698*^9}, {3.567360907093317*^9, 3.567360934321409*^9}, {
   3.567361052720623*^9, 3.567361085365286*^9}, {3.567361195445809*^9, 
   3.567361232581143*^9}, {3.5673613668353024`*^9, 3.567361399705271*^9}, {
   3.5673615462403593`*^9, 3.567361577322617*^9}, {3.567408893334869*^9, 
   3.567408915999674*^9}, {3.567408955908607*^9, 3.567408979599757*^9}, {
   3.567409026505774*^9, 3.567409050654491*^9}, {3.567409703312066*^9, 
   3.5674097691985893`*^9}, {3.567409802330011*^9, 3.567409872343568*^9}, {
   3.567409990353109*^9, 3.567410013239264*^9}, {3.567410171410317*^9, 
   3.5674101924031754`*^9}, {3.567410294821659*^9, 3.5674103184672947`*^9}, {
   3.567410538461265*^9, 3.567410604945339*^9}, {3.5674111043105183`*^9, 
   3.567411133966364*^9}, {3.56743407021597*^9, 3.567434162774868*^9}, {
   3.567462095079939*^9, 3.567462120477409*^9}, {3.5674621511591997`*^9, 
   3.5674621777248077`*^9}, 3.567462228667758*^9, {3.567462324450396*^9, 
   3.567462328435357*^9}, 3.567462363809675*^9, 3.567462729876782*^9, {
   3.5674652434431562`*^9, 3.5674652469850683`*^9}, 3.567465290738896*^9, 
   3.567466005196513*^9, {3.567583548675583*^9, 3.5675835530553617`*^9}, 
   3.567583663219264*^9, 3.567586729753152*^9, 3.567616536975836*^9, {
   3.56762237635217*^9, 3.567622378761208*^9}, 3.567622479266218*^9, 
   3.567625506375732*^9, {3.567681819305749*^9, 3.567681820477827*^9}, 
   3.5676818737071047`*^9, 3.5676835007313433`*^9, {3.5677069491271772`*^9, 
   3.567706969024744*^9}, 3.567707384335452*^9, {3.5677168401736937`*^9, 
   3.567716853582453*^9}, 3.567716954683804*^9, {3.567718756279848*^9, 
   3.567718768269896*^9}, {3.567719010679454*^9, 3.567719042776544*^9}, {
   3.567719156900132*^9, 3.5677191845085382`*^9}, {3.5677671260684*^9, 
   3.567767227333243*^9}, {3.567770122552294*^9, 3.5677701467586527`*^9}, {
   3.5677703659296837`*^9, 3.567770402721389*^9}, 3.567770518872593*^9, {
   3.567770802292943*^9, 3.5677708270971622`*^9}, 3.567770925093404*^9, 
   3.567776994917232*^9, 3.5677778349175367`*^9, 3.567778020822177*^9, {
   3.567778751786543*^9, 3.567778777931102*^9}, 3.56777882601655*^9, 
   3.5677788786882887`*^9, 3.5677792079300213`*^9, 3.5677793344611473`*^9, {
   3.567779436020067*^9, 3.567779446805311*^9}, {3.567780049114904*^9, 
   3.567780083714304*^9}, {3.5677801301954203`*^9, 3.567780180091*^9}, 
   3.567780254797764*^9, {3.5677804184867563`*^9, 3.567780439578244*^9}, 
   3.5677805260210342`*^9, {3.56778070930479*^9, 3.5677807414815187`*^9}, {
   3.567780831847851*^9, 3.567780837042728*^9}, 3.567780929964756*^9, 
   3.567781162671289*^9, {3.567782471794586*^9, 3.5677824728369102`*^9}, 
   3.567782544522983*^9, 3.567782998708014*^9, 3.567787559779862*^9, 
   3.567787733045388*^9, {3.567787891723341*^9, 3.567787915637123*^9}, {
   3.567788265569086*^9, 3.567788270480688*^9}, 3.567788512698266*^9, 
   3.567789163987493*^9, 3.567789231120235*^9, 3.567789293475525*^9, 
   3.5677893429970713`*^9, 3.5677893822738743`*^9, 3.567789428933567*^9, 
   3.567789483198049*^9, 3.5677895359451427`*^9, 3.567789585961253*^9, 
   3.5677896769811773`*^9, 3.567789727688966*^9, 3.567789775260326*^9, 
   3.5677900345115767`*^9, 3.567790139111683*^9, 3.567790240674383*^9, 
   3.56779028635207*^9, 3.567790344544248*^9, 3.567790420576331*^9, 
   3.567790462184325*^9, 3.567790506293416*^9, 3.567790539908505*^9, 
   3.567790570507925*^9, 3.5677906264072*^9, 3.567790672945834*^9, 
   3.567792769695725*^9, {3.5677928790376577`*^9, 3.56779290681441*^9}, {
   3.567792961617029*^9, 3.5677929791892643`*^9}, 3.567793091552594*^9, 
   3.567793149571384*^9, 3.567793208684273*^9, 3.5677932532538347`*^9, 
   3.567793294318985*^9, 3.5677933535069733`*^9, 3.567793389261154*^9, 
   3.5677940190276337`*^9, {3.5677970692476273`*^9, 3.567797103053948*^9}, {
   3.567797161873361*^9, 3.567797190500979*^9}, {3.5677972765857286`*^9, 
   3.567797308852276*^9}, {3.567797612045541*^9, 3.567797647080958*^9}, {
   3.567797758838745*^9, 3.567797785367836*^9}, {3.567797877744543*^9, 
   3.567797904612114*^9}, {3.567840171667239*^9, 3.5678403667204103`*^9}, {
   3.567840416623369*^9, 3.567840428431628*^9}, {3.567847153900008*^9, 
   3.567847249719548*^9}, {3.567847528325161*^9, 3.567847532360775*^9}, 
   3.567847575021583*^9, 3.567847726093383*^9, {3.5678480995826797`*^9, 
   3.567848103585453*^9}, 3.5678481457995243`*^9, 3.5678483141947193`*^9, {
   3.567848766087099*^9, 3.5678487844115477`*^9}, 3.567848853135207*^9, 
   3.567851098416328*^9, {3.5678512897771673`*^9, 3.567851322998949*^9}, 
   3.567851416742097*^9, 3.5678515696500463`*^9, {3.567851946297553*^9, 
   3.5678519520918837`*^9}, 3.567852061884944*^9, 3.56785242340061*^9, {
   3.567853039390182*^9, 3.567853044428555*^9}, 3.567853105748865*^9, 
   3.5678534022411327`*^9, {3.567853937399452*^9, 3.5678539664632273`*^9}, 
   3.567854083040266*^9, 3.567859111360757*^9, 3.567868899537785*^9, 
   3.567878069108534*^9, 3.567878991456904*^9, 3.567880717636815*^9, 
   3.5678812007034407`*^9, 3.567881297607424*^9, 3.567927326348978*^9, 
   3.5679274438422127`*^9, 3.5679299569793158`*^9, 3.5679306369953537`*^9, 
   3.567934671041717*^9, 3.5679372224327927`*^9, 3.567938866135858*^9, 
   3.567939102069663*^9, 3.567942889159666*^9, {3.5679432855391817`*^9, 
   3.567943322505575*^9}, {3.567943412498727*^9, 3.567943449805983*^9}, {
   3.567944376227157*^9, 3.567944420680338*^9}, 3.567945331348351*^9, {
   3.5679454628124027`*^9, 3.567945482929388*^9}, 3.567946212720496*^9, {
   3.567946333433519*^9, 3.5679463816253242`*^9}, 3.5679468755744047`*^9, 
   3.567946915199911*^9, 3.5679489222169333`*^9, 3.567960179426153*^9, 
   3.5679604506108227`*^9, {3.5679607977298813`*^9, 3.567960826406241*^9}, 
   3.567961332090406*^9, {3.567961368769999*^9, 3.5679613947628517`*^9}, {
   3.567961486636779*^9, 3.567961513350115*^9}, {3.567961616615511*^9, 
   3.5679616411708727`*^9}, {3.567961716453559*^9, 3.567961742050507*^9}, {
   3.567961811255354*^9, 3.567961838196517*^9}, {3.567961931197836*^9, 
   3.567961956662216*^9}, 3.567962083916471*^9, 3.567964396071115*^9, 
   3.56796503216623*^9, {3.567965157367332*^9, 3.5679652349335947`*^9}, {
   3.5679652754452257`*^9, 3.567965303706603*^9}, {3.567965351791346*^9, 
   3.5679653812204647`*^9}, {3.5679654531259727`*^9, 3.567965481831236*^9}, {
   3.5679655436972427`*^9, 3.5679655594102097`*^9}, 3.567965715082361*^9, {
   3.567967778506022*^9, 3.567967797341166*^9}, 3.568007639561219*^9, 
   3.568007863690898*^9, {3.5680079851216717`*^9, 3.5680080112934933`*^9}, {
   3.5680080416339283`*^9, 3.56800806867277*^9}, {3.56800812527588*^9, 
   3.5680081526267433`*^9}, {3.568008193802814*^9, 3.56800822239539*^9}, {
   3.568008278238607*^9, 3.568008289915097*^9}, {3.568008356580278*^9, 
   3.568008367367599*^9}, 3.568008560153531*^9, 3.568012449506377*^9, {
   3.5680126586281843`*^9, 3.568012682825186*^9}, {3.568012713363433*^9, 
   3.568012738532209*^9}, {3.5680127811758966`*^9, 3.568012805842267*^9}, {
   3.568012900984003*^9, 3.5680129281583776`*^9}, {3.568013030137541*^9, 
   3.568013058621654*^9}, {3.568013159844946*^9, 3.5680131864016943`*^9}, 
   3.568013314553885*^9, 3.568013872798476*^9, 3.568015248397155*^9, 
   3.568015967340057*^9, 3.5680165382655077`*^9, 3.56801695162642*^9, 
   3.56801709523104*^9, {3.568017201159872*^9, 3.5680172299363737`*^9}, {
   3.56801726178506*^9, 3.568017291404214*^9}, {3.568017329862721*^9, 
   3.5680173599562798`*^9}, {3.568017413367206*^9, 3.568017446771462*^9}, {
   3.568017514882675*^9, 3.5680175456867437`*^9}, {3.568017621468731*^9, 
   3.568017651832231*^9}, 3.56801775457054*^9, 3.5680192330860577`*^9, 
   3.568019510151943*^9, 3.5680195787940207`*^9, 3.5680214006149893`*^9, 
   3.568022467964943*^9, 3.56802258163369*^9, 3.568022979616561*^9, 
   3.56802313034824*^9, {3.568023248484503*^9, 3.56802327878236*^9}, {
   3.568023330977809*^9, 3.568023358185864*^9}, {3.568023411527472*^9, 
   3.568023443344467*^9}, {3.568023528778182*^9, 3.568023564740587*^9}, {
   3.568023640578066*^9, 3.5680236696537848`*^9}, {3.568023773770241*^9, 
   3.568023808136566*^9}, 3.5680240598771963`*^9, {3.5680276259427547`*^9, 
   3.5680276593303337`*^9}, {3.568027713741337*^9, 3.56802772117235*^9}, {
   3.568029381485929*^9, 3.568029391555655*^9}, {3.568029490175137*^9, 
   3.568029571628561*^9}, {3.568029611468431*^9, 3.568029638815201*^9}, {
   3.5680297038888607`*^9, 3.568029735324445*^9}, {3.568029807399969*^9, 
   3.56802983855088*^9}, {3.568029921627676*^9, 3.5680299499394493`*^9}, {
   3.568039099892408*^9, 3.568039120553887*^9}, {3.568039690714184*^9, 
   3.5680397321854353`*^9}, 3.5680401429445057`*^9, {3.568041382827935*^9, 
   3.568041407164023*^9}, {3.56804144108357*^9, 3.568041466791855*^9}, {
   3.568041503780198*^9, 3.5680415495012283`*^9}, {3.568041601280238*^9, 
   3.568041651370122*^9}, {3.568041717783764*^9, 3.5680417695041857`*^9}, {
   3.568041849414069*^9, 3.568041896508339*^9}, 3.568041970106543*^9, {
   3.5680427941131487`*^9, 3.5680429456897507`*^9}, {3.568042990763513*^9, 
   3.568043043113079*^9}, {3.568043096765321*^9, 3.568043140440363*^9}, 
   3.5680432079136467`*^9, {3.5680432517624826`*^9, 3.568043280166523*^9}, 
   3.568043341037354*^9, 3.568128783232945*^9, 3.568128833252986*^9, 
   3.568133238681218*^9, 3.568136888864437*^9, {3.5681369882050962`*^9, 
   3.568137067657639*^9}, {3.568137113356576*^9, 3.568137140067718*^9}, {
   3.568137205899501*^9, 3.568137238412719*^9}, {3.568137352328883*^9, 
   3.5681373834731617`*^9}, {3.568137539820416*^9, 3.568137567057086*^9}, 
   3.568137789715311*^9, 3.568140069878186*^9, 3.568143222173031*^9, 
   3.568276736823151*^9, 3.568277022012569*^9, 3.568277343694331*^9, 
   3.5682777405891533`*^9, {3.568277783065414*^9, 3.568277810049124*^9}, 
   3.568278014453268*^9, 3.568278061113467*^9, 3.568278139660719*^9, 
   3.56827837098451*^9, 3.568278499239931*^9, 3.568287563644663*^9, 
   3.568288806456913*^9, 3.568302263811358*^9, 3.5683262443305264`*^9, 
   3.568371236841346*^9, 3.568372368194909*^9, 3.56837325214858*^9, 
   3.5683762930434017`*^9, 3.56837642069244*^9, 3.568376961075465*^9, 
   3.56837779907169*^9, 3.568379398382172*^9, 3.5683818461188726`*^9, 
   3.5683821150195913`*^9, 3.5683827026417723`*^9, 3.5683874070422497`*^9, 
   3.568396055890492*^9, 3.568396100649435*^9, 3.568443085177148*^9, 
   3.568443246719162*^9, 3.5684442961441174`*^9, 3.56844438695354*^9, 
   3.568444446228446*^9, 3.5684444866893272`*^9, 3.568444596351021*^9, 
   3.5684457862462177`*^9, {3.568446286214285*^9, 3.568446306080062*^9}, 
   3.568448289823155*^9, 3.568448605659412*^9, 3.5684488823971233`*^9, 
   3.568452935044132*^9, 3.56848104051361*^9, 3.568481280260744*^9, 
   3.5684813978036957`*^9, 3.568539741343522*^9, 3.568539802919621*^9, 
   3.5685418266400414`*^9, 3.568544320930666*^9, 3.568549406594137*^9, 
   3.56854945767106*^9, 3.568552694977049*^9, 3.5685573536904*^9, 
   3.568557463719298*^9, 3.568557500904262*^9, 3.568557554795163*^9, 
   3.5685577062336493`*^9, 3.568558998009954*^9, 3.568559040126522*^9, 
   3.568569547102544*^9, 3.5685703067588367`*^9, 3.568614641325622*^9, {
   3.568614871449288*^9, 3.568614909907741*^9}, 3.5686159343389177`*^9, 
   3.5686167632048683`*^9, 3.568616975804512*^9, 3.56861709924082*^9, 
   3.568617291122027*^9, 3.5686182386983347`*^9, 3.5686209962151318`*^9, 
   3.568623748095129*^9, 3.5686255432289553`*^9, 3.568626761282617*^9, 
   3.568626810957438*^9, 3.5686271325919724`*^9, 3.568631419722247*^9, 
   3.568631574606221*^9, 3.568632234518984*^9, 3.568632571140792*^9, 
   3.568635415337955*^9, 3.568643997504257*^9, 3.568644169340148*^9, 
   3.568646143320567*^9, 3.568646361148179*^9, 3.5686474316922617`*^9, 
   3.568647477289062*^9, 3.568647542954297*^9, 3.568647687895175*^9, 
   3.568647744900811*^9, 3.5686493791778297`*^9, 3.568649799910285*^9, {
   3.5686501449841137`*^9, 3.568650171329299*^9}, 3.5686503479418573`*^9, 
   3.5686505341688967`*^9, 3.568698678762437*^9, 3.568698947132876*^9, 
   3.568703215193227*^9, 3.568705554810422*^9, 3.568706968830236*^9, 
   3.5687071511035547`*^9, 3.568710336937174*^9, 3.568710392617156*^9, 
   3.568711099238551*^9, {3.56871188388267*^9, 3.5687118980874357`*^9}, 
   3.568712017005623*^9, 3.568712073244815*^9, 3.568712825836825*^9, 
   3.5687129363295527`*^9, 3.568713083266635*^9, 3.568713170731962*^9, {
   3.5687132943887568`*^9, 3.568713318938127*^9}, 3.56871397944291*^9, 
   3.568714130953301*^9, {3.568714177223394*^9, 3.568714206824979*^9}, 
   3.5687172780691633`*^9, 3.5687177584806347`*^9, 3.568717949066579*^9, 
   3.568718287601616*^9, 3.568719704174021*^9, 3.5687200152188673`*^9, 
   3.5687245672601843`*^9, 3.568724664080772*^9, 3.568724884380128*^9, 
   3.568725431757309*^9, 3.568725532640933*^9, 3.568726402123542*^9, 
   3.568726554347762*^9, 3.5687265923026533`*^9, 3.568727899529241*^9, 
   3.5687279549547777`*^9, 3.5687281593241777`*^9, 3.568728230113016*^9, 
   3.5687289855218267`*^9, 3.568729230266304*^9, 3.568729320698851*^9, 
   3.568729803706802*^9, 3.568732881638431*^9, 3.568734873948954*^9, 
   3.568734975971704*^9, 3.568735105637306*^9, 3.568738260158615*^9, 
   3.56873920203222*^9, 3.568739496337645*^9, 3.568739541707877*^9, 
   3.568740476568062*^9, 3.568740600554695*^9, 3.568742499479166*^9, 
   3.568744491452751*^9, 3.568789885558404*^9, 3.568790115152841*^9, 
   3.568790813092902*^9, 3.568790968656868*^9, 3.568794916027313*^9, 
   3.568795048460877*^9, 3.568795373893569*^9, 3.5687966643781147`*^9, 
   3.5687970789049673`*^9, 3.56879718984695*^9, 3.568797266570689*^9, 
   3.56879738526056*^9, 3.568797749763768*^9, 3.568799029782997*^9, 
   3.568890667493931*^9, 3.568890775454667*^9, 3.568890935167588*^9, 
   3.568890971803377*^9, 3.568891204258397*^9, 3.568891278232081*^9, 
   3.568892354300425*^9, 3.568893850041708*^9, 3.5688945320417624`*^9, 
   3.568900831136793*^9, 3.568904116557808*^9, 3.5689048463252296`*^9, 
   3.568905731363928*^9, 3.568906013620181*^9, 3.5689061861035624`*^9, 
   3.56890936521317*^9, 3.568909400266169*^9, 3.568973467205495*^9, 
   3.568976681127952*^9, 3.568981190061532*^9, {3.5689812395555487`*^9, 
   3.568981273805697*^9}, 3.568981496814764*^9, 3.5689859415207453`*^9, 
   3.568998291516955*^9, 3.568998519712235*^9, 3.568998587108768*^9, 
   3.568998692284837*^9, 3.569000044706415*^9, 3.5690029999522676`*^9, 
   3.5690455418938704`*^9, 3.569045681030343*^9, 3.569046861103446*^9, 
   3.56905031016746*^9, 3.5690518506222897`*^9, 3.569053330722665*^9, 
   3.5690540951129637`*^9, 3.569054606927059*^9, 3.5690557730147*^9, 
   3.569061008822711*^9, 3.56906130273158*^9, 3.569065197256529*^9, 
   3.569066648330913*^9, 3.56906786315175*^9, 3.569075543438057*^9, 
   3.5690771580029783`*^9, 3.569077667861473*^9, 3.569077954844302*^9, 
   3.5690806158205967`*^9, 3.569081611789279*^9, 3.569082036559737*^9, 
   3.569082471388439*^9, 3.56913608703915*^9, 3.569136772773188*^9, 
   3.5691368942870007`*^9, 3.569137265808255*^9, 3.572937328022373*^9, 
   3.5729381888990917`*^9, 3.572939908695418*^9, 3.572940662561857*^9, 
   3.572940886109064*^9, 3.572941721189727*^9, 3.572942616729669*^9, 
   3.5729429988940163`*^9, 3.57294309951696*^9, 3.572943578553277*^9, 
   3.57294544235107*^9, 3.5729471202563343`*^9, 3.5729471760224257`*^9, 
   3.572947283484358*^9, 3.572947321843853*^9, 3.572947438525585*^9, {
   3.572947839665883*^9, 3.572947846543027*^9}, 3.5729481089132013`*^9, 
   3.572948911242918*^9, 3.572948998759843*^9, 3.5729491850491543`*^9, 
   3.5729580402313347`*^9, 3.572958338146002*^9, 3.57295852936283*^9, {
   3.5729597998231907`*^9, 3.572959823805648*^9}, 3.5729616072547092`*^9, 
   3.572961640394589*^9, 3.572963454507238*^9, 3.5729642078732347`*^9, 
   3.572972269912081*^9, 3.5729725224066877`*^9, 3.572973035205443*^9, {
   3.57297419834746*^9, 3.5729742169136667`*^9}, 3.572974462845262*^9, 
   3.572976837416629*^9, 3.572976921622478*^9, 3.5729771010813704`*^9, 
   3.572977174661744*^9, 3.573020213800396*^9, 3.573023263983376*^9, 
   3.573023470395893*^9, 3.573023514262617*^9, 3.573023544830119*^9, 
   3.573023620372006*^9, {3.573024209940298*^9, 3.573024256187644*^9}, 
   3.5730259648192797`*^9, 3.5730263200128717`*^9, 3.573026919155705*^9, 
   3.573027033119431*^9, 3.573028874583407*^9, 3.573109242044403*^9, 
   3.573109302868903*^9, 3.573109451640394*^9, 3.573110482727893*^9, 
   3.5731114591441317`*^9, 3.5731115461488657`*^9, 3.573113279368649*^9, 
   3.573113423139373*^9, 3.5731146806049*^9, 3.573115108253943*^9, 
   3.5731927754653387`*^9, 3.573193362171051*^9, 3.573194841468425*^9, 
   3.573195057963489*^9, 3.5731954035423183`*^9, 3.573196004843507*^9, 
   3.5731961528570642`*^9, 3.5731962080076733`*^9, 3.573196310898775*^9, 
   3.573202436761479*^9, {3.5732030926851053`*^9, 3.5732031045388317`*^9}, 
   3.573203223468635*^9, 3.573209049352449*^9, 3.573209510980426*^9, 
   3.573209977189438*^9, 3.573210013817211*^9, 3.573210283544799*^9, 
   3.573210561717016*^9, 3.573211320970324*^9, 3.5732114568299217`*^9, 
   3.573211493279463*^9, 3.573211526743162*^9, 3.573211666188863*^9, 
   3.573211793741519*^9, 3.5732124705111113`*^9, 3.573212522806679*^9, 
   3.573213015460741*^9, 3.573213116591901*^9, 3.5732132245733356`*^9, {
   3.573213254966988*^9, 3.5732132765481367`*^9}, 3.573214124813198*^9, 
   3.573214943777638*^9, 3.57321508989135*^9, 3.573215659757337*^9, 
   3.573215694050343*^9, 3.5732159271997023`*^9, 3.573216051777622*^9, 
   3.5732174014584007`*^9, 3.573218142235816*^9, 3.5732182000759983`*^9, 
   3.5732183218646317`*^9, 3.5732208458877077`*^9, 3.573221653137282*^9, 
   3.573226229277379*^9, {3.573274028129733*^9, 3.573274054983911*^9}, 
   3.573274896416744*^9, 3.573274982288466*^9, 3.573275067166677*^9, 
   3.5732751408979177`*^9, 3.5732753848719893`*^9, 3.573275641007393*^9, 
   3.5732766177667303`*^9, {3.573276730745511*^9, 3.573276742144904*^9}, 
   3.573276814384362*^9, {3.573276844593548*^9, 3.573276880794072*^9}, 
   3.573276926668239*^9, 3.573277126280972*^9, 3.5732772991005707`*^9, 
   3.573277371880516*^9, 3.573277969857378*^9, 3.573278710413577*^9, {
   3.573279043709227*^9, 3.573279069788856*^9}, 3.573279556421878*^9, 
   3.573279606056006*^9, 3.5732801390291653`*^9, 3.573280328609084*^9, 
   3.573283665241589*^9, 3.5732837197358093`*^9, 3.57328383301624*^9, 
   3.573283908091449*^9, 3.573288475430718*^9, {3.573288550983889*^9, 
   3.573288563664974*^9}, 3.573289192207466*^9, 3.5732895497025957`*^9, 
   3.573313929553945*^9, 3.573314021549369*^9, 3.5733144550970373`*^9, 
   3.5733188476475143`*^9, 3.573319214908525*^9, 3.573320129023879*^9, 
   3.573361263752904*^9, 3.573361434431839*^9, 3.573362300872615*^9, 
   3.5733625333627653`*^9, 3.573366525181398*^9, 3.573368745976478*^9, 
   3.57336883068575*^9, 3.5733689260904627`*^9, 3.573379588456893*^9, 
   3.5733797233089247`*^9, 3.573400462858988*^9, 3.573400643085238*^9, 
   3.573400722912693*^9, 3.573402215632256*^9, 3.573407278194244*^9, {
   3.573446880525983*^9, 3.57344690442083*^9}, 3.5734470884549294`*^9, 
   3.5734494877008266`*^9, 3.5734495226326733`*^9, {3.573450334588427*^9, 
   3.573450340265987*^9}, 3.573450432307151*^9, {3.573450695084984*^9, 
   3.5734507189025097`*^9}, 3.573452272531774*^9, 3.5734555121026983`*^9, {
   3.5734557492347393`*^9, 3.573455770055319*^9}, 3.573458224991859*^9, 
   3.573458338495742*^9, 3.573464244902884*^9, {3.5734644549983273`*^9, 
   3.573464459565127*^9}, 3.573464489736046*^9, 3.5734647254668207`*^9, 
   3.573464758579021*^9, 3.573465141593876*^9, 3.57346526949965*^9, 
   3.573465303229703*^9, 3.573465346395948*^9, 3.573465761140788*^9, 
   3.5734658260403633`*^9, 3.573466085191889*^9, {3.5734664513728857`*^9, 
   3.573466471673883*^9}, 3.573466803587595*^9, 3.573466911169155*^9, 
   3.5734675521834307`*^9, 3.573467710458309*^9, 3.573468117471478*^9, 
   3.5734777635982723`*^9, 3.573477877557722*^9, 3.573480776147053*^9, 
   3.573481933772787*^9, 3.5734821696287622`*^9, 3.573482364068809*^9, 
   3.5734824010959673`*^9, 3.573482431756219*^9, {3.5734824665489473`*^9, 
   3.5734824906767073`*^9}, {3.57348252910303*^9, 3.57348255743034*^9}, 
   3.573482637181665*^9, 3.573487719383563*^9, 3.573488045316176*^9, 
   3.5734880910511923`*^9, 3.573488995912087*^9, 3.573489060580821*^9, 
   3.573489287356119*^9, 3.573489362809987*^9, 3.5734898182037973`*^9, 
   3.5734904261258507`*^9, 3.5734919204605637`*^9, 3.5734922511671553`*^9, 
   3.5734926002636757`*^9, 3.5734936227791243`*^9, 3.5734938656654577`*^9, 
   3.573502504876334*^9, 3.5735322977169*^9, 3.573535349855049*^9, 
   3.5735354900498238`*^9, {3.573535770706739*^9, 3.573535787663589*^9}, 
   3.573536853244074*^9, 3.57353697080884*^9, 3.573540399959647*^9, 
   3.573540463536008*^9, 3.5735405095012493`*^9, 3.5735406485163937`*^9, 
   3.57354070675795*^9, 3.573542947506281*^9, 3.573543412994213*^9, 
   3.5735435918123217`*^9, 3.573548204307932*^9, 3.573548393047575*^9, 
   3.5735485257055264`*^9, {3.573548587298396*^9, 3.5735486576736403`*^9}, 
   3.573548904397634*^9, 3.573551317919194*^9, 3.573552770015163*^9, 
   3.573553315495846*^9, 3.5735559960873947`*^9, 3.5735572722892857`*^9, 
   3.573633911704818*^9, 3.573635139909543*^9, {3.5736381352536917`*^9, 
   3.573638185132936*^9}, {3.573639212712907*^9, 3.573639228672394*^9}, 
   3.573640206491311*^9, 3.573641507225697*^9, 3.57364165595258*^9, 
   3.5736417328597097`*^9, 3.573643352530079*^9, 3.573643754690404*^9, 
   3.573644002708211*^9, 3.5736445019413223`*^9, 3.5736479876283607`*^9, 
   3.57370657491206*^9, 3.573709194378173*^9, 3.5737094335572147`*^9, 
   3.5737100528785677`*^9, 3.573726055876799*^9, 3.5737269601850357`*^9, 
   3.573727318795887*^9, 3.5737276017267523`*^9, 3.573731301402972*^9, 
   3.573731601062069*^9, 3.573731653612*^9, 3.5737407624170322`*^9, 
   3.5737423133188562`*^9, 3.573764979854713*^9, 3.573766998304654*^9, 
   3.573797304078042*^9, 3.573798169566442*^9, 3.573799104033868*^9, 
   3.573800468469483*^9, 3.573802654913537*^9, 3.573805642316978*^9, 
   3.5738188098202953`*^9, 3.573820467521618*^9, 3.57382149283477*^9, {
   3.573821808940014*^9, 3.5738218323161783`*^9}, 3.5738220166038313`*^9, 
   3.573822134306428*^9, 3.573822375926803*^9, 3.57382320460638*^9, 
   3.573823270913971*^9, 3.573823779058716*^9, 3.57382534906425*^9, {
   3.573826321144253*^9, 3.573826342213769*^9}, 3.5738267059972973`*^9, 
   3.573827608346298*^9, 3.5738277905824413`*^9, 3.573828135469338*^9, 
   3.573829044644045*^9, 3.5738290798005667`*^9, {3.573829192116014*^9, 
   3.573829219883151*^9}, 3.573829768790564*^9, 3.573830559372129*^9, 
   3.573830688180215*^9, 3.573830727519792*^9, 3.573831057826538*^9, 
   3.573831310196814*^9, 3.5738316370111523`*^9, 3.573832068771141*^9, 
   3.573832498737656*^9, 3.5738342884359283`*^9, 3.5738348229767017`*^9, 
   3.573834898481906*^9, 3.5738351373242903`*^9, 3.573835306624761*^9, 
   3.573837221365705*^9, 3.573837292028689*^9, 3.573837358016334*^9, 
   3.5738381192806187`*^9, 3.573838228862218*^9, 3.573838259079895*^9, 
   3.57387824920442*^9, 3.573883333107716*^9, 3.573883619448838*^9, 
   3.573883681369789*^9, 3.573883879454419*^9, 3.573884138982698*^9, {
   3.573885156848462*^9, 3.5738851846113787`*^9}, 3.573885655197035*^9, 
   3.573885799671042*^9, 3.573886805406139*^9, 3.5738887683941402`*^9, 
   3.5738889276682043`*^9, 3.573889105496017*^9, 3.573889230142239*^9, 
   3.573892298863501*^9, 3.5738926405887413`*^9, 3.573893014474552*^9, 
   3.573894622951604*^9, 3.573895010476371*^9, 3.573895423040251*^9, 
   3.573909455419642*^9, 3.573933197294492*^9, 3.5739671849429083`*^9, 
   3.573971802889139*^9, 3.573972975997776*^9, 3.573974450918638*^9, 
   3.573975185709016*^9, 3.573975310404378*^9, 3.57397566629958*^9, 
   3.573975779548375*^9, 3.573976392107745*^9, 3.573977659487111*^9, 
   3.573978263547649*^9, 3.573978578514328*^9, 3.573978740283284*^9, 
   3.57397998842805*^9, 3.573982680633648*^9, 3.573984417345229*^9, 
   3.5739847489885597`*^9, 3.573984947420909*^9, 3.573985106320211*^9, 
   3.573987266190063*^9, 3.573991138554895*^9, 3.574002898924748*^9, 
   3.574007460731659*^9, 3.5740078252295513`*^9, 3.574050292144979*^9, 
   3.5740596773479652`*^9, 3.574059920476685*^9, 3.574060066591248*^9, 
   3.574060195525839*^9, 3.5740607727069798`*^9, 3.574060893185297*^9, 
   3.574061689422223*^9, 3.574061801576542*^9, 3.574063387219906*^9, 
   3.574063509962152*^9, 3.574064190484825*^9, 3.574064423191441*^9, 
   3.574064751895473*^9, 3.5740650580949717`*^9, 3.574065806711709*^9, 
   3.5740663528955727`*^9, 3.574066439185102*^9, 3.574071822123378*^9, 
   3.57408312969561*^9, 3.574140101555794*^9, {3.574143726054294*^9, 
   3.574143754950449*^9}, 3.574143806839999*^9, {3.57449246586555*^9, 
   3.574492547437598*^9}, 3.5744927885811167`*^9, 3.574493972415489*^9, {
   3.574496160484292*^9, 3.574496185988776*^9}, 3.574526019680625*^9, 
   3.575099366529991*^9, 3.575358761706009*^9, 3.575359828680375*^9, 
   3.575369869988714*^9, 3.575370292613964*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"jj", ",", "kk", ",", "nn", ",", "mm", ",", "fac", ",", "save"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"fac", "[", "ii", "]"}], "=", "1"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "dumb", "]"}]}], "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"chVec", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"nBreak", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"DateString", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tstart", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"save", "=", 
   RowBox[{"{", 
    RowBox[{"dumb", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Do", "[", "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
    "kk", " ", "is", " ", "the", " ", "loop", " ", "over", " ", "all", " ", 
     "permutations"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"doperm", "=", 
         RowBox[{"{", "}"}]}], ";", "\n", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{"AppendTo", "[", 
           RowBox[{"doperm", ",", 
            RowBox[{
             RowBox[{"perms", "[", 
              RowBox[{"[", 
               RowBox[{"kk", ",", "mm"}], "]"}], "]"}], "\[Rule]", 
             RowBox[{"perms", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "mm"}], "]"}], "]"}]}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"mm", ",", "1", ",", "vartot"}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"newthing", "=", 
         RowBox[{"orderFunction", "[", 
          RowBox[{
           RowBox[{"dumb", "[", 
            RowBox[{"[", "jj", "]"}], "]"}], "/.", "doperm"}], "]"}]}], ";", 
        "\n", 
        RowBox[{"(*", " ", 
         RowBox[{
         "nn", " ", "is", " ", "the", " ", "loop", " ", "over", " ", "all", 
          " ", "terms", " ", "in", " ", "save"}], " ", "*)"}], "\n", 
        RowBox[{"count", "=", "0"}], ";", "\n", 
        RowBox[{"Do", "[", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"save", "[", 
               RowBox[{"[", 
                RowBox[{"1", "+", 
                 RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
               "]"}], "\[Equal]", "0"}], ",", 
             RowBox[{"Goto", "[", "next", "]"}]}], "]"}], ";", "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Head", "[", 
                 RowBox[{
                  RowBox[{"save", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", "+", 
                    RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                   "]"}], "/", "newthing"}], "]"}], "\[Equal]", "Integer"}], 
               ")"}], "||", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Head", "[", 
                 RowBox[{
                  RowBox[{"save", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", "+", 
                    RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                   "]"}], "/", "newthing"}], "]"}], "\[Equal]", "Rational"}], 
               ")"}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"fac", "[", 
                RowBox[{"1", "+", 
                 RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
               "=", 
               RowBox[{
                RowBox[{"fac", "[", 
                 RowBox[{"1", "+", 
                  RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                "+", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"newthing", "/", 
                   RowBox[{"save", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", "+", 
                    RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                    "]"}]}], "//.", "removeAll"}], ")"}]}]}], ";", 
              RowBox[{"count", "=", 
               RowBox[{"count", "+", "1"}]}], ";", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"nBreak", ",", 
                RowBox[{"{", 
                 RowBox[{"jj", ",", "kk", ",", "nn", ",", 
                  RowBox[{"Length", "[", "save", "]"}]}], "}"}]}], "]"}], ";", 
              RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Label", "[", "next", "]"}], ";"}], "\n", ",", 
          RowBox[{"{", 
           RowBox[{"nn", ",", "1", ",", 
            RowBox[{"Length", "[", "save", "]"}]}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"count", "\[Equal]", "1"}], ",", 
          RowBox[{"Break", "[", "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "2", ",", 
         RowBox[{"Length", "[", "perms", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"count", "\[Equal]", "0"}], ",", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"save", ",", 
         RowBox[{"dumb", "[", 
          RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}], "]"}], ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"save", "=", 
        RowBox[{"Complement", "[", 
         RowBox[{"save", ",", 
          RowBox[{"{", "0", "}"}]}], "]"}]}], ";"}], "*)"}], "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"jj", "/", "50"}], "\[Element]", "Integers"}], ",", 
       RowBox[{"Print", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N", "[", 
           RowBox[{"jj", "/", 
            RowBox[{"Length", "[", "dumb", "]"}]}], "]"}], ",", 
          RowBox[{"DateString", "[", "]"}]}], "}"}], "]"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "2", ",", 
      RowBox[{"Length", "[", "dumb", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"print", "\[Equal]", "yes"}], ",", 
    RowBox[{"Print", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<time in minutes\>\"", ",", 
       RowBox[{"Round", "[", 
        RowBox[{"100", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"AbsoluteTime", "[", "]"}], "-", "tstart"}], ")"}], "/", 
          "6000."}]}], "]"}], ",", 
       RowBox[{"DateString", "[", "]"}]}], "}"}], "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"DUMB", "=", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"am", "[", 
        RowBox[{"fac", "[", "ii", "]"}], "]"}], 
       RowBox[{"save", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "save", "]"}]}], "}"}]}], "]"}], "//.", 
    RowBox[{
     RowBox[{"am", "[", "x_", "]"}], "\[Rule]", "x"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "DUMB", "]"}]}], "Input",
 CellChangeTimes->{{3.56666454137009*^9, 3.56666455791742*^9}, {
   3.566664682160617*^9, 3.566664687768269*^9}, 3.566664798261909*^9, {
   3.566665275593224*^9, 3.56666529305298*^9}, {3.5667286903401318`*^9, 
   3.56672872034938*^9}, {3.566729682886381*^9, 3.566729691624352*^9}, 
   3.566731400012601*^9, {3.566803461128034*^9, 3.566803461328907*^9}, {
   3.5669731331296053`*^9, 3.566973136828059*^9}, {3.5673310312545443`*^9, 
   3.567331060921348*^9}, 3.567778887220084*^9, 3.5677886697924547`*^9, {
   3.568278478449318*^9, 3.568278479019286*^9}, {3.568278541475317*^9, 
   3.568278542196109*^9}, {3.5682875504551287`*^9, 3.56828757300217*^9}, {
   3.569061519106347*^9, 3.569061519373022*^9}, {3.5690666706415462`*^9, 
   3.569066670791874*^9}, {3.5729408754689074`*^9, 3.5729409027106743`*^9}, 
   3.573279058265913*^9, {3.573279568460546*^9, 3.573279576609899*^9}, {
   3.573765030833897*^9, 3.573765034132308*^9}}],

Cell[BoxData["\<\"Fri 19 Apr 2013 09:24:52\"\>"], "Output",
 CellChangeTimes->{
  3.566661718501853*^9, {3.566661866107888*^9, 3.56666189033167*^9}, 
   3.5666632764724493`*^9, 3.5666635061228933`*^9, {3.566664154089595*^9, 
   3.5666642007725143`*^9}, 3.5666643221464653`*^9, 3.566664613321117*^9, 
   3.566664693464332*^9, 3.566664890141494*^9, 3.56666501001894*^9, 
   3.566665074465266*^9, 3.566665186206705*^9, {3.566665248818069*^9, 
   3.566665295388771*^9}, 3.5666653862684307`*^9, 3.566665542373496*^9, 
   3.566665786659505*^9, 3.566666148667245*^9, 3.566671399107004*^9, 
   3.566671448118681*^9, 3.566671665045375*^9, 3.5667288481309147`*^9, 
   3.566729346416938*^9, 3.566729641354567*^9, 3.56672970080295*^9, 
   3.5667299449973793`*^9, 3.566730572628977*^9, 3.566731277844585*^9, 
   3.566731393857758*^9, 3.56673156077785*^9, 3.566731672579918*^9, 
   3.566731835399321*^9, 3.566733084453702*^9, 3.566741033001402*^9, 
   3.566741234258959*^9, 3.566741422164381*^9, 3.566749331685308*^9, 
   3.566749515416896*^9, 3.566750011647512*^9, {3.566803441975007*^9, 
   3.566803469804717*^9}, 3.566803725383306*^9, 3.5668042887809753`*^9, 
   3.566804357279251*^9, 3.566804431788026*^9, 3.566804545310172*^9, 
   3.566804748448534*^9, 3.5668048092955723`*^9, 3.566805724805624*^9, 
   3.566808758619851*^9, 3.566808828960305*^9, 3.566810343748042*^9, 
   3.566814055820245*^9, 3.5668152324015303`*^9, 3.566815275949566*^9, 
   3.566815326737062*^9, 3.56681537627488*^9, 3.56681570754958*^9, 
   3.566816233731861*^9, 3.566817179297265*^9, 3.566818460939445*^9, 
   3.566819121920141*^9, {3.566819403328341*^9, 3.5668194319688463`*^9}, 
   3.566819539259597*^9, {3.566820664404018*^9, 3.566820690997918*^9}, {
   3.5669056344733963`*^9, 3.56690566354047*^9}, {3.566909192950742*^9, 
   3.5669092121833563`*^9}, {3.5669092422584248`*^9, 3.566909267854623*^9}, 
   3.566910550527478*^9, 3.5669117434943953`*^9, 3.56691229191932*^9, 
   3.566912738220141*^9, 3.5669137058354187`*^9, 3.566919557976182*^9, {
   3.5669196284742737`*^9, 3.566919683299375*^9}, {3.566919855122705*^9, 
   3.5669198775643187`*^9}, 3.566919936143957*^9, {3.566920185756055*^9, 
   3.566920211835332*^9}, 3.566920298835505*^9, {3.566920526644951*^9, 
   3.566920556032764*^9}, 3.5669206168633204`*^9, {3.566920891195774*^9, 
   3.5669209126880836`*^9}, {3.566920967362596*^9, 3.5669209908107643`*^9}, 
   3.566921052862611*^9, {3.566921448166831*^9, 3.5669214732002497`*^9}, 
   3.5669215086834307`*^9, {3.5669222543102922`*^9, 3.566922291268476*^9}, {
   3.566922441198842*^9, 3.566922477614436*^9}, {3.566923083543943*^9, 
   3.56692311489102*^9}, {3.5669231849458513`*^9, 3.5669232016892357`*^9}, {
   3.56692516460437*^9, 3.566925203070444*^9}, {3.566925275726047*^9, 
   3.566925294292107*^9}, {3.5669253616450167`*^9, 3.566925379773757*^9}, {
   3.566925998100665*^9, 3.566926036372509*^9}, {3.5669260779033203`*^9, 
   3.5669260854233503`*^9}, 3.566926139191361*^9, {3.566926254396122*^9, 
   3.566926263774027*^9}, 3.566926350610901*^9, {3.5669264629582644`*^9, 
   3.5669264700789413`*^9}, 3.566926527062462*^9, {3.566926662521875*^9, 
   3.566926670206325*^9}, 3.566926731515335*^9, {3.566926902709523*^9, 
   3.5669269085460978`*^9}, 3.5669269468959513`*^9, {3.5669270550802507`*^9, 
   3.5669270799351597`*^9}, {3.566927159594871*^9, 3.566927179093391*^9}, {
   3.566927591066901*^9, 3.566927644482314*^9}, {3.566927686662353*^9, 
   3.566927695392295*^9}, 3.5669277486519814`*^9, {3.5669278664501333`*^9, 
   3.5669278746859407`*^9}, 3.56692794825399*^9, {3.566928118207065*^9, 
   3.566928125298574*^9}, 3.566928172054428*^9, {3.566928326294468*^9, 
   3.566928332472475*^9}, 3.566928377529808*^9, {3.566928588754362*^9, 
   3.566928614536738*^9}, {3.5669287284117804`*^9, 3.56692874109216*^9}, {
   3.5669288171116257`*^9, 3.5669288272802963`*^9}, {3.5669431298189383`*^9, 
   3.566943151971596*^9}, 3.5669433003887377`*^9, 3.5669440243110027`*^9, 
   3.566945552322002*^9, 3.566945631907255*^9, 3.5669482146900177`*^9, 
   3.566994076200601*^9, 3.567015201405401*^9, 3.567021818651225*^9, 
   3.567021908960082*^9, 3.5670282350694923`*^9, 3.5670583809100018`*^9, 
   3.5670690252051573`*^9, 3.567069103532461*^9, 3.5670702216729383`*^9, 
   3.5670731921050797`*^9, 3.567073254032526*^9, 3.567074114404982*^9, {
   3.567079249547982*^9, 3.567079272845272*^9}, 3.567079943346012*^9, 
   3.567089470646283*^9, {3.567092053381051*^9, 3.5670920738041267`*^9}, 
   3.567092141583866*^9, {3.567092668124259*^9, 3.567092708726103*^9}, {
   3.567108370231225*^9, 3.567108391561102*^9}, 3.567108477658197*^9, 
   3.567108666525028*^9, 3.567108734317795*^9, 3.567109523675891*^9, 
   3.567110269637248*^9, 3.5671103425003853`*^9, 3.567111422681692*^9, 
   3.567114525891939*^9, 3.5671145975112333`*^9, 3.567115768171548*^9, 
   3.567115988090616*^9, 3.567116904224674*^9, 3.567116962610139*^9, 
   3.567117793599244*^9, {3.5671223901001053`*^9, 3.567122417769642*^9}, 
   3.5671226859778833`*^9, {3.567124940796095*^9, 3.567124951380987*^9}, 
   3.5671250196452*^9, {3.56712544637751*^9, 3.5671254720654383`*^9}, 
   3.567162809812237*^9, 3.567243704032989*^9, 3.567243736150502*^9, 
   3.567245520930614*^9, 3.567250899166765*^9, 3.567253357018923*^9, 
   3.567253522933051*^9, 3.56725377538481*^9, {3.567253919254533*^9, 
   3.567254010424786*^9}, {3.567254059685871*^9, 3.567254094787114*^9}, {
   3.567254154677314*^9, 3.5672541757673693`*^9}, {3.567254589711072*^9, 
   3.567254625565359*^9}, {3.567254716386086*^9, 3.5672547356023912`*^9}, {
   3.5672600974170628`*^9, 3.567260134636897*^9}, {3.567260197483384*^9, 
   3.567260207341847*^9}, {3.5672611336540823`*^9, 3.567261203822831*^9}, {
   3.567261234346799*^9, 3.567261308609372*^9}, {3.5672613576229687`*^9, 
   3.567261383977255*^9}, {3.567261448453375*^9, 3.5672614645015907`*^9}, {
   3.567261513346178*^9, 3.567261524833494*^9}, {3.567261555225828*^9, 
   3.5672615623810596`*^9}, 3.567266628585663*^9, 3.567266949443769*^9, {
   3.567267104540378*^9, 3.5672672271305*^9}, {3.567267259966811*^9, 
   3.567267280353674*^9}, 3.567268518588146*^9, 3.567268642236354*^9, 
   3.567268753697956*^9, 3.567268911078541*^9, 3.5672689758552217`*^9, {
   3.567269280662183*^9, 3.567269365365856*^9}, {3.567269448653941*^9, 
   3.567269455933372*^9}, 3.5672695466598587`*^9, 3.567270320672958*^9, {
   3.567270916090152*^9, 3.5672709228067503`*^9}, 3.5672709988663*^9, 
   3.567271813568445*^9, {3.567273270747909*^9, 3.567273286714987*^9}, {
   3.567274752847834*^9, 3.567274814048457*^9}, {3.567274889332882*^9, 
   3.567274922263844*^9}, {3.5672749856913767`*^9, 3.567275017393124*^9}, {
   3.56727511939319*^9, 3.56727514956793*^9}, {3.5672752249335823`*^9, 
   3.567275238717738*^9}, {3.567275359050976*^9, 3.56727539043223*^9}, 
   3.567321210854846*^9, 3.567321758828731*^9, 3.567321845610282*^9, {
   3.567322013862865*^9, 3.5673220274972477`*^9}, 3.5673221341574097`*^9, {
   3.567322188566558*^9, 3.5673222016801977`*^9}, {3.567322241164606*^9, 
   3.5673222535254927`*^9}, {3.567322290136879*^9, 3.567322335617573*^9}, 
   3.567326844252742*^9, {3.567326927098578*^9, 3.5673269381843843`*^9}, {
   3.567327394231599*^9, 3.567327406624865*^9}, 3.5673303300783253`*^9, 
   3.5673310981828136`*^9, 3.56733128165819*^9, 3.567331337915039*^9, 
   3.567331629240878*^9, 3.567331895311981*^9, 3.56733217407972*^9, 
   3.567332538880231*^9, {3.5673329932078753`*^9, 3.567333009638933*^9}, 
   3.5673336347584343`*^9, 3.567334509974394*^9, 3.567334609074851*^9, 
   3.567334682447969*^9, 3.567338025807845*^9, 3.5673381057997313`*^9, 
   3.567338503192597*^9, 3.567338892192853*^9, 3.5673389884066763`*^9, 
   3.56733909159074*^9, {3.567339542240077*^9, 3.567339582616373*^9}, {
   3.5673397446343927`*^9, 3.567339770141542*^9}, {3.567339864402927*^9, 
   3.567339895933413*^9}, {3.567339998187531*^9, 3.567340033355383*^9}, {
   3.567340231530635*^9, 3.5673402664577293`*^9}, {3.567340431541134*^9, 
   3.567340465827299*^9}, {3.567340591392661*^9, 3.5673406247606792`*^9}, 
   3.5673412102307777`*^9, {3.5673414291104183`*^9, 3.56734154083177*^9}, {
   3.5673415746385736`*^9, 3.567341590037622*^9}, {3.567341646352707*^9, 
   3.567341661133951*^9}, {3.567341739853499*^9, 3.56734175404493*^9}, {
   3.567341845544532*^9, 3.56734185639253*^9}, {3.567343419411045*^9, 
   3.567343488205778*^9}, {3.567343542732379*^9, 3.5673435687444773`*^9}, {
   3.567343600616488*^9, 3.567343615253087*^9}, {3.5673436703239803`*^9, 
   3.5673436851746264`*^9}, {3.5673437631668873`*^9, 3.567343777837579*^9}, {
   3.5673438738198338`*^9, 3.567343885785542*^9}, {3.567345477573791*^9, 
   3.567345499401194*^9}, {3.567345554765396*^9, 3.567345574343123*^9}, {
   3.567345633691423*^9, 3.5673456949917707`*^9}, {3.5673458199714603`*^9, 
   3.5673458697892447`*^9}, {3.567346425747856*^9, 3.567346547571004*^9}, {
   3.567346597322263*^9, 3.5673466192587*^9}, {3.56734670329886*^9, 
   3.567346733508079*^9}, {3.56734683751866*^9, 3.567346853137236*^9}, {
   3.5673469714797487`*^9, 3.56734700651439*^9}, {3.5673479683324842`*^9, 
   3.5673479889937696`*^9}, {3.567348039409554*^9, 3.567348134996462*^9}, {
   3.567348170870368*^9, 3.567348189938629*^9}, {3.567348248531035*^9, 
   3.5673482677206497`*^9}, {3.567354568537437*^9, 3.567354599052476*^9}, {
   3.567354770453596*^9, 3.5673547967749662`*^9}, {3.5673548899795303`*^9, 
   3.567354921446186*^9}, {3.567354992185025*^9, 3.567355027618679*^9}, {
   3.567355179293955*^9, 3.567355222823909*^9}, {3.567355371747657*^9, 
   3.567355408183033*^9}, {3.567355899746862*^9, 3.5673559730064983`*^9}, {
   3.56735601629324*^9, 3.567356046683374*^9}, {3.567356095764325*^9, 
   3.567356108580196*^9}, {3.567356225085348*^9, 3.5673562592306843`*^9}, {
   3.567356354038041*^9, 3.5673563959980793`*^9}, {3.567356500501268*^9, 
   3.56735651539771*^9}, {3.567356761544731*^9, 3.567356799476631*^9}, 
   3.567359237830001*^9, 3.5673598168703823`*^9, 3.567360140252551*^9, 
   3.567360190019203*^9, 3.567360267212459*^9, {3.567360665546488*^9, 
   3.567360764382249*^9}, {3.56736080233768*^9, 3.567360822523485*^9}, {
   3.56736090710973*^9, 3.5673609343329153`*^9}, {3.567361052786911*^9, 
   3.567361085377583*^9}, {3.567361195462978*^9, 3.567361232594784*^9}, {
   3.5673613668497753`*^9, 3.5673613997680492`*^9}, {3.567361546294055*^9, 
   3.567361577381366*^9}, {3.567408893345584*^9, 3.567408916013319*^9}, {
   3.567408955918604*^9, 3.5674089796101933`*^9}, {3.567409026572114*^9, 
   3.567409050714748*^9}, {3.567409703327444*^9, 3.5674097692480392`*^9}, {
   3.567409802340982*^9, 3.5674098723548393`*^9}, {3.567409990421283*^9, 
   3.567410013252757*^9}, {3.567410171423038*^9, 3.567410192415917*^9}, {
   3.567410294871599*^9, 3.567410318477488*^9}, {3.56741053847477*^9, 
   3.56741060495656*^9}, {3.567411104362854*^9, 3.567411133977655*^9}, {
   3.5674340702278137`*^9, 3.5674341627858963`*^9}, {3.567462095094224*^9, 
   3.56746212048705*^9}, {3.567462151168594*^9, 3.567462177807218*^9}, 
   3.5674622286772413`*^9, {3.567462324459956*^9, 3.5674623284456587`*^9}, 
   3.567462363909381*^9, 3.567462730011574*^9, {3.567465243453062*^9, 
   3.5674652469960327`*^9}, 3.567465290795453*^9, 3.567466005252634*^9, {
   3.5675835487723837`*^9, 3.5675835530671988`*^9}, 3.567583663272434*^9, 
   3.5675867298137836`*^9, 3.56761653702672*^9, {3.56762237640543*^9, 
   3.567622378770953*^9}, 3.567622479312105*^9, 3.567625506494788*^9, {
   3.567681819396985*^9, 3.56768182053179*^9}, 3.567681873858603*^9, 
   3.5676835007822638`*^9, {3.567706949137323*^9, 3.567706969149102*^9}, 
   3.567707384391548*^9, {3.5677168402275677`*^9, 3.5677168536307087`*^9}, 
   3.567716954797264*^9, {3.567718756332024*^9, 3.567718768325996*^9}, {
   3.567719010730667*^9, 3.567719042786559*^9}, {3.5677191569098797`*^9, 
   3.567719184551454*^9}, {3.567767126128182*^9, 3.567767227344239*^9}, {
   3.5677701226020527`*^9, 3.567770146960382*^9}, {3.5677703659856367`*^9, 
   3.567770402732498*^9}, 3.567770518883315*^9, {3.567770802303317*^9, 
   3.567770827107665*^9}, 3.567770925107147*^9, 3.5677769949798193`*^9, 
   3.5677780447823133`*^9, {3.567778751799313*^9, 3.5677787779409723`*^9}, 
   3.56777882602604*^9, 3.56777892607196*^9, 3.567779341007073*^9, {
   3.567779436078376*^9, 3.567779446853363*^9}, {3.567780049161607*^9, 
   3.567780083786661*^9}, {3.567780130244721*^9, 3.567780180651572*^9}, 
   3.567780264050233*^9, {3.567780418546412*^9, 3.5677804397847567`*^9}, 
   3.567780542217873*^9, {3.567780709420986*^9, 3.567780742197084*^9}, {
   3.567780831918881*^9, 3.5677808371857147`*^9}, 3.567780963307884*^9, 
   3.567781641758463*^9, {3.567782471859379*^9, 3.5677824729626093`*^9}, 
   3.5677825568679733`*^9, 3.5677844757299137`*^9, 3.56778755984618*^9, 
   3.567787733200366*^9, {3.567787891782415*^9, 3.567787916244327*^9}, {
   3.5677882656225452`*^9, 3.56778827064769*^9}, 3.567788688263597*^9, 
   3.5677891640668993`*^9, 3.567789231200951*^9, 3.5677892936299953`*^9, 
   3.567789343151259*^9, 3.567789382446323*^9, 3.567789429083709*^9, 
   3.567789483319895*^9, 3.5677895360255623`*^9, 3.567789586035088*^9, 
   3.567789677077825*^9, 3.567789727770482*^9, 3.567789775653084*^9, 
   3.567790034597746*^9, 3.567790139184862*^9, 3.567790240794915*^9, 
   3.567790286465933*^9, 3.5677903446625843`*^9, 3.567790420657542*^9, 
   3.567790462260355*^9, 3.5677905063346167`*^9, 3.567790539952323*^9, 
   3.567790570665337*^9, 3.567790626481081*^9, 3.567790673018326*^9, 
   3.567792769797214*^9, {3.567792879103415*^9, 3.5677929068830767`*^9}, {
   3.567792961704917*^9, 3.567792979267302*^9}, 3.5677930916342287`*^9, 
   3.567793149642969*^9, 3.567793208760244*^9, 3.567793253325893*^9, 
   3.56779329442134*^9, 3.5677933535777273`*^9, 3.567793389364654*^9, 
   3.567794019146494*^9, {3.5677970693224697`*^9, 3.567797103396559*^9}, {
   3.567797162070628*^9, 3.567797190789949*^9}, {3.5677972766764507`*^9, 
   3.567797309275134*^9}, {3.567797612195414*^9, 3.567797647492331*^9}, {
   3.5677977588509817`*^9, 3.567797785443409*^9}, {3.567797877798099*^9, 
   3.56779790466743*^9}, {3.567840171677668*^9, 3.567840366734028*^9}, {
   3.567840416641759*^9, 3.567840428453641*^9}, {3.567847153910914*^9, 
   3.5678472497330112`*^9}, {3.567847528339716*^9, 3.5678475324200783`*^9}, 
   3.567847575034534*^9, 3.567847726151319*^9, {3.56784809959797*^9, 
   3.567848103596806*^9}, 3.567848145811103*^9, 3.567848314254525*^9, {
   3.567848766099153*^9, 3.567848784428563*^9}, 3.567848853147284*^9, 
   3.567851098468514*^9, {3.5678512897895937`*^9, 3.567851323013191*^9}, 
   3.567851416751482*^9, 3.567851569661824*^9, {3.567851946311372*^9, 
   3.567851952102314*^9}, 3.567852061895363*^9, 3.567852423410307*^9, {
   3.5678530394009247`*^9, 3.567853044440668*^9}, 3.56785310575957*^9, 
   3.567853402297699*^9, {3.56785393741143*^9, 3.567853966475663*^9}, 
   3.567854083092534*^9, 3.567859111373849*^9, 3.567868899548408*^9, 
   3.567878069119277*^9, 3.5678789914684153`*^9, 3.567880717685432*^9, 
   3.5678812007141647`*^9, 3.5678812976194*^9, 3.567927326361476*^9, 
   3.567927443956532*^9, 3.5679299570023737`*^9, 3.5679306370294533`*^9, 
   3.5679346710527763`*^9, 3.567937222444088*^9, 3.5679388661467876`*^9, 
   3.567939102084382*^9, 3.56794288917082*^9, {3.567943285587689*^9, 
   3.567943322554411*^9}, {3.567943412509481*^9, 3.5679434498662663`*^9}, {
   3.5679443762412977`*^9, 3.5679444206920977`*^9}, 3.5679453313685207`*^9, {
   3.5679454628239717`*^9, 3.56794548294177*^9}, 3.567946212731448*^9, {
   3.5679463335221443`*^9, 3.5679463816769953`*^9}, 3.567946875585857*^9, 
   3.5679469152449093`*^9, 3.567948922228396*^9, 3.5679601795950613`*^9, 
   3.567960450681676*^9, {3.567960797740796*^9, 3.567960826419338*^9}, 
   3.567961332099835*^9, {3.567961368779333*^9, 3.567961394772037*^9}, {
   3.5679614866464148`*^9, 3.567961513361395*^9}, {3.567961616626666*^9, 
   3.56796164118069*^9}, {3.567961716463282*^9, 3.56796174210859*^9}, {
   3.5679618112653933`*^9, 3.567961838208*^9}, {3.5679619312075872`*^9, 
   3.5679619567694387`*^9}, 3.567962084058798*^9, 3.567964396081571*^9, 
   3.567965032238956*^9, {3.567965157412589*^9, 3.5679652349435043`*^9}, {
   3.5679652754565973`*^9, 3.567965303759252*^9}, {3.567965351801156*^9, 
   3.5679653812313557`*^9}, {3.567965453137475*^9, 3.567965481989097*^9}, {
   3.567965543707121*^9, 3.567965559556632*^9}, 3.567965715216432*^9, {
   3.567967778515683*^9, 3.5679677973511143`*^9}, 3.568007639605557*^9, 
   3.5680078637124233`*^9, {3.5680079851323853`*^9, 3.568008011496389*^9}, {
   3.568008041677195*^9, 3.568008068683029*^9}, {3.568008125286644*^9, 
   3.568008152677306*^9}, {3.568008193813147*^9, 3.56800822259441*^9}, {
   3.56800827825287*^9, 3.5680082899256372`*^9}, {3.5680083565948877`*^9, 
   3.5680083673825417`*^9}, 3.568008560357854*^9, 3.568012449683646*^9, {
   3.568012658638152*^9, 3.5680126828926373`*^9}, {3.568012713414307*^9, 
   3.5680127385422993`*^9}, {3.568012781191915*^9, 3.568012805899794*^9}, {
   3.568012900993984*^9, 3.568012928347313*^9}, {3.568013030148726*^9, 
   3.568013058677389*^9}, {3.5680131598969383`*^9, 3.568013186454908*^9}, 
   3.568013314610909*^9, 3.5680138728745403`*^9, 3.5680152484085608`*^9, 
   3.568015967349969*^9, 3.568016538281569*^9, 3.568016951676652*^9, 
   3.568017095239729*^9, {3.568017201213777*^9, 3.5680172299943447`*^9}, {
   3.568017261795072*^9, 3.5680172914162483`*^9}, {3.568017329880237*^9, 
   3.568017359966311*^9}, {3.5680174134230223`*^9, 3.56801744678412*^9}, {
   3.568017514892674*^9, 3.568017545698782*^9}, {3.568017621479537*^9, 
   3.568017652094324*^9}, 3.568017754627677*^9, 3.56801923309645*^9, 
   3.568019510162571*^9, 3.568019578803906*^9, 3.568021400626369*^9, 
   3.568022468030983*^9, 3.568022581649247*^9, 3.568022979627689*^9, 
   3.5680231303589697`*^9, {3.56802324849717*^9, 3.568023278796384*^9}, {
   3.568023330987818*^9, 3.5680233581981087`*^9}, {3.5680234115819807`*^9, 
   3.568023443546378*^9}, {3.5680235287907267`*^9, 3.5680235647505913`*^9}, {
   3.568023640588439*^9, 3.568023669706249*^9}, {3.568023773782542*^9, 
   3.568023808153162*^9}, 3.568024059934704*^9, {3.568027625952816*^9, 
   3.568027659404007*^9}, {3.568027713751945*^9, 3.5680277211828012`*^9}, {
   3.5680293814978237`*^9, 3.5680293915679626`*^9}, {3.568029490185121*^9, 
   3.5680295716859217`*^9}, {3.568029611479246*^9, 3.568029638826206*^9}, {
   3.568029703946149*^9, 3.568029735538933*^9}, {3.568029807411152*^9, 
   3.568029838760996*^9}, {3.5680299216808*^9, 3.568029950143725*^9}, {
   3.5680390999035463`*^9, 3.56803912056458*^9}, {3.56803969072766*^9, 
   3.568039732198268*^9}, 3.56804014295648*^9, {3.568041382840062*^9, 
   3.568041407177107*^9}, {3.5680414411369543`*^9, 3.568041466803108*^9}, {
   3.568041503793407*^9, 3.5680415498095427`*^9}, {3.568041601291561*^9, 
   3.568041651422545*^9}, {3.568041717836261*^9, 3.568041769706388*^9}, {
   3.5680418494254923`*^9, 3.5680418965215187`*^9}, 3.568041970119012*^9, {
   3.5680427941250763`*^9, 3.5680429457011547`*^9}, {3.5680429907750063`*^9, 
   3.568043043326363*^9}, {3.568043096777562*^9, 3.568043140641799*^9}, 
   3.568043207925531*^9, {3.568043251773335*^9, 3.568043280179348*^9}, 
   3.56804334104876*^9, 3.568128783243964*^9, 3.568128833265523*^9, 
   3.5681332387316093`*^9, 3.568136888875964*^9, {3.568136988216803*^9, 
   3.568137067715543*^9}, {3.568137113367827*^9, 3.568137140310979*^9}, {
   3.568137205912099*^9, 3.568137238492693*^9}, {3.568137352339991*^9, 
   3.568137383535304*^9}, {3.568137539831978*^9, 3.568137567068705*^9}, 
   3.568137789922625*^9, 3.56814006988964*^9, 3.568143222219859*^9, 
   3.568276736838973*^9, 3.568277022042889*^9, 3.568277343707981*^9, 
   3.568277740600459*^9, {3.5682777831224546`*^9, 3.568277810062408*^9}, 
   3.56827801446806*^9, 3.568278061128806*^9, 3.5682781396789427`*^9, 
   3.5682783710019283`*^9, 3.568278499461358*^9, 3.568287563897928*^9, 
   3.568288806505988*^9, 3.568302264040882*^9, 3.56832624438139*^9, 
   3.568371236919717*^9, 3.568372368401145*^9, 3.568373252203143*^9, 
   3.568376293055491*^9, 3.56837642070243*^9, 3.568376961085421*^9, 
   3.568377799081568*^9, 3.568379398393878*^9, 3.5683818461285963`*^9, 
   3.568382115029662*^9, 3.568382702652452*^9, 3.568387407052642*^9, 
   3.568396055900844*^9, 3.568396100660301*^9, 3.568443085185688*^9, 
   3.568443246730343*^9, 3.5684442961540127`*^9, 3.568444386989513*^9, 
   3.568444446237455*^9, 3.5684444866997423`*^9, 3.568444596358507*^9, 
   3.56844578625518*^9, {3.568446286252393*^9, 3.568446306122426*^9}, 
   3.56844828986972*^9, 3.568448605896139*^9, 3.568448882406755*^9, 
   3.568452935082974*^9, 3.56848104085574*^9, 3.568481283134934*^9, 
   3.5684813980796013`*^9, 3.56853974139048*^9, 3.568539802932747*^9, 
   3.568541826680904*^9, 3.5685443209404488`*^9, 3.568549406604589*^9, 
   3.568549457682103*^9, 3.568552694987255*^9, 3.5685573537002983`*^9, 
   3.568557463728979*^9, 3.568557500913377*^9, 3.568557554804123*^9, 
   3.568557706242992*^9, 3.568558998020624*^9, 3.568559040136586*^9, 
   3.568569547112897*^9, 3.5685703067992973`*^9, 3.568614641415777*^9, {
   3.568614871487361*^9, 3.568614909917652*^9}, 3.568615934349071*^9, 
   3.5686167632158947`*^9, 3.5686169758171997`*^9, 3.56861709925554*^9, 
   3.5686172911335287`*^9, 3.568618238708156*^9, 3.5686209962264338`*^9, 
   3.568623748105444*^9, 3.56862554329494*^9, 3.568626761291765*^9, 
   3.568626810966674*^9, 3.568627132854451*^9, 3.568631420023858*^9, 
   3.568631574891275*^9, 3.5686322345275383`*^9, 3.568632571176384*^9, 
   3.568635415692185*^9, 3.568643997570929*^9, 3.5686441693499117`*^9, 
   3.568646143375486*^9, 3.5686463611583767`*^9, 3.568647431702376*^9, 
   3.568647477299642*^9, 3.568647542964821*^9, 3.568647687906747*^9, 
   3.5686477449117117`*^9, 3.56864937923253*^9, 3.568649799922555*^9, {
   3.568650145033494*^9, 3.56865017133974*^9}, 3.5686503479973307`*^9, 
   3.568650534181788*^9, 3.568698678841897*^9, 3.56869894721994*^9, 
   3.568703215232258*^9, 3.568705554847872*^9, 3.568706968839788*^9, 
   3.568707151142308*^9, 3.568710336976103*^9, 3.568710392664796*^9, 
   3.5687110992726183`*^9, {3.568711883918833*^9, 3.568711898125215*^9}, 
   3.5687120170162697`*^9, 3.568712073282527*^9, 3.568712825845867*^9, 
   3.5687129363667583`*^9, 3.5687130832782288`*^9, 3.568713170741846*^9, {
   3.568713294424233*^9, 3.568713318976808*^9}, 3.56871397945679*^9, 
   3.5687141309622793`*^9, {3.568714177232966*^9, 3.568714206859742*^9}, 
   3.568717278078919*^9, 3.5687177584900417`*^9, 3.568717949076685*^9, 
   3.568718287611106*^9, 3.568719704183175*^9, 3.5687200152280073`*^9, 
   3.5687245672697887`*^9, 3.5687246641272163`*^9, 3.5687248843891983`*^9, 
   3.5687254317953777`*^9, 3.568725532681334*^9, 3.56872640213389*^9, 
   3.568726554357923*^9, 3.568726592371744*^9, 3.568727899538706*^9, 
   3.568727954964325*^9, 3.568728159333785*^9, 3.568728230122662*^9, 
   3.568728985530971*^9, 3.5687292302780523`*^9, 3.568729320708454*^9, 
   3.568729803716271*^9, 3.5687328816475*^9, 3.568734873999002*^9, 
   3.5687349759818087`*^9, 3.568735105688525*^9, 3.568738260171012*^9, 
   3.5687392020799103`*^9, 3.568739496415122*^9, 3.56873954189036*^9, 
   3.5687404765821037`*^9, 3.568740600609428*^9, 3.568742499534666*^9, 
   3.5687444915044518`*^9, 3.568789885697192*^9, 3.568790115197708*^9, 
   3.568790813101775*^9, 3.5687909686706*^9, 3.568794916081318*^9, 
   3.568795048471005*^9, 3.56879537390352*^9, 3.568796664389678*^9, 
   3.568797078914528*^9, 3.568797189857216*^9, 3.5687972665804987`*^9, 
   3.5687973852709093`*^9, 3.568797749773493*^9, 3.568799029828415*^9, 
   3.5688906675465317`*^9, 3.568890775464065*^9, 3.56889093521376*^9, 
   3.56889097184874*^9, 3.568891204268613*^9, 3.568891278281823*^9, 
   3.5688923543555603`*^9, 3.568893850050927*^9, 3.568894532053398*^9, 
   3.5689008312003603`*^9, 3.5689041166097107`*^9, 3.5689048463768797`*^9, 
   3.568905731376066*^9, 3.56890601373081*^9, 3.5689061861159077`*^9, 
   3.5689093652258053`*^9, 3.568909400275605*^9, 3.5689734673185577`*^9, 
   3.568976681138461*^9, 3.568981190071516*^9, {3.568981239566234*^9, 
   3.568981273816122*^9}, 3.568981496825285*^9, 3.568985941531105*^9, 
   3.568998291526957*^9, 3.568998519720845*^9, 3.568998587117622*^9, 
   3.568998692294446*^9, 3.569000044716176*^9, 3.569002999962981*^9, 
   3.569045541904855*^9, 3.569045681043077*^9, 3.569046861112838*^9, 
   3.569050310217716*^9, 3.569051850632667*^9, 3.569053330768133*^9, 
   3.569054095122945*^9, 3.569054606937544*^9, 3.569055773181581*^9, 
   3.5690610088699512`*^9, 3.569061302742239*^9, 3.569061520725691*^9, 
   3.569065197266099*^9, 3.569066648445387*^9, 3.569067863250524*^9, 
   3.5690755434933147`*^9, 3.5690771580147667`*^9, 3.569077667870491*^9, 
   3.569077954854908*^9, 3.569080615829877*^9, 3.569081611798135*^9, 
   3.569082036569838*^9, 3.569082471398775*^9, 3.569136087110619*^9, 
   3.569136772791299*^9, 3.569136894295271*^9, 3.569137265820181*^9, 
   3.57293733077166*^9, 3.572938188909025*^9, 3.572939908705269*^9, 
   3.572940662584528*^9, 3.5729408861189404`*^9, 3.57294172119937*^9, 
   3.5729426167401648`*^9, 3.572942998904694*^9, 3.5729430995270233`*^9, 
   3.572943578565545*^9, 3.572945442361371*^9, 3.572947120321352*^9, 
   3.572947176031622*^9, 3.5729472834972477`*^9, 3.572947321854739*^9, 
   3.572947438534658*^9, {3.572947839680585*^9, 3.572947846589734*^9}, 
   3.572948108924388*^9, 3.57294891125206*^9, 3.5729489987712927`*^9, 
   3.572949185060251*^9, 3.572958040278222*^9, 3.572958338194152*^9, 
   3.5729585293743353`*^9, {3.57295979983342*^9, 3.572959823820853*^9}, 
   3.5729616072653303`*^9, 3.572961640406671*^9, 3.572963454527914*^9, 
   3.572964207961894*^9, 3.572972269923662*^9, 3.5729725224492197`*^9, 
   3.572973035218725*^9, {3.572974198398715*^9, 3.572974216958909*^9}, 
   3.5729744628571863`*^9, 3.572976837427742*^9, 3.572976921632959*^9, 
   3.572977101092251*^9, 3.572977174677185*^9, 3.573020213849641*^9, 
   3.573023263994388*^9, 3.573023470408442*^9, 3.5730235143289623`*^9, 
   3.5730235448393707`*^9, 3.573023620382572*^9, {3.57302420995271*^9, 
   3.573024256200369*^9}, 3.573025964830504*^9, 3.5730263200257063`*^9, 
   3.573026919256673*^9, 3.573027033182033*^9, 3.573028874595838*^9, 
   3.5731092421238422`*^9, 3.573109302919105*^9, 3.573109451678133*^9, 
   3.573110482737133*^9, 3.573111459155579*^9, 3.5731115461671143`*^9, 
   3.573113279381077*^9, 3.5731134231483727`*^9, 3.573114680616131*^9, 
   3.5731151082657146`*^9, 3.573192775525032*^9, 3.5731933621818953`*^9, 
   3.573194841479595*^9, 3.573195057973714*^9, 3.5731954035520697`*^9, 
   3.5731960048863583`*^9, 3.5731961528842297`*^9, 3.573196208065434*^9, 
   3.573196310928843*^9, 3.5732024367797003`*^9, 3.573203112684312*^9, 
   3.5732090494025087`*^9, 3.5732095109901533`*^9, 3.573209977199774*^9, 
   3.5732100138282013`*^9, 3.573210283594982*^9, 3.573210561729319*^9, 
   3.573211320984511*^9, 3.573211456842381*^9, 3.5732114932895393`*^9, 
   3.573211526754829*^9, 3.573211666198843*^9, 3.573211793750205*^9, 
   3.573212470521618*^9, 3.573212522817156*^9, 3.573213015502253*^9, 
   3.5732131166044903`*^9, 3.573213224628353*^9, {3.573213255011298*^9, 
   3.573213276627075*^9}, 3.573214124871654*^9, 3.573214943788569*^9, 
   3.573215089901785*^9, 3.573215659770347*^9, 3.573215694099951*^9, 
   3.573215927242395*^9, 3.573216051787641*^9, 3.5732174015027122`*^9, 
   3.5732181422458763`*^9, 3.573218200086319*^9, 3.573218321875086*^9, 
   3.573220845898629*^9, 3.573221653146679*^9, 3.573226229288403*^9, {
   3.573274028328245*^9, 3.573274055121018*^9}, 3.573274896428022*^9, 
   3.5732749823467617`*^9, 3.573275067177216*^9, 3.573275140909586*^9, 
   3.573275384883499*^9, 3.5732756410198517`*^9, 3.5732766177792587`*^9, {
   3.573276730793356*^9, 3.5732767421532087`*^9}, 3.573276814393477*^9, {
   3.573276844605629*^9, 3.573276880804741*^9}, 3.5732769266789293`*^9, 
   3.5732771262909317`*^9, 3.573277299111301*^9, 3.57327737193216*^9, 
   3.573277969868205*^9, 3.5732787104496183`*^9, {3.573279043719551*^9, 
   3.573279069799734*^9}, 3.573279556463664*^9, 3.573279606068823*^9, 
   3.5732801390399017`*^9, 3.573280328621007*^9, 3.57328366525211*^9, 
   3.573283719745987*^9, 3.573283833026342*^9, 3.573283908101194*^9, 
   3.573288475440633*^9, {3.573288550994493*^9, 3.573288563673256*^9}, 
   3.5732891922182293`*^9, 3.573289549714332*^9, 3.573313929631156*^9, 
   3.573314021591085*^9, 3.5733144551077127`*^9, 3.573318847657299*^9, 
   3.573319214921316*^9, 3.573320129054717*^9, 3.57336126376619*^9, 
   3.573361434442555*^9, 3.573362300882577*^9, 3.5733625333721733`*^9, 
   3.5733665251908503`*^9, 3.573368745986361*^9, 3.57336883069342*^9, 
   3.573368926100773*^9, 3.5733795884678307`*^9, 3.5733797233204*^9, 
   3.573400462932455*^9, 3.573400643095339*^9, 3.573400722921906*^9, 
   3.573402215641618*^9, 3.573407278203678*^9, {3.57344688053522*^9, 
   3.5734469044320393`*^9}, 3.5734470884979353`*^9, 3.573449487712697*^9, 
   3.573449522642116*^9, {3.573450334601418*^9, 3.5734503403074503`*^9}, 
   3.573450432318904*^9, {3.573450695096993*^9, 3.57345071891427*^9}, 
   3.573452272541857*^9, 3.57345551211257*^9, {3.57345574924631*^9, 
   3.573455770066534*^9}, 3.573458225002201*^9, 3.5734583385056143`*^9, 
   3.573464244954587*^9, {3.5734644550095797`*^9, 3.5734644595754957`*^9}, 
   3.57346448974823*^9, 3.573464725479786*^9, 3.5734647585891743`*^9, 
   3.5734651416149054`*^9, 3.57346526951182*^9, 3.5734653032397738`*^9, 
   3.573465346405484*^9, 3.573465761152755*^9, 3.5734658260549994`*^9, 
   3.573466085205103*^9, {3.573466451383027*^9, 3.573466471701137*^9}, 
   3.573466803598278*^9, 3.573466911179441*^9, 3.573467552192868*^9, 
   3.573467710468974*^9, 3.573468117481079*^9, 3.5734777636115093`*^9, 
   3.57347787757189*^9, 3.573480776159626*^9, 3.573481933782498*^9, 
   3.5734821696701527`*^9, 3.573482364077895*^9, 3.573482401108827*^9, 
   3.573482431766197*^9, {3.573482466559099*^9, 3.573482490691617*^9}, {
   3.5734825292730722`*^9, 3.5734825576033382`*^9}, 3.573482637191586*^9, 
   3.573487719398303*^9, 3.573488045325738*^9, 3.573488091060309*^9, 
   3.573488995921946*^9, 3.573489060589727*^9, 3.573489287365575*^9, 
   3.573489362817903*^9, 3.573489818220915*^9, 3.573490426136181*^9, 
   3.5734919204710608`*^9, 3.573492251177168*^9, 3.5734926003786173`*^9, 
   3.573493622822995*^9, 3.5734938657436953`*^9, 3.5735025050313063`*^9, 
   3.57353229780515*^9, 3.573535349866005*^9, 3.573535490091514*^9, {
   3.5735357707194853`*^9, 3.573535787672495*^9}, 3.5735368532537613`*^9, 
   3.5735369708190327`*^9, 3.573540399970661*^9, 3.573540463547958*^9, 
   3.573540509579588*^9, 3.5735406485243263`*^9, 3.573540706768757*^9, 
   3.573542947515416*^9, 3.573543413030534*^9, 3.573543591821697*^9, 
   3.573548204320146*^9, 3.573548393059211*^9, 3.5735485257169943`*^9, {
   3.573548587306086*^9, 3.573548657682773*^9}, 3.5735489044085703`*^9, 
   3.573551317929841*^9, 3.5735527700259*^9, 3.573553315571472*^9, 
   3.573555996181342*^9, 3.573557272385809*^9, 3.573633911727084*^9, 
   3.573635139920611*^9, {3.573638135264635*^9, 3.5736381851432962`*^9}, {
   3.573639212725884*^9, 3.5736392286834097`*^9}, 3.57364020650172*^9, 
   3.573641507246059*^9, 3.57364165596227*^9, 3.5736417328675213`*^9, 
   3.5736433525688057`*^9, 3.573643754701056*^9, 3.573644002746429*^9, 
   3.573644501950996*^9, 3.573647987639*^9, 3.573706575125372*^9, 
   3.57370919443676*^9, 3.573709433573636*^9, 3.573710052888791*^9, 
   3.57372605594243*^9, 3.573726960193943*^9, 3.573727318806795*^9, 
   3.573727601737162*^9, 3.57373130152374*^9, 3.5737316010711823`*^9, 
   3.573731653621532*^9, 3.573740762426922*^9, 3.573742313329665*^9, 
   3.573764979864461*^9, 3.573766998314859*^9, 3.5737973042017508`*^9, 
   3.573798169715143*^9, 3.573799104187101*^9, 3.573800468604411*^9, 
   3.5738026550668*^9, 3.5738056424560823`*^9, 3.5738188098774548`*^9, 
   3.573820467659614*^9, 3.5738214928468437`*^9, {3.5738218089499702`*^9, 
   3.5738218323270073`*^9}, 3.573822016613504*^9, 3.5738221343165903`*^9, 
   3.573822375938384*^9, 3.573823204752884*^9, 3.573823271105451*^9, 
   3.573823779112211*^9, 3.573825349117996*^9, {3.573826321152264*^9, 
   3.57382634222148*^9}, 3.573826706010653*^9, 3.573827608357095*^9, 
   3.5738277905935707`*^9, 3.573828135478682*^9, 3.5738290446553583`*^9, 
   3.573829079808283*^9, {3.573829192124824*^9, 3.5738292198905897`*^9}, 
   3.57382976879981*^9, 3.5738305593818703`*^9, 3.573830688190456*^9, 
   3.57383072753004*^9, 3.573831057837734*^9, 3.573831310206438*^9, 
   3.573831637021627*^9, 3.5738320687835197`*^9, 3.57383249874685*^9, 
   3.573834288445735*^9, 3.5738348229872103`*^9, 3.5738348984917583`*^9, 
   3.573835137334147*^9, 3.57383530666803*^9, 3.573837221378606*^9, 
   3.573837292037978*^9, 3.573837358194726*^9, 3.5738381193520403`*^9, 
   3.573838228936651*^9, 3.573838259089486*^9, 3.5738782493180103`*^9, 
   3.5738833331361437`*^9, 3.5738836194598303`*^9, 3.573883681378893*^9, 
   3.573883879468313*^9, 3.573884138998417*^9, {3.5738851569238443`*^9, 
   3.573885184697707*^9}, 3.573885655206759*^9, 3.573885799678639*^9, 
   3.573886805478928*^9, 3.5738887684044237`*^9, 3.573888927677257*^9, 
   3.57388910550541*^9, 3.573889230151457*^9, 3.573892298872813*^9, 
   3.5738926405978518`*^9, 3.5738930144838953`*^9, 3.573894622963231*^9, 
   3.5738950105186853`*^9, 3.5738954230870743`*^9, 3.573909455465352*^9, 
   3.5739331973343267`*^9, 3.573967185012994*^9, 3.573971802995854*^9, 
   3.573972976077304*^9, 3.573974451042276*^9, 3.573975185716487*^9, 
   3.573975310411867*^9, 3.573975666308716*^9, 3.573975779595332*^9, 
   3.573976392277741*^9, 3.5739776595712976`*^9, 3.5739782635569563`*^9, 
   3.573978578523052*^9, 3.573978740293745*^9, 3.573979988439178*^9, 
   3.57398268067868*^9, 3.57398441735396*^9, 3.573984748997748*^9, 
   3.573984947467586*^9, 3.573985106330065*^9, 3.573987266199655*^9, 
   3.5739911386788797`*^9, 3.574002898935305*^9, 3.5740074607805777`*^9, 
   3.5740078252393*^9, 3.574050292517014*^9, 3.5740596773915243`*^9, 
   3.5740599204879227`*^9, 3.574060066657001*^9, 3.574060195582553*^9, 
   3.574060772749197*^9, 3.574060893197473*^9, 3.574061689475602*^9, 
   3.574061801603156*^9, 3.574063387254242*^9, 3.574063509988141*^9, 
   3.574064190510079*^9, 3.5740644232380257`*^9, 3.574064751921172*^9, 
   3.574065058128689*^9, 3.574065806737612*^9, 3.574066352946274*^9, 
   3.574066439224971*^9, 3.574071822147901*^9, 3.57408312973984*^9, 
   3.574140101581914*^9, {3.574143726096241*^9, 3.5741437549626713`*^9}, 
   3.574143806872631*^9, {3.574492465928298*^9, 3.574492547444891*^9}, 
   3.574492788621584*^9, 3.5744939724347353`*^9, {3.5744961604998817`*^9, 
   3.5744961860172043`*^9}, 3.5745260197211018`*^9, 3.57509936656203*^9, 
   3.575358761738805*^9, 3.575359828694027*^9, 3.5753698700226316`*^9, 
   3.575370292625888*^9}],

Cell[BoxData["13"], "Output",
 CellChangeTimes->{
  3.566661718501853*^9, {3.566661866107888*^9, 3.56666189033167*^9}, 
   3.5666632764724493`*^9, 3.5666635061228933`*^9, {3.566664154089595*^9, 
   3.5666642007725143`*^9}, 3.5666643221464653`*^9, 3.566664613321117*^9, 
   3.566664693464332*^9, 3.566664890141494*^9, 3.56666501001894*^9, 
   3.566665074465266*^9, 3.566665186206705*^9, {3.566665248818069*^9, 
   3.566665295388771*^9}, 3.5666653862684307`*^9, 3.566665542373496*^9, 
   3.566665786659505*^9, 3.566666148667245*^9, 3.566671399107004*^9, 
   3.566671448118681*^9, 3.566671665045375*^9, 3.5667288481309147`*^9, 
   3.566729346416938*^9, 3.566729641354567*^9, 3.56672970080295*^9, 
   3.5667299449973793`*^9, 3.566730572628977*^9, 3.566731277844585*^9, 
   3.566731393857758*^9, 3.56673156077785*^9, 3.566731672579918*^9, 
   3.566731835399321*^9, 3.566733084453702*^9, 3.566741033001402*^9, 
   3.566741234258959*^9, 3.566741422164381*^9, 3.566749331685308*^9, 
   3.566749515416896*^9, 3.566750011647512*^9, {3.566803441975007*^9, 
   3.566803469804717*^9}, 3.566803725383306*^9, 3.5668042887809753`*^9, 
   3.566804357279251*^9, 3.566804431788026*^9, 3.566804545310172*^9, 
   3.566804748448534*^9, 3.5668048092955723`*^9, 3.566805724805624*^9, 
   3.566808758619851*^9, 3.566808828960305*^9, 3.566810343748042*^9, 
   3.566814055820245*^9, 3.5668152324015303`*^9, 3.566815275949566*^9, 
   3.566815326737062*^9, 3.56681537627488*^9, 3.56681570754958*^9, 
   3.566816233731861*^9, 3.566817179297265*^9, 3.566818460939445*^9, 
   3.566819121920141*^9, {3.566819403328341*^9, 3.5668194319688463`*^9}, 
   3.566819539259597*^9, {3.566820664404018*^9, 3.566820690997918*^9}, {
   3.5669056344733963`*^9, 3.56690566354047*^9}, {3.566909192950742*^9, 
   3.5669092121833563`*^9}, {3.5669092422584248`*^9, 3.566909267854623*^9}, 
   3.566910550527478*^9, 3.5669117434943953`*^9, 3.56691229191932*^9, 
   3.566912738220141*^9, 3.5669137058354187`*^9, 3.566919557976182*^9, {
   3.5669196284742737`*^9, 3.566919683299375*^9}, {3.566919855122705*^9, 
   3.5669198775643187`*^9}, 3.566919936143957*^9, {3.566920185756055*^9, 
   3.566920211835332*^9}, 3.566920298835505*^9, {3.566920526644951*^9, 
   3.566920556032764*^9}, 3.5669206168633204`*^9, {3.566920891195774*^9, 
   3.5669209126880836`*^9}, {3.566920967362596*^9, 3.5669209908107643`*^9}, 
   3.566921052862611*^9, {3.566921448166831*^9, 3.5669214732002497`*^9}, 
   3.5669215086834307`*^9, {3.5669222543102922`*^9, 3.566922291268476*^9}, {
   3.566922441198842*^9, 3.566922477614436*^9}, {3.566923083543943*^9, 
   3.56692311489102*^9}, {3.5669231849458513`*^9, 3.5669232016892357`*^9}, {
   3.56692516460437*^9, 3.566925203070444*^9}, {3.566925275726047*^9, 
   3.566925294292107*^9}, {3.5669253616450167`*^9, 3.566925379773757*^9}, {
   3.566925998100665*^9, 3.566926036372509*^9}, {3.5669260779033203`*^9, 
   3.5669260854233503`*^9}, 3.566926139191361*^9, {3.566926254396122*^9, 
   3.566926263774027*^9}, 3.566926350610901*^9, {3.5669264629582644`*^9, 
   3.5669264700789413`*^9}, 3.566926527062462*^9, {3.566926662521875*^9, 
   3.566926670206325*^9}, 3.566926731515335*^9, {3.566926902709523*^9, 
   3.5669269085460978`*^9}, 3.5669269468959513`*^9, {3.5669270550802507`*^9, 
   3.5669270799351597`*^9}, {3.566927159594871*^9, 3.566927179093391*^9}, {
   3.566927591066901*^9, 3.566927644482314*^9}, {3.566927686662353*^9, 
   3.566927695392295*^9}, 3.5669277486519814`*^9, {3.5669278664501333`*^9, 
   3.5669278746859407`*^9}, 3.56692794825399*^9, {3.566928118207065*^9, 
   3.566928125298574*^9}, 3.566928172054428*^9, {3.566928326294468*^9, 
   3.566928332472475*^9}, 3.566928377529808*^9, {3.566928588754362*^9, 
   3.566928614536738*^9}, {3.5669287284117804`*^9, 3.56692874109216*^9}, {
   3.5669288171116257`*^9, 3.5669288272802963`*^9}, {3.5669431298189383`*^9, 
   3.566943151971596*^9}, 3.5669433003887377`*^9, 3.5669440243110027`*^9, 
   3.566945552322002*^9, 3.566945631907255*^9, 3.5669482146900177`*^9, 
   3.566994076200601*^9, 3.567015201405401*^9, 3.567021818651225*^9, 
   3.567021908960082*^9, 3.5670282350694923`*^9, 3.5670583809100018`*^9, 
   3.5670690252051573`*^9, 3.567069103532461*^9, 3.5670702216729383`*^9, 
   3.5670731921050797`*^9, 3.567073254032526*^9, 3.567074114404982*^9, {
   3.567079249547982*^9, 3.567079272845272*^9}, 3.567079943346012*^9, 
   3.567089470646283*^9, {3.567092053381051*^9, 3.5670920738041267`*^9}, 
   3.567092141583866*^9, {3.567092668124259*^9, 3.567092708726103*^9}, {
   3.567108370231225*^9, 3.567108391561102*^9}, 3.567108477658197*^9, 
   3.567108666525028*^9, 3.567108734317795*^9, 3.567109523675891*^9, 
   3.567110269637248*^9, 3.5671103425003853`*^9, 3.567111422681692*^9, 
   3.567114525891939*^9, 3.5671145975112333`*^9, 3.567115768171548*^9, 
   3.567115988090616*^9, 3.567116904224674*^9, 3.567116962610139*^9, 
   3.567117793599244*^9, {3.5671223901001053`*^9, 3.567122417769642*^9}, 
   3.5671226859778833`*^9, {3.567124940796095*^9, 3.567124951380987*^9}, 
   3.5671250196452*^9, {3.56712544637751*^9, 3.5671254720654383`*^9}, 
   3.567162809812237*^9, 3.567243704032989*^9, 3.567243736150502*^9, 
   3.567245520930614*^9, 3.567250899166765*^9, 3.567253357018923*^9, 
   3.567253522933051*^9, 3.56725377538481*^9, {3.567253919254533*^9, 
   3.567254010424786*^9}, {3.567254059685871*^9, 3.567254094787114*^9}, {
   3.567254154677314*^9, 3.5672541757673693`*^9}, {3.567254589711072*^9, 
   3.567254625565359*^9}, {3.567254716386086*^9, 3.5672547356023912`*^9}, {
   3.5672600974170628`*^9, 3.567260134636897*^9}, {3.567260197483384*^9, 
   3.567260207341847*^9}, {3.5672611336540823`*^9, 3.567261203822831*^9}, {
   3.567261234346799*^9, 3.567261308609372*^9}, {3.5672613576229687`*^9, 
   3.567261383977255*^9}, {3.567261448453375*^9, 3.5672614645015907`*^9}, {
   3.567261513346178*^9, 3.567261524833494*^9}, {3.567261555225828*^9, 
   3.5672615623810596`*^9}, 3.567266628585663*^9, 3.567266949443769*^9, {
   3.567267104540378*^9, 3.5672672271305*^9}, {3.567267259966811*^9, 
   3.567267280353674*^9}, 3.567268518588146*^9, 3.567268642236354*^9, 
   3.567268753697956*^9, 3.567268911078541*^9, 3.5672689758552217`*^9, {
   3.567269280662183*^9, 3.567269365365856*^9}, {3.567269448653941*^9, 
   3.567269455933372*^9}, 3.5672695466598587`*^9, 3.567270320672958*^9, {
   3.567270916090152*^9, 3.5672709228067503`*^9}, 3.5672709988663*^9, 
   3.567271813568445*^9, {3.567273270747909*^9, 3.567273286714987*^9}, {
   3.567274752847834*^9, 3.567274814048457*^9}, {3.567274889332882*^9, 
   3.567274922263844*^9}, {3.5672749856913767`*^9, 3.567275017393124*^9}, {
   3.56727511939319*^9, 3.56727514956793*^9}, {3.5672752249335823`*^9, 
   3.567275238717738*^9}, {3.567275359050976*^9, 3.56727539043223*^9}, 
   3.567321210854846*^9, 3.567321758828731*^9, 3.567321845610282*^9, {
   3.567322013862865*^9, 3.5673220274972477`*^9}, 3.5673221341574097`*^9, {
   3.567322188566558*^9, 3.5673222016801977`*^9}, {3.567322241164606*^9, 
   3.5673222535254927`*^9}, {3.567322290136879*^9, 3.567322335617573*^9}, 
   3.567326844252742*^9, {3.567326927098578*^9, 3.5673269381843843`*^9}, {
   3.567327394231599*^9, 3.567327406624865*^9}, 3.5673303300783253`*^9, 
   3.5673310981828136`*^9, 3.56733128165819*^9, 3.567331337915039*^9, 
   3.567331629240878*^9, 3.567331895311981*^9, 3.56733217407972*^9, 
   3.567332538880231*^9, {3.5673329932078753`*^9, 3.567333009638933*^9}, 
   3.5673336347584343`*^9, 3.567334509974394*^9, 3.567334609074851*^9, 
   3.567334682447969*^9, 3.567338025807845*^9, 3.5673381057997313`*^9, 
   3.567338503192597*^9, 3.567338892192853*^9, 3.5673389884066763`*^9, 
   3.56733909159074*^9, {3.567339542240077*^9, 3.567339582616373*^9}, {
   3.5673397446343927`*^9, 3.567339770141542*^9}, {3.567339864402927*^9, 
   3.567339895933413*^9}, {3.567339998187531*^9, 3.567340033355383*^9}, {
   3.567340231530635*^9, 3.5673402664577293`*^9}, {3.567340431541134*^9, 
   3.567340465827299*^9}, {3.567340591392661*^9, 3.5673406247606792`*^9}, 
   3.5673412102307777`*^9, {3.5673414291104183`*^9, 3.56734154083177*^9}, {
   3.5673415746385736`*^9, 3.567341590037622*^9}, {3.567341646352707*^9, 
   3.567341661133951*^9}, {3.567341739853499*^9, 3.56734175404493*^9}, {
   3.567341845544532*^9, 3.56734185639253*^9}, {3.567343419411045*^9, 
   3.567343488205778*^9}, {3.567343542732379*^9, 3.5673435687444773`*^9}, {
   3.567343600616488*^9, 3.567343615253087*^9}, {3.5673436703239803`*^9, 
   3.5673436851746264`*^9}, {3.5673437631668873`*^9, 3.567343777837579*^9}, {
   3.5673438738198338`*^9, 3.567343885785542*^9}, {3.567345477573791*^9, 
   3.567345499401194*^9}, {3.567345554765396*^9, 3.567345574343123*^9}, {
   3.567345633691423*^9, 3.5673456949917707`*^9}, {3.5673458199714603`*^9, 
   3.5673458697892447`*^9}, {3.567346425747856*^9, 3.567346547571004*^9}, {
   3.567346597322263*^9, 3.5673466192587*^9}, {3.56734670329886*^9, 
   3.567346733508079*^9}, {3.56734683751866*^9, 3.567346853137236*^9}, {
   3.5673469714797487`*^9, 3.56734700651439*^9}, {3.5673479683324842`*^9, 
   3.5673479889937696`*^9}, {3.567348039409554*^9, 3.567348134996462*^9}, {
   3.567348170870368*^9, 3.567348189938629*^9}, {3.567348248531035*^9, 
   3.5673482677206497`*^9}, {3.567354568537437*^9, 3.567354599052476*^9}, {
   3.567354770453596*^9, 3.5673547967749662`*^9}, {3.5673548899795303`*^9, 
   3.567354921446186*^9}, {3.567354992185025*^9, 3.567355027618679*^9}, {
   3.567355179293955*^9, 3.567355222823909*^9}, {3.567355371747657*^9, 
   3.567355408183033*^9}, {3.567355899746862*^9, 3.5673559730064983`*^9}, {
   3.56735601629324*^9, 3.567356046683374*^9}, {3.567356095764325*^9, 
   3.567356108580196*^9}, {3.567356225085348*^9, 3.5673562592306843`*^9}, {
   3.567356354038041*^9, 3.5673563959980793`*^9}, {3.567356500501268*^9, 
   3.56735651539771*^9}, {3.567356761544731*^9, 3.567356799476631*^9}, 
   3.567359237830001*^9, 3.5673598168703823`*^9, 3.567360140252551*^9, 
   3.567360190019203*^9, 3.567360267212459*^9, {3.567360665546488*^9, 
   3.567360764382249*^9}, {3.56736080233768*^9, 3.567360822523485*^9}, {
   3.56736090710973*^9, 3.5673609343329153`*^9}, {3.567361052786911*^9, 
   3.567361085377583*^9}, {3.567361195462978*^9, 3.567361232594784*^9}, {
   3.5673613668497753`*^9, 3.5673613997680492`*^9}, {3.567361546294055*^9, 
   3.567361577381366*^9}, {3.567408893345584*^9, 3.567408916013319*^9}, {
   3.567408955918604*^9, 3.5674089796101933`*^9}, {3.567409026572114*^9, 
   3.567409050714748*^9}, {3.567409703327444*^9, 3.5674097692480392`*^9}, {
   3.567409802340982*^9, 3.5674098723548393`*^9}, {3.567409990421283*^9, 
   3.567410013252757*^9}, {3.567410171423038*^9, 3.567410192415917*^9}, {
   3.567410294871599*^9, 3.567410318477488*^9}, {3.56741053847477*^9, 
   3.56741060495656*^9}, {3.567411104362854*^9, 3.567411133977655*^9}, {
   3.5674340702278137`*^9, 3.5674341627858963`*^9}, {3.567462095094224*^9, 
   3.56746212048705*^9}, {3.567462151168594*^9, 3.567462177807218*^9}, 
   3.5674622286772413`*^9, {3.567462324459956*^9, 3.5674623284456587`*^9}, 
   3.567462363909381*^9, 3.567462730011574*^9, {3.567465243453062*^9, 
   3.5674652469960327`*^9}, 3.567465290795453*^9, 3.567466005252634*^9, {
   3.5675835487723837`*^9, 3.5675835530671988`*^9}, 3.567583663272434*^9, 
   3.5675867298137836`*^9, 3.56761653702672*^9, {3.56762237640543*^9, 
   3.567622378770953*^9}, 3.567622479312105*^9, 3.567625506494788*^9, {
   3.567681819396985*^9, 3.56768182053179*^9}, 3.567681873858603*^9, 
   3.5676835007822638`*^9, {3.567706949137323*^9, 3.567706969149102*^9}, 
   3.567707384391548*^9, {3.5677168402275677`*^9, 3.5677168536307087`*^9}, 
   3.567716954797264*^9, {3.567718756332024*^9, 3.567718768325996*^9}, {
   3.567719010730667*^9, 3.567719042786559*^9}, {3.5677191569098797`*^9, 
   3.567719184551454*^9}, {3.567767126128182*^9, 3.567767227344239*^9}, {
   3.5677701226020527`*^9, 3.567770146960382*^9}, {3.5677703659856367`*^9, 
   3.567770402732498*^9}, 3.567770518883315*^9, {3.567770802303317*^9, 
   3.567770827107665*^9}, 3.567770925107147*^9, 3.5677769949798193`*^9, 
   3.5677780447823133`*^9, {3.567778751799313*^9, 3.5677787779409723`*^9}, 
   3.56777882602604*^9, 3.56777892607196*^9, 3.567779341007073*^9, {
   3.567779436078376*^9, 3.567779446853363*^9}, {3.567780049161607*^9, 
   3.567780083786661*^9}, {3.567780130244721*^9, 3.567780180651572*^9}, 
   3.567780264050233*^9, {3.567780418546412*^9, 3.5677804397847567`*^9}, 
   3.567780542217873*^9, {3.567780709420986*^9, 3.567780742197084*^9}, {
   3.567780831918881*^9, 3.5677808371857147`*^9}, 3.567780963307884*^9, 
   3.567781641758463*^9, {3.567782471859379*^9, 3.5677824729626093`*^9}, 
   3.5677825568679733`*^9, 3.5677844757299137`*^9, 3.56778755984618*^9, 
   3.567787733200366*^9, {3.567787891782415*^9, 3.567787916244327*^9}, {
   3.5677882656225452`*^9, 3.56778827064769*^9}, 3.567788688263597*^9, 
   3.5677891640668993`*^9, 3.567789231200951*^9, 3.5677892936299953`*^9, 
   3.567789343151259*^9, 3.567789382446323*^9, 3.567789429083709*^9, 
   3.567789483319895*^9, 3.5677895360255623`*^9, 3.567789586035088*^9, 
   3.567789677077825*^9, 3.567789727770482*^9, 3.567789775653084*^9, 
   3.567790034597746*^9, 3.567790139184862*^9, 3.567790240794915*^9, 
   3.567790286465933*^9, 3.5677903446625843`*^9, 3.567790420657542*^9, 
   3.567790462260355*^9, 3.5677905063346167`*^9, 3.567790539952323*^9, 
   3.567790570665337*^9, 3.567790626481081*^9, 3.567790673018326*^9, 
   3.567792769797214*^9, {3.567792879103415*^9, 3.5677929068830767`*^9}, {
   3.567792961704917*^9, 3.567792979267302*^9}, 3.5677930916342287`*^9, 
   3.567793149642969*^9, 3.567793208760244*^9, 3.567793253325893*^9, 
   3.56779329442134*^9, 3.5677933535777273`*^9, 3.567793389364654*^9, 
   3.567794019146494*^9, {3.5677970693224697`*^9, 3.567797103396559*^9}, {
   3.567797162070628*^9, 3.567797190789949*^9}, {3.5677972766764507`*^9, 
   3.567797309275134*^9}, {3.567797612195414*^9, 3.567797647492331*^9}, {
   3.5677977588509817`*^9, 3.567797785443409*^9}, {3.567797877798099*^9, 
   3.56779790466743*^9}, {3.567840171677668*^9, 3.567840366734028*^9}, {
   3.567840416641759*^9, 3.567840428453641*^9}, {3.567847153910914*^9, 
   3.5678472497330112`*^9}, {3.567847528339716*^9, 3.5678475324200783`*^9}, 
   3.567847575034534*^9, 3.567847726151319*^9, {3.56784809959797*^9, 
   3.567848103596806*^9}, 3.567848145811103*^9, 3.567848314254525*^9, {
   3.567848766099153*^9, 3.567848784428563*^9}, 3.567848853147284*^9, 
   3.567851098468514*^9, {3.5678512897895937`*^9, 3.567851323013191*^9}, 
   3.567851416751482*^9, 3.567851569661824*^9, {3.567851946311372*^9, 
   3.567851952102314*^9}, 3.567852061895363*^9, 3.567852423410307*^9, {
   3.5678530394009247`*^9, 3.567853044440668*^9}, 3.56785310575957*^9, 
   3.567853402297699*^9, {3.56785393741143*^9, 3.567853966475663*^9}, 
   3.567854083092534*^9, 3.567859111373849*^9, 3.567868899548408*^9, 
   3.567878069119277*^9, 3.5678789914684153`*^9, 3.567880717685432*^9, 
   3.5678812007141647`*^9, 3.5678812976194*^9, 3.567927326361476*^9, 
   3.567927443956532*^9, 3.5679299570023737`*^9, 3.5679306370294533`*^9, 
   3.5679346710527763`*^9, 3.567937222444088*^9, 3.5679388661467876`*^9, 
   3.567939102084382*^9, 3.56794288917082*^9, {3.567943285587689*^9, 
   3.567943322554411*^9}, {3.567943412509481*^9, 3.5679434498662663`*^9}, {
   3.5679443762412977`*^9, 3.5679444206920977`*^9}, 3.5679453313685207`*^9, {
   3.5679454628239717`*^9, 3.56794548294177*^9}, 3.567946212731448*^9, {
   3.5679463335221443`*^9, 3.5679463816769953`*^9}, 3.567946875585857*^9, 
   3.5679469152449093`*^9, 3.567948922228396*^9, 3.5679601795950613`*^9, 
   3.567960450681676*^9, {3.567960797740796*^9, 3.567960826419338*^9}, 
   3.567961332099835*^9, {3.567961368779333*^9, 3.567961394772037*^9}, {
   3.5679614866464148`*^9, 3.567961513361395*^9}, {3.567961616626666*^9, 
   3.56796164118069*^9}, {3.567961716463282*^9, 3.56796174210859*^9}, {
   3.5679618112653933`*^9, 3.567961838208*^9}, {3.5679619312075872`*^9, 
   3.5679619567694387`*^9}, 3.567962084058798*^9, 3.567964396081571*^9, 
   3.567965032238956*^9, {3.567965157412589*^9, 3.5679652349435043`*^9}, {
   3.5679652754565973`*^9, 3.567965303759252*^9}, {3.567965351801156*^9, 
   3.5679653812313557`*^9}, {3.567965453137475*^9, 3.567965481989097*^9}, {
   3.567965543707121*^9, 3.567965559556632*^9}, 3.567965715216432*^9, {
   3.567967778515683*^9, 3.5679677973511143`*^9}, 3.568007639605557*^9, 
   3.5680078637124233`*^9, {3.5680079851323853`*^9, 3.568008011496389*^9}, {
   3.568008041677195*^9, 3.568008068683029*^9}, {3.568008125286644*^9, 
   3.568008152677306*^9}, {3.568008193813147*^9, 3.56800822259441*^9}, {
   3.56800827825287*^9, 3.5680082899256372`*^9}, {3.5680083565948877`*^9, 
   3.5680083673825417`*^9}, 3.568008560357854*^9, 3.568012449683646*^9, {
   3.568012658638152*^9, 3.5680126828926373`*^9}, {3.568012713414307*^9, 
   3.5680127385422993`*^9}, {3.568012781191915*^9, 3.568012805899794*^9}, {
   3.568012900993984*^9, 3.568012928347313*^9}, {3.568013030148726*^9, 
   3.568013058677389*^9}, {3.5680131598969383`*^9, 3.568013186454908*^9}, 
   3.568013314610909*^9, 3.5680138728745403`*^9, 3.5680152484085608`*^9, 
   3.568015967349969*^9, 3.568016538281569*^9, 3.568016951676652*^9, 
   3.568017095239729*^9, {3.568017201213777*^9, 3.5680172299943447`*^9}, {
   3.568017261795072*^9, 3.5680172914162483`*^9}, {3.568017329880237*^9, 
   3.568017359966311*^9}, {3.5680174134230223`*^9, 3.56801744678412*^9}, {
   3.568017514892674*^9, 3.568017545698782*^9}, {3.568017621479537*^9, 
   3.568017652094324*^9}, 3.568017754627677*^9, 3.56801923309645*^9, 
   3.568019510162571*^9, 3.568019578803906*^9, 3.568021400626369*^9, 
   3.568022468030983*^9, 3.568022581649247*^9, 3.568022979627689*^9, 
   3.5680231303589697`*^9, {3.56802324849717*^9, 3.568023278796384*^9}, {
   3.568023330987818*^9, 3.5680233581981087`*^9}, {3.5680234115819807`*^9, 
   3.568023443546378*^9}, {3.5680235287907267`*^9, 3.5680235647505913`*^9}, {
   3.568023640588439*^9, 3.568023669706249*^9}, {3.568023773782542*^9, 
   3.568023808153162*^9}, 3.568024059934704*^9, {3.568027625952816*^9, 
   3.568027659404007*^9}, {3.568027713751945*^9, 3.5680277211828012`*^9}, {
   3.5680293814978237`*^9, 3.5680293915679626`*^9}, {3.568029490185121*^9, 
   3.5680295716859217`*^9}, {3.568029611479246*^9, 3.568029638826206*^9}, {
   3.568029703946149*^9, 3.568029735538933*^9}, {3.568029807411152*^9, 
   3.568029838760996*^9}, {3.5680299216808*^9, 3.568029950143725*^9}, {
   3.5680390999035463`*^9, 3.56803912056458*^9}, {3.56803969072766*^9, 
   3.568039732198268*^9}, 3.56804014295648*^9, {3.568041382840062*^9, 
   3.568041407177107*^9}, {3.5680414411369543`*^9, 3.568041466803108*^9}, {
   3.568041503793407*^9, 3.5680415498095427`*^9}, {3.568041601291561*^9, 
   3.568041651422545*^9}, {3.568041717836261*^9, 3.568041769706388*^9}, {
   3.5680418494254923`*^9, 3.5680418965215187`*^9}, 3.568041970119012*^9, {
   3.5680427941250763`*^9, 3.5680429457011547`*^9}, {3.5680429907750063`*^9, 
   3.568043043326363*^9}, {3.568043096777562*^9, 3.568043140641799*^9}, 
   3.568043207925531*^9, {3.568043251773335*^9, 3.568043280179348*^9}, 
   3.56804334104876*^9, 3.568128783243964*^9, 3.568128833265523*^9, 
   3.5681332387316093`*^9, 3.568136888875964*^9, {3.568136988216803*^9, 
   3.568137067715543*^9}, {3.568137113367827*^9, 3.568137140310979*^9}, {
   3.568137205912099*^9, 3.568137238492693*^9}, {3.568137352339991*^9, 
   3.568137383535304*^9}, {3.568137539831978*^9, 3.568137567068705*^9}, 
   3.568137789922625*^9, 3.56814006988964*^9, 3.568143222219859*^9, 
   3.568276736838973*^9, 3.568277022042889*^9, 3.568277343707981*^9, 
   3.568277740600459*^9, {3.5682777831224546`*^9, 3.568277810062408*^9}, 
   3.56827801446806*^9, 3.568278061128806*^9, 3.5682781396789427`*^9, 
   3.5682783710019283`*^9, 3.568278499461358*^9, 3.568287563897928*^9, 
   3.568288806505988*^9, 3.568302264040882*^9, 3.56832624438139*^9, 
   3.568371236919717*^9, 3.568372368401145*^9, 3.568373252203143*^9, 
   3.568376293055491*^9, 3.56837642070243*^9, 3.568376961085421*^9, 
   3.568377799081568*^9, 3.568379398393878*^9, 3.5683818461285963`*^9, 
   3.568382115029662*^9, 3.568382702652452*^9, 3.568387407052642*^9, 
   3.568396055900844*^9, 3.568396100660301*^9, 3.568443085185688*^9, 
   3.568443246730343*^9, 3.5684442961540127`*^9, 3.568444386989513*^9, 
   3.568444446237455*^9, 3.5684444866997423`*^9, 3.568444596358507*^9, 
   3.56844578625518*^9, {3.568446286252393*^9, 3.568446306122426*^9}, 
   3.56844828986972*^9, 3.568448605896139*^9, 3.568448882406755*^9, 
   3.568452935082974*^9, 3.56848104085574*^9, 3.568481283134934*^9, 
   3.5684813980796013`*^9, 3.56853974139048*^9, 3.568539802932747*^9, 
   3.568541826680904*^9, 3.5685443209404488`*^9, 3.568549406604589*^9, 
   3.568549457682103*^9, 3.568552694987255*^9, 3.5685573537002983`*^9, 
   3.568557463728979*^9, 3.568557500913377*^9, 3.568557554804123*^9, 
   3.568557706242992*^9, 3.568558998020624*^9, 3.568559040136586*^9, 
   3.568569547112897*^9, 3.5685703067992973`*^9, 3.568614641415777*^9, {
   3.568614871487361*^9, 3.568614909917652*^9}, 3.568615934349071*^9, 
   3.5686167632158947`*^9, 3.5686169758171997`*^9, 3.56861709925554*^9, 
   3.5686172911335287`*^9, 3.568618238708156*^9, 3.5686209962264338`*^9, 
   3.568623748105444*^9, 3.56862554329494*^9, 3.568626761291765*^9, 
   3.568626810966674*^9, 3.568627132854451*^9, 3.568631420023858*^9, 
   3.568631574891275*^9, 3.5686322345275383`*^9, 3.568632571176384*^9, 
   3.568635415692185*^9, 3.568643997570929*^9, 3.5686441693499117`*^9, 
   3.568646143375486*^9, 3.5686463611583767`*^9, 3.568647431702376*^9, 
   3.568647477299642*^9, 3.568647542964821*^9, 3.568647687906747*^9, 
   3.5686477449117117`*^9, 3.56864937923253*^9, 3.568649799922555*^9, {
   3.568650145033494*^9, 3.56865017133974*^9}, 3.5686503479973307`*^9, 
   3.568650534181788*^9, 3.568698678841897*^9, 3.56869894721994*^9, 
   3.568703215232258*^9, 3.568705554847872*^9, 3.568706968839788*^9, 
   3.568707151142308*^9, 3.568710336976103*^9, 3.568710392664796*^9, 
   3.5687110992726183`*^9, {3.568711883918833*^9, 3.568711898125215*^9}, 
   3.5687120170162697`*^9, 3.568712073282527*^9, 3.568712825845867*^9, 
   3.5687129363667583`*^9, 3.5687130832782288`*^9, 3.568713170741846*^9, {
   3.568713294424233*^9, 3.568713318976808*^9}, 3.56871397945679*^9, 
   3.5687141309622793`*^9, {3.568714177232966*^9, 3.568714206859742*^9}, 
   3.568717278078919*^9, 3.5687177584900417`*^9, 3.568717949076685*^9, 
   3.568718287611106*^9, 3.568719704183175*^9, 3.5687200152280073`*^9, 
   3.5687245672697887`*^9, 3.5687246641272163`*^9, 3.5687248843891983`*^9, 
   3.5687254317953777`*^9, 3.568725532681334*^9, 3.56872640213389*^9, 
   3.568726554357923*^9, 3.568726592371744*^9, 3.568727899538706*^9, 
   3.568727954964325*^9, 3.568728159333785*^9, 3.568728230122662*^9, 
   3.568728985530971*^9, 3.5687292302780523`*^9, 3.568729320708454*^9, 
   3.568729803716271*^9, 3.5687328816475*^9, 3.568734873999002*^9, 
   3.5687349759818087`*^9, 3.568735105688525*^9, 3.568738260171012*^9, 
   3.5687392020799103`*^9, 3.568739496415122*^9, 3.56873954189036*^9, 
   3.5687404765821037`*^9, 3.568740600609428*^9, 3.568742499534666*^9, 
   3.5687444915044518`*^9, 3.568789885697192*^9, 3.568790115197708*^9, 
   3.568790813101775*^9, 3.5687909686706*^9, 3.568794916081318*^9, 
   3.568795048471005*^9, 3.56879537390352*^9, 3.568796664389678*^9, 
   3.568797078914528*^9, 3.568797189857216*^9, 3.5687972665804987`*^9, 
   3.5687973852709093`*^9, 3.568797749773493*^9, 3.568799029828415*^9, 
   3.5688906675465317`*^9, 3.568890775464065*^9, 3.56889093521376*^9, 
   3.56889097184874*^9, 3.568891204268613*^9, 3.568891278281823*^9, 
   3.5688923543555603`*^9, 3.568893850050927*^9, 3.568894532053398*^9, 
   3.5689008312003603`*^9, 3.5689041166097107`*^9, 3.5689048463768797`*^9, 
   3.568905731376066*^9, 3.56890601373081*^9, 3.5689061861159077`*^9, 
   3.5689093652258053`*^9, 3.568909400275605*^9, 3.5689734673185577`*^9, 
   3.568976681138461*^9, 3.568981190071516*^9, {3.568981239566234*^9, 
   3.568981273816122*^9}, 3.568981496825285*^9, 3.568985941531105*^9, 
   3.568998291526957*^9, 3.568998519720845*^9, 3.568998587117622*^9, 
   3.568998692294446*^9, 3.569000044716176*^9, 3.569002999962981*^9, 
   3.569045541904855*^9, 3.569045681043077*^9, 3.569046861112838*^9, 
   3.569050310217716*^9, 3.569051850632667*^9, 3.569053330768133*^9, 
   3.569054095122945*^9, 3.569054606937544*^9, 3.569055773181581*^9, 
   3.5690610088699512`*^9, 3.569061302742239*^9, 3.569061520725691*^9, 
   3.569065197266099*^9, 3.569066648445387*^9, 3.569067863250524*^9, 
   3.5690755434933147`*^9, 3.5690771580147667`*^9, 3.569077667870491*^9, 
   3.569077954854908*^9, 3.569080615829877*^9, 3.569081611798135*^9, 
   3.569082036569838*^9, 3.569082471398775*^9, 3.569136087110619*^9, 
   3.569136772791299*^9, 3.569136894295271*^9, 3.569137265820181*^9, 
   3.57293733077166*^9, 3.572938188909025*^9, 3.572939908705269*^9, 
   3.572940662584528*^9, 3.5729408861189404`*^9, 3.57294172119937*^9, 
   3.5729426167401648`*^9, 3.572942998904694*^9, 3.5729430995270233`*^9, 
   3.572943578565545*^9, 3.572945442361371*^9, 3.572947120321352*^9, 
   3.572947176031622*^9, 3.5729472834972477`*^9, 3.572947321854739*^9, 
   3.572947438534658*^9, {3.572947839680585*^9, 3.572947846589734*^9}, 
   3.572948108924388*^9, 3.57294891125206*^9, 3.5729489987712927`*^9, 
   3.572949185060251*^9, 3.572958040278222*^9, 3.572958338194152*^9, 
   3.5729585293743353`*^9, {3.57295979983342*^9, 3.572959823820853*^9}, 
   3.5729616072653303`*^9, 3.572961640406671*^9, 3.572963454527914*^9, 
   3.572964207961894*^9, 3.572972269923662*^9, 3.5729725224492197`*^9, 
   3.572973035218725*^9, {3.572974198398715*^9, 3.572974216958909*^9}, 
   3.5729744628571863`*^9, 3.572976837427742*^9, 3.572976921632959*^9, 
   3.572977101092251*^9, 3.572977174677185*^9, 3.573020213849641*^9, 
   3.573023263994388*^9, 3.573023470408442*^9, 3.5730235143289623`*^9, 
   3.5730235448393707`*^9, 3.573023620382572*^9, {3.57302420995271*^9, 
   3.573024256200369*^9}, 3.573025964830504*^9, 3.5730263200257063`*^9, 
   3.573026919256673*^9, 3.573027033182033*^9, 3.573028874595838*^9, 
   3.5731092421238422`*^9, 3.573109302919105*^9, 3.573109451678133*^9, 
   3.573110482737133*^9, 3.573111459155579*^9, 3.5731115461671143`*^9, 
   3.573113279381077*^9, 3.5731134231483727`*^9, 3.573114680616131*^9, 
   3.5731151082657146`*^9, 3.573192775525032*^9, 3.5731933621818953`*^9, 
   3.573194841479595*^9, 3.573195057973714*^9, 3.5731954035520697`*^9, 
   3.5731960048863583`*^9, 3.5731961528842297`*^9, 3.573196208065434*^9, 
   3.573196310928843*^9, 3.5732024367797003`*^9, 3.573203112684312*^9, 
   3.5732090494025087`*^9, 3.5732095109901533`*^9, 3.573209977199774*^9, 
   3.5732100138282013`*^9, 3.573210283594982*^9, 3.573210561729319*^9, 
   3.573211320984511*^9, 3.573211456842381*^9, 3.5732114932895393`*^9, 
   3.573211526754829*^9, 3.573211666198843*^9, 3.573211793750205*^9, 
   3.573212470521618*^9, 3.573212522817156*^9, 3.573213015502253*^9, 
   3.5732131166044903`*^9, 3.573213224628353*^9, {3.573213255011298*^9, 
   3.573213276627075*^9}, 3.573214124871654*^9, 3.573214943788569*^9, 
   3.573215089901785*^9, 3.573215659770347*^9, 3.573215694099951*^9, 
   3.573215927242395*^9, 3.573216051787641*^9, 3.5732174015027122`*^9, 
   3.5732181422458763`*^9, 3.573218200086319*^9, 3.573218321875086*^9, 
   3.573220845898629*^9, 3.573221653146679*^9, 3.573226229288403*^9, {
   3.573274028328245*^9, 3.573274055121018*^9}, 3.573274896428022*^9, 
   3.5732749823467617`*^9, 3.573275067177216*^9, 3.573275140909586*^9, 
   3.573275384883499*^9, 3.5732756410198517`*^9, 3.5732766177792587`*^9, {
   3.573276730793356*^9, 3.5732767421532087`*^9}, 3.573276814393477*^9, {
   3.573276844605629*^9, 3.573276880804741*^9}, 3.5732769266789293`*^9, 
   3.5732771262909317`*^9, 3.573277299111301*^9, 3.57327737193216*^9, 
   3.573277969868205*^9, 3.5732787104496183`*^9, {3.573279043719551*^9, 
   3.573279069799734*^9}, 3.573279556463664*^9, 3.573279606068823*^9, 
   3.5732801390399017`*^9, 3.573280328621007*^9, 3.57328366525211*^9, 
   3.573283719745987*^9, 3.573283833026342*^9, 3.573283908101194*^9, 
   3.573288475440633*^9, {3.573288550994493*^9, 3.573288563673256*^9}, 
   3.5732891922182293`*^9, 3.573289549714332*^9, 3.573313929631156*^9, 
   3.573314021591085*^9, 3.5733144551077127`*^9, 3.573318847657299*^9, 
   3.573319214921316*^9, 3.573320129054717*^9, 3.57336126376619*^9, 
   3.573361434442555*^9, 3.573362300882577*^9, 3.5733625333721733`*^9, 
   3.5733665251908503`*^9, 3.573368745986361*^9, 3.57336883069342*^9, 
   3.573368926100773*^9, 3.5733795884678307`*^9, 3.5733797233204*^9, 
   3.573400462932455*^9, 3.573400643095339*^9, 3.573400722921906*^9, 
   3.573402215641618*^9, 3.573407278203678*^9, {3.57344688053522*^9, 
   3.5734469044320393`*^9}, 3.5734470884979353`*^9, 3.573449487712697*^9, 
   3.573449522642116*^9, {3.573450334601418*^9, 3.5734503403074503`*^9}, 
   3.573450432318904*^9, {3.573450695096993*^9, 3.57345071891427*^9}, 
   3.573452272541857*^9, 3.57345551211257*^9, {3.57345574924631*^9, 
   3.573455770066534*^9}, 3.573458225002201*^9, 3.5734583385056143`*^9, 
   3.573464244954587*^9, {3.5734644550095797`*^9, 3.5734644595754957`*^9}, 
   3.57346448974823*^9, 3.573464725479786*^9, 3.5734647585891743`*^9, 
   3.5734651416149054`*^9, 3.57346526951182*^9, 3.5734653032397738`*^9, 
   3.573465346405484*^9, 3.573465761152755*^9, 3.5734658260549994`*^9, 
   3.573466085205103*^9, {3.573466451383027*^9, 3.573466471701137*^9}, 
   3.573466803598278*^9, 3.573466911179441*^9, 3.573467552192868*^9, 
   3.573467710468974*^9, 3.573468117481079*^9, 3.5734777636115093`*^9, 
   3.57347787757189*^9, 3.573480776159626*^9, 3.573481933782498*^9, 
   3.5734821696701527`*^9, 3.573482364077895*^9, 3.573482401108827*^9, 
   3.573482431766197*^9, {3.573482466559099*^9, 3.573482490691617*^9}, {
   3.5734825292730722`*^9, 3.5734825576033382`*^9}, 3.573482637191586*^9, 
   3.573487719398303*^9, 3.573488045325738*^9, 3.573488091060309*^9, 
   3.573488995921946*^9, 3.573489060589727*^9, 3.573489287365575*^9, 
   3.573489362817903*^9, 3.573489818220915*^9, 3.573490426136181*^9, 
   3.5734919204710608`*^9, 3.573492251177168*^9, 3.5734926003786173`*^9, 
   3.573493622822995*^9, 3.5734938657436953`*^9, 3.5735025050313063`*^9, 
   3.57353229780515*^9, 3.573535349866005*^9, 3.573535490091514*^9, {
   3.5735357707194853`*^9, 3.573535787672495*^9}, 3.5735368532537613`*^9, 
   3.5735369708190327`*^9, 3.573540399970661*^9, 3.573540463547958*^9, 
   3.573540509579588*^9, 3.5735406485243263`*^9, 3.573540706768757*^9, 
   3.573542947515416*^9, 3.573543413030534*^9, 3.573543591821697*^9, 
   3.573548204320146*^9, 3.573548393059211*^9, 3.5735485257169943`*^9, {
   3.573548587306086*^9, 3.573548657682773*^9}, 3.5735489044085703`*^9, 
   3.573551317929841*^9, 3.5735527700259*^9, 3.573553315571472*^9, 
   3.573555996181342*^9, 3.573557272385809*^9, 3.573633911727084*^9, 
   3.573635139920611*^9, {3.573638135264635*^9, 3.5736381851432962`*^9}, {
   3.573639212725884*^9, 3.5736392286834097`*^9}, 3.57364020650172*^9, 
   3.573641507246059*^9, 3.57364165596227*^9, 3.5736417328675213`*^9, 
   3.5736433525688057`*^9, 3.573643754701056*^9, 3.573644002746429*^9, 
   3.573644501950996*^9, 3.573647987639*^9, 3.573706575125372*^9, 
   3.57370919443676*^9, 3.573709433573636*^9, 3.573710052888791*^9, 
   3.57372605594243*^9, 3.573726960193943*^9, 3.573727318806795*^9, 
   3.573727601737162*^9, 3.57373130152374*^9, 3.5737316010711823`*^9, 
   3.573731653621532*^9, 3.573740762426922*^9, 3.573742313329665*^9, 
   3.573764979864461*^9, 3.573766998314859*^9, 3.5737973042017508`*^9, 
   3.573798169715143*^9, 3.573799104187101*^9, 3.573800468604411*^9, 
   3.5738026550668*^9, 3.5738056424560823`*^9, 3.5738188098774548`*^9, 
   3.573820467659614*^9, 3.5738214928468437`*^9, {3.5738218089499702`*^9, 
   3.5738218323270073`*^9}, 3.573822016613504*^9, 3.5738221343165903`*^9, 
   3.573822375938384*^9, 3.573823204752884*^9, 3.573823271105451*^9, 
   3.573823779112211*^9, 3.573825349117996*^9, {3.573826321152264*^9, 
   3.57382634222148*^9}, 3.573826706010653*^9, 3.573827608357095*^9, 
   3.5738277905935707`*^9, 3.573828135478682*^9, 3.5738290446553583`*^9, 
   3.573829079808283*^9, {3.573829192124824*^9, 3.5738292198905897`*^9}, 
   3.57382976879981*^9, 3.5738305593818703`*^9, 3.573830688190456*^9, 
   3.57383072753004*^9, 3.573831057837734*^9, 3.573831310206438*^9, 
   3.573831637021627*^9, 3.5738320687835197`*^9, 3.57383249874685*^9, 
   3.573834288445735*^9, 3.5738348229872103`*^9, 3.5738348984917583`*^9, 
   3.573835137334147*^9, 3.57383530666803*^9, 3.573837221378606*^9, 
   3.573837292037978*^9, 3.573837358194726*^9, 3.5738381193520403`*^9, 
   3.573838228936651*^9, 3.573838259089486*^9, 3.5738782493180103`*^9, 
   3.5738833331361437`*^9, 3.5738836194598303`*^9, 3.573883681378893*^9, 
   3.573883879468313*^9, 3.573884138998417*^9, {3.5738851569238443`*^9, 
   3.573885184697707*^9}, 3.573885655206759*^9, 3.573885799678639*^9, 
   3.573886805478928*^9, 3.5738887684044237`*^9, 3.573888927677257*^9, 
   3.57388910550541*^9, 3.573889230151457*^9, 3.573892298872813*^9, 
   3.5738926405978518`*^9, 3.5738930144838953`*^9, 3.573894622963231*^9, 
   3.5738950105186853`*^9, 3.5738954230870743`*^9, 3.573909455465352*^9, 
   3.5739331973343267`*^9, 3.573967185012994*^9, 3.573971802995854*^9, 
   3.573972976077304*^9, 3.573974451042276*^9, 3.573975185716487*^9, 
   3.573975310411867*^9, 3.573975666308716*^9, 3.573975779595332*^9, 
   3.573976392277741*^9, 3.5739776595712976`*^9, 3.5739782635569563`*^9, 
   3.573978578523052*^9, 3.573978740293745*^9, 3.573979988439178*^9, 
   3.57398268067868*^9, 3.57398441735396*^9, 3.573984748997748*^9, 
   3.573984947467586*^9, 3.573985106330065*^9, 3.573987266199655*^9, 
   3.5739911386788797`*^9, 3.574002898935305*^9, 3.5740074607805777`*^9, 
   3.5740078252393*^9, 3.574050292517014*^9, 3.5740596773915243`*^9, 
   3.5740599204879227`*^9, 3.574060066657001*^9, 3.574060195582553*^9, 
   3.574060772749197*^9, 3.574060893197473*^9, 3.574061689475602*^9, 
   3.574061801603156*^9, 3.574063387254242*^9, 3.574063509988141*^9, 
   3.574064190510079*^9, 3.5740644232380257`*^9, 3.574064751921172*^9, 
   3.574065058128689*^9, 3.574065806737612*^9, 3.574066352946274*^9, 
   3.574066439224971*^9, 3.574071822147901*^9, 3.57408312973984*^9, 
   3.574140101581914*^9, {3.574143726096241*^9, 3.5741437549626713`*^9}, 
   3.574143806872631*^9, {3.574492465928298*^9, 3.574492547444891*^9}, 
   3.574492788621584*^9, 3.5744939724347353`*^9, {3.5744961604998817`*^9, 
   3.5744961860172043`*^9}, 3.5745260197211018`*^9, 3.57509936656203*^9, 
   3.575358761738805*^9, 3.575359828694027*^9, 3.5753698700226316`*^9, 
   3.575370292638392*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "dumVars", "]"}], "<", "2"}], ",", 
    RowBox[{"DUMB", "=", "dumb"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Head", "[", "dumb", "]"}], "\[Equal]", "Times"}], ",", 
    RowBox[{"DUMB", "=", "dumb"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.566808881734676*^9, 3.5668088836975527`*^9}, {
  3.5731094087248907`*^9, 3.573109423565979*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"checkDUMB", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"dumb", "==", "DUMB"}], "//.", 
    RowBox[{
     RowBox[{"am", "[", "x_", "]"}], "\[Rule]", "x"}]}], "//.", 
   "genericAll"}]}]], "Input",
 CellChangeTimes->{{3.566661905541438*^9, 3.566661906673479*^9}, {
  3.56666539024018*^9, 3.56666540015278*^9}, {3.566808503008252*^9, 
  3.566808504715633*^9}, {3.56680857771632*^9, 3.566808579495682*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.566661907846386*^9, 3.566663277244176*^9, 3.566663509811771*^9, 
   3.5666642245925293`*^9, 3.566664325718082*^9, {3.566665282819282*^9, 
   3.5666652998709393`*^9}, {3.5666653868805523`*^9, 3.5666654012844152`*^9}, 
   3.566665550899507*^9, 3.566665794950247*^9, 3.5666661493563757`*^9, 
   3.5666714009835167`*^9, 3.56667144884529*^9, 3.5666716659244537`*^9, 
   3.566728848468071*^9, 3.56672934651315*^9, 3.566729641460598*^9, 
   3.566729704634008*^9, 3.566729945350425*^9, 3.566730572678187*^9, 
   3.566731277977111*^9, 3.566731393980253*^9, 3.566731560857836*^9, 
   3.566731672737953*^9, 3.566731835512013*^9, 3.5667330845963287`*^9, 
   3.566741033047497*^9, 3.56674123431958*^9, 3.566741422217078*^9, 
   3.566749331735868*^9, 3.566749515548246*^9, 3.5667500125497847`*^9, {
   3.5668034542240353`*^9, 3.566803481404011*^9}, 3.566803725431365*^9, 
   3.566804288826673*^9, 3.566804357370796*^9, 3.56680444136197*^9, 
   3.566804555460641*^9, 3.5668047497093773`*^9, 3.566804814165474*^9, 
   3.566805729674782*^9, 3.566808758660982*^9, 3.5668088334239264`*^9, {
   3.566808874430559*^9, 3.566808886525364*^9}, 3.566810343795438*^9, 
   3.566814055848258*^9, 3.5668152324441013`*^9, 3.5668152759972353`*^9, 
   3.566815326756871*^9, 3.566815376318166*^9, 3.5668157591723948`*^9, 
   3.566816291325602*^9, 3.5668171797545977`*^9, 3.566818461320467*^9, 
   3.566819162475422*^9, {3.566819403350215*^9, 3.566819432013628*^9}, 
   3.566819539309911*^9, {3.5668206644467163`*^9, 3.566820691040987*^9}, {
   3.56690563452813*^9, 3.566905663592276*^9}, {3.566909192999825*^9, 
   3.566909212231175*^9}, {3.5669092423086567`*^9, 3.566909267906157*^9}, 
   3.5669105505812263`*^9, 3.566911743545272*^9, 3.566912291969063*^9, 
   3.5669127383239937`*^9, 3.5669137058844213`*^9, 3.566919570967601*^9, {
   3.5669196285239477`*^9, 3.5669196626334257`*^9}, 3.566919695848567*^9, {
   3.566919855183123*^9, 3.5669198853664103`*^9}, 3.566919954947549*^9, {
   3.5669201858029203`*^9, 3.566920224091609*^9}, 3.566920334023898*^9, {
   3.5669205266931763`*^9, 3.5669205675976048`*^9}, 3.566920649581497*^9, {
   3.5669208913316517`*^9, 3.5669209196511497`*^9}, {3.566920967423505*^9, 
   3.566920998402041*^9}, 3.566921088116048*^9, {3.56692144822952*^9, 
   3.566921477250823*^9}, 3.5669215438562202`*^9, {3.566922254386002*^9, 
   3.566922271419961*^9}, 3.566922331221656*^9, {3.5669224412204237`*^9, 
   3.56692246089889*^9}, 3.566922567929522*^9, {3.566923083589677*^9, 
   3.566923102396863*^9}, 3.5669231514816723`*^9, {3.566923185003137*^9, 
   3.566923190094323*^9}, 3.566923236040124*^9, {3.566925164662609*^9, 
   3.566925189650351*^9}, 3.566925240165749*^9, {3.566925275782778*^9, 
   3.566925281535659*^9}, 3.5669253284278393`*^9, {3.566925361704465*^9, 
   3.566925366827652*^9}, 3.566925414865995*^9, {3.566925998163711*^9, 
   3.566926018428072*^9}, {3.566926049115871*^9, 3.566926092405604*^9}, 
   3.566926156011887*^9, {3.566926254453874*^9, 3.566926275864915*^9}, 
   3.5669263814010973`*^9, {3.5669264630195103`*^9, 3.566926481220023*^9}, 
   3.566926557710319*^9, {3.5669266625834713`*^9, 3.566926676954417*^9}, 
   3.5669267641646852`*^9, {3.5669269027720118`*^9, 3.5669269125519533`*^9}, 
   3.566926980964945*^9, {3.5669270551478252`*^9, 3.566927062157641*^9}, 
   3.566927116157034*^9, {3.566927159658242*^9, 3.5669271649064913`*^9}, 
   3.566927213366335*^9, {3.5669275911326227`*^9, 3.566927702379758*^9}, 
   3.566927765930936*^9, {3.566927866520399*^9, 3.5669278826506567`*^9}, 
   3.566928001772482*^9, {3.566928118272299*^9, 3.5669281336530857`*^9}, 
   3.566928218724442*^9, {3.5669283263575287`*^9, 3.566928336190727*^9}, 
   3.566928427702209*^9, {3.566928588818831*^9, 3.566928593205908*^9}, 
   3.5669286507807817`*^9, {3.5669287284734373`*^9, 3.566928731167091*^9}, 
   3.566928774974688*^9, {3.5669288171820803`*^9, 3.566928819371258*^9}, 
   3.566928859477632*^9, {3.566943129887645*^9, 3.566943152068904*^9}, 
   3.566943417809327*^9, 3.566944594711616*^9, 3.566945552514063*^9, 
   3.5669457958900213`*^9, 3.566965954742092*^9, 3.566999623512958*^9, 
   3.567020644100994*^9, 3.567021818764678*^9, 3.5670221568993273`*^9, 
   3.5670610053685102`*^9, 3.567069025279976*^9, 3.567069424491384*^9, 
   3.567070735465666*^9, 3.567073192180626*^9, 3.5670734271418877`*^9, 
   3.56707647925667*^9, 3.56707924960852*^9, 3.5670793066225147`*^9, 
   3.567090700473381*^9, 3.567092053445161*^9, 3.5670920853285713`*^9, 
   3.567092378294436*^9, {3.567092668196867*^9, 3.5670927113899307`*^9}, {
   3.5671083702514887`*^9, 3.567108391638191*^9}, 3.567108513803958*^9, 
   3.56710866660315*^9, 3.5671089170243607`*^9, 3.567109575481206*^9, 
   3.567110269695854*^9, 3.5671105944662952`*^9, 3.567113201431525*^9, 
   3.5671145259670477`*^9, 3.5671149521388407`*^9, 3.567115813202189*^9, 
   3.567116033169983*^9, 3.567116904247239*^9, 3.567117134701212*^9, 
   3.5671202018937063`*^9, 3.5671223901714907`*^9, 3.567122456361145*^9, 
   3.567123990056376*^9, {3.567124940861679*^9, 3.5671249622386208`*^9}, 
   3.5671252882411327`*^9, {3.56712544644842*^9, 3.5671254746321583`*^9}, 
   3.5671628098748837`*^9, 3.567243704089588*^9, 3.567243736202908*^9, 
   3.567245520980283*^9, 3.5672508992811317`*^9, 3.567253357070211*^9, 
   3.5672535229850492`*^9, 3.567253775540155*^9, {3.5672539193012133`*^9, 
   3.567254017724626*^9}, {3.567254059752194*^9, 3.567254070634894*^9}, 
   3.567254122089624*^9, {3.567254154736178*^9, 3.567254163128237*^9}, 
   3.567254202595739*^9, {3.567254589767887*^9, 3.567254598461607*^9}, 
   3.567254653825844*^9, {3.5672547164490833`*^9, 3.567254720999565*^9}, 
   3.56725476661646*^9, {3.567260097481502*^9, 3.567260118817505*^9}, {
   3.567260167894203*^9, 3.567260200218747*^9}, 3.567260240960047*^9, {
   3.5672611337198963`*^9, 3.56726120423103*^9}, {3.567261234451275*^9, 
   3.567261318337228*^9}, {3.567261357643865*^9, 3.567261365588603*^9}, 
   3.567261403600368*^9, {3.56726144851857*^9, 3.567261453062552*^9}, {
   3.5672614839496613`*^9, 3.567261574278262*^9}, 3.567266628640667*^9, 
   3.5672669494983597`*^9, {3.56726710460297*^9, 3.5672672289775867`*^9}, {
   3.567267260120625*^9, 3.567267282214147*^9}, 3.5672685186354733`*^9, 
   3.567268642291944*^9, 3.567268753820752*^9, 3.5672689111292953`*^9, 
   3.567268975905271*^9, {3.567269280713499*^9, 3.567269366342717*^9}, {
   3.56726944870868*^9, 3.567269455959893*^9}, 3.567269770564795*^9, 
   3.567270645349485*^9, {3.567270916155715*^9, 3.567270922833363*^9}, 
   3.567271249832511*^9, 3.567272195363172*^9, {3.567273270806666*^9, 
   3.56727328674196*^9}, {3.567274752946048*^9, 3.567274814450367*^9}, {
   3.567274889352817*^9, 3.567274904484215*^9}, 3.567274941628599*^9, {
   3.5672749857454967`*^9, 3.567274993485209*^9}, 3.5672750500935087`*^9, {
   3.567275119592659*^9, 3.567275133210848*^9}, 3.5672751841035967`*^9, {
   3.567275224990103*^9, 3.5672752284265747`*^9}, 3.567275268392091*^9, {
   3.5672753591140757`*^9, 3.567275377970633*^9}, 3.567275418399036*^9, 
   3.567321211223751*^9, 3.567321759195776*^9, 3.567321845664916*^9, {
   3.567322013915031*^9, 3.567322027994323*^9}, 3.567322134246714*^9, {
   3.5673221886293917`*^9, 3.567322201939341*^9}, {3.5673222412153*^9, 
   3.567322254106468*^9}, {3.567322290206656*^9, 3.5673223363207607`*^9}, 
   3.567326844303874*^9, {3.567326927150187*^9, 3.567326938210588*^9}, {
   3.5673273943255863`*^9, 3.567327406647584*^9}, 3.567330330289616*^9, 
   3.567331098230221*^9, 3.567331281758293*^9, 3.567331337966502*^9, 
   3.567331629319325*^9, 3.5673318953313704`*^9, 3.5673321741484337`*^9, 
   3.5673325389019623`*^9, {3.567332993352001*^9, 3.567333009959155*^9}, 
   3.567333634781075*^9, 3.567334510051346*^9, 3.567334609178762*^9, 
   3.567334682543275*^9, 3.567338025872182*^9, 3.567338105850234*^9, 
   3.567338503246943*^9, 3.5673388922442217`*^9, 3.567338988464363*^9, 
   3.5673390916419277`*^9, {3.567339542288889*^9, 3.5673395845456867`*^9}, {
   3.567339744702262*^9, 3.5673397762464867`*^9}, {3.567339864475185*^9, 
   3.567339883992796*^9}, 3.567339919359839*^9, {3.567339998299285*^9, 
   3.5673400191603527`*^9}, 3.567340074648838*^9, {3.567340231553953*^9, 
   3.567340250967937*^9}, 3.567340317019147*^9, {3.567340431603705*^9, 
   3.567340450738057*^9}, 3.567340524221245*^9, {3.567340591452588*^9, 
   3.567340610099902*^9}, 3.567340684038666*^9, 3.56734121028647*^9, {
   3.567341429163643*^9, 3.567341579188444*^9}, 3.5673416146076736`*^9, {
   3.5673416464082413`*^9, 3.5673416501826687`*^9}, 3.567341698802038*^9, {
   3.567341739906826*^9, 3.5673417431052628`*^9}, 3.56734180464452*^9, {
   3.567341845569396*^9, 3.567341848241826*^9}, 3.567341902739667*^9, {
   3.567343419536875*^9, 3.567343491586523*^9}, {3.567343542801621*^9, 
   3.567343604660187*^9}, 3.567343638062499*^9, {3.567343670385318*^9, 
   3.567343674328981*^9}, 3.567343722856148*^9, {3.5673437632278767`*^9, 
   3.567343766034869*^9}, 3.5673438310249023`*^9, {3.567343873884108*^9, 
   3.5673438764487257`*^9}, 3.5673439323428288`*^9, {3.567345477640134*^9, 
   3.5673455003375893`*^9}, {3.567345554788913*^9, 3.567345575216104*^9}, {
   3.567345633753508*^9, 3.567345696777549*^9}, {3.56734582002862*^9, 
   3.5673458698494253`*^9}, {3.567346425816677*^9, 3.56734653493996*^9}, 
   3.567346566437241*^9, {3.567346597430846*^9, 3.567346602372241*^9}, 
   3.567346656385474*^9, {3.567346703355001*^9, 3.567346716038232*^9}, 
   3.567346781743552*^9, {3.567346837582842*^9, 3.567346840598855*^9}, 
   3.567346904940475*^9, {3.567346971504911*^9, 3.567346990362049*^9}, 
   3.567347059998667*^9, {3.567347968396784*^9, 3.567347989617031*^9}, {
   3.567348039466449*^9, 3.567348136544063*^9}, {3.5673481709287252`*^9, 
   3.567348191599875*^9}, {3.567348248557136*^9, 3.56734826936376*^9}, {
   3.567354568594475*^9, 3.5673545998491*^9}, {3.567354770479446*^9, 
   3.5673547983649797`*^9}, {3.567354890054718*^9, 3.5673549077690573`*^9}, 
   3.567354942825252*^9, {3.567354992246757*^9, 3.567355010501459*^9}, 
   3.5673550688184967`*^9, {3.5673551793164787`*^9, 3.567355201722093*^9}, 
   3.5673552721667137`*^9, {3.5673553718055696`*^9, 3.567355391256054*^9}, 
   3.567355465223344*^9, {3.567355899813466*^9, 3.567355974463839*^9}, {
   3.56735601635476*^9, 3.567356033181978*^9}, {3.567356068110128*^9, 
   3.567356126620927*^9}, {3.567356225139621*^9, 3.5673562438099823`*^9}, 
   3.5673562965339937`*^9, {3.567356354105102*^9, 3.567356377946116*^9}, 
   3.567356444981977*^9, {3.567356500564196*^9, 3.567356503660811*^9}, 
   3.567356576890841*^9, {3.5673567617042103`*^9, 3.567356781166958*^9}, 
   3.5673568551521883`*^9, 3.567359237901699*^9, 3.567359816904935*^9, 
   3.5673601403366528`*^9, 3.567360190048787*^9, 3.567360267328182*^9, {
   3.56736066562006*^9, 3.5673608086682158`*^9}, 3.567360844715457*^9, {
   3.56736090719233*^9, 3.567360953601758*^9}, {3.5673610528811703`*^9, 
   3.567361069564478*^9}, 3.567361120985972*^9, {3.5673611955599337`*^9, 
   3.567361213545587*^9}, 3.5673612805264893`*^9, {3.567361366928836*^9, 
   3.567361383066003*^9}, 3.567361451990911*^9, {3.567361546369328*^9, 
   3.5673615625091457`*^9}, 3.5673616264211407`*^9, {3.567408893399729*^9, 
   3.567408916069175*^9}, {3.567408955969892*^9, 3.567408982348933*^9}, {
   3.567409026631421*^9, 3.5674090604332247`*^9}, {3.5674097033494577`*^9, 
   3.567409769312529*^9}, {3.567409802402849*^9, 3.567409874322945*^9}, {
   3.567409990480195*^9, 3.567410015179633*^9}, {3.567410171495501*^9, 
   3.567410194504724*^9}, {3.567410294897636*^9, 3.567410320370707*^9}, {
   3.567410538550198*^9, 3.567410593791788*^9}, 3.5674106250502863`*^9, {
   3.5674111044255877`*^9, 3.567411121118043*^9}, 3.567411165747003*^9, {
   3.56743407028832*^9, 3.567434172355238*^9}, {3.5674620951391153`*^9, 
   3.5674621918095922`*^9}, 3.567462231360231*^9, {3.567462324519679*^9, 
   3.567462328513796*^9}, 3.5674624522797832`*^9, 3.567464096767775*^9, {
   3.567465243519947*^9, 3.567465247055798*^9}, 3.5674654314120398`*^9, 
   3.567472737127982*^9, {3.567583548848584*^9, 3.567583553141781*^9}, 
   3.567584385664598*^9, 3.5676058325827837`*^9, {3.567622376464613*^9, 
   3.567622378936227*^9}, 3.5676230655450897`*^9, 3.5676520771473207`*^9, {
   3.567681819477816*^9, 3.567681820560687*^9}, 3.5676821956298943`*^9, 
   3.567698034251955*^9, {3.567706949159669*^9, 3.567706949768516*^9}, 
   3.5677070462789373`*^9, 3.567713260507465*^9, {3.5677168402895737`*^9, 
   3.567716853696888*^9}, 3.567717764774885*^9, {3.567718756352388*^9, 
   3.567718757590283*^9}, 3.56771882795603*^9, {3.567719010795401*^9, 
   3.567719030409299*^9}, 3.5677190732927713`*^9, {3.5677191569640827`*^9, 
   3.5677191845734243`*^9}, {3.5677671261542263`*^9, 
   3.5677672382923613`*^9}, {3.5677701226598186`*^9, 3.567770147030773*^9}, {
   3.567770366011936*^9, 3.567770403254788*^9}, 3.567770547050226*^9, {
   3.567770802327321*^9, 3.567770827324494*^9}, 3.5677709526159*^9, 
   3.5677770354467697`*^9, {3.5677787518982487`*^9, 3.567778778264276*^9}, 
   3.567778826104116*^9, 3.567778939541505*^9, 3.567779344565009*^9, {
   3.5677794360970592`*^9, 3.567779446871854*^9}, {3.56778004917544*^9, 
   3.567780083978787*^9}, {3.567780130259242*^9, 3.567780180703396*^9}, 
   3.567780264149068*^9, {3.5677804185634212`*^9, 3.5677804398507338`*^9}, 
   3.567780542468857*^9, {3.5677807094353857`*^9, 3.567780742256366*^9}, {
   3.567780831936015*^9, 3.567780837245323*^9}, 3.567780963599319*^9, 
   3.5677816419485483`*^9, {3.567782471877552*^9, 3.567782473024075*^9}, 
   3.567782557136052*^9, 3.567784476033484*^9, 3.5677875598620777`*^9, 
   3.567787733368532*^9, {3.5677878917971363`*^9, 3.5677879163014603`*^9}, {
   3.567788265638344*^9, 3.567788270699664*^9}, 3.567789164132638*^9, 
   3.567789231320244*^9, 3.567789293862214*^9, 3.5677893433806477`*^9, 
   3.5677893825781307`*^9, 3.567789429586854*^9, 3.5677894834287853`*^9, 
   3.5677895364084873`*^9, 3.567789586356256*^9, 3.567789677464563*^9, 
   3.5677897279399147`*^9, 3.567789775753376*^9, 3.5677900346724997`*^9, 
   3.567790139496944*^9, 3.567790240912819*^9, 3.567790286645591*^9, 
   3.567790344792549*^9, 3.567790421129991*^9, 3.5677904624131317`*^9, 
   3.567790506579965*^9, 3.567790540191592*^9, 3.567790570727078*^9, 
   3.567790626553093*^9, 3.567790673082267*^9, 3.567792769859482*^9, {
   3.56779287916637*^9, 3.5677929069468603`*^9}, {3.567792961772958*^9, 
   3.567792979369234*^9}, 3.567793091702656*^9, 3.5677931497053556`*^9, 
   3.567793208853528*^9, 3.56779325341611*^9, 3.56779329457049*^9, 
   3.5677933536356173`*^9, 3.5677933894201612`*^9, 3.567794019214836*^9, {
   3.567797069385898*^9, 3.567797116376239*^9}, {3.567797162141095*^9, 
   3.567797179435959*^9}, 3.567797215853297*^9, {3.56779727685043*^9, 
   3.567797294567278*^9}, 3.567797341755486*^9, {3.567797612409532*^9, 
   3.56779763202951*^9}, 3.567797684939661*^9, {3.567797758916377*^9, 
   3.567797772327775*^9}, 3.5677978240696297`*^9, {3.567797877860112*^9, 
   3.567797892287252*^9}, 3.567797942063442*^9, {3.56784017175002*^9, 
   3.5678403560436087`*^9}, {3.567840394786148*^9, 3.567840420585842*^9}, 
   3.567840466417789*^9, {3.567847153976729*^9, 3.567847250703258*^9}, {
   3.567847528423826*^9, 3.567847532493215*^9}, 3.567847575830361*^9, 
   3.567847749817759*^9, {3.5678480996723013`*^9, 3.567848103670979*^9}, 
   3.567848146790318*^9, 3.567848342264751*^9, {3.567848766179846*^9, 
   3.567848784784404*^9}, 3.567848880372039*^9, 3.567851098531397*^9, {
   3.567851289848304*^9, 3.567851324244956*^9}, 3.567851419078763*^9, 
   3.56785157206663*^9, {3.5678519463747787`*^9, 3.567851952163231*^9}, 
   3.567852063206352*^9, 3.5678524537411823`*^9, {3.567853039463668*^9, 
   3.5678530445051117`*^9}, 3.567853107079118*^9, 3.567853432534719*^9, {
   3.567853937470656*^9, 3.5678539668458433`*^9}, 3.567854113538146*^9, 
   3.567859111883048*^9, 3.567868899610549*^9, 3.56787806941267*^9, 
   3.5678789915272837`*^9, 3.5678807177083807`*^9, 3.567881200772252*^9, 
   3.567881297675823*^9, 3.567927326823254*^9, 3.5679274440974417`*^9, 
   3.567929957324692*^9, 3.567930637121788*^9, 3.567934671143188*^9, 
   3.567937222509089*^9, 3.567938866205514*^9, 3.5679391021616163`*^9, 
   3.567942889229538*^9, {3.567943285610073*^9, 3.56794332258045*^9}, {
   3.567943412532691*^9, 3.567943449971385*^9}, {3.5679443762655582`*^9, 
   3.567944420758925*^9}, 3.567945331391313*^9, {3.567945462883267*^9, 
   3.5679454830066767`*^9}, 3.567946212799933*^9, {3.567946333549555*^9, 
   3.5679463817031612`*^9}, 3.567946875650345*^9, 3.5679469152681437`*^9, 
   3.567948922253901*^9, 3.567960245607533*^9, 3.567960465392323*^9, {
   3.567960797804332*^9, 3.5679608308498363`*^9}, 3.5679613321454973`*^9, {
   3.567961368824912*^9, 3.5679613989502783`*^9}, {3.567961486708021*^9, 
   3.567961523285205*^9}, {3.567961616690914*^9, 3.567961657979401*^9}, {
   3.567961716523755*^9, 3.567961731121876*^9}, 3.5679617742746572`*^9, {
   3.567961811326779*^9, 3.567961826486615*^9}, 3.567961876503367*^9, {
   3.5679619312864323`*^9, 3.567961945938684*^9}, 3.567961989943295*^9, 
   3.5679621330689993`*^9, 3.567964415393468*^9, 3.5679650487811327`*^9, {
   3.56796515743392*^9, 3.567965245501227*^9}, {3.5679652755352983`*^9, 
   3.5679653689552927`*^9}, 3.567965408014614*^9, {3.567965453198798*^9, 
   3.567965469352586*^9}, {3.5679655155599823`*^9, 3.5679655466311903`*^9}, 
   3.567965592738433*^9, 3.5679657695614243`*^9, {3.567967778570168*^9, 
   3.5679677974161043`*^9}, 3.5680076396623583`*^9, 3.568007882582855*^9, {
   3.5680079852466583`*^9, 3.568008080243206*^9}, {3.568008125344653*^9, 
   3.568008208771646*^9}, {3.5680082513817663`*^9, 3.568008281434907*^9}, 
   3.568008326264591*^9, {3.568008356655892*^9, 3.5680083596585608`*^9}, 
   3.568008408014978*^9, 3.568008621257287*^9, 3.568012466034046*^9, {
   3.5680126586949587`*^9, 3.56801274861384*^9}, {3.568012781214698*^9, 
   3.5680128247044153`*^9}, {3.5680129010689774`*^9, 3.568012916158863*^9}, 
   3.568012956851941*^9, {3.568013030220845*^9, 3.568013046015504*^9}, 
   3.5680130938273*^9, {3.5680131599231787`*^9, 3.568013175047615*^9}, 
   3.56801322107323*^9, 3.5680133660911922`*^9, 3.568013873086905*^9, 
   3.568015248468363*^9, 3.568015967406402*^9, 3.568016538440014*^9, 
   3.568016967721575*^9, 3.568017110823454*^9, {3.5680172012332983`*^9, 
   3.568017377059904*^9}, {3.568017413490604*^9, 3.568017432421215*^9}, 
   3.5680174741549797`*^9, {3.568017514955627*^9, 3.5680175319992533`*^9}, 
   3.5680175798679943`*^9, {3.568017621629196*^9, 3.5680176385323973`*^9}, 
   3.5680176866449423`*^9, 3.568017807384428*^9, 3.568019233161354*^9, 
   3.568019510226431*^9, 3.568019578863043*^9, 3.568021400686013*^9, 
   3.568022468150069*^9, 3.5680225817649403`*^9, 3.568022979691024*^9, 
   3.568023130417906*^9, {3.568023248547874*^9, 3.568023284997905*^9}, {
   3.568023331054826*^9, 3.5680233723186913`*^9}, {3.568023411604163*^9, 
   3.568023430914197*^9}, 3.568023467031666*^9, {3.568023528862442*^9, 
   3.568023548827094*^9}, 3.568023593425108*^9, {3.568023640657178*^9, 
   3.568023656680571*^9}, 3.568023708477228*^9, {3.568023773857588*^9, 
   3.5680237934818277`*^9}, 3.5680238438191633`*^9, 3.568024115106414*^9, {
   3.568027626063672*^9, 3.568027665411297*^9}, {3.568027713819162*^9, 
   3.56802772125117*^9}, {3.568029381562587*^9, 3.568029391632908*^9}, {
   3.568029490231*^9, 3.56802962710356*^9}, 3.568029662203415*^9, {
   3.56802970396847*^9, 3.5680297221708183`*^9}, 3.568029764610903*^9, {
   3.5680298074733257`*^9, 3.568029825568918*^9}, 3.568029875612001*^9, {
   3.5680299217539167`*^9, 3.568029937120591*^9}, 3.568029986949975*^9, {
   3.5680390999287367`*^9, 3.5680391210575323`*^9}, {3.568039697040986*^9, 
   3.568039733180418*^9}, 3.568040143021703*^9, {3.5680413829021273`*^9, 
   3.568041539121231*^9}, {3.5680415738675327`*^9, 3.568041638989884*^9}, 
   3.568041681182518*^9, {3.5680417180232687`*^9, 3.568041755069628*^9}, 
   3.568041807507509*^9, {3.5680418500725927`*^9, 3.568041884348013*^9}, 
   3.568041931876693*^9, 3.5680419702984533`*^9, {3.568042794186109*^9, 
   3.568042935685174*^9}, {3.568042969779993*^9, 3.568043027773094*^9}, {
   3.568043072466045*^9, 3.568043128185402*^9}, {3.56804317986415*^9, 
   3.56804320798715*^9}, {3.5680432518361397`*^9, 3.568043267504727*^9}, {
   3.56804331842037*^9, 3.56804334111579*^9}, 3.568128783308278*^9, 
   3.568128833702174*^9, 3.568134004031583*^9, 3.568136902950892*^9, {
   3.568136988283589*^9, 3.568137079647254*^9}, {3.568137113435711*^9, 
   3.568137129653462*^9}, 3.568137160938944*^9, {3.568137205940721*^9, 
   3.568137224719202*^9}, 3.568137264305127*^9, {3.568137352405492*^9, 
   3.568137369875125*^9}, 3.568137417787322*^9, {3.568137539904015*^9, 
   3.568137554399415*^9}, 3.568137602637192*^9, 3.568137841055287*^9, 
   3.568140084329545*^9, 3.5681438700030117`*^9, 3.568276736944849*^9, 
   3.568277022135272*^9, 3.568277343736456*^9, 3.5682777406651583`*^9, {
   3.568277783143136*^9, 3.568277810128996*^9}, 3.56827801454394*^9, 
   3.568278061292389*^9, 3.568278139758016*^9, 3.568278642670186*^9, 
   3.568287702662401*^9, 3.5682906190955276`*^9, 3.568310121238182*^9, 
   3.5683266413930693`*^9, 3.568371273709248*^9, 3.568372517658081*^9, 
   3.568373364817462*^9, 3.5683762932153873`*^9, 3.568376424532607*^9, 
   3.568376965318932*^9, 3.568377803383424*^9, 3.568379404043092*^9, 
   3.5683818461924973`*^9, 3.568382115522643*^9, 3.568382723556209*^9, 
   3.568387430721054*^9, 3.568396057262156*^9, 3.5683961425596743`*^9, 
   3.568443093835856*^9, 3.568443250962903*^9, 3.568444296216502*^9, 
   3.5684443870430117`*^9, 3.5684444462856493`*^9, 3.568444486747759*^9, 
   3.568444596408373*^9, 3.568445786304812*^9, {3.56844628627424*^9, 
   3.5684463061459627`*^9}, 3.568448300218194*^9, 3.568448609859167*^9, 
   3.568448892445616*^9, 3.568452944937479*^9, 3.568481285591899*^9, 
   3.568481398839492*^9, 3.56853974146611*^9, 3.568539803007506*^9, 
   3.568541916268984*^9, 3.568544320985778*^9, 3.568549406715756*^9, 
   3.568549458102075*^9, 3.568552695039754*^9, 3.568557353761859*^9, 
   3.568557463772287*^9, 3.568557500958139*^9, 3.568557554849107*^9, 
   3.5685577063921547`*^9, 3.568558998073371*^9, 3.568559040473679*^9, 
   3.568569547166524*^9, 3.568570306822413*^9, 3.568614641470626*^9, {
   3.568614871613617*^9, 3.568614909969471*^9}, 3.568615934406086*^9, 
   3.568616763271882*^9, 3.568616975872663*^9, 3.568617099307763*^9, 
   3.568617291185976*^9, 3.568618238762203*^9, 3.568620996277583*^9, 
   3.568623748165163*^9, 3.5686255433218317`*^9, 3.5686267614177713`*^9, 
   3.568626811025146*^9, 3.568627132955326*^9, 3.5686314200489597`*^9, 
   3.56863157526644*^9, 3.5686322345708103`*^9, 3.56863257119865*^9, 
   3.56863541648495*^9, 3.568643997641692*^9, 3.568644169414089*^9, 
   3.568646143440008*^9, 3.568646361216673*^9, 3.568647431726617*^9, 
   3.568647477359508*^9, 3.56864754302702*^9, 3.568647687965377*^9, 
   3.5686477449721537`*^9, 3.5686493792585917`*^9, 3.5686498000498047`*^9, {
   3.5686501451579933`*^9, 3.56865017140409*^9}, 3.568650348061195*^9, 
   3.568650534249257*^9, 3.5686986788647003`*^9, 3.568698947269938*^9, 
   3.56870321525356*^9, 3.568705554868257*^9, 3.5687069689820004`*^9, 
   3.568707151233803*^9, 3.568710336997211*^9, 3.568710392685174*^9, 
   3.5687110992918463`*^9, {3.5687118839388323`*^9, 3.568711898144953*^9}, 
   3.5687120170634413`*^9, 3.568712073305758*^9, 3.568712825892457*^9, 
   3.568712936386269*^9, 3.568713083327141*^9, 3.568713170791315*^9, {
   3.5687132944453707`*^9, 3.568713319075165*^9}, 3.568713979509004*^9, 
   3.568714131011765*^9, {3.56871417727857*^9, 3.568714206879098*^9}, 
   3.568717278136333*^9, 3.56871775853957*^9, 3.5687179491320763`*^9, 
   3.568718287659874*^9, 3.568719704233695*^9, 3.5687200152810707`*^9, 
   3.5687245673913918`*^9, 3.5687246642511*^9, 3.568724884446103*^9, 
   3.568725431817149*^9, 3.5687255327606697`*^9, 3.568726407954506*^9, 
   3.568726559408934*^9, 3.5687265923908157`*^9, 3.568727899592094*^9, 
   3.568727955215228*^9, 3.568728159384087*^9, 3.5687282301747923`*^9, 
   3.568728985613103*^9, 3.5687292304716673`*^9, 3.568729320760385*^9, 
   3.568729803766206*^9, 3.568732881693756*^9, 3.5687348740225067`*^9, 
   3.568734976043771*^9, 3.568735105728916*^9, 3.5687382602504053`*^9, 
   3.568739202103662*^9, 3.568739496515546*^9, 3.568739542590397*^9, 
   3.568740476752787*^9, 3.5687406007583513`*^9, 3.568742499604414*^9, 
   3.568744491540057*^9, 3.568789885764031*^9, 3.568790115274735*^9, 
   3.568790813163199*^9, 3.568790968733403*^9, 3.56879491615735*^9, 
   3.568795048598098*^9, 3.568795373974731*^9, 3.568796665550023*^9, 
   3.568797079043051*^9, 3.568797190049295*^9, 3.568797266648013*^9, 
   3.568797385385262*^9, 3.5687977500305967`*^9, 3.56879902985105*^9, 
   3.568890667573028*^9, 3.568890775634355*^9, 3.56889093523532*^9, 
   3.568890971870672*^9, 3.5688912043373413`*^9, 3.568891278342276*^9, 
   3.568892355406785*^9, 3.568893850196435*^9, 3.5688945321202497`*^9, 
   3.5689008312853413`*^9, 3.568904116698125*^9, 3.56890484643966*^9, 
   3.5689057314409*^9, 3.568906013797826*^9, 3.568906186220907*^9, 
   3.568909365294976*^9, 3.568909400328724*^9, 3.568973467395*^9, 
   3.568976681194564*^9, 3.568981190128932*^9, {3.5689812396248903`*^9, 
   3.568981273874696*^9}, 3.568981496874447*^9, 3.5689859415879602`*^9, 
   3.56899829164077*^9, 3.5689985197742023`*^9, 3.568998587171598*^9, 
   3.568998692342587*^9, 3.569000044775372*^9, 3.569003000024364*^9, 
   3.569045542009239*^9, 3.569045681100129*^9, 3.569046861164913*^9, 
   3.569050310271241*^9, 3.569051850708507*^9, 3.5690533310017157`*^9, 
   3.569054095369134*^9, 3.569054606981366*^9, 3.569055773277348*^9, 
   3.569061008899262*^9, 3.569065197347343*^9, 3.569066927381258*^9, 
   3.569067863355192*^9, 3.5690755576825857`*^9, 3.5690771740773*^9, 
   3.569077669760903*^9, 3.569077956753224*^9, 3.569080615900029*^9, 
   3.5690816118771353`*^9, 3.569082036805366*^9, 3.569082473288245*^9, 
   3.5691360871875134`*^9, 3.5691367728123093`*^9, 3.569136894357295*^9, 
   3.569137265888947*^9, 3.572937333983901*^9, 3.572938188959796*^9, 
   3.572939908756694*^9, 3.5729406626423397`*^9, 3.5729408861698513`*^9, 
   3.5729417212583103`*^9, 3.5729426167954063`*^9, 3.572942998960823*^9, 
   3.57294309957794*^9, 3.572943578639607*^9, 3.572945463599309*^9, 
   3.5729471205810957`*^9, 3.5729471761400757`*^9, 3.572947283742914*^9, 
   3.572947321927746*^9, 3.5729474385925503`*^9, {3.572947839860013*^9, 
   3.572947846681644*^9}, 3.572948108981722*^9, 3.572948911306984*^9, 
   3.572948998830941*^9, 3.5729491851164827`*^9, 3.572958040334049*^9, 
   3.572958338218172*^9, 3.572958529437245*^9, {3.5729597998856173`*^9, 
   3.57295982389042*^9}, 3.572961607325025*^9, 3.572961640471302*^9, 
   3.57296345466511*^9, 3.5729642079890823`*^9, 3.572972269981781*^9, 
   3.57297252250347*^9, 3.572973035282023*^9, {3.572974198454858*^9, 
   3.572974216982915*^9}, 3.572974462936989*^9, 3.57297683748314*^9, 
   3.572976921689398*^9, 3.572977101147727*^9, 3.5729771749924793`*^9, 
   3.573020213919883*^9, 3.5730232640551643`*^9, 3.573023470473127*^9, 
   3.573023514391844*^9, 3.573023544904502*^9, 3.5730236204429083`*^9, {
   3.573024210022551*^9, 3.5730242562791967`*^9}, 3.573025964927514*^9, 
   3.573026320120205*^9, 3.573026919284154*^9, 3.573027033257833*^9, 
   3.5730288746569977`*^9, 3.57310924217936*^9, 3.573109302988625*^9, {
   3.573109426365803*^9, 3.5731094516987267`*^9}, 3.573110482810233*^9, 
   3.573111459203897*^9, 3.5731115462394037`*^9, 3.573113279429315*^9, 
   3.573113423197912*^9, 3.573114680676793*^9, 3.573115108322115*^9, 
   3.5731927755810347`*^9, 3.5731933622429523`*^9, 3.57319484153288*^9, 
   3.573195058031939*^9, 3.5731954036037188`*^9, 3.573196004936599*^9, 
   3.573196152939855*^9, 3.5731962080891123`*^9, 3.573196310986298*^9, 
   3.573202436830195*^9, 3.573203116976349*^9, 3.573209049490501*^9, 
   3.57320951104037*^9, 3.573209977260519*^9, 3.573210013887311*^9, 
   3.573210283660597*^9, 3.573210561790626*^9, 3.573211321052209*^9, 
   3.573211457068544*^9, 3.573211493313724*^9, 3.573211526815436*^9, 
   3.573211666255005*^9, 3.573211793803081*^9, 3.573212470578442*^9, 
   3.5732125228739653`*^9, 3.5732130155253963`*^9, 3.573213116632107*^9, 
   3.5732132246578817`*^9, {3.573213255068284*^9, 3.5732132766828957`*^9}, 
   3.5732141249299097`*^9, 3.5732149438455143`*^9, 3.5732150899559402`*^9, 
   3.5732156598285427`*^9, 3.57321569459895*^9, 3.573215927299725*^9, 
   3.5732160518447857`*^9, 3.573217401557682*^9, 3.573218142299881*^9, 
   3.573218200142071*^9, 3.573218321930986*^9, 3.5732208459566317`*^9, 
   3.573221653200409*^9, 3.573226229414238*^9, {3.573274028350844*^9, 
   3.573274055191787*^9}, 3.573274896605282*^9, 3.57327498240941*^9, 
   3.573275067238574*^9, 3.5732751409704227`*^9, 3.573275384940591*^9, 
   3.573275641077756*^9, 3.573276617844246*^9, {3.573276730815805*^9, 
   3.573276742199746*^9}, 3.573276814415062*^9, {3.573276844657016*^9, 
   3.573276880853385*^9}, 3.573276926732716*^9, 3.5732771263723097`*^9, 
   3.5732772991665697`*^9, 3.5732773720098543`*^9, 3.573277969920856*^9, 
   3.573278710498953*^9, {3.573279043771686*^9, 3.573279069852708*^9}, 
   3.5732795565177097`*^9, 3.573279606121009*^9, 3.573280139178553*^9, 
   3.5732803286691*^9, 3.5732836653005657`*^9, 3.57328371979065*^9, 
   3.5732838330733767`*^9, 3.573283908148985*^9, 3.5732884754914627`*^9, {
   3.5732885510546303`*^9, 3.573288563726191*^9}, 3.5732891922700043`*^9, 
   3.5732895497981253`*^9, 3.573313929723482*^9, 3.573314021679181*^9, 
   3.573314455160791*^9, 3.5733188477099133`*^9, 3.57331921504114*^9, 
   3.573320129139864*^9, 3.573361263821628*^9, 3.573361434621615*^9, 
   3.5733623009285183`*^9, 3.573362533515102*^9, 3.573366525241048*^9, 
   3.573368746040955*^9, 3.573368830744831*^9, 3.5733689261574163`*^9, 
   3.573379588519023*^9, 3.573379723382333*^9, 3.573400462952457*^9, 
   3.573400643157608*^9, 3.5734007229695587`*^9, 3.5734022156922197`*^9, 
   3.5734072782557287`*^9, {3.573446880588702*^9, 3.573446904484934*^9}, 
   3.573447088552277*^9, 3.573449487763373*^9, 3.573449522691959*^9, {
   3.573450334648415*^9, 3.573450340355257*^9}, 3.573450432373811*^9, {
   3.573450695320696*^9, 3.573450719002565*^9}, 3.573452272593981*^9, 
   3.57345551217117*^9, {3.573455749296019*^9, 3.573455770121176*^9}, 
   3.573458225052648*^9, 3.573458338557663*^9, 3.573464245035324*^9, {
   3.573464455092844*^9, 3.573464459798338*^9}, 3.573464489834984*^9, 
   3.573464725551243*^9, 3.5734647587526712`*^9, 3.573465141734956*^9, 
   3.573465269567404*^9, 3.573465303293654*^9, 3.573465346459073*^9, 
   3.573465761208961*^9, 3.5734658261161823`*^9, 3.573466085270553*^9, {
   3.573466451450472*^9, 3.5734664717918797`*^9}, 3.573466803663404*^9, 
   3.573466911475593*^9, 3.5734675522452297`*^9, 3.5734677105799417`*^9, 
   3.573468117531577*^9, 3.573477763662305*^9, 3.5734778776267023`*^9, 
   3.573480776252207*^9, 3.573481933833518*^9, 3.573482169691324*^9, 
   3.5734823641340103`*^9, 3.573482401161809*^9, 3.57348243181642*^9, {
   3.5734824666114883`*^9, 3.573482490926309*^9}, {3.5734825292950583`*^9, 
   3.5734825577067423`*^9}, 3.573482637246078*^9, 3.57348771947009*^9, 
   3.573488045391603*^9, 3.5734880913664494`*^9, 3.573488995975424*^9, 
   3.573489060641471*^9, 3.573489287425885*^9, 3.573489362874381*^9, 
   3.5734898182959747`*^9, 3.573490426189834*^9, 3.57349192052558*^9, 
   3.5734922512289047`*^9, 3.573492600448494*^9, 3.573493622874282*^9, 
   3.5734938657640963`*^9, 3.573502505095837*^9, 3.573532297862236*^9, 
   3.573535349919149*^9, 3.5735354901134443`*^9, {3.5735357707756023`*^9, 
   3.573535787724978*^9}, 3.5735368533032*^9, 3.573536970870524*^9, 
   3.573540400031601*^9, 3.5735404636075773`*^9, 3.573540509791792*^9, 
   3.5735406485714417`*^9, 3.57354070681632*^9, 3.573542947570724*^9, 
   3.573543413096752*^9, 3.573543591876253*^9, 3.5735482044033527`*^9, 
   3.5735483931183558`*^9, 3.5735485257793827`*^9, {3.5735485873564463`*^9, 
   3.5735486577290173`*^9}, 3.573548904467458*^9, 3.573551318039707*^9, 
   3.5735527700758677`*^9, 3.57355331560113*^9, 3.5735559962607613`*^9, 
   3.573557272416849*^9, 3.5736339117511463`*^9, 3.573635139973794*^9, {
   3.573638135317039*^9, 3.573638185363394*^9}, {3.573639212781851*^9, 
   3.573639228740038*^9}, 3.573640206557109*^9, 3.573641514777813*^9, 
   3.573641656018881*^9, 3.573641732915773*^9, 3.573643352618663*^9, 
   3.573643754915401*^9, 3.5736440027958927`*^9, 3.573644502027615*^9, 
   3.573647987701755*^9, 3.573706581966152*^9, 3.5737091947856283`*^9, 
   3.573709433766162*^9, 3.5737100620225363`*^9, 3.5737261678868027`*^9, 
   3.5737269602494507`*^9, 3.573727318863998*^9, 3.573727610082512*^9, 
   3.5737313027046003`*^9, 3.573731601091181*^9, 3.573731668020769*^9, 
   3.57374077843381*^9, 3.5737423133828907`*^9, 3.573765039235559*^9, 
   3.5737669984213543`*^9, 3.57379742585356*^9, 3.5737983583187017`*^9, 
   3.573799372824222*^9, 3.573800889475816*^9, 3.573803215866713*^9, 
   3.573806219897146*^9, 3.573818967072727*^9, 3.573820620538093*^9, 
   3.573821492906435*^9, {3.5738218090002823`*^9, 3.573821832383478*^9}, 
   3.573822016684565*^9, 3.5738221344226503`*^9, 3.573822376003935*^9, 
   3.573823204851088*^9, 3.573823271839655*^9, 3.573823779206765*^9, 
   3.5738253492812033`*^9, {3.573826321197915*^9, 3.573826342270236*^9}, 
   3.5738267060717573`*^9, 3.573827608424062*^9, 3.573827790655057*^9, 
   3.5738281355384483`*^9, 3.573829044711936*^9, 3.573829079858697*^9, {
   3.5738291921741457`*^9, 3.5738292199415417`*^9}, 3.5738297688516483`*^9, 
   3.5738305594258013`*^9, 3.573830688240323*^9, 3.573830727583047*^9, 
   3.573831057896928*^9, 3.573831310255787*^9, 3.573831637071954*^9, 
   3.573832068833385*^9, 3.573832498799531*^9, 3.573834288500127*^9, 
   3.573834823128851*^9, 3.573834898541486*^9, 3.5738351373917828`*^9, 
   3.573835328476343*^9, 3.573837222222433*^9, 3.5738372920915327`*^9, 
   3.573837539795644*^9, 3.573838119478559*^9, 3.573838229018215*^9, 
   3.573838259137682*^9, 3.5738785786407146`*^9, 3.573883333280326*^9, 
   3.573883619508747*^9, 3.5738836814270477`*^9, 3.573883879589814*^9, 
   3.573884139020481*^9, {3.5738851569484253`*^9, 3.573885184725616*^9}, 
   3.573885655257923*^9, 3.5738857997274857`*^9, 3.573886828585349*^9, 
   3.573888768464142*^9, 3.573888927728944*^9, 3.573889105559774*^9, 
   3.573889230209928*^9, 3.57389230495687*^9, 3.5738926406721077`*^9, 
   3.573893014530863*^9, 3.573894624920185*^9, 3.573895010617187*^9, 
   3.573895444174217*^9, 3.573933197387191*^9, 3.573967483880527*^9, 
   3.573971803097492*^9, 3.5739729780986147`*^9, 3.5739744529257708`*^9, 
   3.573975185782124*^9, 3.573975310794298*^9, 3.573975666379796*^9, 
   3.5739757796648273`*^9, 3.573976392389388*^9, 3.5739776596728354`*^9, 
   3.573978263609694*^9, 3.573978578583332*^9, 3.573978740365028*^9, 
   3.57397998856205*^9, 3.5739826807789516`*^9, 3.573984417421671*^9, 
   3.57398474906923*^9, 3.573984947486964*^9, 3.573985106385583*^9, 
   3.573987266269208*^9, 3.573991138907646*^9, 3.574002898992495*^9, 
   3.574007461008627*^9, 3.5740078255542994`*^9, 3.5740596784469957`*^9, 
   3.574059920652959*^9, 3.574060066759405*^9, 3.5740601957264843`*^9, 
   3.574060773933*^9, 3.574060893254382*^9, 3.574061689498518*^9, 
   3.5740618016665287`*^9, 3.574063388451296*^9, 3.574063510044075*^9, 
   3.5740641905645227`*^9, 3.5740644235325127`*^9, 3.574064751993183*^9, 
   3.574065058335927*^9, 3.574065806848186*^9, 3.574066353026293*^9, 
   3.574066439469039*^9, 3.574071985581295*^9, 3.574083129839591*^9, 
   3.574140279277622*^9, {3.5741437261073523`*^9, 3.574143754997514*^9}, 
   3.574143809589037*^9, {3.574492466001314*^9, 3.574492547504201*^9}, 
   3.574492788643906*^9, 3.574493972482039*^9, {3.574496160554441*^9, 
   3.5744961860880623`*^9}, 3.5745367259619217`*^9, 3.575099366575654*^9, 
   3.575358761779695*^9, 3.575359828746099*^9, 3.575369870061397*^9, 
   3.575370292658086*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DUMBam", "=", 
   RowBox[{"hold", "+", "DUMB"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "DUMBam", "]"}]}], "Input",
 CellChangeTimes->{{3.566665826385947*^9, 3.566665839109042*^9}, 
   3.566671469061013*^9, {3.5666716701388083`*^9, 3.566671671856414*^9}, 
   3.566728877315153*^9, {3.566731419863132*^9, 3.566731434259515*^9}, {
   3.56674127721733*^9, 3.566741287195641*^9}, 3.5667413207339354`*^9, {
   3.566741479002845*^9, 3.566741480300129*^9}, {3.5668008204891233`*^9, 
   3.5668008435514927`*^9}, 3.5668010776674547`*^9, {3.566808515338003*^9, 
   3.566808522034957*^9}, {3.56681750058251*^9, 3.566817505123967*^9}, {
   3.5687105730993013`*^9, 3.568710574193594*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.5668175057520933`*^9, 3.5668184613285303`*^9, 3.566819162484*^9, {
   3.566819403470456*^9, 3.5668194320247927`*^9}, 3.566819539346262*^9, {
   3.566820664454515*^9, 3.5668206910516872`*^9}, {3.566905634536998*^9, 
   3.5669056636000338`*^9}, {3.5669091930120993`*^9, 3.566909212238493*^9}, {
   3.566909242316125*^9, 3.566909267914414*^9}, 3.5669105505890923`*^9, 
   3.566911743553319*^9, 3.5669122920041447`*^9, 3.566912738375749*^9, 
   3.566913705891919*^9, 3.566919570978791*^9, {3.566919628532096*^9, 
   3.566919662641963*^9}, 3.566919695888317*^9, {3.5669198551936903`*^9, 
   3.566919885454249*^9}, 3.566919954965415*^9, {3.566920185810596*^9, 
   3.566920224243904*^9}, 3.566920334079225*^9, {3.566920526700766*^9, 
   3.5669205676546593`*^9}, 3.566920649592622*^9, {3.566920891344143*^9, 
   3.566920919795073*^9}, {3.566920967431747*^9, 3.56692099845518*^9}, 
   3.5669210881795692`*^9, {3.5669214482381973`*^9, 3.566921477260632*^9}, 
   3.566921543906912*^9, {3.566922254450892*^9, 3.566922271469653*^9}, 
   3.566922331277597*^9, {3.5669224412292633`*^9, 3.566922460907255*^9}, 
   3.566922567989079*^9, {3.566923083597492*^9, 3.5669231024672947`*^9}, 
   3.566923151489192*^9, {3.566923185011305*^9, 3.5669231901749697`*^9}, 
   3.566923236047739*^9, {3.566925164670856*^9, 3.5669251896579742`*^9}, 
   3.5669252402350073`*^9, {3.566925275790444*^9, 3.566925281544436*^9}, 
   3.566925328510582*^9, {3.566925361712253*^9, 3.5669253669046717`*^9}, 
   3.566925414959879*^9, {3.566925998172328*^9, 3.566926018490397*^9}, {
   3.566926049160555*^9, 3.5669260924136066`*^9}, 3.566926156019944*^9, {
   3.566926254461625*^9, 3.5669262759475327`*^9}, 3.5669263814671926`*^9, {
   3.566926463028126*^9, 3.566926481266613*^9}, 3.566926557717754*^9, {
   3.56692666259159*^9, 3.566926676962448*^9}, 3.566926764218443*^9, {
   3.566926902779728*^9, 3.5669269125601997`*^9}, 3.566926981019796*^9, {
   3.566927055199175*^9, 3.566927062212637*^9}, 3.566927116223084*^9, {
   3.566927159665851*^9, 3.566927164999601*^9}, 3.566927213374868*^9, {
   3.566927591140275*^9, 3.566927702387648*^9}, 3.566927765939249*^9, {
   3.5669278665285177`*^9, 3.566927882659404*^9}, 3.5669280017820807`*^9, {
   3.5669281182808733`*^9, 3.566928133661201*^9}, 3.566928218732294*^9, {
   3.566928326365666*^9, 3.566928336198711*^9}, 3.566928427766891*^9, {
   3.56692858886804*^9, 3.566928593256741*^9}, 3.566928650834703*^9, {
   3.566928728483572*^9, 3.566928731221375*^9}, 3.566928774983758*^9, {
   3.566928817191062*^9, 3.566928819378901*^9}, 3.566928859490807*^9, {
   3.56694312989729*^9, 3.566943152076538*^9}, 3.566943417822934*^9, 
   3.566944594720777*^9, 3.56694555252269*^9, 3.566945795898204*^9, 
   3.566965954788397*^9, 3.566999623525181*^9, 3.5670206441202993`*^9, 
   3.567021818773551*^9, 3.567022156908407*^9, 3.567061005376894*^9, 
   3.567069025287879*^9, 3.567069424502087*^9, 3.567070735473783*^9, 
   3.567073192188301*^9, 3.567073427164304*^9, 3.5670764792659197`*^9, 
   3.5670792496162252`*^9, 3.5670793066302147`*^9, 3.56709070049152*^9, 
   3.567092053453713*^9, 3.5670920853997602`*^9, 3.567092378310754*^9, {
   3.567092668205221*^9, 3.567092711435841*^9}, {3.567108370294248*^9, 
   3.567108391650629*^9}, 3.567108513812832*^9, 3.56710866661427*^9, 
   3.567108917034525*^9, 3.5671095754912767`*^9, 3.567110269703611*^9, 
   3.567110594475074*^9, 3.5671132014505463`*^9, 3.567114525975975*^9, 
   3.567114952147482*^9, 3.567115813214532*^9, 3.567116033185116*^9, 
   3.567116904302061*^9, 3.567117134716071*^9, 3.567120201912772*^9, 
   3.5671223901825933`*^9, 3.567122456369938*^9, 3.567123990073365*^9, {
   3.567124940872645*^9, 3.5671249622946157`*^9}, 3.567125288260604*^9, {
   3.567125446456223*^9, 3.567125474701545*^9}, 3.567162809883815*^9, 
   3.567243704098009*^9, 3.567243736211711*^9, 3.567245520987762*^9, 
   3.567250899289672*^9, 3.567253357078084*^9, 3.5672535229929333`*^9, 
   3.567253775547271*^9, {3.567253919309225*^9, 3.567254017742352*^9}, {
   3.567254059760994*^9, 3.567254070649116*^9}, 3.567254122138379*^9, {
   3.567254154744149*^9, 3.567254163136897*^9}, 3.567254202604186*^9, {
   3.567254589830291*^9, 3.567254598556385*^9}, 3.567254653889028*^9, {
   3.5672547164577847`*^9, 3.567254721013533*^9}, 3.567254766678248*^9, {
   3.567260097528907*^9, 3.567260118869578*^9}, {3.567260167943296*^9, 
   3.56726020022796*^9}, 3.567260240968403*^9, {3.5672611337283688`*^9, 
   3.567261204281028*^9}, {3.567261234513755*^9, 3.567261318345767*^9}, {
   3.567261357691456*^9, 3.5672613656374083`*^9}, 3.567261403649632*^9, {
   3.567261448526371*^9, 3.5672614531135902`*^9}, {3.5672614840040607`*^9, 
   3.567261574331127*^9}, 3.567266628648872*^9, 3.56726694953931*^9, {
   3.567267104613167*^9, 3.567267229019486*^9}, {3.567267260159604*^9, 
   3.5672672822223473`*^9}, 3.567268518642617*^9, 3.567268642300651*^9, 
   3.5672687538593817`*^9, 3.56726891116261*^9, 3.567268975913577*^9, {
   3.5672692807214813`*^9, 3.5672693663941317`*^9}, {3.567269448717206*^9, 
   3.567269455968671*^9}, 3.5672697705759974`*^9, 3.567270645358592*^9, {
   3.567270916164988*^9, 3.567270922842494*^9}, 3.56727124984054*^9, 
   3.567272195371319*^9, {3.567273270815011*^9, 3.5672732867512207`*^9}, {
   3.567274752953703*^9, 3.567274814497733*^9}, {3.567274889361459*^9, 
   3.567274904535919*^9}, 3.567274941676661*^9, {3.567274985753214*^9, 
   3.5672749935353613`*^9}, 3.567275050140984*^9, {3.567275119681384*^9, 
   3.5672751332211313`*^9}, 3.567275184152958*^9, {3.567275224998434*^9, 
   3.567275228434514*^9}, 3.567275268405147*^9, {3.5672753591217813`*^9, 
   3.5672753779793243`*^9}, 3.5672754184467*^9, 3.5673212112630367`*^9, 
   3.567321759239951*^9, 3.567321845673277*^9, {3.567322013923252*^9, 
   3.567322028005745*^9}, 3.5673221342985888`*^9, {3.567322188665344*^9, 
   3.567322201946867*^9}, {3.567322241225382*^9, 3.567322254114585*^9}, {
   3.567322290215557*^9, 3.5673223363856487`*^9}, 3.567326844311697*^9, {
   3.567326927158774*^9, 3.567326938268588*^9}, {3.567327394332946*^9, 
   3.56732740669104*^9}, 3.567330330302211*^9, 3.567331098237903*^9, 
   3.5673312818132467`*^9, 3.567331337974771*^9, 3.567331629330536*^9, 
   3.567331895339571*^9, 3.567332174157905*^9, 3.5673325389095507`*^9, {
   3.5673329933608103`*^9, 3.567333010163251*^9}, 3.567333634825514*^9, 
   3.5673345101047573`*^9, 3.567334609187105*^9, 3.567334682553173*^9, 
   3.567338025880458*^9, 3.567338105860993*^9, 3.567338503254637*^9, 
   3.567338892251708*^9, 3.567338988473028*^9, 3.567339091650008*^9, {
   3.567339542354692*^9, 3.5673395845542793`*^9}, {3.567339744713236*^9, 
   3.5673397762567043`*^9}, {3.567339864532988*^9, 3.567339884002688*^9}, 
   3.567339919369104*^9, {3.5673399983078823`*^9, 3.5673400191691437`*^9}, 
   3.567340074706826*^9, {3.5673402316064043`*^9, 3.5673402510182323`*^9}, 
   3.567340317074717*^9, {3.567340431612924*^9, 3.5673404507485123`*^9}, 
   3.567340524269691*^9, {3.56734059146094*^9, 3.5673406101091433`*^9}, 
   3.56734068408681*^9, 3.567341210294511*^9, {3.567341429172495*^9, 
   3.567341579197351*^9}, 3.56734161464944*^9, {3.5673416464164963`*^9, 
   3.567341650191306*^9}, 3.567341698849633*^9, {3.56734173991601*^9, 
   3.567341743113882*^9}, 3.5673418046924133`*^9, {3.567341845582756*^9, 
   3.567341848250168*^9}, 3.567341902781432*^9, {3.567343419583066*^9, 
   3.5673434915946693`*^9}, {3.567343542861112*^9, 3.567343604668433*^9}, 
   3.567343638111821*^9, {3.567343670393722*^9, 3.567343674338093*^9}, 
   3.567343722947381*^9, {3.567343763236208*^9, 3.567343766042886*^9}, 
   3.567343831073975*^9, {3.567343873892681*^9, 3.5673438764577503`*^9}, 
   3.567343932393559*^9, {3.567345477650125*^9, 3.567345500347067*^9}, {
   3.5673455547981033`*^9, 3.567345575225252*^9}, {3.567345633763109*^9, 
   3.5673456967885838`*^9}, {3.567345820036703*^9, 3.5673458698580427`*^9}, {
   3.5673464258653603`*^9, 3.567346534947998*^9}, 3.567346566483477*^9, {
   3.5673465974392977`*^9, 3.567346602382662*^9}, 3.5673466564503307`*^9, {
   3.567346703363635*^9, 3.5673467160872602`*^9}, 3.567346781791025*^9, {
   3.5673468375909986`*^9, 3.5673468406070433`*^9}, 3.567346904951082*^9, {
   3.567346971547139*^9, 3.5673469903710823`*^9}, 3.5673470600496273`*^9, {
   3.5673479684487762`*^9, 3.567347989676806*^9}, {3.5673480394744873`*^9, 
   3.567348136552328*^9}, {3.56734817093723*^9, 3.567348191608838*^9}, {
   3.567348248604146*^9, 3.567348269413447*^9}, {3.567354568603232*^9, 
   3.567354599931217*^9}, {3.567354770530695*^9, 3.567354798430357*^9}, {
   3.567354890064039*^9, 3.567354907781906*^9}, 3.567354942835601*^9, {
   3.567354992255066*^9, 3.567355010585414*^9}, 3.567355068857369*^9, {
   3.567355179326117*^9, 3.567355201917213*^9}, 3.567355272182127*^9, {
   3.567355371814595*^9, 3.567355391299205*^9}, 3.56735546527118*^9, {
   3.5673558998229523`*^9, 3.567355974510532*^9}, {3.567356016366485*^9, 
   3.567356033191506*^9}, {3.56735606815475*^9, 3.567356126632104*^9}, {
   3.567356225148374*^9, 3.5673562438196287`*^9}, 3.567356296584261*^9, {
   3.567356354116933*^9, 3.567356378012334*^9}, 3.567356445031805*^9, {
   3.567356500574733*^9, 3.5673565036695757`*^9}, 3.567356576941203*^9, {
   3.567356761712949*^9, 3.5673567811763763`*^9}, 3.567356855163973*^9, 
   3.567359237911393*^9, 3.567359816952558*^9, 3.567360140407119*^9, 
   3.5673601900599737`*^9, 3.567360267337063*^9, {3.5673606656550407`*^9, 
   3.56736080867933*^9}, 3.567360844777701*^9, {3.567360907290307*^9, 
   3.567360953612528*^9}, {3.567361052893808*^9, 3.5673610695745792`*^9}, 
   3.567361121044464*^9, {3.567361195623598*^9, 3.5673612135564327`*^9}, 
   3.56736128056925*^9, {3.567361366938594*^9, 3.567361383077059*^9}, 
   3.5673614520472527`*^9, {3.5673615464296923`*^9, 3.567361562519568*^9}, 
   3.567361626477371*^9, {3.567408893407902*^9, 3.567408916077219*^9}, {
   3.567408955977775*^9, 3.567408982359785*^9}, {3.567409026640272*^9, 
   3.56740906048131*^9}, {3.567409703357332*^9, 3.56740976932096*^9}, {
   3.567409802414113*^9, 3.567409874332204*^9}, {3.567409990489966*^9, 
   3.567410015244499*^9}, {3.567410171545052*^9, 3.567410194513433*^9}, {
   3.567410294907421*^9, 3.567410320380033*^9}, {3.567410538602058*^9, 
   3.5674105938009*^9}, 3.5674106250983257`*^9, {3.567411104434216*^9, 
   3.5674111211265163`*^9}, 3.567411165791081*^9, {3.567434070297469*^9, 
   3.567434172363204*^9}, {3.5674620951483793`*^9, 3.567462191857711*^9}, 
   3.567462231410222*^9, {3.567462324527355*^9, 3.567462328521658*^9}, 
   3.567462452288519*^9, 3.567464096776819*^9, {3.567465243527504*^9, 
   3.567465247063333*^9}, 3.5674654314196787`*^9, 3.5674727371361303`*^9, {
   3.567583548861471*^9, 3.567583553187305*^9}, 3.5675843856730003`*^9, 
   3.5676058326261463`*^9, {3.5676223764722843`*^9, 3.567622379023337*^9}, 
   3.567623065552724*^9, 3.56765207728701*^9, {3.56768181949139*^9, 
   3.5676818206133337`*^9}, 3.567682195788773*^9, 3.567698034289852*^9, {
   3.567706949207829*^9, 3.567706949813797*^9}, 3.5677070463937283`*^9, 
   3.567713260522842*^9, {3.567716840297401*^9, 3.567716853761405*^9}, 
   3.567717764791812*^9, {3.567718756359981*^9, 3.567718757600296*^9}, 
   3.567718827964162*^9, {3.5677190108076878`*^9, 3.567719030417501*^9}, 
   3.567719073410592*^9, {3.5677191569716673`*^9, 3.567719184581563*^9}, {
   3.567767126164545*^9, 3.56776723830184*^9}, {3.5677701226680813`*^9, 
   3.567770147038733*^9}, {3.5677703660530787`*^9, 3.567770403263562*^9}, 
   3.567770547094631*^9, {3.567770802423564*^9, 3.56777082733304*^9}, 
   3.5677709526334133`*^9, 3.567777035455098*^9, {3.567778751909191*^9, 
   3.56777877835428*^9}, 3.567778826111812*^9, 3.567778945092638*^9, 
   3.567779345734498*^9, {3.567779436108528*^9, 3.567779446879322*^9}, {
   3.56778004918303*^9, 3.567780084019568*^9}, {3.567780130268733*^9, 
   3.567780180739471*^9}, 3.567780264196109*^9, {3.5677804185716887`*^9, 
   3.56778043989998*^9}, 3.567780542478052*^9, {3.56778070944379*^9, 
   3.567780742308847*^9}, {3.567780831946044*^9, 3.5677808372958307`*^9}, 
   3.5677809636557493`*^9, 3.567781642013839*^9, {3.567782471887121*^9, 
   3.567782473033145*^9}, 3.567782557194231*^9, 3.5677844760434523`*^9, 
   3.567787559870446*^9, 3.5677877333798513`*^9, {3.567787891805588*^9, 
   3.567787916349648*^9}, {3.567788265646373*^9, 3.567788270741582*^9}, 
   3.567789164140757*^9, 3.567789231329196*^9, 3.567789294081655*^9, 
   3.5677893434329348`*^9, 3.5677893825869493`*^9, 3.567789429595181*^9, 
   3.567789483479559*^9, 3.5677895364274406`*^9, 3.567789586365506*^9, 
   3.5677896774734383`*^9, 3.567789728138249*^9, 3.567789775761478*^9, 
   3.567790034681662*^9, 3.5677901395069027`*^9, 3.567790240921583*^9, 
   3.567790286690386*^9, 3.567790344800624*^9, 3.5677904211386623`*^9, 
   3.5677904624224377`*^9, 3.567790506625592*^9, 3.5677905401999493`*^9, 
   3.567790570740795*^9, 3.567790626595932*^9, 3.567790673091502*^9, 
   3.5677927698691683`*^9, {3.567792879174223*^9, 3.567792906990285*^9}, {
   3.5677929617816257`*^9, 3.5677929793776817`*^9}, 3.567793091711351*^9, 
   3.5677931497132072`*^9, 3.567793208861701*^9, 3.567793253423997*^9, 
   3.567793294607387*^9, 3.5677933536436243`*^9, 3.567793389427909*^9, 
   3.5677940192234087`*^9, {3.567797069426165*^9, 3.567797116386796*^9}, {
   3.567797162149974*^9, 3.567797179446134*^9}, 3.567797215905615*^9, {
   3.567797276866022*^9, 3.567797294621039*^9}, 3.5677973418244467`*^9, {
   3.56779761242177*^9, 3.567797632037672*^9}, 3.567797684988886*^9, {
   3.567797758925952*^9, 3.567797772657258*^9}, 3.567797824118548*^9, {
   3.56779787786978*^9, 3.567797892297505*^9}, 3.567797942127512*^9, {
   3.567840171798118*^9, 3.567840356060876*^9}, {3.567840394844565*^9, 
   3.5678404205980263`*^9}, 3.5678404664735193`*^9, {3.567847153984963*^9, 
   3.5678472508121567`*^9}, {3.5678475284833612`*^9, 3.567847532505271*^9}, 
   3.567847575896476*^9, 3.5678477498734903`*^9, {3.567848099763896*^9, 
   3.567848103724471*^9}, 3.567848146844037*^9, 3.567848342321828*^9, {
   3.5678487662344217`*^9, 3.567848784847156*^9}, 3.5678488803908663`*^9, 
   3.567851098582191*^9, {3.567851289856433*^9, 3.5678513242555237`*^9}, 
   3.567851419129856*^9, 3.567851572125194*^9, {3.56785194638437*^9, 
   3.567851952208138*^9}, 3.567852063272237*^9, 3.5678524537912483`*^9, {
   3.567853039471884*^9, 3.56785304451341*^9}, 3.5678531071277437`*^9, 
   3.5678534325829697`*^9, {3.567853937478784*^9, 3.5678539668942413`*^9}, 
   3.567854113547441*^9, 3.567859111930585*^9, 3.567868899618895*^9, 
   3.5678780694211493`*^9, 3.5678789915362253`*^9, 3.567880717760219*^9, 
   3.567881200781085*^9, 3.567881297685169*^9, 3.5679273268978243`*^9, 
   3.567927444106277*^9, 3.567929957349595*^9, 3.56793063713665*^9, 
   3.5679346711529627`*^9, 3.567937222517652*^9, 3.567938866249168*^9, 
   3.567939102210346*^9, 3.567942889238624*^9, {3.567943285618457*^9, 
   3.5679433225886383`*^9}, {3.567943412578526*^9, 3.567943449985771*^9}, {
   3.56794437631387*^9, 3.567944420842205*^9}, 3.567945331433316*^9, {
   3.5679454628914824`*^9, 3.567945483019301*^9}, 3.567946212846203*^9, {
   3.567946333597118*^9, 3.5679463817122297`*^9}, 3.567946875659534*^9, 
   3.567946915310987*^9, 3.567948922263626*^9, 3.567960245691268*^9, 
   3.567960465452302*^9, {3.567960797812985*^9, 3.5679608309052258`*^9}, 
   3.5679613321526203`*^9, {3.5679613688319407`*^9, 3.567961398985862*^9}, {
   3.567961486715555*^9, 3.567961523390489*^9}, {3.567961616698854*^9, 
   3.5679616580341*^9}, {3.567961716531547*^9, 3.5679617311300983`*^9}, 
   3.567961774334145*^9, {3.56796181133423*^9, 3.567961826494328*^9}, 
   3.567961876512377*^9, {3.5679619313745604`*^9, 3.567961945946433*^9}, 
   3.567961989996138*^9, 3.56796213307638*^9, 3.567964415401908*^9, 
   3.567965048830352*^9, {3.5679651574797153`*^9, 3.567965245554585*^9}, {
   3.567965275601471*^9, 3.567965368963067*^9}, 3.567965408058838*^9, {
   3.567965453208088*^9, 3.5679654693603373`*^9}, {3.567965515625099*^9, 
   3.567965546639409*^9}, 3.5679655927862043`*^9, 3.5679657695693197`*^9, {
   3.567967778578086*^9, 3.5679677974617243`*^9}, 3.568007639671053*^9, 
   3.568007882604752*^9, {3.568007985298811*^9, 3.568008080289185*^9}, {
   3.568008125356846*^9, 3.5680082089646873`*^9}, {3.5680082514450607`*^9, 
   3.5680082814429417`*^9}, 3.568008326310864*^9, {3.568008356666604*^9, 
   3.5680083596715517`*^9}, 3.568008408095622*^9, 3.568008621269154*^9, 
   3.5680124660784597`*^9, {3.5680126587032413`*^9, 3.568012748661762*^9}, {
   3.5680127812585173`*^9, 3.568012824759486*^9}, {3.568012901123809*^9, 
   3.568012916166909*^9}, 3.568012956906646*^9, {3.568013030321043*^9, 
   3.568013046272893*^9}, 3.5680130938779097`*^9, {3.5680131599313793`*^9, 
   3.568013175055891*^9}, 3.568013221122287*^9, 3.568013366099544*^9, 
   3.568013873097764*^9, 3.568015248476145*^9, 3.5680159677315702`*^9, 
   3.568016538491973*^9, 3.568016967766644*^9, 3.568017110870501*^9, {
   3.568017201242141*^9, 3.568017377128724*^9}, {3.568017413499535*^9, 
   3.56801743242975*^9}, 3.5680174742041903`*^9, {3.5680175150094843`*^9, 
   3.5680175320113363`*^9}, 3.568017579920856*^9, {3.5680176216390953`*^9, 
   3.5680176385484047`*^9}, 3.568017686690915*^9, 3.5680178073936977`*^9, 
   3.568019233170246*^9, 3.5680195102781363`*^9, 3.568019578873999*^9, 
   3.568021400693899*^9, 3.568022468159519*^9, 3.568022581779654*^9, 
   3.568022979699132*^9, 3.568023130427951*^9, {3.5680232485564404`*^9, 
   3.568023285038558*^9}, {3.5680233310631104`*^9, 3.568023372387685*^9}, {
   3.5680234116131153`*^9, 3.568023430965104*^9}, 3.568023467098139*^9, {
   3.568023528911021*^9, 3.5680235488366623`*^9}, 3.568023593471409*^9, {
   3.568023640707982*^9, 3.5680236567273703`*^9}, 3.56802370853124*^9, {
   3.5680237739097843`*^9, 3.5680237935335617`*^9}, 3.56802384388855*^9, 
   3.56802411511594*^9, {3.568027626114294*^9, 3.5680276654667177`*^9}, {
   3.5680277138275414`*^9, 3.568027721303008*^9}, {3.568029381573522*^9, 
   3.5680293916445723`*^9}, {3.568029490239093*^9, 3.56802962718854*^9}, 
   3.568029662252907*^9, {3.5680297040189953`*^9, 3.5680297221800413`*^9}, 
   3.5680297646801853`*^9, {3.568029807481765*^9, 3.568029825654587*^9}, 
   3.5680298756643667`*^9, {3.5680299218095617`*^9, 3.568029937129127*^9}, 
   3.568029987001092*^9, {3.5680390999778967`*^9, 3.56803912106637*^9}, {
   3.568039697109429*^9, 3.5680397332444077`*^9}, 3.568040143031362*^9, {
   3.568041382910851*^9, 3.5680415391798697`*^9}, {3.56804157391717*^9, 
   3.568041638998418*^9}, 3.5680416812302923`*^9, {3.568041718032987*^9, 
   3.568041755081934*^9}, 3.568041807565247*^9, {3.568041850081604*^9, 
   3.5680418843986*^9}, 3.568041931925662*^9, 3.568041970307584*^9, {
   3.568042794194478*^9, 3.568042935737554*^9}, {3.568042969849069*^9, 
   3.568043027782246*^9}, {3.568043072515771*^9, 3.5680431281955357`*^9}, {
   3.568043179922265*^9, 3.568043207996643*^9}, {3.56804325188214*^9, 
   3.568043267514408*^9}, {3.568043318473461*^9, 3.568043341125204*^9}, 
   3.568128783317045*^9, 3.568128833712101*^9, 3.56813400404078*^9, 
   3.568136903010734*^9, {3.5681369882925034`*^9, 3.5681370797061*^9}, {
   3.568137113444273*^9, 3.5681371297216063`*^9}, 3.568137160989072*^9, {
   3.568137206080927*^9, 3.568137224737712*^9}, 3.5681372643545437`*^9, {
   3.568137352414171*^9, 3.568137369884306*^9}, 3.5681374178008013`*^9, {
   3.568137539913539*^9, 3.568137554408722*^9}, 3.5681376028024883`*^9, 
   3.568137841067607*^9, 3.56814008438512*^9, 3.568143870015765*^9, 
   3.568276736974743*^9, 3.568277022149321*^9, 3.568277343792131*^9, 
   3.568277740677044*^9, {3.568277783154567*^9, 3.568277810139214*^9}, 
   3.5682780145563097`*^9, 3.56827806130204*^9, 3.568278139780644*^9, 
   3.568278642770245*^9, 3.568287702720586*^9, 3.568290619111754*^9, 
   3.56831012125296*^9, 3.5683266414458933`*^9, 3.568371273757996*^9, 
   3.568372517707655*^9, 3.5683733648643703`*^9, 3.568376293224053*^9, 
   3.568376424582114*^9, 3.568376965369038*^9, 3.568377803433798*^9, 
   3.5683794041000557`*^9, 3.56838184620024*^9, 3.568382115534235*^9, 
   3.568382723615006*^9, 3.5683874307642727`*^9, 3.568396057318713*^9, 
   3.568396142620489*^9, 3.568443093847505*^9, 3.568443251178542*^9, 
   3.568444296225569*^9, 3.5684443870515738`*^9, 3.568444446293038*^9, 
   3.568444486755048*^9, 3.5684445964156513`*^9, 3.56844578631361*^9, {
   3.5684462863108587`*^9, 3.5684463061855793`*^9}, 3.568448300226194*^9, 
   3.568448609913897*^9, 3.5684488924559307`*^9, 3.5684529449830017`*^9, 
   3.568481288038663*^9, 3.568481398848843*^9, 3.568539741474985*^9, 
   3.568539803016724*^9, 3.568541916590543*^9, 3.568544320993197*^9, 
   3.56854940674957*^9, 3.5685494581125603`*^9, 3.568552695047305*^9, 
   3.568557353770749*^9, 3.568557463780014*^9, 3.568557500966303*^9, 
   3.5685575548567*^9, 3.568557706475375*^9, 3.568558998081327*^9, 
   3.568559040481015*^9, 3.568569547174519*^9, 3.568570306861059*^9, 
   3.568614641478396*^9, {3.5686148716217937`*^9, 3.568614909977579*^9}, 
   3.5686159344145927`*^9, 3.568616763279814*^9, 3.56861697588093*^9, 
   3.568617099316555*^9, 3.568617291193473*^9, 3.5686182387727127`*^9, 
   3.568620996285068*^9, 3.568623748173682*^9, 3.56862554333239*^9, 
   3.568626761426379*^9, 3.568626811033373*^9, 3.5686271329637623`*^9, 
   3.568631420151903*^9, 3.568631575274578*^9, 3.568632234578459*^9, 
   3.568632571232037*^9, 3.568635416492979*^9, 3.568643997688364*^9, 
   3.568644169422874*^9, 3.568646143448049*^9, 3.568646361524672*^9, 
   3.568647431776949*^9, 3.5686474773678513`*^9, 3.568647543035873*^9, 
   3.568647687974331*^9, 3.568647744985175*^9, 3.5686493792665358`*^9, 
   3.568649800097436*^9, {3.568650145167369*^9, 3.568650171792775*^9}, 
   3.568650348069543*^9, 3.568650534259783*^9, 3.568698678875929*^9, 
   3.568698947279318*^9, 3.568703215292953*^9, 3.568705554904031*^9, 
   3.568706969023697*^9, 3.568707151240938*^9, 3.568710337036221*^9, 
   3.5687103927373962`*^9, 3.568710575960822*^9, 3.5687110993278913`*^9, {
   3.568711883973565*^9, 3.5687118981805153`*^9}, 3.568712017070962*^9, 
   3.568712073341116*^9, 3.5687128259005537`*^9, 3.568712936393497*^9, 
   3.568713083334297*^9, 3.568713170799363*^9, {3.5687132944792223`*^9, 
   3.568713319116556*^9}, 3.5687139795447197`*^9, 3.5687141310208073`*^9, {
   3.568714177285956*^9, 3.568714206913365*^9}, 3.568717278169847*^9, 
   3.5687177585469427`*^9, 3.568717949140601*^9, 3.5687182876674757`*^9, 
   3.568719704240921*^9, 3.56872001528834*^9, 3.568724567398851*^9, 
   3.568724664258378*^9, 3.568724884453583*^9, 3.5687254318527403`*^9, 
   3.568725532798759*^9, 3.568726407966514*^9, 3.568726559419426*^9, 
   3.56872659239857*^9, 3.5687278995993233`*^9, 3.568727955223572*^9, 
   3.568728159391172*^9, 3.568728230182005*^9, 3.568728985888895*^9, 
   3.568729230480732*^9, 3.568729320767679*^9, 3.568729803773769*^9, 
   3.568732881701195*^9, 3.5687348740637836`*^9, 3.568734976051869*^9, 
   3.568735105784048*^9, 3.56873826030427*^9, 3.568739202150795*^9, 
   3.5687394965946093`*^9, 3.568739542643712*^9, 3.5687404767697697`*^9, 
   3.568740600805421*^9, 3.5687424996486197`*^9, 3.568744491588629*^9, 
   3.568789885775297*^9, 3.568790115283185*^9, 3.568790813171237*^9, 
   3.5687909687419157`*^9, 3.5687949161648617`*^9, 3.568795048607245*^9, 
   3.568795373983905*^9, 3.5687966656019163`*^9, 3.5687970790517063`*^9, 
   3.568797190057773*^9, 3.568797266655979*^9, 3.568797385442409*^9, 
   3.568797750038725*^9, 3.568799029859016*^9, 3.5688906676240263`*^9, 
   3.568890775644949*^9, 3.5688909352754583`*^9, 3.568890971916202*^9, 
   3.568891204345417*^9, 3.5688912783495283`*^9, 3.568892355415168*^9, 
   3.5688938503007803`*^9, 3.568894532129476*^9, 3.568900831336444*^9, 
   3.568904116750106*^9, 3.568904846449592*^9, 3.5689057314499474`*^9, 
   3.568906013806686*^9, 3.5689061862295637`*^9, 3.5689093653039293`*^9, 
   3.568909400337219*^9, 3.568973467445263*^9, 3.568976681203127*^9, 
   3.568981190137974*^9, {3.56898123963381*^9, 3.5689812738830853`*^9}, 
   3.568981496884595*^9, 3.568985941595448*^9, 3.5689982916487007`*^9, 
   3.568998519781817*^9, 3.568998587179641*^9, 3.568998692349801*^9, 
   3.569000044783224*^9, 3.569003000033058*^9, 3.5690455420220547`*^9, 
   3.569045681108961*^9, 3.569046861172778*^9, 3.569050310279668*^9, 
   3.569051850762187*^9, 3.569053331076334*^9, 3.569054095388632*^9, 
   3.569054606989051*^9, 3.569055773286077*^9, 3.569061008951208*^9, 
   3.569065197355188*^9, 3.5690669273895206`*^9, 3.569067863377247*^9, 
   3.569075557827615*^9, 3.569077174159111*^9, 3.569077669792296*^9, 
   3.5690779568058863`*^9, 3.5690806159087667`*^9, 3.569081611885406*^9, 
   3.5690820368159857`*^9, 3.5690824733055573`*^9, 3.569136087200186*^9, 
   3.569136772821159*^9, 3.5691368943657093`*^9, 3.569137265898448*^9, 
   3.572937334983632*^9, 3.572938188967663*^9, 3.572939908764887*^9, 
   3.572940662651924*^9, 3.572940886177308*^9, 3.5729417213044643`*^9, 
   3.572942616803823*^9, 3.572942998969154*^9, 3.572943099586731*^9, 
   3.5729435786889467`*^9, 3.572945463646109*^9, 3.572947120875717*^9, 
   3.572947176148847*^9, 3.572947283791913*^9, 3.572947321976791*^9, 
   3.5729474386010227`*^9, {3.5729478399143353`*^9, 3.572947846690166*^9}, 
   3.572948108990245*^9, 3.572948911315545*^9, 3.5729489988403*^9, 
   3.5729491851250153`*^9, 3.5729580403426733`*^9, 3.572958338227294*^9, 
   3.572958529482362*^9, {3.572959799893711*^9, 3.572959823900179*^9}, 
   3.5729616073336687`*^9, 3.572961640481398*^9, 3.5729634546777887`*^9, 
   3.572964207999612*^9, 3.57297226999116*^9, 3.572972522511903*^9, 
   3.572973035290357*^9, {3.572974198463212*^9, 3.57297421699257*^9}, 
   3.572974462997319*^9, 3.572976837492594*^9, 3.572976921698552*^9, 
   3.572977101156262*^9, 3.572977175044324*^9, 3.5730202139673758`*^9, 
   3.573023264064212*^9, 3.5730234704830503`*^9, 3.573023514401588*^9, 
   3.573023544953231*^9, 3.5730236204516773`*^9, {3.5730242100684767`*^9, 
   3.5730242563321533`*^9}, 3.57302596497126*^9, 3.573026320295141*^9, 
   3.573026919330608*^9, 3.573027033313216*^9, 3.573028874666514*^9, 
   3.573109242190802*^9, 3.57310930299787*^9, 3.5731094517063103`*^9, 
   3.573110482929841*^9, 3.573111459211331*^9, 3.573111546251666*^9, 
   3.573113279461195*^9, 3.573113423206469*^9, 3.573114680684959*^9, 
   3.573115108330346*^9, 3.5731927755933447`*^9, 3.573193362251824*^9, 
   3.573194841540904*^9, 3.5731950580417023`*^9, 3.573195403612206*^9, 
   3.5731960049441233`*^9, 3.573196152948522*^9, 3.573196208131085*^9, 
   3.573196310995598*^9, 3.573202436838249*^9, 3.573203118411834*^9, 
   3.573209049529739*^9, 3.573209511048338*^9, 3.573209977269487*^9, 
   3.573210013896181*^9, 3.5732102836723137`*^9, 3.573210561799939*^9, 
   3.5732113210618057`*^9, 3.573211457259482*^9, 3.573211493354056*^9, 
   3.573211526825045*^9, 3.5732116662631598`*^9, 3.5732117938113403`*^9, 
   3.573212470587422*^9, 3.5732125228819933`*^9, 3.573213015566127*^9, 
   3.573213116678576*^9, 3.573213224708918*^9, {3.573213255076805*^9, 
   3.573213276692175*^9}, 3.573214124940551*^9, 3.5732149438579493`*^9, 
   3.573215089964176*^9, 3.573215659843439*^9, 3.57321569460853*^9, 
   3.573215927308036*^9, 3.573216051853661*^9, 3.573217401566514*^9, 
   3.573218142307973*^9, 3.573218200150626*^9, 3.573218321940069*^9, 
   3.573220845964752*^9, 3.573221653208404*^9, 3.573226229447007*^9, {
   3.573274028391199*^9, 3.573274055200203*^9}, 3.573274896617412*^9, 
   3.57327498245572*^9, 3.57327506724815*^9, 3.573275141011547*^9, 
   3.57327538494872*^9, 3.5732756410871077`*^9, 3.573276617853901*^9, {
   3.5732767308251143`*^9, 3.5732767422071867`*^9}, 3.573276814459387*^9, {
   3.5732768446646214`*^9, 3.573276880861782*^9}, 3.573276926741151*^9, 
   3.573277126380188*^9, 3.573277299175157*^9, 3.573277372060726*^9, 
   3.573277969930133*^9, 3.5732787105068407`*^9, {3.573279043779448*^9, 
   3.57327906986162*^9}, 3.5732795565276537`*^9, 3.573279606131271*^9, 
   3.573280139187862*^9, 3.573280328677602*^9, 3.573283665308627*^9, 
   3.5732837197979803`*^9, 3.573283833081366*^9, 3.573283908182151*^9, 
   3.573288475499036*^9, {3.573288551062881*^9, 3.573288563734099*^9}, 
   3.573289192311316*^9, 3.5732895498068333`*^9, 3.573313929732224*^9, 
   3.573314021686475*^9, 3.573314455168695*^9, 3.573318847717605*^9, 
   3.573319215096549*^9, 3.5733201291533623`*^9, 3.57336126382974*^9, 
   3.573361434661865*^9, 3.5733623009674873`*^9, 3.573362533525716*^9, 
   3.573366525248768*^9, 3.5733687460805063`*^9, 3.573368830752512*^9, 
   3.573368926165921*^9, 3.5733795885265512`*^9, 3.573379723391159*^9, 
   3.573400462959608*^9, 3.573400643166053*^9, 3.5734007230747128`*^9, 
   3.5734022156995993`*^9, 3.573407278263002*^9, {3.57344688059726*^9, 
   3.573446904493001*^9}, 3.57344708856003*^9, 3.573449487881637*^9, 
   3.5734495227009706`*^9, {3.57345033468566*^9, 3.573450340362618*^9}, 
   3.57345043238321*^9, {3.5734506953597517`*^9, 3.5734507191193037`*^9}, 
   3.5734522726360703`*^9, 3.5734555121782427`*^9, {3.573455749304556*^9, 
   3.5734557701287737`*^9}, 3.5734582250599337`*^9, 3.5734583385650883`*^9, 
   3.573464245049275*^9, {3.57346445510087*^9, 3.573464489844742*^9}, 
   3.573464725562326*^9, 3.573464758768664*^9, 3.5734651419036417`*^9, 
   3.573465269575684*^9, 3.5734653033016577`*^9, 3.573465346497636*^9, 
   3.573465761218886*^9, 3.573465826123931*^9, 3.573466085337263*^9, {
   3.5734664514628077`*^9, 3.573466471801435*^9}, 3.573466803671471*^9, 
   3.573466911484613*^9, 3.573467552253098*^9, 3.573467710587174*^9, 
   3.573468117539592*^9, 3.573477763670747*^9, 3.573477877635915*^9, 
   3.573480776260858*^9, 3.5734819338412848`*^9, 3.573482169730852*^9, 
   3.573482364144656*^9, 3.573482401169042*^9, 3.573482431824226*^9, {
   3.573482466619484*^9, 3.573482490938311*^9}, {3.573482529336875*^9, 
   3.573482557716144*^9}, 3.573482637254158*^9, 3.5734877194861317`*^9, 
   3.5734880453993473`*^9, 3.57348809141228*^9, 3.5734889959832077`*^9, 
   3.573489060649098*^9, 3.573489287437114*^9, 3.5734893628850822`*^9, 
   3.573489818312572*^9, 3.573490426198744*^9, 3.5734919205356503`*^9, 
   3.5734922512362823`*^9, 3.5734926004600773`*^9, 3.573493622882814*^9, 
   3.5734938657749166`*^9, 3.573502505104072*^9, 3.573532297874412*^9, 
   3.57353534992745*^9, 3.573535490155202*^9, {3.573535770783545*^9, 
   3.573535787732802*^9}, 3.573536853310783*^9, 3.573536970878395*^9, 
   3.5735404000761538`*^9, 3.573540463615891*^9, 3.573540509799704*^9, 
   3.573540648578455*^9, 3.573540706824399*^9, 3.573542947577993*^9, 
   3.57354341310633*^9, 3.5735435918836184`*^9, 3.57354820441162*^9, 
   3.573548393127037*^9, 3.573548525827569*^9, {3.573548587363639*^9, 
   3.573548657737027*^9}, 3.573548904475672*^9, 3.573551318048695*^9, 
   3.573552770083845*^9, 3.573553315667096*^9, 3.573555996272964*^9, 
   3.573557272463128*^9, 3.573633911797805*^9, 3.573635139981947*^9, {
   3.573638135325486*^9, 3.573638185402644*^9}, {3.57363921282167*^9, 
   3.573639228748063*^9}, 3.573640206565815*^9, 3.573641514823785*^9, 
   3.573641656026922*^9, 3.573641732922782*^9, 3.5736433526275063`*^9, 
   3.573643754922902*^9, 3.5736440028037167`*^9, 3.573644502036435*^9, 
   3.573647987709668*^9, 3.573706581979845*^9, 3.573709194877461*^9, 
   3.573709433776854*^9, 3.573710062074814*^9, 3.57372616790012*^9, 
   3.573726960258752*^9, 3.573727318872377*^9, 3.573727610127821*^9, 
   3.573731302803607*^9, 3.5737316011270113`*^9, 3.573731668030414*^9, 
   3.573740778443563*^9, 3.573742313420923*^9, 3.57376503924719*^9, 
   3.57376699852335*^9, 3.5737974258652153`*^9, 3.573798358378981*^9, 
   3.573799372842594*^9, 3.573800889541129*^9, 3.5738032159372663`*^9, 
   3.573806219971382*^9, 3.573818967129038*^9, 3.57382062059023*^9, 
   3.5738214929147873`*^9, {3.573821809009194*^9, 3.573821832391823*^9}, 
   3.573822016692688*^9, 3.5738221344357367`*^9, 3.573822376013783*^9, 
   3.573823204862029*^9, 3.573823271850587*^9, 3.573823779257156*^9, 
   3.573825349346698*^9, {3.5738263212073708`*^9, 3.5738263422782507`*^9}, 
   3.573826706080207*^9, 3.573827608433152*^9, 3.5738277906637497`*^9, 
   3.5738281355474052`*^9, 3.573829044720142*^9, 3.5738290798664637`*^9, {
   3.57382919218172*^9, 3.573829219948593*^9}, 3.5738297688597717`*^9, 
   3.573830559460703*^9, 3.5738306882481728`*^9, 3.5738307275903883`*^9, 
   3.5738310579056597`*^9, 3.5738313102632847`*^9, 3.5738316370792418`*^9, 
   3.573832068840981*^9, 3.573832498839447*^9, 3.573834288511224*^9, 
   3.573834823171027*^9, 3.5738348985492153`*^9, 3.5738351373992863`*^9, 
   3.573835328525329*^9, 3.573837222269931*^9, 3.573837292099214*^9, 
   3.5738375398444147`*^9, 3.573838119487217*^9, 3.573838229065029*^9, 
   3.573838259145166*^9, 3.573878578709647*^9, 3.573883333292692*^9, 
   3.5738836195159197`*^9, 3.573883681434203*^9, 3.573883879599091*^9, 
   3.5738841390620728`*^9, {3.573885156986882*^9, 3.573885184765871*^9}, 
   3.5738856552656803`*^9, 3.5738857997343473`*^9, 3.573886828632646*^9, 
   3.573888768573966*^9, 3.57388892773633*^9, 3.573889105570181*^9, 
   3.573889230217704*^9, 3.573892304969798*^9, 3.573892640814231*^9, 
   3.5738930145422564`*^9, 3.573894624986771*^9, 3.573895010626326*^9, 
   3.5738954442174377`*^9, 3.573933197395768*^9, 3.5739674839644737`*^9, 
   3.57397180315016*^9, 3.573972978151122*^9, 3.573974452981954*^9, 
   3.573975185789455*^9, 3.57397531080133*^9, 3.573975666387362*^9, 
   3.5739757796728*^9, 3.5739763924601803`*^9, 3.573977659680176*^9, 
   3.573978263616787*^9, 3.5739785785904417`*^9, 3.573978740372479*^9, 
   3.573979988614279*^9, 3.573982680825124*^9, 3.5739844174293613`*^9, 
   3.57398474918239*^9, 3.573984947494191*^9, 3.573985106392874*^9, 
   3.5739872662770863`*^9, 3.5739911389551773`*^9, 3.574002899000113*^9, 
   3.57400746106459*^9, 3.5740078255628157`*^9, 3.574059678499144*^9, 
   3.574059920741366*^9, 3.574060066803421*^9, 3.574060195771368*^9, 
   3.5740607739844027`*^9, 3.5740608932657022`*^9, 3.5740616895051394`*^9, 
   3.574061801676968*^9, 3.5740633884906273`*^9, 3.574063510054432*^9, 
   3.574064190568898*^9, 3.5740644235840273`*^9, 3.574064752004751*^9, 
   3.574065058349513*^9, 3.5740658068928337`*^9, 3.574066353036427*^9, 
   3.5740664395192137`*^9, 3.5740719856099987`*^9, 3.574083129848933*^9, 
   3.574140279325491*^9, {3.5741437261114798`*^9, 3.574143755007594*^9}, 
   3.574143809634709*^9, {3.5744924660179157`*^9, 3.574492547514708*^9}, 
   3.57449278868497*^9, 3.574493972490261*^9, {3.5744961605650167`*^9, 
   3.574496186099365*^9}, 3.5745367262229757`*^9, 3.575099366582273*^9, 
   3.575358761786357*^9, 3.5753598287569103`*^9, 3.5753698700704*^9, 
   3.575370292665419*^9}]
}, Open  ]],

Cell["\<\
fac is saving the aam[x] factor
facTrack saves the factor from am[x] -> 1 before dumbing\
\>", "Text",
 CellChangeTimes->{{3.557745029754455*^9, 3.5577450374499197`*^9}, {
  3.557745260529214*^9, 3.5577452807827053`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "fac", ",", "facTemp", ",", "ii", ",", "jj", ",", "look1", ",", "look2", 
    ",", "save", ",", "SAVE"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tstart", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fac", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"look1", "=", 
      RowBox[{
       RowBox[{"DUMBam", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"DUMBam", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], "//.", "removeAll"}], ")"}]}]}], 
     ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"facTemp", "=", 
        RowBox[{"Complement", "[", 
         RowBox[{
          RowBox[{"Variables", "[", 
           RowBox[{"DUMBam", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"Variables", "[", 
            RowBox[{"DUMBam", "[", 
             RowBox[{"[", "ii", "]"}], "]"}], "]"}], "/.", 
           RowBox[{
            RowBox[{"aam", "[", "x_", "]"}], "\[Rule]", "1"}]}]}], "]"}]}], 
       ";", "\n", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"facTemp", "==", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"fac", "=", "1"}], ",", 
         RowBox[{"fac", "=", 
          RowBox[{"facTemp", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ";"}], "*)"}], "\n", 
     RowBox[{"count", "=", "0"}], ";", "\n", 
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"look2", "=", 
         RowBox[{
          RowBox[{"unUed", "[", 
           RowBox[{"[", "jj", "]"}], "]"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"unUed", "[", 
             RowBox[{"[", "jj", "]"}], "]"}], "//.", "removeAll"}], ")"}]}]}],
         ";", "\n", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"look1", "\[Equal]", "look2"}], ",", "\n", 
          RowBox[{
           RowBox[{"got", "=", 
            RowBox[{
             RowBox[{"Complement", "[", 
              RowBox[{
               RowBox[{"Variables", "[", 
                RowBox[{"unUed", "[", 
                 RowBox[{"[", "jj", "]"}], "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"Variables", "[", 
                 RowBox[{"unUed", "[", 
                  RowBox[{"[", "jj", "]"}], "]"}], "]"}], "/.", 
                RowBox[{
                 RowBox[{"am", "[", "x_", "]"}], "\[Rule]", "1"}]}]}], "]"}], 
             "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
           RowBox[{"save", "=", 
            RowBox[{
             RowBox[{"unU0U", "-", 
              RowBox[{"(", 
               RowBox[{"unU0U", "//.", 
                RowBox[{"got", "\[Rule]", "0"}]}], ")"}]}], "//.", 
             RowBox[{"got", "\[Rule]", "1"}]}]}], ";", "\n", 
           RowBox[{"facTrack", "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"DUMBam", "[", 
                RowBox[{"[", "ii", "]"}], "]"}], "/", 
               RowBox[{"unUed", "[", 
                RowBox[{"[", "jj", "]"}], "]"}]}], "//.", "removeAll"}], "//.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"am", "[", "x_", "]"}], "\[Rule]", "1"}], ",", 
               RowBox[{
                RowBox[{"aam", "[", "x_", "]"}], "\[Rule]", "1"}]}], 
              "}"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"count", "=", 
            RowBox[{"count", "+", "1"}]}]}]}], "]"}], ";", "\n", 
        RowBox[{
         RowBox[{"SAVE", "[", "ii", "]"}], "=", 
         RowBox[{"fac", "*", "facTrack", "*", "save"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"count", "\[Equal]", "1"}], ",", 
          RowBox[{"Break", "[", "]"}]}], "]"}], ";"}], "\n", ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", 
         RowBox[{"Length", "[", "unUed", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"DUMBam", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], "\[Equal]", "hold"}], ",", 
       RowBox[{
        RowBox[{"SAVE", "[", "ii", "]"}], "=", "0"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ii", "/", "20"}], "\[Element]", "Integers"}], ",", 
       RowBox[{"Print", "[", 
        RowBox[{"{", 
         RowBox[{"ii", ",", 
          RowBox[{"DateString", "[", "]"}]}], "}"}], "]"}]}], "]"}], ";"}], 
    "\n", ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "DUMBam", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"print", "\[Equal]", "yes"}], ",", 
    RowBox[{"Print", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<time in minutes\>\"", ",", 
       RowBox[{
        RowBox[{"Round", "[", 
         RowBox[{"100", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"AbsoluteTime", "[", "]"}], "-", "tstart"}], ")"}]}], 
         "]"}], "/", "6000."}], ",", 
       RowBox[{"DateString", "[", "]"}]}], "}"}], "]"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.557745890160549*^9, 3.5577459005887823`*^9}, {
   3.5577461451061363`*^9, 3.5577461455365877`*^9}, 3.557746180363955*^9, {
   3.561992735349319*^9, 3.5619927359577503`*^9}, 3.561995702515525*^9, 
   3.561998135137388*^9, {3.5619985505531588`*^9, 3.561998550877673*^9}, {
   3.56199858979622*^9, 3.561998606452894*^9}, {3.561999300446768*^9, 
   3.561999300785627*^9}, {3.5620717119923887`*^9, 3.5620717266938334`*^9}, {
   3.566731583093998*^9, 3.566731641892847*^9}, {3.566801088273755*^9, 
   3.566801088807703*^9}, 3.5668175103862953`*^9, {3.5668198063434362`*^9, 
   3.566819806652144*^9}, {3.566820652735175*^9, 3.566820653463614*^9}, {
   3.56697256976523*^9, 3.566972579377076*^9}, {3.567065077301672*^9, 
   3.567065147724712*^9}, {3.5670652470262947`*^9, 3.5670652997472763`*^9}, {
   3.567068117097917*^9, 3.56706812768172*^9}, {3.5670702215528917`*^9, 
   3.56707022494814*^9}, {3.567779017271418*^9, 3.5677790210896673`*^9}, {
   3.5691362993283854`*^9, 3.569136299632565*^9}, {3.5730269477656384`*^9, 
   3.5730269481123753`*^9}, {3.5732795823738823`*^9, 3.5732795877425747`*^9}, 
   3.573493837865889*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"TRACKED", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"SAVE", "[", "ii", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "DUMBam", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5577461018920116`*^9, 3.557746118420497*^9}, 
   3.5577461619325323`*^9, {3.557746202041894*^9, 3.557746203462339*^9}, 
   3.557770822486219*^9, {3.5666658747402897`*^9, 3.5666658969914417`*^9}, 
   3.566800919022524*^9, {3.566801154354621*^9, 3.566801156156288*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "TRACKED", "]"}]], "Input",
 CellChangeTimes->{{3.568892473549686*^9, 3.568892478671975*^9}}],

Cell[BoxData["13"], "Output",
 CellChangeTimes->{
  3.568892511866598*^9, 3.568893851248616*^9, 3.5688945413645773`*^9, 
   3.568902500503129*^9, 3.568904158658929*^9, 3.568905550349072*^9, 
   3.568905785497962*^9, 3.568906141871705*^9, 3.5689061893973703`*^9, 
   3.568909365376174*^9, 3.568909400397188*^9, 3.56897349593193*^9, 
   3.568976681263987*^9, 3.568981190234033*^9, {3.568981239801001*^9, 
   3.568981247025275*^9}, 3.568981277278473*^9, 3.568981498474629*^9, 
   3.5689859416912613`*^9, 3.5689983345352182`*^9, 3.5689985200057497`*^9, 
   3.568998587278063*^9, 3.568998742218569*^9, 3.569000045198481*^9, 
   3.5690030632072372`*^9, 3.569045542263826*^9, 3.569045681272625*^9, 
   3.5690468619748487`*^9, 3.5690504566142282`*^9, 3.5690518508891897`*^9, 
   3.5690534822881117`*^9, 3.569054097872308*^9, 3.569054628384884*^9, 
   3.569055867235319*^9, 3.5690610090652437`*^9, 3.569065197426332*^9, 
   3.569067049446713*^9, 3.56906791452712*^9, 3.569075795661593*^9, 
   3.569077248432877*^9, 3.5690777224878798`*^9, 3.569078000408964*^9, 
   3.5690808146507463`*^9, 3.56908181562948*^9, 3.569082203875661*^9, 
   3.5690825178966227`*^9, 3.5691366190034313`*^9, 3.569136774195117*^9, 
   3.569136898932949*^9, 3.569137327587099*^9, 3.5729373402057877`*^9, 
   3.572938189047604*^9, 3.572939908834405*^9, 3.572940662790462*^9, 
   3.5729408862459373`*^9, 3.572941721421668*^9, 3.572942616873951*^9, 
   3.572942999088848*^9, 3.572943099706593*^9, 3.572943578831532*^9, 
   3.572945463886322*^9, 3.572947121358037*^9, 3.572947176277451*^9, 
   3.572947284167091*^9, 3.572947322190518*^9, 3.572947438679201*^9, {
   3.5729478404873953`*^9, 3.57294784683858*^9}, 3.572948109084996*^9, 
   3.572948911408264*^9, 3.572948998965465*^9, 3.572949185199436*^9, 
   3.572958040581532*^9, 3.5729583383008957`*^9, 3.572958529718423*^9, {
   3.572959800099526*^9, 3.5729598239699173`*^9}, 3.572961608281665*^9, 
   3.572961641414824*^9, 3.572963461500037*^9, 3.5729642138835993`*^9, 
   3.5729722700938673`*^9, 3.5729725225853148`*^9, 3.5729730353983593`*^9, {
   3.572974199047838*^9, 3.572974217067288*^9}, 3.572974463573958*^9, 
   3.5729768382950783`*^9, 3.57297692230083*^9, 3.572977101239709*^9, 
   3.572977175572831*^9, 3.5730202140342712`*^9, 3.573023264134697*^9, 
   3.5730234705631657`*^9, 3.573023514514296*^9, 3.573023545099691*^9, 
   3.573023620674622*^9, {3.573024210663752*^9, 3.573024256970681*^9}, 
   3.573025965405457*^9, 3.573026320630019*^9, 3.573026960250906*^9, 
   3.573027068342907*^9, 3.573028880273176*^9, 3.573109242298525*^9, 
   3.573109303069963*^9, 3.573109451802751*^9, 3.573110488791057*^9, 
   3.573111459488791*^9, 3.573111546608729*^9, 3.5731132795408278`*^9, 
   3.5731134234694757`*^9, 3.573114680743931*^9, 3.5731151087180233`*^9, 
   3.573192775969486*^9, 3.573193362312352*^9, 3.5731948415995417`*^9, 
   3.573195064259494*^9, 3.573195403891304*^9, 3.573196004995697*^9, 
   3.573196153382639*^9, 3.573196208194605*^9, 3.573196311317049*^9, 
   3.5732024369282722`*^9, 3.573203146767205*^9, 3.573209049898013*^9, 
   3.573209511799491*^9, 3.573209977328342*^9, 3.573210013956313*^9, 
   3.5732102837628927`*^9, 3.573210562155916*^9, 3.573211321359961*^9, 
   3.573211463104945*^9, 3.573211493681108*^9, 3.5732115268895397`*^9, 
   3.573211666367367*^9, 3.573211793900816*^9, 3.57321247064602*^9, 
   3.573212522942713*^9, 3.573213015657956*^9, 3.573213116942625*^9, 
   3.573213224786456*^9, {3.573213255168334*^9, 3.573213276852723*^9}, 
   3.573214125450189*^9, 3.57321494391687*^9, 3.573215090429578*^9, 
   3.573215659915082*^9, 3.573215694861752*^9, 3.573215927364995*^9, 
   3.573216051913855*^9, 3.573217401624514*^9, 3.5732181423655787`*^9, 
   3.5732182003020573`*^9, 3.573218322035034*^9, 3.5732208464784184`*^9, 
   3.5732216533405046`*^9, 3.5732262358364887`*^9, 3.573274028867263*^9, 
   3.573274061358639*^9, 3.5732749031442757`*^9, 3.573274982994944*^9, 
   3.573275067308998*^9, 3.573275147650148*^9, 3.573275385025744*^9, 
   3.573275641228595*^9, 3.573276618012074*^9, {3.573276731026916*^9, 
   3.573276742278605*^9}, 3.573276814553116*^9, {3.573276844759379*^9, 
   3.573276880917926*^9}, 3.573276926801413*^9, 3.573277126436431*^9, 
   3.5732772992650633`*^9, 3.573277372410553*^9, 3.573277970035962*^9, 
   3.573278710593874*^9, {3.573279044268379*^9, 3.573279070189981*^9}, 
   3.5732795565876217`*^9, 3.5732796062303333`*^9, 3.5732801392446413`*^9, 
   3.5732803287585087`*^9, 3.573283665363309*^9, 3.573283719884865*^9, 
   3.57328383315989*^9, 3.573283908266724*^9, 3.573288475554884*^9, {
   3.573288551123787*^9, 3.573288563843886*^9}, 3.573289192404448*^9, 
   3.573289549929685*^9, 3.573313929795863*^9, 3.5733140217412577`*^9, 
   3.573314455224327*^9, 3.573318847911387*^9, 3.573319215963895*^9, 
   3.573320129488698*^9, 3.573361264036628*^9, 3.573361434874386*^9, 
   3.5733623011660013`*^9, 3.573362533578953*^9, 3.573366525552436*^9, 
   3.5733687461917467`*^9, 3.5733688308586206`*^9, 3.573368926227161*^9, 
   3.573379588582718*^9, 3.573379723754147*^9, 3.573400463012787*^9, 
   3.5734006432278357`*^9, 3.573400723155822*^9, 3.573402219971787*^9, 
   3.573407278368167*^9, {3.573446880655551*^9, 3.573446904548648*^9}, 
   3.573447088677063*^9, 3.573449488298872*^9, 3.5734495227572613`*^9, {
   3.573450335249876*^9, 3.573450340421426*^9}, 3.573450438182776*^9, {
   3.573450695831888*^9, 3.573450725518476*^9}, 3.573452272834173*^9, 
   3.573455512237198*^9, {3.573455749369849*^9, 3.573455770217095*^9}, 
   3.5734582251293783`*^9, 3.5734583386235647`*^9, 3.573464245205673*^9, {
   3.573464455605386*^9, 3.573464460099684*^9}, 3.5734644960467033`*^9, 
   3.5734647257563868`*^9, 3.5734647592885838`*^9, 3.573465142185814*^9, 
   3.573465269643161*^9, 3.5734653033571863`*^9, 3.573465346583892*^9, 
   3.573465761287624*^9, 3.573465826195243*^9, 3.573466085446265*^9, {
   3.57346645158873*^9, 3.573466471873687*^9}, 3.5734668039072733`*^9, 
   3.573466911851844*^9, 3.5734675523105*^9, 3.57346771104746*^9, 
   3.573468117597231*^9, 3.573477763786193*^9, 3.573477877750301*^9, 
   3.573480776468547*^9, 3.573481934046873*^9, 3.573482169818542*^9, 
   3.5734823642068357`*^9, 3.573482401223834*^9, 3.573482432431231*^9, 
   3.573482466678232*^9, 3.573482496985623*^9, {3.5734825297945213`*^9, 
   3.573482563540119*^9}, 3.573482637709231*^9, 3.5734877196140547`*^9, 
   3.5734880457928133`*^9, 3.5734880920119953`*^9, 3.573488996048264*^9, 
   3.573489060736414*^9, 3.573489287502997*^9, 3.57348936298381*^9, 
   3.573489818393887*^9, 3.57349042626583*^9, 3.573491920593685*^9, 
   3.573492259332333*^9, 3.573492600918313*^9, 3.5734937525546*^9, 
   3.573493993848119*^9, 3.5735026325385838`*^9, 3.573532419941538*^9, 
   3.573535350039597*^9, 3.573535490208641*^9, {3.5735357708386793`*^9, 
   3.5735357877979717`*^9}, 3.573536853361197*^9, 3.573536972762422*^9, 
   3.57354040014255*^9, 3.573540463684214*^9, 3.573540509896592*^9, 
   3.573540648964466*^9, 3.573540706960105*^9, 3.5735429477724543`*^9, 
   3.5735434131728573`*^9, 3.5735435929017477`*^9, 3.573548225496583*^9, 
   3.573548424093378*^9, 3.5735485258943853`*^9, {3.573548587411468*^9, 
   3.573548660323414*^9}, 3.573548922824914*^9, 3.573551340695704*^9, 
   3.573552770139057*^9, 3.573555116074194*^9, 3.573556297067637*^9, 
   3.5735575245555077`*^9, 3.573633911859441*^9, 3.573635173386702*^9, {
   3.573638135436831*^9, 3.5736381920776043`*^9}, {3.5736392128984537`*^9, 
   3.5736392354489098`*^9}, 3.5736402066208572`*^9, 3.573641514894803*^9, 
   3.573641656089965*^9, 3.573641733014826*^9, 3.573643352680767*^9, 
   3.5736437549790697`*^9, 3.573644002853201*^9, 3.573644512772942*^9, 
   3.573647990557106*^9, 3.5737065864534683`*^9, 3.573709195414151*^9, 
   3.5737094343776083`*^9, 3.5737100697458057`*^9, 3.573726249060597*^9, 
   3.5737269603490334`*^9, 3.573727318930914*^9, 3.573727616895596*^9, 
   3.573731302986883*^9, 3.573731601175758*^9, 3.573731703057064*^9, 
   3.573740862362101*^9, 3.5737423150566998`*^9, 3.5737650972367487`*^9, 
   3.573767004107815*^9, 3.573797569574415*^9, 3.573798452845612*^9, 
   3.57379951540324*^9, 3.5738010774916286`*^9, 3.573803456306678*^9, 
   3.573806461060747*^9, 3.573819625630383*^9, 3.573821493206806*^9, {
   3.5738218090625763`*^9, 3.573821832457707*^9}, 3.573822019793613*^9, 
   3.5738221467891703`*^9, 3.573822379239025*^9, 3.5738233289754953`*^9, 
   3.573823836089779*^9, 3.573825961942625*^9, {3.5738263212593803`*^9, 
   3.5738263433655767`*^9}, 3.573826709104698*^9, 3.573827611325782*^9, 
   3.573827793734005*^9, 3.573828138578644*^9, 3.573829044782276*^9, 
   3.573829079918839*^9, {3.573829192257346*^9, 3.573829220000985*^9}, 
   3.573829768914892*^9, 3.573830559538797*^9, 3.573830690960534*^9, 
   3.573830728775498*^9, 3.573831060528207*^9, 3.5738313107706127`*^9, 
   3.573831637521044*^9, 3.573832068981146*^9, 3.573832498920184*^9, 
   3.5738342885648823`*^9, 3.573834823510211*^9, 3.573834898725977*^9, 
   3.573835137579693*^9, 3.573835421572699*^9, 3.573837224547492*^9, 
   3.5738372927612867`*^9, 3.57383775143746*^9, 3.573838192401394*^9, 
   3.573838229845059*^9, 3.573838260611086*^9, 3.573882135143004*^9, 
   3.573883335247389*^9, 3.573883619571047*^9, 3.5738836815057383`*^9, 
   3.573883881601622*^9, 3.5738841391154222`*^9, {3.573885158321278*^9, 
   3.573885186305428*^9}, 3.573885655347822*^9, 3.5738857998115463`*^9, 
   3.573886926056081*^9, 3.573888770948756*^9, 3.573888927824997*^9, 
   3.573889105624593*^9, 3.5738892317870626`*^9, 3.573892315636923*^9, 
   3.573892641773098*^9, 3.573893015755452*^9, 3.57389484860833*^9, 
   3.5738951385663652`*^9, 3.573895542541655*^9, 3.573933199885249*^9, 
   3.573970708487286*^9, 3.573971805475716*^9, 3.57397325042898*^9, 
   3.573974658242483*^9, 3.573975456750218*^9, 3.5739756788089447`*^9, 
   3.573975792800156*^9, 3.573976423453505*^9, 3.573977690288136*^9, 
   3.573978263700603*^9, 3.573978595036162*^9, 3.573978752293921*^9, 
   3.573979992698859*^9, 3.573983028048642*^9, 3.573984454451631*^9, 
   3.57398476791994*^9, 3.573984952744565*^9, 3.573985106521718*^9, 
   3.573987285796075*^9, 3.573995921841358*^9, 3.5740028993386*^9, 
   3.5740074615102243`*^9, 3.574007826998354*^9, 3.574059679145509*^9, 
   3.574059921556859*^9, 3.574060067593865*^9, 3.57406039277485*^9, {
   3.57406089098739*^9, 3.5740608934989347`*^9}, 3.574061699908083*^9, 
   3.574061821421026*^9, {3.574063507800811*^9, 3.574063510247862*^9}, 
   3.574064191424089*^9, 3.574064442113719*^9, 3.5740647696185703`*^9, 
   3.574065075715705*^9, 3.574065817532021*^9, 3.574066376116081*^9, 
   3.574066462017146*^9, 3.574072691101778*^9, 3.574083130073017*^9, 
   3.574142336717602*^9, {3.574143726182695*^9, 3.5741437550629053`*^9}, 
   3.5741438473618927`*^9, {3.574492466086713*^9, 3.574492547563333*^9}, 
   3.5744927887437153`*^9, 3.574493972601047*^9, {3.574496160707238*^9, 
   3.574496190289775*^9}, 3.574575896463606*^9, 3.575099366634955*^9, 
   3.575358761821108*^9, 3.575359828804123*^9, 3.5753698701217823`*^9, 
   3.575370292707659*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"checkTRACK", "=", 
  RowBox[{
   RowBox[{"TRACKED", "\[Equal]", "toTrack"}], "//.", 
   "genericAll"}]}]], "Input",
 CellChangeTimes->{
  3.5577462144563427`*^9, {3.5668009210291986`*^9, 3.566800928126884*^9}, {
   3.566801136970326*^9, 3.566801166177084*^9}, {3.566808570676005*^9, 
   3.566808572247776*^9}, {3.567067848182988*^9, 3.5670678502892733`*^9}, 
   3.567070141250928*^9, 3.5677789847152576`*^9, {3.5731960926013002`*^9, 
   3.573196111986272*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.5677789855643063`*^9, 3.567779349547802*^9, {3.567779436242629*^9, 
   3.567779447488145*^9}, {3.567780049265472*^9, 3.567780084665316*^9}, {
   3.567780130320676*^9, 3.567780153956244*^9}, 3.567780198151102*^9, 
   3.567780327582144*^9, {3.567780418643985*^9, 3.567780419444448*^9}, 
   3.5677804530657988`*^9, 3.567780643411545*^9, {3.567780709746306*^9, 
   3.567780743967607*^9}, {3.56778083202695*^9, 3.567780840801229*^9}, 
   3.5677810779646053`*^9, 3.5677820509315443`*^9, 3.56778209242494*^9, {
   3.56778247198326*^9, 3.567782473483511*^9}, 3.567782714255046*^9, 
   3.567785809700891*^9, 3.567785909555627*^9, 3.567787559979541*^9, 
   3.567787734505831*^9, {3.56778789193778*^9, 3.567787918084694*^9}, {
   3.567788265709256*^9, 3.5677882738665752`*^9}, 3.567789164281159*^9, 
   3.567789232266254*^9, 3.567789297432069*^9, 3.567789344915224*^9, 
   3.5677893836318703`*^9, 3.567789430586528*^9, 3.567789483821272*^9, 
   3.567789536720682*^9, 3.567789586584366*^9, 3.567789677708503*^9, 
   3.567789728439394*^9, 3.567789776067956*^9, 3.5677900350956087`*^9, 
   3.567790139921989*^9, 3.567790241273061*^9, 3.567790286975192*^9, 
   3.5677903451084013`*^9, 3.5677904213641777`*^9, 3.5677904629599943`*^9, 
   3.567790506990892*^9, 3.567790540582761*^9, 3.5677905709017563`*^9, 
   3.567790626689636*^9, 3.567790673197197*^9, 3.567792769966179*^9, {
   3.5677928792560062`*^9, 3.56779290708444*^9}, {3.567792961887567*^9, 
   3.567792979435223*^9}, 3.5677930918298073`*^9, 3.567793149921233*^9, 
   3.567793209035366*^9, 3.567793253481573*^9, 3.5677932947292852`*^9, 
   3.567793353727757*^9, 3.567793389525042*^9, 3.567794019333024*^9, {
   3.5677970695185204`*^9, 3.567797095046008*^9}, {3.567797133237115*^9, 
   3.567797183193142*^9}, 3.567797237697112*^9, {3.567797276937826*^9, 
   3.567797298069235*^9}, 3.567797374213464*^9, {3.567797612497045*^9, 
   3.5677976342188997`*^9}, 3.567797716854447*^9, {3.567797758995571*^9, 
   3.567797774029522*^9}, {3.567797848776607*^9, 3.567797893430772*^9}, 
   3.56779796151991*^9, {3.567840171880245*^9, 3.567840357065689*^9}, {
   3.567840410422511*^9, 3.567840421645578*^9}, 3.567840486698427*^9, {
   3.567847154281117*^9, 3.567847234589658*^9}, 3.567847267678403*^9, {
   3.5678475285820827`*^9, 3.567847533554044*^9}, 3.567847602902426*^9, 
   3.567847927810919*^9, {3.567848099855254*^9, 3.5678481047280617`*^9}, 
   3.56784818208494*^9, 3.567848559935856*^9, {3.567848766339499*^9, 
   3.567848767412511*^9}, 3.56784879812613*^9, 3.5678489972265*^9, 
   3.567851100146866*^9, {3.5678512900202103`*^9, 3.5678512989428864`*^9}, 
   3.567851348384053*^9, 3.567851494572308*^9, 3.5678516437154083`*^9, {
   3.567851946463414*^9, 3.5678519537070312`*^9}, 3.567852134426663*^9, 
   3.567852796490189*^9, {3.56785303953754*^9, 3.567853045830105*^9}, 
   3.567853160783743*^9, 3.567853732349769*^9, {3.56785393755355*^9, 
   3.567853938548464*^9}, 3.567853986583975*^9, 3.5678542936952457`*^9, 
   3.5678591888371897`*^9, 3.5678689000351954`*^9, 3.5678780696925087`*^9, 
   3.567878993241259*^9, 3.5678807181325493`*^9, 3.567881202348048*^9, 
   3.567881297842572*^9, 3.567927329568321*^9, 3.567927445929831*^9, 
   3.567929959591905*^9, 3.567930637338564*^9, 3.567934682702881*^9, 
   3.5679372356605186`*^9, 3.56793887881548*^9, 3.567939114365781*^9, 
   3.56794289069311*^9, {3.567943285719674*^9, 3.5679433226954813`*^9}, {
   3.5679434126767597`*^9, 3.567943450262866*^9}, {3.5679443764559393`*^9, 
   3.5679444209860992`*^9}, 3.567945331948612*^9, {3.567945462997147*^9, 
   3.5679454830864897`*^9}, 3.567946225080125*^9, {3.5679463336982107`*^9, 
   3.567946381810614*^9}, 3.567946875784328*^9, 3.567946915465007*^9, 
   3.567948922430101*^9, 3.567960265778076*^9, 3.567960481455408*^9, {
   3.5679607979076967`*^9, 3.567960834696306*^9}, 3.567961332201735*^9, {
   3.56796136888345*^9, 3.567961402646698*^9}, {3.567961486797916*^9, 
   3.567961531269141*^9}, {3.567961616764127*^9, 3.56796163468244*^9}, 
   3.5679616735605593`*^9, {3.567961716662228*^9, 3.56796173269144*^9}, {
   3.567961794996654*^9, 3.567961827667809*^9}, {3.5679619053401318`*^9, 
   3.567961946852433*^9}, 3.567962009276435*^9, 3.567962153978862*^9, 
   3.567965076206821*^9, {3.5679651575513153`*^9, 3.56796529475706*^9}, {
   3.5679653347994957`*^9, 3.567965370500711*^9}, {3.5679654274681473`*^9, 
   3.567965470495695*^9}, {3.56796553836403*^9, 3.567965547630652*^9}, 
   3.567965611533681*^9, 3.5679657924468317`*^9, {3.567967778633597*^9, 
   3.567967797588595*^9}, 3.568007639758754*^9, 3.568007916769425*^9, {
   3.568007985375388*^9, 3.5680080598332644`*^9}, 3.5680080909651423`*^9, {
   3.568008125517151*^9, 3.568008144257308*^9}, {3.5680081875043917`*^9, 
   3.568008210529523*^9}, {3.5680082724535427`*^9, 3.568008282682253*^9}, {
   3.56800835053266*^9, 3.56800836085966*^9}, 3.568008431141665*^9, 
   3.568008648089191*^9, 3.5680124939395113`*^9, {3.568012658764708*^9, 
   3.56801279828644*^9}, 3.568012840728663*^9, {3.56801290119865*^9, 
   3.56801291769368*^9}, 3.5680129781929913`*^9, {3.568013030420487*^9, 
   3.5680130472842007`*^9}, 3.568013117273376*^9, {3.568013160008854*^9, 
   3.568013176110759*^9}, 3.568013240443665*^9, 3.5680133871756077`*^9, 
   3.5680138731693077`*^9, 3.568015249988172*^9, 3.568015968834498*^9, 
   3.568016538832776*^9, 3.568017138113249*^9, {3.568017201308035*^9, 
   3.568017350643196*^9}, {3.5680173910111227`*^9, 3.5680174342169113`*^9}, {
   3.5680174937487583`*^9, 3.568017533341487*^9}, {3.568017601818624*^9, 
   3.5680176396322117`*^9}, 3.568017705617345*^9, 3.5680178308428583`*^9, 
   3.5680192335980167`*^9, 3.568019510425888*^9, 3.568019578978053*^9, 
   3.568021400761265*^9, 3.568022468662739*^9, 3.568022581877883*^9, 
   3.568022979865452*^9, 3.568023130584282*^9, {3.568023248698382*^9, 
   3.5680232905109177`*^9}, {3.5680233312470922`*^9, 3.568023350310606*^9}, {
   3.568023383354175*^9, 3.568023433551838*^9}, 3.568023486575913*^9, {
   3.5680235289885187`*^9, 3.568023550602393*^9}, {3.568023615912549*^9, 
   3.568023658076741*^9}, 3.5680237339880667`*^9, {3.56802377398939*^9, 
   3.5680237946532803`*^9}, 3.568023864061522*^9, 3.568024139256424*^9, {
   3.568027626187957*^9, 3.5680276711352587`*^9}, {3.568027713896269*^9, 
   3.56802772157882*^9}, {3.568029381711566*^9, 3.568029392198574*^9}, {
   3.568029490343137*^9, 3.5680295632913923`*^9}, {3.568029596064969*^9, 
   3.568029629445569*^9}, {3.568029681098029*^9, 3.5680297239848547`*^9}, {
   3.5680297871121483`*^9, 3.568029827139575*^9}, {3.568029900112969*^9, 
   3.568029938343034*^9}, 3.568030007161765*^9, {3.568039100052414*^9, 
   3.568039122855644*^9}, {3.568039702796152*^9, 3.56803973560065*^9}, 
   3.568040143102933*^9, {3.568041383018613*^9, 3.56804145953437*^9}, {
   3.5680414933583*^9, 3.568041541508778*^9}, {3.568041592796253*^9, 
   3.568041641036998*^9}, {3.568041703854438*^9, 3.568041756465082*^9}, {
   3.568041831592595*^9, 3.568041885574627*^9}, {3.56804195185248*^9, 
   3.568041970889668*^9}, {3.5680427942583733`*^9, 3.568042862312018*^9}, {
   3.568042893200367*^9, 3.5680429380741863`*^9}, {3.568042988754807*^9, 
   3.568043029720113*^9}, {3.5680430945287323`*^9, 3.568043129553446*^9}, {
   3.5680432056845417`*^9, 3.5680432080818367`*^9}, {3.5680432520060587`*^9, 
   3.568043268755351*^9}, {3.568043338953621*^9, 3.568043341200328*^9}, 
   3.568128783550332*^9, 3.568128834076517*^9, 3.568134562882017*^9, 
   3.5681369174494133`*^9, {3.568136988388776*^9, 3.568137132231296*^9}, {
   3.568137178164442*^9, 3.5681372264843063`*^9}, 3.568137285065897*^9, {
   3.5681373524957237`*^9, 3.568137371243257*^9}, 3.5681374418791237`*^9, {
   3.568137539996202*^9, 3.5681375556205063`*^9}, 3.568137622813361*^9, 
   3.5681378630171003`*^9, 3.568140100055574*^9, 3.568144064601315*^9, 
   3.568276737093535*^9, 3.568277022738373*^9, 3.568277344052546*^9, 
   3.568277740923024*^9, {3.5682777832288857`*^9, 3.56827781046485*^9}, 
   3.568278014790493*^9, 3.5682780614202127`*^9, 3.5682781400081882`*^9, 
   3.56827866595203*^9, 3.568287721477253*^9, 3.568291005141099*^9, 
   3.5683115781193457`*^9, 3.568326704934352*^9, 3.5683712849542513`*^9, 
   3.5683725552353363`*^9, 3.568373395314629*^9, 3.568376294261607*^9, 
   3.568376435563408*^9, 3.568376976053028*^9, 3.568377814250347*^9, 
   3.568379418518368*^9, 3.568381846329483*^9, 3.568382118011546*^9, 
   3.56838282747048*^9, 3.568387543324246*^9, 3.5683960607354393`*^9, 
   3.5683961719035263`*^9, 3.568443145302642*^9, 3.568443269035425*^9, 
   3.568444296300345*^9, 3.568444387147077*^9, 3.5684444463919907`*^9, 
   3.568444486846774*^9, 3.56844459651019*^9, 3.568445788321772*^9, {
   3.568446286391098*^9, 3.568446306244504*^9}, 3.568448311296678*^9, 
   3.568448610002758*^9, 3.568448903867784*^9, 3.568452956872493*^9, 
   3.5684813266700687`*^9, 3.568481433725293*^9, 3.568539741543374*^9, 
   3.568539803098693*^9, 3.5685419525414543`*^9, 3.568544321109496*^9, 
   3.568549407182157*^9, 3.568549458405107*^9, 3.568552695649743*^9, 
   3.568557359621808*^9, 3.5685574644004717`*^9, 3.568557501506782*^9, 
   3.56855756089219*^9, 3.568557707372106*^9, 3.568559003804921*^9, 
   3.568559041539859*^9, 3.5685695473918037`*^9, 3.568570306945147*^9, 
   3.568614641682823*^9, {3.568614871712799*^9, 3.568614910134904*^9}, 
   3.568615934512292*^9, 3.568616763366798*^9, 3.568616975939005*^9, 
   3.568617099814321*^9, 3.56861729765302*^9, 3.5686182433589153`*^9, 
   3.568620996463727*^9, 3.568623748285096*^9, 3.568625543530621*^9, 
   3.568626761485382*^9, 3.568626811086657*^9, 3.568627192858025*^9, 
   3.5686316025845213`*^9, 3.568632234624282*^9, 3.568632571304179*^9, 
   3.568635444024843*^9, 3.568644022998204*^9, 3.56864417647712*^9, 
   3.568646143708137*^9, 3.5686463617139387`*^9, 3.568647431876564*^9, 
   3.568647478081222*^9, 3.568647547583403*^9, 3.568647692478446*^9, 
   3.568647749814165*^9, 3.568649406640194*^9, 3.5686498067050333`*^9, {
   3.56865014523426*^9, 3.5686501721958437`*^9}, 3.568650352826152*^9, 
   3.568650535571693*^9, 3.568698678942959*^9, 3.568701344913597*^9, 
   3.568703215379628*^9, 3.568705554982621*^9, 3.568706969105495*^9, 
   3.568707151320816*^9, 3.568710337120225*^9, 3.568710392887422*^9, {
   3.5687104504332333`*^9, 3.568710471894116*^9}, 3.5687105882090282`*^9, 
   3.568711099405734*^9, {3.568711884051222*^9, 3.568711898258168*^9}, 
   3.5687120171479263`*^9, 3.568712073420353*^9, 3.5687128259550953`*^9, 
   3.568712936513256*^9, 3.5687130833847513`*^9, 3.568713170917789*^9, {
   3.568713294555295*^9, 3.568713319196501*^9}, 3.56871398335667*^9, 
   3.568714131073029*^9, {3.568714177336912*^9, 3.568714207027484*^9}, 
   3.568717278263803*^9, 3.5687177586359463`*^9, 3.568717949195837*^9, 
   3.568718287752914*^9, 3.568719704295101*^9, 3.568720015440955*^9, 
   3.5687245675408278`*^9, 3.568724664430622*^9, 3.568724884545681*^9, 
   3.5687254319355917`*^9, 3.568725536367425*^9, 3.568726413611397*^9, 
   3.568726564142798*^9, 3.568726595634749*^9, 3.568727900210731*^9, 
   3.56872795587425*^9, 3.568728159510399*^9, 3.56872823093185*^9, 
   3.5687289867696867`*^9, 3.56872923104989*^9, 3.56872932404851*^9, 
   3.568729804286065*^9, 3.568732891194996*^9, 3.568734874804323*^9, 
   3.568734979147163*^9, 3.568735610345955*^9, 3.568738260392136*^9, 
   3.568739202343175*^9, 3.568739580897027*^9, 3.56874047748627*^9, 
   3.56874105504667*^9, 3.56874296260266*^9, 3.568744800137301*^9, 
   3.568789885935474*^9, 3.568790120653562*^9, 3.568790813275073*^9, 
   3.568790972056785*^9, 3.568794916265827*^9, 3.568795048868741*^9, 
   3.568795374377499*^9, 3.5687966676045628`*^9, 3.568797079155271*^9, 
   3.568797190571435*^9, 3.5687972759922657`*^9, 3.56879739591416*^9, 
   3.568797759199491*^9, 3.568799278070253*^9, 3.5688906677042828`*^9, 
   3.568890776247829*^9, 3.5688909353710623`*^9, 3.568890972013669*^9, 
   3.568891205078795*^9, 3.568891284565226*^9, 3.568892511787572*^9, 
   3.568893851569191*^9, 3.568894541439808*^9, 3.5689025011572037`*^9, 
   3.568904158738761*^9, 3.5689055510685883`*^9, 3.56890578575539*^9, 
   3.568906142158057*^9, 3.568906189451128*^9, 3.5689093653845453`*^9, 
   3.568909400408144*^9, 3.5689734959959*^9, 3.5689766812721024`*^9, 
   3.568981190277555*^9, {3.5689812398171473`*^9, 3.568981247042047*^9}, 
   3.56898127732701*^9, 3.568981498540044*^9, 3.568985941737053*^9, 
   3.568998334677536*^9, 3.5689985200704823`*^9, 3.5689985872859898`*^9, 
   3.568998742363488*^9, 3.569000045293594*^9, 3.569003063394511*^9, 
   3.5690455423246193`*^9, 3.569045681318095*^9, 3.5690468621793537`*^9, 
   3.569050456812233*^9, 3.569051850938594*^9, 3.569053482460746*^9, 
   3.569054097999319*^9, 3.569054628463526*^9, 3.56905586724334*^9, 
   3.5690610091271877`*^9, 3.5690651974376593`*^9, 3.5690670495903463`*^9, 
   3.569067914633481*^9, 3.5690757960000753`*^9, 3.569077248675942*^9, 
   3.569077722697356*^9, 3.569078000639759*^9, 3.569080815069076*^9, 
   3.5690818160552692`*^9, 3.569082204221977*^9, 3.569082518063345*^9, 
   3.569136621963944*^9, 3.569136774250902*^9, 3.569136899101267*^9, 
   3.569137328242984*^9, 3.572937341544242*^9, 3.572938189057398*^9, 
   3.5729399088743773`*^9, 3.572940662798891*^9, 3.572940886254477*^9, 
   3.572941721469966*^9, 3.572942616882361*^9, 3.5729429990973587`*^9, 
   3.572943099752631*^9, 3.572943578840061*^9, 3.572945463937992*^9, 
   3.572947121454854*^9, 3.572947176285739*^9, 3.57294728434035*^9, 
   3.572947322236775*^9, 3.572947438687455*^9, {3.572947840532987*^9, 
   3.572947846890418*^9}, 3.572948109093789*^9, 3.572948911417213*^9, 
   3.572948998974011*^9, 3.572949185207901*^9, 3.572958040635202*^9, 
   3.5729583383097982`*^9, 3.572958529765946*^9, {3.572959800108699*^9, 
   3.5729598240258093`*^9}, 3.5729616083295927`*^9, 3.5729616414585*^9, 
   3.572963461542697*^9, 3.572964213941204*^9, 3.57297227010357*^9, 
   3.5729725225959387`*^9, 3.5729730354080467`*^9, {3.572974199056449*^9, 
   3.57297421710962*^9}, 3.5729744636188307`*^9, 3.572976838395035*^9, 
   3.57297692237088*^9, 3.572977101248889*^9, 3.57297717562267*^9, 
   3.5730202140784492`*^9, 3.57302326414354*^9, 3.573023470610714*^9, 
   3.573023514525219*^9, 3.57302354510909*^9, 3.5730236207251673`*^9, {
   3.573024210713455*^9, 3.5730242570234747`*^9}, 3.5730259654497433`*^9, 
   3.5730263206711597`*^9, 3.573026960364646*^9, 3.5730270684441013`*^9, 
   3.57302888035511*^9, 3.573109242311385*^9, 3.57310930307955*^9, 
   3.573109451810622*^9, 3.5731104889145308`*^9, 3.573111459530056*^9, 
   3.5731115466630383`*^9, 3.5731132795486097`*^9, 3.573113423514595*^9, 
   3.5731146807526817`*^9, 3.573115108826902*^9, 3.573192775980528*^9, 
   3.5731933624592876`*^9, 3.573194841608549*^9, 3.573195064267638*^9, 
   3.5731954040138483`*^9, 3.573196005003986*^9, {3.573196097386943*^9, 
   3.573196112591526*^9}, 3.57319615342194*^9, 3.57319620820296*^9, 
   3.573196311420374*^9, 3.573202436937001*^9, 3.573203149210045*^9, 
   3.5732090500177097`*^9, 3.573209511860653*^9, 3.5732099773368807`*^9, 
   3.573210013964876*^9, 3.573210283771407*^9, 3.573210562199334*^9, 
   3.5732113214985228`*^9, 3.5732114631136436`*^9, 3.573211493732373*^9, 
   3.573211526933961*^9, 3.5732116663757877`*^9, 3.573211793908869*^9, 
   3.573212470654167*^9, 3.573212522951028*^9, 3.57321301566673*^9, 
   3.57321311698596*^9, 3.573213224796937*^9, {3.57321325517715*^9, 
   3.5732132768687143`*^9}, 3.573214125495316*^9, 3.573214943925886*^9, 
   3.573215090473918*^9, 3.573215659960698*^9, 3.573215694905718*^9, 
   3.5732159273732033`*^9, 3.5732160519248123`*^9, 3.573217401632691*^9, 
   3.5732181423738194`*^9, 3.573218200312222*^9, 3.573218322044817*^9, 
   3.573220846523823*^9, 3.573221653349462*^9, 3.573226235848695*^9, 
   3.573274028912004*^9, 3.573274061370298*^9, 3.57327490320091*^9, 
   3.573274983160182*^9, 3.573275067351057*^9, 3.573275147658993*^9, 
   3.573275385070077*^9, 3.573275641324573*^9, 3.573276618058564*^9, {
   3.573276731080724*^9, 3.573276742286171*^9}, 3.573276814561473*^9, {
   3.573276844793222*^9, 3.57327688092631*^9}, 3.573276926808941*^9, 
   3.573277126444297*^9, 3.573277299303657*^9, 3.573277372462285*^9, 
   3.5732779700739202`*^9, 3.573278710602171*^9, {3.5732790443175497`*^9, 
   3.5732790703494864`*^9}, 3.5732795565959167`*^9, 3.5732796062379637`*^9, 
   3.5732801392535477`*^9, 3.573280328767599*^9, 3.573283665371738*^9, 
   3.573283719892935*^9, 3.57328383316755*^9, 3.5732839082749577`*^9, 
   3.573288475563425*^9, {3.5732885511320133`*^9, 3.573288563851678*^9}, 
   3.5732891924130993`*^9, 3.573289549970564*^9, 3.5733139298047733`*^9, 
   3.573314021749075*^9, 3.573314455233218*^9, 3.573318847920192*^9, 
   3.573319216108994*^9, 3.573320129725915*^9, 3.5733612640790367`*^9, 
   3.5733614350400763`*^9, 3.573362301173601*^9, 3.573362533586824*^9, 
   3.5733665256618032`*^9, 3.5733687461990967`*^9, 3.5733688308669043`*^9, 
   3.5733689262357187`*^9, 3.573379588590631*^9, 3.573379723922551*^9, 
   3.573400463048764*^9, 3.5734006432362223`*^9, 3.57340072319576*^9, 
   3.573402220052232*^9, 3.573407278406806*^9, {3.573446880663471*^9, 
   3.573446904556183*^9}, 3.573447088717955*^9, 3.573449488340432*^9, 
   3.5734495227970543`*^9, {3.5734503352964897`*^9, 3.573450340459414*^9}, 
   3.573450438262271*^9, {3.573450695873233*^9, 3.573450725644875*^9}, 
   3.573452272842122*^9, 3.573455512244708*^9, {3.573455749379174*^9, 
   3.5734557702252083`*^9}, 3.573458225137046*^9, 3.57345833863136*^9, 
   3.57346424526082*^9, {3.573464455656917*^9, 3.573464460141404*^9}, 
   3.573464496197178*^9, 3.573464725977688*^9, 3.5734647593322372`*^9, 
   3.573465142223855*^9, 3.573465269650999*^9, 3.5734653033651342`*^9, 
   3.573465346591071*^9, 3.573465761299127*^9, 3.57346582620408*^9, 
   3.573466085456565*^9, {3.573466451598*^9, 3.573466471881186*^9}, 
   3.573466803917643*^9, 3.573466911891824*^9, 3.573467552317952*^9, 
   3.573467711223447*^9, 3.5734681176052217`*^9, 3.573477763827153*^9, 
   3.573477877788207*^9, 3.573480776477456*^9, 3.573481934055483*^9, 
   3.573482169827455*^9, 3.573482364215788*^9, 3.573482401231535*^9, 
   3.573482432471055*^9, 3.5734824667190247`*^9, 3.573482496998033*^9, {
   3.573482529835215*^9, 3.5734825636747637`*^9}, 3.5734826377545433`*^9, 
   3.573487719669848*^9, 3.573488045839716*^9, 3.5734880920525084`*^9, 
   3.573488996058776*^9, 3.573489060744173*^9, 3.573489287511579*^9, 
   3.573489362991755*^9, 3.573489818405623*^9, 3.57349042627507*^9, 
   3.5734919206026907`*^9, 3.5734922594136868`*^9, 3.573492601077853*^9, 
   3.5734937527224216`*^9, 3.5734939940178137`*^9, 3.573502632706703*^9, 
   3.573532420103314*^9, 3.573535350047838*^9, 3.573535490216487*^9, {
   3.5735357708468313`*^9, 3.573535787805932*^9}, 3.573536853368623*^9, 
   3.573536972895152*^9, 3.5735404001932383`*^9, 3.573540463697091*^9, 
   3.573540509970469*^9, 3.573540649005238*^9, 3.5735407069997787`*^9, 
   3.573542947819623*^9, 3.573543413181119*^9, 3.573543593008664*^9, 
   3.573548225868279*^9, 3.57354842441194*^9, 3.573548525904772*^9, {
   3.573548587421012*^9, 3.573548660377467*^9}, 3.573548923111841*^9, 
   3.573551340805293*^9, 3.573552770146859*^9, 3.573555117168345*^9, 
   3.573556298107067*^9, 3.573557525398425*^9, 3.57363391186944*^9, 
   3.573635173589835*^9, {3.573638135507367*^9, 3.5736381922192593`*^9}, {
   3.5736392129462233`*^9, 3.573639235457477*^9}, 3.573640206628921*^9, 
   3.5736415149502897`*^9, 3.573641656099638*^9, 3.573641733050806*^9, 
   3.573643352717409*^9, 3.5736437550204573`*^9, 3.5736440029182158`*^9, 
   3.57364451282647*^9, 3.5736479906083384`*^9, 3.5737065865490837`*^9, 
   3.5737091954695387`*^9, 3.5737094345249033`*^9, 3.573710069814335*^9, 
   3.57372624939942*^9, 3.5737269603917*^9, 3.573727318940192*^9, 
   3.573727616961927*^9, 3.5737313030874434`*^9, 3.5737316011839533`*^9, 
   3.5737317033601007`*^9, 3.573740862798814*^9, 3.573742315108653*^9, 
   3.573765097496491*^9, 3.5737670041570883`*^9, 3.573797569819159*^9, 
   3.573798453026043*^9, 3.573799515654701*^9, 3.573801077786175*^9, 
   3.573803456574912*^9, 3.573806461362216*^9, 3.573819626189003*^9, 
   3.573821493364451*^9, {3.573821809103198*^9, 3.573821832499761*^9}, 
   3.573822019877976*^9, 3.573822146990067*^9, 3.573822379336808*^9, 
   3.573823329095484*^9, 3.5738238362072268`*^9, 3.573825962303507*^9, {
   3.573826321293631*^9, 3.573826343374455*^9}, 3.573826709228332*^9, 
   3.573827611405298*^9, 3.573827793818454*^9, 3.5738281386777773`*^9, 
   3.573829044789773*^9, 3.573829079925954*^9, {3.573829192265602*^9, 
   3.573829220009199*^9}, 3.5738297689222307`*^9, 3.573830559574609*^9, 
   3.573830691049478*^9, 3.5738307288224993`*^9, 3.573831060608567*^9, 
   3.573831310809299*^9, 3.5738316375571003`*^9, 3.5738320690179873`*^9, 
   3.573832498960725*^9, 3.5738342885726347`*^9, 3.5738348235504007`*^9, 
   3.5738348987711697`*^9, 3.573835137629394*^9, 3.5738354218330803`*^9, 
   3.5738372246048613`*^9, 3.573837292803937*^9, 3.573837751723462*^9, 
   3.573838192533848*^9, 3.5738382298891478`*^9, 3.5738382607669*^9, 
   3.5738821372791557`*^9, 3.57388333536544*^9, 3.5738836195781612`*^9, 
   3.573883681542528*^9, 3.573883881676795*^9, 3.5738841391233883`*^9, {
   3.573885158363188*^9, 3.5738851863453913`*^9}, 3.573885655388015*^9, 
   3.573885799850827*^9, 3.5738869262337103`*^9, 3.573888770992361*^9, 
   3.5738889278632793`*^9, 3.573889105632436*^9, 3.573889231826743*^9, 
   3.573892315744236*^9, 3.573892641810039*^9, 3.573893015798482*^9, 
   3.573894849542753*^9, 3.573895138775174*^9, 3.5738955427995358`*^9, 
   3.573933201518471*^9, 3.5739707103758173`*^9, 3.573971805627883*^9, 
   3.5739732514266443`*^9, 3.573974659173724*^9, 3.573975456819676*^9, 
   3.573975678815645*^9, 3.573975792898975*^9, 3.573976423635523*^9, 
   3.573977690452282*^9, 3.573978263707925*^9, 3.573978595124825*^9, 
   3.573978752354848*^9, 3.573979992798499*^9, 3.573983028348682*^9, 
   3.573984454600412*^9, 3.57398476799649*^9, 3.5739849528563137`*^9, 
   3.573985106565508*^9, 3.573987285878837*^9, 3.573995923035067*^9, 
   3.574002899384856*^9, 3.5740074615582523`*^9, 3.574007827048382*^9, 
   3.574059679179927*^9, 3.574059921595693*^9, 3.574060067646038*^9, 
   3.574060392952471*^9, {3.57406089146594*^9, 3.5740608935377407`*^9}, 
   3.5740616999592733`*^9, 3.574061821491167*^9, {3.574063508285392*^9, 
   3.5740635102870626`*^9}, 3.5740641914495907`*^9, 3.574064442194521*^9, 
   3.574064769696075*^9, 3.574065075786744*^9, 3.574065817589861*^9, 
   3.574066376266464*^9, 3.5740664620888557`*^9, 3.574072691500043*^9, 
   3.574083130107953*^9, 3.574142337605547*^9, {3.574143726231924*^9, 
   3.5741437550935497`*^9}, 3.574143847525847*^9, {3.574492466104267*^9, 
   3.574492547573558*^9}, 3.574492788747817*^9, 3.574493972611582*^9, {
   3.5744961607178164`*^9, 3.574496190327641*^9}, 3.57457589895511*^9, 
   3.575099366653487*^9, 3.575358761826783*^9, 3.5753598288150806`*^9, 
   3.575369870130025*^9, 3.575370292712398*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["checker", "Subsubsection",
 CellChangeTimes->{{3.566808550218051*^9, 3.566808560353444*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"typeUtracking", "\[Equal]", "many"}], ",", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"checkVector", ",", 
      RowBox[{"{", 
       RowBox[{
       "varCheck", ",", "checkUnU0U1", ",", "checkUnU0U2", ",", 
        "checkTRACK"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Union", "[", 
      RowBox[{"Flatten", "[", "checkVector", "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"Print", "[", 
    RowBox[{"{", 
     RowBox[{
     "varCheck", ",", "checkUnU0U1", ",", "checkUnU0U2", ",", "checkTRACK"}], 
     "}"}], "]"}], ",", 
   RowBox[{"Print", "[", 
    RowBox[{"{", 
     RowBox[{
     "varCheck", ",", "checkUnU0U1", ",", "checkUnU0U2", ",", "checkTRACK"}], 
     "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.572938174268242*^9, 3.572938219092806*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Print",
 CellChangeTimes->{{3.566919648722151*^9, 3.566919675628359*^9}, 
   3.566919710675333*^9, {3.5669198552653503`*^9, 3.566919863805441*^9}, 
   3.566919928097827*^9, 3.5669199819952097`*^9, {3.566920185871077*^9, 
   3.566920195427968*^9}, 3.566920285676952*^9, 3.5669204078000526`*^9, {
   3.5669205267987003`*^9, 3.566920541110437*^9}, 3.566920611509068*^9, 
   3.566920670620809*^9, {3.566920891427182*^9, 3.566920898355744*^9}, {
   3.5669209564292173`*^9, 3.56692097602358*^9}, 3.56692103674918*^9, 
   3.566921181950886*^9, {3.5669214483092613`*^9, 3.5669214598955603`*^9}, 
   3.566921495625298*^9, 3.566921597227416*^9, {3.5669222546008253`*^9, 
   3.566922281149534*^9}, 3.5669223694754333`*^9, {3.566922441308673*^9, 
   3.566922469180241*^9}, 3.566922597266222*^9, {3.56692308366222*^9, 
   3.566923109404522*^9}, {3.5669231741343927`*^9, 3.566923196708068*^9}, 
   3.566923258316722*^9, {3.566925164735824*^9, 3.5669251967817698`*^9}, {
   3.5669252638461246`*^9, 3.566925288503351*^9}, {3.566925350678175*^9, 
   3.5669253738842793`*^9}, 3.566925437971373*^9, {3.566925998239976*^9, 
   3.566926031854883*^9}, {3.566926063042349*^9, 3.56692607904312*^9}, 
   3.566926132075564*^9, 3.566926180385207*^9, {3.566926254530177*^9, 
   3.566926255931779*^9}, 3.566926336424287*^9, {3.566926450921995*^9, 
   3.566926464174025*^9}, 3.5669265226530943`*^9, 3.56692657747535*^9, {
   3.566926662663937*^9, 3.5669266636788816`*^9}, 3.566926712748632*^9, 
   3.566926852755561*^9, {3.566926902856162*^9, 3.566926931661182*^9}, {
   3.566927034214546*^9, 3.566927071484583*^9}, {3.566927149992805*^9, 
   3.566927172427659*^9}, 3.56692724098709*^9, {3.566927591214447*^9, 
   3.566927640251314*^9}, {3.566927670890677*^9, 3.566927688055345*^9}, 
   3.5669277417737713`*^9, 3.566927790458839*^9, {3.5669278666007967`*^9, 
   3.566927868001191*^9}, 3.56692792864184*^9, {3.56692810792696*^9, 
   3.56692811944545*^9}, 3.566928165395445*^9, 3.566928249074293*^9, {
   3.566928326435964*^9, 3.566928327302524*^9}, 3.566928359336499*^9, 
   3.5669285472867947`*^9, {3.56692858893915*^9, 3.566928599123028*^9}, {
   3.566928710992488*^9, 3.5669287330579357`*^9}, {3.566928810274481*^9, 
   3.5669288204205*^9}, 3.566928884424428*^9, 3.5669431338507223`*^9, 
   3.5669432523702993`*^9, 3.566943992597584*^9, 3.566945095777273*^9, 
   3.566945564098812*^9, 3.566946753614273*^9, 3.5669937681234627`*^9, 
   3.5670057615574923`*^9, 3.567021823454063*^9, 3.5670233571502666`*^9, 
   3.5670649309999647`*^9, 3.567069026906507*^9, 3.567070156443715*^9, 
   3.56707119142598*^9, 3.567073192733563*^9, 3.5670739212541656`*^9, 
   3.5670783254618397`*^9, 3.567079249757122*^9, 3.567079424384139*^9, 
   3.567091543060152*^9, 3.567092053563849*^9, 3.567092120672974*^9, 
   3.5670925153801203`*^9, 3.5670926683129787`*^9, {3.567092705133665*^9, 
   3.567092717107394*^9}, 3.56710837292379*^9, 3.567108461232801*^9, 
   3.567108603087697*^9, 3.567108672273157*^9, 3.56710950256717*^9, 
   3.5671097099347363`*^9, 3.567110272093625*^9, 3.567111296585565*^9, 
   3.567114470446558*^9, 3.567114527775607*^9, 3.567115743613937*^9, 
   3.567115962573491*^9, 3.5671161849700193`*^9, 3.567116904870224*^9, 
   3.5671176118353157`*^9, 3.5671220372601213`*^9, 3.5671223903450193`*^9, 
   3.567122586392807*^9, 3.567124851979823*^9, 3.567124941032136*^9, 
   3.567124996610314*^9, {3.5671254305508957`*^9, 3.567125480856516*^9}, 
   3.567162809964199*^9, 3.567243704169426*^9, 3.5672437362725573`*^9, 
   3.567245523250255*^9, 3.567250900088408*^9, 3.567253357236312*^9, 
   3.567253523286522*^9, 3.56725377563454*^9, {3.56725391936665*^9, 
   3.5672540213912487`*^9}, {3.567254059840616*^9, 3.567254083436123*^9}, {
   3.567254148604887*^9, 3.567254171161166*^9}, 3.56725421335163*^9, {
   3.567254589929371*^9, 3.5672546069919043`*^9}, {3.5672546931433907`*^9, 
   3.5672547243030863`*^9}, 3.567254794997527*^9, {3.567260097607369*^9, 
   3.567260120334453*^9}, {3.567260190450695*^9, 3.567260201143505*^9}, 
   3.567260258835828*^9, {3.567261133908719*^9, 3.567261322700523*^9}, {
   3.5672613577772903`*^9, 3.56726137380025*^9}, {3.567261428557455*^9, 
   3.567261456132647*^9}, {3.567261503444716*^9, 3.5672615174403143`*^9}, {
   3.567261550774354*^9, 3.567261581169753*^9}, 3.5672666306526337`*^9, 
   3.567266951806848*^9, {3.567267104760584*^9, 3.567267229888791*^9}, {
   3.56726726036592*^9, 3.5672672829629087`*^9}, 3.567268518747208*^9, 
   3.567268642363722*^9, 3.567268756928041*^9, 3.567268914256044*^9, 
   3.567268976144825*^9, {3.567269281238225*^9, 3.567269368490067*^9}, 
   3.567269449291649*^9, 3.567269496209859*^9, 3.567270300376259*^9, 
   3.567270807977449*^9, 3.5672709167452307`*^9, 3.567270953720845*^9, 
   3.567271796602704*^9, 3.567272358047098*^9, 3.5672732711235037`*^9, 
   3.5672734236314907`*^9, {3.567274753035527*^9, 3.56727481566094*^9}, {
   3.5672748894371367`*^9, 3.567274917010524*^9}, 3.567274954242066*^9, {
   3.567274985830771*^9, 3.5672750038580647`*^9}, 3.567275083952532*^9, {
   3.567275119794725*^9, 3.56727513684229*^9}, {3.5672752142660723`*^9, 
   3.5672752297795753`*^9}, 3.5672752917453203`*^9, {3.567275359192745*^9, 
   3.56727537861513*^9}, 3.567275433476823*^9, 3.5673212133648243`*^9, 
   3.5673217612265987`*^9, 3.5673218473763027`*^9, {3.567322014014099*^9, 
   3.567322029839816*^9}, 3.567322135765128*^9, {3.567322188767376*^9, 
   3.567322203132412*^9}, {3.5673222413140783`*^9, 3.5673222567463827`*^9}, {
   3.5673222902886887`*^9, 3.56732233842774*^9}, 3.567326846083118*^9, {
   3.567326927248447*^9, 3.56732693889141*^9}, {3.567327394423748*^9, 
   3.567327407271137*^9}, 3.567331103357066*^9, 3.567331282059444*^9, 
   3.5673313431302977`*^9, 3.567331633800602*^9, 3.56733189599548*^9, 
   3.567332175355074*^9, 3.567332540615913*^9, {3.56733299347371*^9, 
   3.567333011594783*^9}, 3.56733363665633*^9, 3.5673346109875097`*^9, 
   3.5673346847904377`*^9, 3.567338025985968*^9, 3.5673381059554863`*^9, 
   3.567338508315115*^9, 3.567338896026144*^9, 3.567338988543683*^9, 
   3.567339092830386*^9, {3.567339542462798*^9, 3.5673395865555363`*^9}, {
   3.567339744795374*^9, 3.567339782089346*^9}, {3.567339864627207*^9, 
   3.56733988828686*^9}, 3.567339940990157*^9, {3.5673399983991003`*^9, 
   3.567340023256124*^9}, 3.567340113244855*^9, {3.5673402316839*^9, 
   3.567340253680839*^9}, 3.5673403625411263`*^9, {3.567340431692151*^9, 
   3.567340452634403*^9}, {3.56734056382285*^9, 3.567340611554367*^9}, 
   3.567340719177293*^9, 3.567341210383893*^9, {3.567341429460013*^9, 
   3.5673415349427767`*^9}, {3.5673415666567*^9, 3.5673415824228687`*^9}, {
   3.567341638071319*^9, 3.567341652364542*^9}, {3.567341731762813*^9, 
   3.567341744548781*^9}, {3.5673418384591293`*^9, 3.5673418493618107`*^9}, 
   3.567341929105844*^9, {3.5673434196604958`*^9, 3.567343494718053*^9}, {
   3.567343542957239*^9, 3.567343560885933*^9}, {3.567343592374029*^9, 
   3.567343607297999*^9}, {3.567343661841103*^9, 3.5673436765502872`*^9}, {
   3.5673437554375362`*^9, 3.567343767528541*^9}, {3.567343867055377*^9, 
   3.5673438775595827`*^9}, 3.567343958828918*^9, {3.567345477742896*^9, 
   3.5673455012383633`*^9}, {3.567345554866715*^9, 3.5673455760253353`*^9}, {
   3.5673456339376717`*^9, 3.567345697624795*^9}, {3.5673458201029873`*^9, 
   3.5673458701586742`*^9}, {3.567346425984345*^9, 3.567346538238867*^9}, {
   3.5673465874779367`*^9, 3.5673466061203823`*^9}, {3.567346692231152*^9, 
   3.567346718703871*^9}, {3.5673468286970873`*^9, 3.567346842155315*^9}, {
   3.567346946176351*^9, 3.5673469915931597`*^9}, 3.56734708925274*^9, {
   3.5673479685327787`*^9, 3.5673479912098923`*^9}, {3.567348039574976*^9, 
   3.5673481377538013`*^9}, {3.56734817111194*^9, 3.567348192795054*^9}, {
   3.567348248861518*^9, 3.567348270261252*^9}, {3.567354568710722*^9, 
   3.567354602323913*^9}, {3.567354770663948*^9, 3.567354802700776*^9}, {
   3.567354890147334*^9, 3.567354911381915*^9}, {3.567354964343913*^9, 
   3.5673550145806704`*^9}, 3.567355106029208*^9, {3.56735517939487*^9, 
   3.567355204867222*^9}, 3.567355320091928*^9, {3.56735537189336*^9, 
   3.567355393043427*^9}, 3.5673555101179457`*^9, {3.567355899899332*^9, 
   3.567355979176512*^9}, {3.5673560164403276`*^9, 3.567356036731883*^9}, {
   3.567356090338544*^9, 3.5673561027942533`*^9}, 3.567356138893577*^9, {
   3.567356225319721*^9, 3.567356248107027*^9}, {3.56735633416649*^9, 
   3.567356380709296*^9}, {3.567356491559668*^9, 3.567356505255477*^9}, 
   3.567356621644321*^9, {3.567356761793665*^9, 3.567356782648117*^9}, 
   3.567356887433793*^9, 3.567359252224011*^9, 3.567359879455475*^9, 
   3.567360140571001*^9, 3.567360190311784*^9, 3.567360267408565*^9, {
   3.567360665759691*^9, 3.5673607282468777`*^9}, {3.567360758824501*^9, 
   3.567360812639571*^9}, 3.567360869795293*^9, {3.56736090738596*^9, 
   3.567360928143249*^9}, 3.567360963671076*^9, {3.567361053155979*^9, 
   3.5673610739983397`*^9}, 3.567361157495481*^9, {3.567361195740344*^9, 
   3.567361216713911*^9}, 3.567361328784522*^9, {3.567361367027556*^9, 
   3.567361385103277*^9}, 3.567361489065833*^9, {3.567361546528872*^9, 
   3.56736156407128*^9}, 3.5673616552724123`*^9, {3.567408893467773*^9, 
   3.5674089161772118`*^9}, {3.56740895606728*^9, 3.5674089839917316`*^9}, {
   3.567409026719339*^9, 3.567409065745708*^9}, {3.567409703597838*^9, 
   3.5674097696623173`*^9}, {3.56740980252647*^9, 3.5674098752871532`*^9}, {
   3.5674099905963*^9, 3.5674100163759737`*^9}, {3.567410171661618*^9, 
   3.567410195498534*^9}, {3.5674102951430807`*^9, 3.5674103216679897`*^9}, {
   3.5674105387128763`*^9, 3.567410594609878*^9}, 3.567410636406106*^9, {
   3.567411104536357*^9, 3.5674111219828463`*^9}, 3.567411183417029*^9, {
   3.567434070370294*^9, 3.567434177664091*^9}, {3.567462095298812*^9, 
   3.5674621695531073`*^9}, {3.567462225296139*^9, 3.567462237965661*^9}, {
   3.56746232470926*^9, 3.567462338482512*^9}, 3.567462661985915*^9, 
   3.567464911189206*^9, {3.567465243747344*^9, 3.56746525502951*^9}, 
   3.567465750741908*^9, 3.567476662382092*^9, {3.567583549031274*^9, 
   3.567583563234777*^9}, 3.567585948894246*^9, 3.567615813006534*^9, {
   3.5676223765463667`*^9, 3.5676223828415737`*^9}, 3.5676244189415703`*^9, 
   3.5676662606545563`*^9, {3.567681819763961*^9, 3.567681820729847*^9}, 
   3.5676828397879066`*^9, 3.5677059731468077`*^9, {3.567706949286474*^9, 
   3.567706949928637*^9}, 3.567707196253441*^9, 3.5677163303688707`*^9, {
   3.567716840367014*^9, 3.567716853890328*^9}, 3.567718361530798*^9, {
   3.56771875644768*^9, 3.5677187577240257`*^9}, 3.567718853237508*^9, {
   3.567719010975774*^9, 3.5677190305316143`*^9}, 3.567719085191474*^9, {
   3.567719157034071*^9, 3.5677191846917477`*^9}, {3.567767126289521*^9, 
   3.5677672445210657`*^9}, {3.567770122929178*^9, 3.567770148101582*^9}, {
   3.5677703661641827`*^9, 3.5677703761257553`*^9}, 3.567770422578155*^9, 
   3.567770625600295*^9, {3.567770802592512*^9, 3.5677708035656443`*^9}, 
   3.567770841707847*^9, 3.567771095360833*^9, 3.567777051787364*^9, {
   3.567778752457*^9, 3.567778778531816*^9}, 3.567778826454296*^9, 
   3.567778973809236*^9, {3.5677794362885113`*^9, 3.567779447541663*^9}, {
   3.567780049302742*^9, 3.567780084703663*^9}, {3.567780130328349*^9, 
   3.567780153998212*^9}, 3.567780198159274*^9, {3.567780327606398*^9, 
   3.56778035428403*^9}, {3.567780418698516*^9, 3.567780419452483*^9}, 
   3.5677804530868273`*^9, 3.567780643420968*^9, {3.567780709798689*^9, 
   3.567780744023591*^9}, {3.567780832035015*^9, 3.5677808408219557`*^9}, 
   3.567781077976866*^9, 3.5677820509420156`*^9, 3.567782093612959*^9, {
   3.567782471991845*^9, 3.56778247349251*^9}, 3.5677827142670097`*^9, 
   3.567785809734673*^9, 3.567785909972543*^9, 3.567787560232929*^9, 
   3.5677877345751534`*^9, {3.5677878919820833`*^9, 3.567787918138856*^9}, {
   3.567788265717627*^9, 3.56778827391287*^9}, 3.567789164324542*^9, 
   3.5677892323216057`*^9, 3.567789297482607*^9, 3.5677893449705753`*^9, 
   3.56778938368482*^9, 3.567789430636509*^9, 3.567789483873921*^9, 
   3.567789536769343*^9, 3.56778958662784*^9, 3.5677896777598124`*^9, 
   3.5677897284880953`*^9, 3.5677897761148043`*^9, 3.567790035270794*^9, 
   3.567790139983243*^9, 3.567790241324932*^9, 3.5677902870162497`*^9, 
   3.567790345157751*^9, 3.567790421411929*^9, 3.567790463014699*^9, 
   3.567790507002743*^9, 3.567790540593252*^9, 3.567790570911469*^9, 
   3.567790626698653*^9, 3.567790673270179*^9, 3.567792769974967*^9, {
   3.567792879299925*^9, 3.567792907092413*^9}, {3.567792961896392*^9, 
   3.567792979443198*^9}, 3.567793091838661*^9, 3.5677931499619083`*^9, 
   3.567793209079467*^9, 3.5677932534899817`*^9, 3.567793294767767*^9, 
   3.567793353735592*^9, 3.5677933895659437`*^9, 3.567794019381956*^9, {
   3.567797069527177*^9, 3.567797095101213*^9}, {3.567797133247313*^9, 
   3.567797183245006*^9}, 3.5677972377169123`*^9, {3.5677972769463987`*^9, 
   3.5677972980837917`*^9}, 3.567797374227371*^9, {3.567797612505578*^9, 
   3.5677976342310143`*^9}, 3.567797716867633*^9, {3.567797759005187*^9, 
   3.5677977740935*^9}, {3.567797848794076*^9, 3.567797893490036*^9}, 
   3.5677979615290327`*^9, {3.567840171899362*^9, 3.5678403571345587`*^9}, {
   3.567840410488719*^9, 3.567840421662505*^9}, 3.567840486710991*^9, {
   3.5678471543456173`*^9, 3.567847234652904*^9}, 3.5678472677383957`*^9, {
   3.567847528590989*^9, 3.567847533567339*^9}, 3.5678476029212914`*^9, 
   3.567847927831785*^9, {3.5678480998673687`*^9, 3.5678481047751217`*^9}, 
   3.567848182095484*^9, 3.5678485599537897`*^9, {3.567848766348217*^9, 
   3.567848767425343*^9}, 3.567848798137641*^9, 3.567848997239881*^9, 
   3.567851100184963*^9, {3.567851290068018*^9, 3.567851299003881*^9}, 
   3.567851348436384*^9, 3.567851494587221*^9, 3.56785164374076*^9, {
   3.567851946474702*^9, 3.567851953718771*^9}, 3.5678521344406652`*^9, 
   3.567852796505405*^9, {3.567853039592926*^9, 3.567853045839225*^9}, 
   3.567853160802767*^9, 3.567853732359823*^9, {3.5678539375625467`*^9, 
   3.5678539385584908`*^9}, 3.567853986595312*^9, 3.567854293718148*^9, 
   3.567859188848874*^9, 3.567868900044465*^9, 3.567878069741517*^9, 
   3.567878993285264*^9, 3.567880718176375*^9, 3.5678812023880587`*^9, 
   3.567881297890994*^9, 3.567927329633507*^9, 3.567927445964383*^9, 
   3.5679299596178207`*^9, 3.567930637366194*^9, 3.567934682750383*^9, 
   3.5679372357253447`*^9, 3.5679388788341417`*^9, 3.567939114416*^9, 
   3.567942890738809*^9, {3.5679432857280293`*^9, 3.567943322704013*^9}, {
   3.567943412685884*^9, 3.5679434502749357`*^9}, {3.567944376466367*^9, 
   3.567944420995742*^9}, 3.567945331993444*^9, {3.567945463045952*^9, 
   3.5679454830962563`*^9}, 3.567946225126335*^9, {3.56794633370741*^9, 
   3.5679463818850822`*^9}, 3.567946875794073*^9, 3.5679469155802813`*^9, 
   3.567948922483049*^9, 3.567960265884301*^9, 3.567960481523322*^9, {
   3.567960797941163*^9, 3.5679608347460413`*^9}, 3.5679613322090263`*^9, {
   3.567961368891502*^9, 3.567961402660204*^9}, {3.5679614868512897`*^9, 
   3.567961531347383*^9}, {3.567961616771966*^9, 3.567961634737892*^9}, 
   3.5679616736122217`*^9, {3.567961716717852*^9, 3.567961732739748*^9}, {
   3.5679617950543222`*^9, 3.567961827721916*^9}, {3.567961905357853*^9, 
   3.567961946942333*^9}, 3.567962009328794*^9, 3.567962153987116*^9, 
   3.567965076216629*^9, {3.567965157560412*^9, 3.567965294766794*^9}, {
   3.567965334811298*^9, 3.567965370544424*^9}, {3.5679654274808693`*^9, 
   3.567965470547761*^9}, {3.56796553841752*^9, 3.56796554767902*^9}, 
   3.5679656115459957`*^9, 3.567965792587269*^9, {3.5679677786422567`*^9, 
   3.567967797596978*^9}, 3.568007639767085*^9, 3.568007916780984*^9, {
   3.568007985384226*^9, 3.568008059876598*^9}, 3.568008091031*^9, {
   3.5680081255347424`*^9, 3.568008144273205*^9}, {3.568008187560506*^9, 
   3.5680082105745373`*^9}, {3.568008272500025*^9, 3.568008282727502*^9}, {
   3.568008350587119*^9, 3.5680083608729687`*^9}, 3.56800843115557*^9, 
   3.568008648111244*^9, 3.568012493987529*^9, {3.5680126587737513`*^9, 
   3.568012798415104*^9}, 3.568012840742391*^9, {3.5680129012079477`*^9, 
   3.5680129177058477`*^9}, 3.568012978207835*^9, {3.56801303042872*^9, 
   3.568013047337233*^9}, 3.56801311728551*^9, {3.56801316001937*^9, 
   3.568013176157155*^9}, 3.568013240458672*^9, 3.5680133873173037`*^9, 
   3.568013873247521*^9, 3.5680152500359287`*^9, 3.568015968877419*^9, 
   3.5680165388768*^9, 3.568017138160302*^9, {3.568017201318076*^9, 
   3.568017350653842*^9}, {3.568017391058683*^9, 3.568017434273028*^9}, {
   3.568017493761858*^9, 3.5680175334007*^9}, {3.568017601883535*^9, 
   3.568017639680485*^9}, 3.568017705628785*^9, 3.568017830851378*^9, 
   3.5680192336088953`*^9, 3.568019510471431*^9, 3.568019579026945*^9, 
   3.568021400770047*^9, 3.5680224686774483`*^9, 3.568022581890491*^9, 
   3.568022979874514*^9, 3.56802313059247*^9, {3.5680232487341633`*^9, 
   3.5680232905631*^9}, {3.568023331264021*^9, 3.568023350367291*^9}, {
   3.5680233834101887`*^9, 3.568023433689509*^9}, 3.56802348662886*^9, {
   3.568023528997095*^9, 3.568023550655765*^9}, {3.568023615924986*^9, 
   3.568023658131548*^9}, 3.568023734042884*^9, {3.568023774001072*^9, 
   3.568023794724043*^9}, 3.568023864073492*^9, 3.568024139431418*^9, {
   3.568027626196745*^9, 3.568027671186698*^9}, {3.568027713904722*^9, 
   3.568027721996004*^9}, {3.568029381779903*^9, 3.568029392309239*^9}, {
   3.568029490383986*^9, 3.5680295633450003`*^9}, {3.568029596118515*^9, 
   3.5680296295017347`*^9}, {3.568029681110634*^9, 3.568029724047525*^9}, {
   3.5680297871640463`*^9, 3.5680298272019243`*^9}, {3.56802990012608*^9, 
   3.568029938395193*^9}, 3.568030007221078*^9, {3.568039100060919*^9, 
   3.5680391229120207`*^9}, {3.568039702859284*^9, 3.568039735708983*^9}, 
   3.568040143158883*^9, {3.568041383028192*^9, 3.5680414595853577`*^9}, {
   3.568041493428887*^9, 3.5680415416674213`*^9}, {3.568041592848763*^9, 
   3.568041641046595*^9}, {3.568041703910618*^9, 3.56804175651379*^9}, {
   3.5680418316411753`*^9, 3.5680418856275167`*^9}, {3.568041951899878*^9, 
   3.5680419709895353`*^9}, {3.568042794267112*^9, 3.568042862367291*^9}, {
   3.568042893212543*^9, 3.568042938087677*^9}, {3.568042988803461*^9, 
   3.5680430297339697`*^9}, {3.568043094580097*^9, 3.568043129602827*^9}, {
   3.568043205697378*^9, 3.568043208134807*^9}, {3.568043252017522*^9, 
   3.568043268809956*^9}, {3.56804333900347*^9, 3.5680433412533197`*^9}, 
   3.568128783559575*^9, 3.568128834139736*^9, 3.5681345628972473`*^9, 
   3.568136917525571*^9, {3.568136988400791*^9, 3.568137132290271*^9}, {
   3.56813717818609*^9, 3.568137226549056*^9}, 3.568137285128964*^9, {
   3.568137352505151*^9, 3.5681373713088503`*^9}, 3.5681374421349087`*^9, {
   3.5681375400555277`*^9, 3.5681375556861773`*^9}, 3.568137622869516*^9, 
   3.568137863027038*^9, 3.568140100072219*^9, 3.568144064654635*^9, 
   3.568276737104175*^9, 3.568277022804315*^9, 3.568277344064952*^9, 
   3.568277740932716*^9, {3.568277783237911*^9, 3.568277810477264*^9}, 
   3.56827801480301*^9, 3.568278061430633*^9, 3.568278140024054*^9, 
   3.5682786659637117`*^9, 3.568287721530802*^9, 3.5682910051611853`*^9, 
   3.568311578132955*^9, 3.5683267049911547`*^9, 3.568371285003078*^9, 
   3.568372555247294*^9, 3.568373395325465*^9, 3.568376294270949*^9, 
   3.568376435613076*^9, 3.568376976116547*^9, 3.5683778142619*^9, 
   3.568379418527631*^9, 3.56838184633777*^9, 3.5683821180667686`*^9, 
   3.568382827480482*^9, 3.5683875433724003`*^9, 3.568396060792301*^9, 
   3.5683961719140787`*^9, 3.5684431453675327`*^9, 3.5684432691542463`*^9, 
   3.568444296353977*^9, 3.568444387186367*^9, 3.5684444464305553`*^9, 
   3.5684444868859177`*^9, 3.5684445965515327`*^9, 3.568445788359338*^9, {
   3.568446286399135*^9, 3.5684463062521276`*^9}, 3.568448311308446*^9, 
   3.5684486100521193`*^9, 3.568448903911256*^9, 3.568452956926515*^9, 
   3.568481326744039*^9, 3.568481433773796*^9, 3.568539741551602*^9, 
   3.5685398031076937`*^9, 3.568541952868497*^9, 3.568544321119462*^9, 
   3.5685494071901493`*^9, 3.568549458444696*^9, 3.568552695660619*^9, 
   3.568557359691667*^9, 3.5685574644512787`*^9, 3.568557501519141*^9, 
   3.5685575609251947`*^9, 3.568557707411035*^9, 3.568559003815735*^9, 
   3.568559041550619*^9, 3.568569547427853*^9, 3.568570306952896*^9, 
   3.568614641776806*^9, {3.568614871722631*^9, 3.5686149101721487`*^9}, 
   3.568615934521515*^9, 3.568616763375424*^9, 3.568616975947068*^9, 
   3.5686170998293877`*^9, 3.568617297664975*^9, 3.568618243369813*^9, 
   3.56862099650183*^9, 3.5686237482937613`*^9, 3.568625543568874*^9, 
   3.568626761493402*^9, 3.568626811094269*^9, 3.568627192870739*^9, 
   3.568631602597406*^9, 3.568632234633133*^9, 3.568632571312203*^9, 
   3.568635444079576*^9, 3.5686440230519733`*^9, 3.568644176537643*^9, 
   3.568646143718691*^9, 3.568646361760405*^9, 3.568647431885167*^9, 
   3.5686474781295013`*^9, 3.56864754763484*^9, 3.568647692545321*^9, 
   3.568647749864601*^9, 3.5686494066872587`*^9, 3.5686498067614117`*^9, {
   3.5686501452425947`*^9, 3.568650172243915*^9}, 3.568650352896934*^9, 
   3.568650535625011*^9, 3.568698678954751*^9, 3.568701344930551*^9, 
   3.5687032153877697`*^9, 3.5687055549903812`*^9, 3.568706969113459*^9, 
   3.5687071513280573`*^9, 3.568710337127879*^9, 3.568710593470416*^9, 
   3.5687110994132223`*^9, {3.5687118840586233`*^9, 3.568711898265997*^9}, 
   3.568712017182317*^9, 3.568712073457165*^9, 3.5687128259634523`*^9, 
   3.568712936520574*^9, 3.568713083394454*^9, 3.568713170965555*^9, {
   3.568713294562677*^9, 3.56871331920477*^9}, 3.568713983398307*^9, 
   3.568714131081067*^9, {3.56871417734424*^9, 3.568714207034894*^9}, 
   3.568717278270917*^9, 3.568717758643449*^9, 3.568717949203969*^9, 
   3.568718287760709*^9, 3.5687197043024273`*^9, 3.568720015477633*^9, 
   3.5687245675801077`*^9, 3.568724664440979*^9, 3.568724884582457*^9, 
   3.568725431971278*^9, 3.568725536380803*^9, 3.5687264136190453`*^9, 
   3.56872656415061*^9, 3.56872659564391*^9, 3.568727900249625*^9, 
   3.5687279559220057`*^9, 3.56872815955229*^9, 3.568728230947678*^9, 
   3.5687289868242292`*^9, 3.568729231095035*^9, 3.5687293240913754`*^9, 
   3.568729804336438*^9, 3.5687328912373753`*^9, 3.568734874848982*^9, 
   3.5687349791606293`*^9, 3.568735610354932*^9, 3.568738260401688*^9, 
   3.568739202389673*^9, 3.568739580906*^9, 3.568740477536192*^9, 
   3.5687410550565987`*^9, 3.5687429626194773`*^9, 3.568744800167973*^9, 
   3.5687898859873257`*^9, 3.5687901206984386`*^9, 3.568790813322798*^9, 
   3.568790972106101*^9, 3.5687949162740307`*^9, 3.5687950489141703`*^9, 
   3.568795374562666*^9, 3.568796667701024*^9, 3.568797079162792*^9, 
   3.568797190618556*^9, 3.568797276049838*^9, 3.5687973959247293`*^9, 
   3.568797759208803*^9, 3.568799278085441*^9, 3.5688906677131433`*^9, 
   3.568890776303397*^9, 3.5688909353798637`*^9, 3.568890972022723*^9, 
   3.5688912051435213`*^9, 3.5688912846135473`*^9, 3.5688925117994947`*^9, 
   3.56889385158084*^9, 3.5688945414911346`*^9, 3.568902501170382*^9, 
   3.568904158748086*^9, 3.568905551086817*^9, 3.5689057857758102`*^9, 
   3.568906142170196*^9, 3.5689061894633083`*^9, 3.568909365392891*^9, 
   3.568909400416638*^9, 3.5689734960456457`*^9, 3.5689766812808723`*^9, 
   3.56898119032087*^9, {3.568981239825186*^9, 3.568981247051489*^9}, 
   3.568981277371458*^9, 3.568981498613021*^9, 3.568985941779716*^9, 
   3.5689983347229023`*^9, 3.5689985201179113`*^9, 3.568998587294647*^9, 
   3.5689987423793373`*^9, 3.569000045340473*^9, 3.569003063409225*^9, 
   3.569045542395694*^9, 3.5690456813272257`*^9, 3.569046862253634*^9, 
   3.569050456821887*^9, 3.5690518511382513`*^9, 3.569053482476654*^9, 
   3.5690540980362263`*^9, 3.569054628472742*^9, 3.569055867251244*^9, 
   3.5690610091370697`*^9, 3.569065197499906*^9, 3.569067049662908*^9, 
   3.569067914642683*^9, 3.5690757960236464`*^9, 3.569077248689268*^9, 
   3.569077722709852*^9, 3.569078000650098*^9, 3.569080815078339*^9, 
   3.569081816069138*^9, 3.5690822042318897`*^9, 3.569082518072752*^9, 
   3.569136774306487*^9, 3.5691368991191387`*^9, 3.569137328264296*^9, 
   3.57293734380294*^9, {3.572938189066752*^9, 3.5729382211105957`*^9}, 
   3.5729399089150667`*^9, 3.572940662806994*^9, 3.572940886262912*^9, 
   3.572941721521076*^9, 3.572942616890765*^9, 3.5729429991386347`*^9, 
   3.5729430997986937`*^9, 3.572943578848634*^9, 3.572945463948138*^9, 
   3.572947121532672*^9, 3.572947176327546*^9, 3.572947284389983*^9, 
   3.57294732228277*^9, 3.5729474387305307`*^9, {3.572947840577738*^9, 
   3.572947846941391*^9}, 3.572948109102315*^9, 3.5729489114255047`*^9, 
   3.5729489989834623`*^9, 3.5729491852164097`*^9, 3.572958040993598*^9, 
   3.5729583383189287`*^9, 3.572958529812421*^9, {3.572959800158746*^9, 
   3.572959824073186*^9}, 3.5729616083391457`*^9, 3.572961641499613*^9, 
   3.5729634615522614`*^9, 3.572964213996677*^9, 3.572972270113175*^9, 
   3.5729725226431637`*^9, 3.5729730354183598`*^9, {3.572974199230019*^9, 
   3.572974217151762*^9}, 3.5729744636282463`*^9, 3.572976838439617*^9, 
   3.5729769224132442`*^9, 3.572977101295154*^9, 3.572977175664415*^9, 
   3.57302021409135*^9, 3.573023264154271*^9, 3.573023470658896*^9, 
   3.5730235145723743`*^9, 3.573023545120476*^9, 3.573023620735393*^9, {
   3.573024210725237*^9, 3.5730242570693283`*^9}, 3.5730259654592113`*^9, 
   3.573026320713941*^9, 3.573026960417485*^9, 3.573027068462461*^9, 
   3.573028880411646*^9, 3.573109242361059*^9, 3.573109303130183*^9, 
   3.5731094518186417`*^9, 3.573110488923893*^9, 3.573111459572267*^9, 
   3.573111546718877*^9, 3.573113279582917*^9, 3.5731134235604687`*^9, 
   3.573114680761235*^9, 3.5731151088356953`*^9, 3.5731927759934*^9, 
   3.573193362499578*^9, 3.5731948416172457`*^9, 3.573195064277027*^9, 
   3.573195404057379*^9, 3.573196005041334*^9, 3.573196153467589*^9, 
   3.573196208211203*^9, 3.573196311467657*^9, 3.573202436946267*^9, 
   3.573203151437549*^9, 3.573209050033065*^9, 3.573209511955023*^9, 
   3.573209977344838*^9, 3.5732100139730883`*^9, 3.573210283779323*^9, 
   3.573210562241588*^9, 3.573211321630114*^9, 3.57321146312258*^9, 
   3.573211493780349*^9, 3.5732115269790983`*^9, 3.573211666386009*^9, 
   3.573211793916819*^9, 3.573212470662547*^9, 3.5732125229614153`*^9, 
   3.573213015675342*^9, 3.573213117028658*^9, 3.5732132248077517`*^9, {
   3.573213255185587*^9, 3.573213276877006*^9}, 3.573214125541521*^9, 
   3.5732149439348783`*^9, 3.5732150904826727`*^9, 3.573215660006418*^9, 
   3.57321569494783*^9, 3.5732159274135313`*^9, 3.573216051964576*^9, 
   3.573217401674955*^9, 3.573218142382201*^9, 3.5732182003250847`*^9, 
   3.573218322055642*^9, 3.573220846569865*^9, 3.573221653358172*^9, 
   3.573226235897629*^9, 3.57327402892379*^9, 3.573274061414658*^9, 
   3.573274903246237*^9, 3.573274983172449*^9, 3.5732750673942747`*^9, 
   3.5732751476676617`*^9, 3.573275641397916*^9, 3.573276618068225*^9, {
   3.573276731132607*^9, 3.5732767423197613`*^9}, 3.573276814614525*^9, {
   3.5732768448925543`*^9, 3.573276880972934*^9}, 3.573276926855054*^9, 
   3.573277126490281*^9, 3.5732772993551407`*^9, 3.5732773726060343`*^9, 
   3.573277970125231*^9, 3.5732787106506643`*^9, {3.573279044443665*^9, 
   3.573279070476946*^9}, 3.573279556638487*^9, 3.573279606246356*^9, 
   3.573280139262415*^9, 3.57328032877614*^9, 3.5732836653804083`*^9, 
   3.573283719901537*^9, 3.5732838332027817`*^9, 3.57328390828288*^9, 
   3.5732884755733547`*^9, {3.573288539424088*^9, 3.573288563859311*^9}, 
   3.573289192454481*^9, 3.573289550028501*^9, 3.573313929813756*^9, 
   3.573314021756695*^9, 3.573314455240986*^9, 3.573318847928931*^9, 
   3.573319216154428*^9, 3.573320129743676*^9, 3.573361264088237*^9, 
   3.5733614351161957`*^9, 3.573362301181031*^9, 3.5733625335949583`*^9, 
   3.5733665257080193`*^9, 3.573368746206765*^9, 3.573368830875039*^9, 
   3.573368926244669*^9, 3.573379588598295*^9, 3.573379723967464*^9, 
   3.573400463084189*^9, 3.573400643243926*^9, 3.573400723203443*^9, 
   3.57340222009832*^9, 3.5734072784448566`*^9, {3.5734468806715603`*^9, 
   3.573446904563792*^9}, 3.57344708872571*^9, 3.573449488378809*^9, 
   3.573449522835881*^9, {3.573450335308157*^9, 3.5734503405134287`*^9}, 
   3.573450438271343*^9, {3.57345069591678*^9, 3.5734507256535473`*^9}, 
   3.573452272853194*^9, 3.573455512252398*^9, {3.573455749389138*^9, 
   3.573455770233289*^9}, 3.573458225144999*^9, 3.573458338639533*^9, 
   3.573464245279912*^9, {3.573464455695593*^9, 3.57346446018394*^9}, 
   3.573464496207182*^9, 3.573464725991086*^9, 3.573464759373275*^9, 
   3.573465142267536*^9, 3.573465269658914*^9, 3.57346530337263*^9, 
   3.573465346630569*^9, 3.573465761310049*^9, 3.573465826215465*^9, 
   3.573466085499704*^9, {3.573466451611657*^9, 3.573466471936007*^9}, 
   3.573466804006248*^9, 3.5734669119326468`*^9, 3.5734675523563013`*^9, 
   3.573467711236908*^9, 3.573468117612707*^9, 3.573477763836072*^9, 
   3.573477877844296*^9, 3.573480776486998*^9, 3.573481934062901*^9, 
   3.573482169870689*^9, 3.573482364224483*^9, 3.573482401239146*^9, 
   3.57348243250957*^9, 3.57348246676464*^9, 3.5734824970090857`*^9, {
   3.5734825298779793`*^9, 3.573482563683469*^9}, 3.5734826377997093`*^9, 
   3.573487719680237*^9, 3.573488045896459*^9, 3.5734880920911217`*^9, 
   3.573488996067707*^9, 3.573489060751883*^9, 3.573489287555561*^9, 
   3.573489362999372*^9, 3.57348981841791*^9, 3.573490426284666*^9, 
   3.5734919206116333`*^9, 3.5734922594641314`*^9, 3.57349260112533*^9, 
   3.57349375273587*^9, 3.5734939940291777`*^9, 3.573502632717639*^9, 
   3.573532420112679*^9, 3.5735353500563507`*^9, 3.573535490224818*^9, {
   3.5735357708550158`*^9, 3.57353578781448*^9}, 3.573536853406969*^9, 
   3.573536972939497*^9, 3.573540400211911*^9, 3.57354046370883*^9, 
   3.573540509979467*^9, 3.573540649046454*^9, 3.573540707044141*^9, 
   3.5735429478284597`*^9, 3.573543413188644*^9, 3.573543593018435*^9, 
   3.573548225878447*^9, 3.573548424422559*^9, 3.573548525954796*^9, {
   3.57354858742837*^9, 3.5735486604129763`*^9}, 3.573548923121992*^9, 
   3.5735513408582993`*^9, 3.573552770154698*^9, 3.573555117366707*^9, 
   3.57355629815066*^9, 3.57355752541747*^9, 3.5736339119090767`*^9, 
   3.573635173643305*^9, {3.573638135562886*^9, 3.5736381922282124`*^9}, {
   3.573639212991947*^9, 3.5736392355087233`*^9}, 3.573640206638997*^9, 
   3.573641515006467*^9, 3.5736416561078043`*^9, 3.573641733085664*^9, 
   3.573643352725563*^9, 3.573643755058712*^9, 3.573644002960045*^9, 
   3.5736445128411913`*^9, 3.5736479906614323`*^9, 3.573706586637018*^9, 
   3.573709195601789*^9, 3.5737094345407057`*^9, 3.573710069827965*^9, 
   3.573726249464191*^9, 3.573726960430709*^9, 3.5737273189483023`*^9, 
   3.573727616972355*^9, 3.5737313031312733`*^9, 3.573731601220192*^9, 
   3.5737317033709993`*^9, 3.5737408628091927`*^9, 3.573742315159502*^9, 
   3.573765097506606*^9, 3.573767004167362*^9, 3.573797569830233*^9, 
   3.5737984530427227`*^9, 3.57379951567346*^9, 3.5738010778029137`*^9, 
   3.5738034565870543`*^9, 3.5738064613762712`*^9, 3.57381962621002*^9, 
   3.573821493416766*^9, {3.573821809141758*^9, 3.573821832567758*^9}, 
   3.573822019926401*^9, 3.5738221470734262`*^9, 3.573822379387415*^9, 
   3.573823329104905*^9, 3.573823836219502*^9, 3.5738259623170958`*^9, {
   3.573826321336843*^9, 3.573826343417605*^9}, 3.573826709278124*^9, 
   3.573827611449904*^9, 3.573827793867334*^9, 3.573828138726541*^9, 
   3.5738290447977123`*^9, 3.573829079934054*^9, {3.573829192274082*^9, 
   3.573829220017722*^9}, 3.573829768930931*^9, 3.573830559609693*^9, 
   3.573830691064824*^9, 3.57383072886488*^9, 3.573831060651922*^9, 
   3.573831310874082*^9, 3.573831637565219*^9, 3.573832069025755*^9, 
   3.573832499000957*^9, 3.573834288580687*^9, 3.573834823589139*^9, 
   3.573834898779542*^9, 3.573835137688036*^9, 3.573835421851893*^9, 
   3.573837224616415*^9, 3.573837292843896*^9, 3.573837751735796*^9, 
   3.573838192551672*^9, 3.5738382299315853`*^9, 3.5738382608103523`*^9, 
   3.5738821375061817`*^9, 3.573883335404401*^9, 3.573883619585684*^9, 
   3.573883681580391*^9, 3.573883881719638*^9, 3.573884139131571*^9, {
   3.573885158400923*^9, 3.5738851863834057`*^9}, 3.5738856554282093`*^9, 
   3.5738857998897867`*^9, 3.5738869262424726`*^9, 3.5738887710348873`*^9, 
   3.5738889279090652`*^9, 3.5738891056400223`*^9, 3.573889231866205*^9, 
   3.573892315786688*^9, 3.5738926418437643`*^9, 3.573893015834818*^9, 
   3.573894849566568*^9, 3.57389513878899*^9, 3.573895542812055*^9, 
   3.573933202879517*^9, 3.573970710517838*^9, 3.5739718056816473`*^9, 
   3.573973251454561*^9, 3.573974659191023*^9, 3.5739754576669083`*^9, 
   3.5739756790083942`*^9, 3.573975792978134*^9, 3.573976423687667*^9, 
   3.57397769049513*^9, 3.573978263714951*^9, 3.573978595133761*^9, 
   3.573978752363138*^9, 3.573979992807446*^9, 3.573983028357562*^9, 
   3.57398445461731*^9, 3.5739847680572844`*^9, 3.573984952864414*^9, 
   3.5739851066079273`*^9, 3.573987285919032*^9, 3.573995923067141*^9, 
   3.5740028995678043`*^9, 3.5740074616093483`*^9, 3.5740078270954447`*^9, 
   3.574059679220458*^9, 3.574059921606988*^9, 3.57406006765701*^9, 
   3.5740603929631863`*^9, 3.574060891475053*^9, 3.5740617000043697`*^9, 
   3.57406182153653*^9, {3.574063508297515*^9, 3.5740635103148212`*^9}, 
   3.574064191487171*^9, 3.57406444224095*^9, 3.574064769705655*^9, 
   3.574065075829755*^9, 3.574065817631481*^9, 3.574066376329463*^9, 
   3.574066462139359*^9, 3.5740726915128927`*^9, 3.574083130144156*^9, 
   3.5741423377630033`*^9, {3.574143726266798*^9, 3.5741437551246233`*^9}, 
   3.574143847536284*^9, {3.574492466123106*^9, 3.5744925475836973`*^9}, 
   3.574492788751439*^9, 3.574493972622443*^9, {3.5744961607287083`*^9, 
   3.574496190373971*^9}, 3.574575899206402*^9, 3.5750993666720257`*^9, 
   3.575358761830866*^9, 3.575359828825672*^9, 3.575369870141376*^9, 
   3.5753702927174807`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "original", "]"}], ",", 
   RowBox[{
    RowBox[{"Length", "[", 
     RowBox[{"TRACKED", "+", "hold"}], "]"}], "-", "1"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.573288482377233*^9, 3.573288490902606*^9}, {
  3.57328853413417*^9, 3.573288535582265*^9}, {3.573536866244384*^9, 
  3.573536880943165*^9}, {3.575370341060416*^9, 3.5753703445815887`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.57382149347171*^9, {3.573821809150807*^9, 3.573821832576194*^9}, 
   3.573822019974828*^9, 3.573822147138206*^9, 3.573822379395625*^9, 
   3.573823329115561*^9, 3.573823836229278*^9, 3.573825962325181*^9, {
   3.57382632137696*^9, 3.5738263434256268`*^9}, 3.573826709315638*^9, 
   3.5738276114582987`*^9, 3.573827793917309*^9, 3.573828138735896*^9, 
   3.573829044837008*^9, 3.573829079978266*^9, {3.5738291923162622`*^9, 
   3.57382922005812*^9}, 3.573829768970632*^9, 3.573830559617395*^9, 
   3.5738306911148243`*^9, 3.57383072887285*^9, 3.573831060662992*^9, 
   3.573831310940974*^9, 3.57383163757295*^9, 3.573832069033453*^9, 
   3.573832499010828*^9, 3.573834288620433*^9, 3.573834823598549*^9, 
   3.573834898790977*^9, 3.5738351377886963`*^9, 3.5738354218615017`*^9, 
   3.573837224624608*^9, 3.573837292854604*^9, 3.5738377517440233`*^9, 
   3.5738381925607157`*^9, 3.57383822993983*^9, 3.573838260818564*^9, 
   3.573882137518139*^9, 3.573883335412109*^9, 3.573883619621811*^9, 
   3.573883681587873*^9, 3.573883881727436*^9, 3.573884139168634*^9, {
   3.573885158408676*^9, 3.573885186391386*^9}, 3.573885655435809*^9, 
   3.57388579989742*^9, 3.573886926249858*^9, 3.573888771042774*^9, 
   3.573888927917782*^9, 3.573889105681225*^9, 3.5738892318739557`*^9, 
   3.5738923157971687`*^9, 3.573892641851356*^9, 3.5738930158424063`*^9, 
   3.573894849574416*^9, 3.573895138796905*^9, 3.57389554288132*^9, 
   3.573933204325704*^9, 3.573970710675384*^9, 3.573971805688985*^9, 
   3.573973251461478*^9, 3.5739746591982737`*^9, 3.5739754586844387`*^9, 
   3.573975679016304*^9, 3.5739757930434437`*^9, 3.5739764236973753`*^9, 
   3.573977690502982*^9, 3.573978263753969*^9, 3.573978595142291*^9, 
   3.5739787523703938`*^9, 3.5739799928160267`*^9, 3.5739830283652353`*^9, 
   3.573984455992147*^9, 3.573984768065216*^9, 3.573984952872073*^9, 
   3.5739851066148567`*^9, 3.5739872859260817`*^9, 3.573995923077238*^9, 
   3.574002899618101*^9, 3.574007461617341*^9, 3.57400782710513*^9, 
   3.574059679234598*^9, 3.574059921613428*^9, 3.574060067666101*^9, 
   3.574060392973873*^9, 3.574060891479732*^9, 3.574061700009223*^9, 
   3.574061821541527*^9, {3.574063508308132*^9, 3.57406351031947*^9}, 
   3.5740641914951763`*^9, 3.5740644422463017`*^9, 3.574064769710116*^9, 
   3.57406507583524*^9, 3.574065817643879*^9, 3.574066376405593*^9, 
   3.574066462153593*^9, 3.574072691518661*^9, 3.574083130152302*^9, 
   3.574142337769722*^9, {3.574143726273109*^9, 3.574143755134585*^9}, 
   3.574143847540584*^9, {3.574492466162271*^9, 3.574492547622471*^9}, 
   3.57449278877724*^9, 3.574493972663795*^9, {3.574496160771881*^9, 
   3.574496190385332*^9}, 3.574575899216868*^9, 3.575099366718463*^9, 
   3.575358761859293*^9, 3.575359828860025*^9, 3.575369870179925*^9, 
   3.575370292733671*^9, 3.5753703459954567`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["unU0U \[Rule] unUed",
 FontColor->GrayLevel[1]]], "Subsection",
 CellChangeTimes->{{3.461414985513432*^9, 3.461415012509838*^9}, {
   3.46141516500938*^9, 3.461415169111968*^9}, 3.461419756134052*^9, {
   3.463127049746016*^9, 3.463127050369544*^9}},
 Background->RGBColor[0., 0., 0.4980392156862745]],

Cell[CellGroupData[{

Cell["unU-ing", "Subsubsection",
 CellChangeTimes->{{3.472553678547106*^9, 3.472553689863352*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unU", "=", 
   RowBox[{"hold", "+", 
    RowBox[{"shifterM", "[", "unU0U", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.5677830313983088`*^9, {3.575369814259699*^9, 3.575369814938002*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"extSWITCH", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"extSWITCH", ",", 
         RowBox[{
          RowBox[{"extVAR", "[", 
           RowBox[{"[", "ii", "]"}], "]"}], "->", 
          RowBox[{"extVAR", "[", 
           RowBox[{"[", "jj", "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], ";"}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "extVAR", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.47260053686103*^9, 3.472600613674346*^9}, {
  3.472600784997679*^9, 3.472600785127716*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "Ulist", ",", " ", "Vlist", ",", " ", "removeUx", ",", " ", "removeU", ",",
     " ", "removeVx", ",", " ", "removeV", ",", " ", "V5list", ",", " ", 
    "removeV5x", ",", " ", "removeV5", ",", " ", "V6list", ",", " ", 
    "removeV6x", ",", " ", "removeV6", ",", " ", "V8list", ",", " ", 
    "removeV8x", ",", " ", "removeV8"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.460887092512967*^9, 3.460887160355878*^9}, {
   3.460887379475387*^9, 3.460887478355047*^9}, {3.460887519256063*^9, 
   3.460887523265192*^9}, {3.460888614478695*^9, 3.460888686892979*^9}, {
   3.460888963666696*^9, 3.460889127003538*^9}, {3.460974832360134*^9, 
   3.460974843960829*^9}, 3.461074252089091*^9, {3.461408734912266*^9, 
   3.461408739707158*^9}, {3.461415063315147*^9, 3.461415069196141*^9}, 
   3.462008038206846*^9, {3.463126874689583*^9, 3.463126889050685*^9}, {
   3.471865715126156*^9, 3.471865740049249*^9}, {3.497201374085782*^9, 
   3.497201381766116*^9}, {3.497870759657524*^9, 3.4978707770438757`*^9}, {
   3.553613156118667*^9, 3.553613251798411*^9}, {3.566669031166514*^9, 
   3.566669038225494*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nn", "]"}], "\n", 
 RowBox[{
  RowBox[{"Do", "[", "\n", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Ulist", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", "remove3"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"removeUx", "[", "nn", "]"}], "=", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeUx", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Ulist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"Ulist", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{
      RowBox[{"removeU", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeUx", "[", "nn", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "*)"}], "\n", 
     RowBox[{
      RowBox[{"Vlist", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", "remove4"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"removeVx", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeVx", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"Vlist", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"Vlist", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"removeV", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeVx", "[", "nn", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "*)"}], "\n", 
     RowBox[{
      RowBox[{"V5list", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", "remove5"}]}], 
       "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"removeV5x", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeV5x", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "5", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V5list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"V5list", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"removeV5", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeV5x", "[", "nn", "]"}], "]"}]}], ";", " ", "\n", 
     RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Print", "[", "hereX", "]"}], ";"}], "*)"}], "\n", 
     RowBox[{
      RowBox[{"V6list", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", " ", 
         "remove6"}]}], "]"}]}], ";", "\n", " ", 
     RowBox[{
      RowBox[{"removeV6x", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeV6x", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "6", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "5", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V6list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"V6list", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"removeV6", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeV6x", "[", "nn", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"(*", "  ", "*)"}], "\n", 
     RowBox[{
      RowBox[{"V8list", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "nn", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "nn", "]"}], "]"}], "]"}], " ", "//.", " ", 
         "remove8"}]}], "]"}]}], ";", "\n", "  ", 
     RowBox[{
      RowBox[{"removeV8x", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Print", "[", "here", "]"}], ";"}], "*)"}], "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{
         RowBox[{"removeV8x", "[", "nn", "]"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "8", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "7", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "6", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "5", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "->", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"V8list", "[", "nn", "]"}], "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"ii", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"V8list", "[", "nn", "]"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\n", "  ", 
     RowBox[{
      RowBox[{"removeV8", "[", "nn", "]"}], " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"removeV8x", "[", "nn", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"delFac", "[", "nn", "]"}], "=", "1"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeU", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV5", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV6", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"removeV8", "[", "nn", "]"}], ",", 
           RowBox[{"extSWITCH", "[", 
            RowBox[{"[", "ii", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"delFac", "[", "nn", "]"}], "=", 
          RowBox[{
           RowBox[{"delFac", "[", "nn", "]"}], "*", 
           RowBox[{"del", "[", 
            RowBox[{
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"extSWITCH", "[", 
              RowBox[{"[", 
               RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "extSWITCH", "]"}]}], "}"}]}], "]"}], ";", 
     "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"nn", "/", "500000"}], "\[Element]", "Integers"}], ",", 
       RowBox[{"Print", "[", "nn", "]"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", "  ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"nn", ",", " ", "1", ",", " ", 
      RowBox[{"Length", "[", "unU", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input",\

 CellChangeTimes->{{3.5536014718272657`*^9, 3.553601513639205*^9}, 
   3.5536021485220737`*^9, {3.5536022235359793`*^9, 3.5536023088578987`*^9}, {
   3.553766873499381*^9, 3.553766896766595*^9}, {3.5537676416251717`*^9, 
   3.553767647475286*^9}, {3.553768558237782*^9, 3.5537685828288593`*^9}, {
   3.556799339194428*^9, 3.5567993396295156`*^9}, {3.5567997671946707`*^9, 
   3.556799949978176*^9}, {3.55695333972768*^9, 3.556953350032337*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unUedTemp", " ", "=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"delFac", "[", "nn", "]"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"unU", "[", 
              RowBox[{"[", "nn", "]"}], "]"}], " ", "//.", " ", 
             RowBox[{"removeU", "[", "nn", "]"}]}], " ", "//.", " ", 
            RowBox[{"removeV", "[", "nn", "]"}]}], "  ", "//.", " ", 
           RowBox[{"removeV5", "[", "nn", "]"}]}], "//.", " ", 
          RowBox[{"removeV6", "[", "nn", "]"}]}], "//.", 
         RowBox[{"removeV8", "[", "nn", "]"}]}], ")"}]}], "//.", 
      "contractUV"}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "unU", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.460887484519225*^9, 3.460887487472227*^9}, {
   3.460888693845164*^9, 3.460888696313563*^9}, 3.460888971980704*^9, {
   3.460889133415619*^9, 3.460889163905212*^9}, {3.460889283793555*^9, 
   3.460889285802747*^9}, {3.460889396744619*^9, 3.460889399690638*^9}, {
   3.460974846078506*^9, 3.460974847211675*^9}, {3.461408741463594*^9, 
   3.461408743327015*^9}, {3.461415069705516*^9, 3.46141507248424*^9}, {
   3.463127003228446*^9, 3.463127008379814*^9}, 3.463431073520055*^9, 
   3.463431565597888*^9, {3.471865667661944*^9, 3.471865670223158*^9}, {
   3.471865760182721*^9, 3.471865810877849*^9}, {3.472292556371234*^9, 
   3.472292560797311*^9}, {3.472600880688924*^9, 3.472600884771973*^9}, {
   3.472601053188025*^9, 3.472601056226757*^9}, {3.472761339412744*^9, 
   3.472761388240501*^9}, {3.472761765158965*^9, 3.472761768441466*^9}, {
   3.4970791938849993`*^9, 3.49707919654972*^9}, {3.497870908964732*^9, 
   3.4978709144263563`*^9}, {3.553600496885445*^9, 3.5536005002315283`*^9}, {
   3.553601339990786*^9, 3.553601349086451*^9}, {3.5536014188073063`*^9, 
   3.553601424477438*^9}, {3.553601595711564*^9, 3.553601609015215*^9}, {
   3.553602317750705*^9, 3.553602330228656*^9}, {3.556799993518066*^9, 
   3.556799998106523*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unUed", "=", 
   RowBox[{"orderFunction", "[", 
    RowBox[{"shifterM", "[", "unUedTemp", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.553601634398973*^9, 3.553601665753121*^9}, {
  3.561994820568272*^9, 3.561994830042706*^9}, {3.575369825395247*^9, 
  3.5753698260655403`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "unU", "]"}]], "Input",
 CellChangeTimes->{{3.566670827397571*^9, 3.5666708319665213`*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.5666708327600307`*^9, 3.5666708604348507`*^9}, 
   3.5666709209775963`*^9, 3.566670984188986*^9, {3.566671075683539*^9, 
   3.566671103204018*^9}, {3.5666713205510263`*^9, 3.56667133245648*^9}, 
   3.566671641760436*^9, 3.566728752192009*^9, 3.5667293107034607`*^9, 
   3.566729623230782*^9, 3.5667299189426317`*^9, 3.566730168970952*^9, 
   3.5667305443601027`*^9, 3.5667309171364326`*^9, 3.56673114924188*^9, 
   3.566731221910385*^9, 3.566731359059823*^9, {3.566731507184215*^9, 
   3.566731534385663*^9}, 3.566731660112068*^9, 3.56673180522919*^9, 
   3.566732997038453*^9, 3.566733071311445*^9, 3.566740736173452*^9, 
   3.566740773482654*^9, 3.566740846483843*^9, 3.5667411378528*^9, 
   3.5667411773093576`*^9, 3.5667412217418528`*^9, 3.566748548850696*^9, 
   3.5667487553877687`*^9, 3.566749312313654*^9, {3.5667494812666693`*^9, 
   3.5667495020643177`*^9}, 3.5667496371370087`*^9, 3.566749976979945*^9, 
   3.566758242777713*^9, 3.566806185576079*^9, 3.566806311236185*^9, 
   3.5668068881884203`*^9, 3.5668090196618633`*^9, 3.5668145595277643`*^9, 
   3.566820777536063*^9, {3.566831616094454*^9, 3.5668316591953297`*^9}, 
   3.5668316946465054`*^9, 3.566894124593102*^9, 3.566894760092168*^9, 
   3.566895189825943*^9, 3.566895441819171*^9, 3.5669036178448153`*^9, 
   3.566905238190098*^9, 3.566908875394043*^9, 3.566908907230193*^9, 
   3.566909407702873*^9, 3.566910607578701*^9, 3.566910799262611*^9, 
   3.566911855876693*^9, 3.566912071845558*^9, {3.56691217548705*^9, 
   3.5669121887684517`*^9}, 3.5669123200399723`*^9, 3.566912368040381*^9, 
   3.566912865849112*^9, 3.5669129897480183`*^9, 3.566913749826775*^9, 
   3.566935828321458*^9, 3.566936126458345*^9, 3.56693624328856*^9, 
   3.567094935707156*^9, 3.56714881389609*^9, 3.567163618600869*^9, 
   3.5671638532102757`*^9, 3.567163984530793*^9, 3.5671642090358553`*^9, 
   3.567171354985477*^9, 3.567171447734243*^9, 3.567171537665319*^9, 
   3.567174398409046*^9, 3.567174491611122*^9, 3.567174532331499*^9, 
   3.567174581235022*^9, 3.567175053609725*^9, 3.56717551313406*^9, 
   3.567175928713521*^9, 3.567182054193514*^9, 3.567182120405002*^9, 
   3.5672438022378693`*^9, 3.56724427978512*^9, 3.567245563403337*^9, 
   3.567250934514916*^9, 3.567251678164401*^9, 3.5672533887114677`*^9, 
   3.5672535447444057`*^9, 3.567260307838134*^9, 3.567260582206065*^9, 
   3.5672607721801453`*^9, 3.5672608094666*^9, 3.567261060928288*^9, 
   3.567261616728516*^9, 3.567266703714992*^9, 3.567267366102868*^9, 
   3.567267491345933*^9, 3.567267827661583*^9, 3.5672685629615517`*^9, 
   3.5672686658554564`*^9, 3.567268787696616*^9, 3.567268999982914*^9, {
   3.5672692170540743`*^9, 3.567269244662924*^9}, 3.5672755141565313`*^9, 
   3.567275921792696*^9, 3.567321245913394*^9, 3.567321771993223*^9, 
   3.567321856696843*^9, 3.567322373559936*^9, 3.5673269869539824`*^9, 
   3.567332568207471*^9, 3.56733264572831*^9, 3.567334635903158*^9, 
   3.567340775552454*^9, 3.56734206841784*^9, 3.56734403149789*^9, 
   3.567347129667995*^9, 3.567348378557238*^9, 3.56735464132192*^9, 
   3.567354865069767*^9, 3.567354968819232*^9, 3.567355111560183*^9, 
   3.5673553268063793`*^9, 3.567355516213592*^9, 3.567355674664379*^9, 
   3.567356953547234*^9, 3.567361732385668*^9, 3.567362420779928*^9, 
   3.5674091754368963`*^9, 3.567411697352857*^9, 3.567414812411991*^9, 
   3.56741518292624*^9, 3.567415377116735*^9, 3.56741555378647*^9, 
   3.5674232604548407`*^9, 3.567434253818173*^9, 3.567435115259922*^9, 
   3.567441193559236*^9, 3.567443878554656*^9, 3.5676809879081306`*^9, 
   3.567720259349283*^9, 3.5677581409649773`*^9, 3.567758539256193*^9, 
   3.567762605396785*^9, 3.5677628814272823`*^9, 3.567767488503888*^9, 
   3.567771203375462*^9, 3.5677738723585443`*^9, 3.567774090977126*^9, 
   3.567774522596567*^9, 3.5677751474396143`*^9, 3.567776734723909*^9, 
   3.567777384224513*^9, 3.567786161865549*^9, 3.567786289728072*^9, 
   3.567787005577156*^9, 3.5677870878493977`*^9, 3.5677871267175827`*^9, 
   3.5677871777700253`*^9, 3.567787427896778*^9, 3.567787800787166*^9, {
   3.567787846964213*^9, 3.5677878533597116`*^9}, 3.567787959357342*^9, 
   3.5677882945664454`*^9, 3.5677883649474688`*^9, 3.567789104665339*^9, 
   3.567789146466784*^9, 3.567789176967078*^9, {3.567789213305138*^9, 
   3.5677892429380913`*^9}, {3.567789279054328*^9, 3.567789298913802*^9}, {
   3.5677893295542*^9, 3.567789436240131*^9}, {3.567789474696384*^9, 
   3.567789493803473*^9}, {3.567789526056984*^9, 3.567789595260303*^9}, {
   3.567789668576543*^9, 3.567789685395467*^9}, {3.567789719099729*^9, 
   3.567789784025353*^9}, {3.567790025145094*^9, 3.5677900433068523`*^9}, {
   3.567790130827531*^9, 3.567790146304081*^9}, {3.5677902315851517`*^9, 
   3.567790295908617*^9}, {3.567790331504126*^9, 3.5677903523125*^9}, {
   3.567790412236079*^9, 3.567790606284668*^9}, {3.567790640744461*^9, 
   3.5677906835173607`*^9}, 3.567792755076872*^9, 3.567792806200676*^9, 
   3.567792868230652*^9, 3.567792949739863*^9, 3.567793021950426*^9, 
   3.567793080375108*^9, {3.567793116735368*^9, 3.567793167608632*^9}, {
   3.567793197721631*^9, 3.567793302247027*^9}, {3.567793343047798*^9, 
   3.567793398404379*^9}, 3.567794005572467*^9, 3.567794294355013*^9, 
   3.567795390495854*^9, 3.567795614771254*^9, 3.567798053701099*^9, 
   3.5678405596253242`*^9, 3.5678409490882597`*^9, 3.567849190755988*^9, 
   3.567854435296096*^9, 3.56785472069599*^9, 3.567856290295701*^9, 
   3.567857148727982*^9, 3.567858255223288*^9, 3.567858422197657*^9, 
   3.567859189716992*^9, 3.567868507589058*^9, 3.567868850267272*^9, 
   3.5678689170135727`*^9, 3.5678780768982162`*^9, 3.567881349479097*^9, 
   3.5679283514709177`*^9, 3.567943734423151*^9, 3.567962158459169*^9, 
   3.5679657968162403`*^9, 3.568008703046039*^9, 3.5680133916288233`*^9, 
   3.568017835133848*^9, 3.568019245803726*^9, 3.568021446743672*^9, 
   3.568022476878614*^9, 3.568022541398882*^9, 3.568022588374258*^9, 
   3.568023139319129*^9, 3.5680241444883137`*^9, 3.568030075136101*^9, {
   3.5680304219990053`*^9, 3.56803043155709*^9}, {3.568030512071917*^9, 
   3.5680306006472816`*^9}, 3.5680391722998943`*^9, 3.568039311207913*^9, 
   3.5680397538375883`*^9, 3.568040209344315*^9, 3.568040787722389*^9, {
   3.568040938298133*^9, 3.5680409675011797`*^9}, 3.568042031841729*^9, {
   3.568042064131012*^9, 3.568042166950058*^9}, 3.5680434291406612`*^9, {
   3.5680434600222692`*^9, 3.568043545740197*^9}, 3.568117907898736*^9, 
   3.568118694025297*^9, 3.568123643675235*^9, 3.568124728445163*^9, 
   3.568128759469576*^9, 3.5681297823204*^9, 3.56813786795835*^9, 
   3.568137903761196*^9, 3.568278787920733*^9, 3.568291015427388*^9, 
   3.568311597563102*^9, 3.568326710520936*^9, 3.56837147152767*^9, 
   3.568372558626746*^9, 3.5683733982146997`*^9, 3.568376607493741*^9, 
   3.568377002779005*^9, 3.568377846443428*^9, 3.56837969920927*^9, 
   3.5683802390687237`*^9, 3.568380301908929*^9, 3.568380479296867*^9, 
   3.56838090989846*^9, 3.5683809622657223`*^9, 3.568381863799909*^9, 
   3.568382130249518*^9, 3.56838283012903*^9, 3.568387546135208*^9, 
   3.568442763597549*^9, 3.568443007261917*^9, 3.568549644530192*^9, 
   3.5685496922978277`*^9, 3.568549816393135*^9, {3.5685504351725397`*^9, 
   3.5685504544784803`*^9}, 3.568551573165107*^9, 3.5685520675179787`*^9, 
   3.5685527244406557`*^9, 3.568554428785681*^9, 3.5685544800453157`*^9, 
   3.568557870228503*^9, 3.5685580002771873`*^9, 3.5685585218647633`*^9, 
   3.568558574564239*^9, 3.5685586566075974`*^9, {3.568558701766324*^9, 
   3.5685587136805477`*^9}, {3.568558744436719*^9, 3.56855876802479*^9}, 
   3.568559060295908*^9, 3.5685694998853617`*^9, 3.568569589750629*^9, 
   3.568614970113097*^9, 3.568650571686408*^9, 3.5687143121528482`*^9, 
   3.5687145922965393`*^9, 3.568720111849345*^9, 3.568724939639514*^9, 
   3.56872561730698*^9, 3.568726627652998*^9, 3.568728240113221*^9, 
   3.568728995041191*^9, 3.5687329060207977`*^9, 3.568734904589224*^9, 
   3.568737368557044*^9, 3.5687396026420403`*^9, 3.5687410715045023`*^9, 
   3.568742976673325*^9, 3.5687448104807253`*^9, 3.568789583371859*^9, 
   3.5687899481640377`*^9, 3.568790121989102*^9, 3.568799321874399*^9, 
   3.568891376910079*^9, 3.56890738974855*^9, 3.568907946624193*^9, 
   3.568908224850071*^9, 3.568908279354542*^9, 3.568908348988031*^9, 
   3.568909518826911*^9, 3.568972252931082*^9, 3.568973609499444*^9, 
   3.5689746980920486`*^9, 3.568976752475986*^9, 3.568976858986237*^9, 
   3.568979098656301*^9, 3.568979969634704*^9, 3.5689816182556477`*^9, 
   3.568986026851653*^9, 3.5689860608096123`*^9, 3.5689863330584908`*^9, {
   3.568986510205907*^9, 3.568986532012294*^9}, 3.569000125505945*^9, 
   3.569003064844108*^9, 3.569046916777482*^9, 3.5732272465237093`*^9, 
   3.573227293723362*^9, 3.5733797538304873`*^9, 3.5734020865692596`*^9, 
   3.5734778980603027`*^9, 3.573492675627379*^9, 3.573532425279916*^9, 
   3.5735490454854927`*^9, 3.573564428298897*^9, 3.5735647396108437`*^9, 
   3.573564819109667*^9, 3.573565349659446*^9, 3.573565635399349*^9, 
   3.5736225198295593`*^9, 3.573625838218135*^9, 3.5736328861018744`*^9, 
   3.573635277820118*^9, 3.573635566516958*^9, 3.573635604691765*^9, 
   3.573635724980866*^9, 3.573637825166051*^9, 3.573638325851851*^9, 
   3.5736393839303637`*^9, 3.5736395192880497`*^9, 3.573640333191943*^9, 
   3.5736408990578537`*^9, 3.5738210809372187`*^9, 3.5738267420346403`*^9, 
   3.5738278438324137`*^9, 3.573832243093792*^9, 3.573832822293805*^9, 
   3.573832877815613*^9, 3.573834956022129*^9, 3.573835146452963*^9, 
   3.573835454582161*^9, 3.573882844270582*^9, 3.573885442468712*^9, 
   3.5738858207167463`*^9, 3.573886147641486*^9, 3.573886690624589*^9, 
   3.573886961763303*^9, 3.573887382260417*^9, 3.5738889624298697`*^9, 
   3.573889399350059*^9, 3.573889539929576*^9, 3.573889649749893*^9, 
   3.5738897532518053`*^9, 3.573985180833386*^9, 3.5739858898929367`*^9, 
   3.573997976256792*^9, 3.5739980486298447`*^9, 3.57399860747519*^9, 
   3.573999042416316*^9, 3.573999507620929*^9, 3.5740026663539553`*^9, 
   3.574003003786237*^9, 3.574004906723236*^9, 3.574005202044004*^9, 
   3.574007389639895*^9, {3.574007478949667*^9, 3.574007501257792*^9}, 
   3.574008405293117*^9, 3.574008548433708*^9, 3.574061892321188*^9, 
   3.574062010180789*^9, 3.574064494719666*^9, 3.574064782045814*^9, 
   3.574065109624502*^9, 3.574065820646722*^9, 3.5740664879792557`*^9, 
   3.574066550965025*^9, 3.57406781096564*^9, 3.574068047044001*^9, 
   3.574069138163373*^9, 3.574069494222621*^9, 3.574069553775695*^9, 
   3.574083001013822*^9, 3.574083084037304*^9, 3.574248036394504*^9, 
   3.5742541037757673`*^9, 3.57425828964951*^9, 3.574501570533308*^9, 
   3.574502431436569*^9, 3.5745025045972023`*^9, 3.575099365307144*^9, 
   3.575369795176301*^9, 3.575369848414836*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "unUednew", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"start", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"unU", "[", 
          RowBox[{"[", "jj", "]"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"Variables", "[", 
          RowBox[{"unU", "[", 
           RowBox[{"[", "jj", "]"}], "]"}], "]"}], "//.", "remove4"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"hop1", "=", 
      RowBox[{
       RowBox[{"start", "//.", 
        RowBox[{"removeV", "[", "jj", "]"}]}], "//.", "contractUV"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hop2", "=", 
      RowBox[{
       RowBox[{"start", "//.", 
        RowBox[{"Reverse", "[", 
         RowBox[{"removeV", "[", "jj", "]"}], "]"}]}], "//.", 
       "contractUV"}]}], ";", "\n", 
     RowBox[{"removeVhelp", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Level", "[", 
             RowBox[{
              RowBox[{"hop1", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], ",", "1"}], "]"}], "]"}], 
           "\[Equal]", "1"}], ",", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"removeVhelp", ",", 
            RowBox[{
             RowBox[{"start", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
             RowBox[{"hop1", "[", 
              RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Level", "[", 
             RowBox[{
              RowBox[{"hop2", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], ",", "1"}], "]"}], "]"}], 
           "\[Equal]", "1"}], ",", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"removeVhelp", ",", 
            RowBox[{
             RowBox[{"start", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "\[Rule]", 
             RowBox[{"hop2", "[", 
              RowBox[{"[", "ii", "]"}], "]"}]}]}], "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "start", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{
      RowBox[{"unUednew", "[", "jj", "]"}], "=", 
      RowBox[{
       RowBox[{"delFac", "[", "jj", "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"unU", "[", 
           RowBox[{"[", "jj", "]"}], "]"}], "//.", "removeVhelp"}], "/.", 
         RowBox[{"removeV", "[", "jj", "]"}]}], ")"}]}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "1", ",", 
      RowBox[{"Length", "[", "unU", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"unUednewAll", "=", 
   RowBox[{"orderFunction", "[", 
    RowBox[{"shifterM", "[", 
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"unUednew", "[", "jj", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", 
          RowBox[{"Length", "[", "unU", "]"}]}], "}"}]}], "]"}], "//.", 
      RowBox[{"hold", "\[Rule]", "0"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5666702665060673`*^9, 3.566670328164427*^9}, {
  3.56667047418647*^9, 3.566670476197093*^9}, {3.566670548700233*^9, 
  3.566670653840085*^9}, {3.5666707478753233`*^9, 3.566670816152179*^9}, {
  3.566670879318595*^9, 3.5666709266566153`*^9}, {3.566670971822006*^9, 
  3.5666709775025797`*^9}, {3.5667311304002247`*^9, 3.566731137453333*^9}, {
  3.575369833020289*^9, 3.575369833641797*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["checker", "Subsubsection",
 CellChangeTimes->{{3.472553704280024*^9, 3.472553715043227*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"check1", "=", 
  RowBox[{
   RowBox[{"Complement", "[", 
    RowBox[{
     RowBox[{"Variables", "[", "unUed", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Variables", "[", "unUed", "]"}], "//.", "remove3"}], "//.",
          "remove4"}], "//.", "remove5"}], "//.", "remove6"}], "/.", 
      "remove8"}]}], "]"}], "\[Equal]", 
   RowBox[{"{", "}"}]}]}]], "Input",
 CellChangeTimes->{{3.472553716781213*^9, 3.472553742225581*^9}, {
  3.472554887350713*^9, 3.472554887891076*^9}, {3.497027610731042*^9, 
  3.497027613428762*^9}, {3.556800004278373*^9, 3.55680000610835*^9}, {
  3.56667126015378*^9, 3.566671262221869*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.47255488478219*^9, 3.472554889000684*^9}, 
   3.472558017482145*^9, 3.472558771885021*^9, 3.472569665212305*^9, 
   3.472571558397878*^9, 3.472571822965579*^9, 3.472573012193923*^9, 
   3.472573105434306*^9, 3.472573705791717*^9, 3.472575483271425*^9, 
   3.472580889752309*^9, 3.472581554102355*^9, 3.472581792803522*^9, 
   3.472582128787565*^9, 3.472593475376271*^9, 3.472594048148481*^9, 
   3.472594542538735*^9, 3.472594871800592*^9, 3.472595959486733*^9, 
   3.472596159035617*^9, 3.472596235145431*^9, 3.472596532174086*^9, 
   3.472599079361714*^9, 3.47259918602387*^9, 3.472599348803282*^9, 
   3.472600391884972*^9, 3.472600927456062*^9, 3.472601069567938*^9, 
   3.472627260620113*^9, 3.472632875859032*^9, 3.472633145268606*^9, 
   3.472633226253773*^9, 3.472633320045656*^9, 3.472633853808988*^9, 
   3.472655903074282*^9, 3.472656237222361*^9, 3.472656634355864*^9, 
   3.472656799645794*^9, 3.472656944768567*^9, 3.472656978691419*^9, 
   3.472657357604109*^9, 3.472657602504541*^9, 3.472657834257648*^9, 
   3.472657917360071*^9, 3.472658034535609*^9, 3.472658558915635*^9, 
   3.472658681006372*^9, 3.472659421945828*^9, 3.472659500788303*^9, 
   3.472659695885829*^9, 3.472660074867092*^9, 3.472660218845022*^9, 
   3.472660406616724*^9, 3.472714107195047*^9, 3.472714754902903*^9, 
   3.472714966446608*^9, 3.472715043247924*^9, 3.472715172862469*^9, 
   3.47271584852729*^9, 3.472717338223178*^9, 3.472717483847181*^9, 
   3.47271968924525*^9, 3.472719924143049*^9, 3.472720104627362*^9, 
   3.472720419675673*^9, 3.472720552645285*^9, 3.472720699560011*^9, 
   3.472725525468796*^9, 3.472725721116503*^9, 3.472725804712802*^9, 
   3.472726182473232*^9, 3.472726324868483*^9, 3.472726670920178*^9, 
   3.472735667741033*^9, 3.472754859458156*^9, 3.472761064778988*^9, 
   3.472761541968508*^9, 3.472761807728138*^9, 3.472762400051092*^9, 
   3.472762593086251*^9, 3.47280905914641*^9, 3.472809249930718*^9, 
   3.472809333388686*^9, 3.47280936464079*^9, 3.472809402863344*^9, 
   3.472809478694407*^9, 3.472809521361447*^9, 3.472809660847596*^9, 
   3.472809828901569*^9, 3.472809902518638*^9, 3.472810139043642*^9, 
   3.472810450562255*^9, 3.472810533602551*^9, 3.472810588179474*^9, 
   3.472810626827599*^9, 3.472812582328738*^9, 3.472813549095507*^9, 
   3.472814905648527*^9, 3.472815561008785*^9, 3.472817883130491*^9, 
   3.472825022881668*^9, 3.472827354314136*^9, 3.472827491502084*^9, 
   3.472827634019277*^9, {3.472827711110078*^9, 3.472827737211114*^9}, 
   3.472828142393888*^9, 3.472828174860385*^9, {3.472828235805164*^9, 
   3.472828256929141*^9}, 3.472829592217278*^9, 3.472830098737708*^9, 
   3.472830138312194*^9, 3.472830189416107*^9, 3.472830256160607*^9, 
   3.472830302580746*^9, 3.472831745209602*^9, 3.472833686003904*^9, 
   3.472833978915379*^9, 3.472835852959721*^9, 3.472887781823565*^9, 
   3.472888311925216*^9, 3.472888780886455*^9, 3.472889201132212*^9, 
   3.472889241253607*^9, 3.472889299199061*^9, 3.472889336202619*^9, 
   3.472889394968108*^9, 3.472889437938072*^9, 3.472889578162036*^9, 
   3.472889611739107*^9, {3.472889657289122*^9, 3.472889678997535*^9}, 
   3.472889839878658*^9, 3.472892443064934*^9, 3.472897093759252*^9, 
   3.472901368226018*^9, 3.473687888240144*^9, 3.473687942288405*^9, 
   3.473719697088779*^9, 3.473719753803902*^9, 3.474137308101588*^9, 
   3.474137567987867*^9, 3.474187737687206*^9, 3.474188830694975*^9, 
   3.474189017812667*^9, 3.474189391922061*^9, 3.474189746606482*^9, 
   3.474189783861785*^9, 3.474189853432707*^9, 3.474189922980504*^9, 
   3.474190128627469*^9, 3.474191257152623*^9, 3.474191452695849*^9, 
   3.474192129915202*^9, 3.474193635381693*^9, 3.474193815859531*^9, 
   3.4741938703934*^9, 3.474194005168837*^9, 3.474194191779752*^9, 
   3.474195207395764*^9, 3.474195539991443*^9, 3.474195753198496*^9, 
   3.474196002742947*^9, 3.474198600934405*^9, 3.474200685831385*^9, 
   3.474201809883317*^9, 3.47420247788508*^9, 3.474202547186038*^9, 
   3.47420949888042*^9, 3.474209537957136*^9, 3.474209597052712*^9, 
   3.474211701332689*^9, 3.47462895679857*^9, 3.474718467656345*^9, 
   3.475413939847863*^9, 3.475414047361841*^9, 3.475414721203276*^9, 
   3.475414794611305*^9, 3.475414902216881*^9, 3.476609977010316*^9, {
   3.476610535096607*^9, 3.476610553938227*^9}, 3.476611360431768*^9, 
   3.476695927084258*^9, 3.476696178203554*^9, 3.476700813239292*^9, 
   3.47670308478694*^9, 3.476703877231974*^9, 3.476704410563758*^9, 
   3.476704637314777*^9, 3.476705781422086*^9, 3.47670672792491*^9, 
   3.476792357268404*^9, 3.476792456627284*^9, 3.477127208772792*^9, 
   3.477127852994489*^9, 3.477128106494992*^9, 3.477128564448812*^9, 
   3.477128991973677*^9, 3.477132538051246*^9, 3.477133545639572*^9, 
   3.477138167933859*^9, 3.477138590881804*^9, 3.477138802710923*^9, 
   3.477139308171818*^9, 3.477140386343438*^9, 3.477141562939731*^9, 
   3.477141811258497*^9, 3.477142135260394*^9, 3.477142698714245*^9, 
   3.477142838427426*^9, 3.477142953205734*^9, 3.477143107098791*^9, 
   3.477143206645468*^9, 3.477144209193485*^9, 3.477156474089846*^9, 
   3.477156704101043*^9, 3.477156906765409*^9, 3.477156981158871*^9, 
   3.47715737936535*^9, 3.477157575718668*^9, 3.477157758425387*^9, 
   3.477157928489857*^9, 3.477158056255953*^9, 3.477158240180727*^9, 
   3.477158388905335*^9, 3.47715907156879*^9, 3.477162067600468*^9, 
   3.477208186309192*^9, 3.477209320167402*^9, 3.477216849295251*^9, 
   3.477217044003524*^9, 3.477217174530739*^9, 3.477217345688981*^9, 
   3.477217537541035*^9, 3.477222219759204*^9, 3.477296680743955*^9, 
   3.47766200483405*^9, 3.477662077084869*^9, 3.47773778159647*^9, 
   3.477739406184214*^9, 3.477741240658384*^9, 3.477754369181914*^9, 
   3.477754786250702*^9, 3.477754835145374*^9, 3.477754995255858*^9, 
   3.477755462406633*^9, 3.477755985333403*^9, 3.477756969968936*^9, 
   3.477761211154693*^9, 3.477761699429632*^9, 3.477762299637245*^9, 
   3.477812983617454*^9, 3.477817757199091*^9, 3.47781892933154*^9, 
   3.47781901016622*^9, 3.477819192969399*^9, 3.477819298477002*^9, 
   3.47781934234189*^9, 3.477819723725945*^9, 3.477820986414251*^9, 
   3.47782281242457*^9, 3.477835441358986*^9, 3.477838251659735*^9, 
   3.47783828503346*^9, 3.477838906736787*^9, 3.477839747396147*^9, 
   3.477841801075982*^9, 3.477846377277154*^9, 3.47784656370813*^9, 
   3.477847121467038*^9, 3.477848753265428*^9, 3.477848854962727*^9, {
   3.477848906898405*^9, 3.477848916601155*^9}, 3.477849111409046*^9, 
   3.477849159781771*^9, 3.47789113546419*^9, 3.477894133639299*^9, 
   3.477897816874691*^9, 3.477897865549483*^9, 3.477898660495832*^9, 
   3.477898698425874*^9, 3.477898745000072*^9, 3.477899162905026*^9, {
   3.477899215545588*^9, 3.477899239431375*^9}, 3.477899427181203*^9, 
   3.477899663039414*^9, 3.4778998572334*^9, 3.477900012736783*^9, 
   3.477902655065585*^9, {3.477903858721201*^9, 3.477903872758304*^9}, 
   3.477915548679077*^9, {3.477916304033246*^9, 3.477916322437067*^9}, 
   3.477916471752425*^9, 3.477916619608991*^9, 3.477916650478736*^9, 
   3.477916753418834*^9, 3.477916848725401*^9, 3.477916941837537*^9, {
   3.477917009229703*^9, 3.47791708605248*^9}, 3.477917169492975*^9, 
   3.478270864608482*^9, 3.478270944046084*^9, 3.478271245547012*^9, 
   3.478271688496278*^9, 3.478272078697126*^9, 3.478272213435115*^9, 
   3.4782725391407*^9, 3.478272579516928*^9, 3.478272611079294*^9, 
   3.478273293916544*^9, 3.478275911704677*^9, 3.478276053085145*^9, 
   3.478681654754822*^9, 3.4786821532673*^9, 3.478682578284598*^9, 
   3.478682695237866*^9, 3.478683323655205*^9, 3.47868426258878*^9, 
   3.478685085962896*^9, 3.478685942608248*^9, 3.478686809291927*^9, 
   3.478687256773327*^9, 3.478687587176714*^9, 3.478688157917958*^9, 
   3.47868937671266*^9, 3.478691002800405*^9, 3.478691555861372*^9, 
   3.47869206476428*^9, 3.478692364563632*^9, 3.478693001146285*^9, 
   3.478693896737157*^9, 3.478695641512944*^9, 3.478696031490397*^9, 
   3.478697741611083*^9, 3.478699701543834*^9, 3.478700985776806*^9, 
   3.478701082282868*^9, 3.478701447925237*^9, 3.478702064423862*^9, 
   3.478792178180072*^9, 3.47879250631771*^9, 3.478792673530811*^9, 
   3.478792834389103*^9, 3.478796399196174*^9, 3.478798471128481*^9, 
   3.47880164988415*^9, 3.478807640639717*^9, 3.478807856543484*^9, 
   3.478810755145637*^9, 3.478810879269683*^9, 3.478812494006116*^9, 
   3.478812909495888*^9, 3.478813181726538*^9, 3.478847938555396*^9, 
   3.478848087952262*^9, 3.478848490183022*^9, 3.478848934569317*^9, 
   3.478850470350209*^9, 3.478850565161378*^9, 3.478851061453889*^9, 
   3.478851110103858*^9, 3.478852296129605*^9, 3.478852605195882*^9, 
   3.4788527328526*^9, 3.478852947398956*^9, 3.478855088826261*^9, 
   3.478856027288885*^9, 3.478858230529591*^9, 3.478864059015587*^9, 
   3.478864504509454*^9, 3.478865554315161*^9, 3.478869500477302*^9, 
   3.478872379975639*^9, 3.478878108235943*^9, 3.478884324040909*^9, 
   3.478885471876274*^9, 3.478886539904764*^9, 3.478887828849043*^9, 
   3.47889281853205*^9, 3.478894051939219*^9, 3.478897584759245*^9, 
   3.478897915344638*^9, 3.478900803457174*^9, 3.478930946614077*^9, 
   3.478931194733642*^9, 3.478933572168213*^9, 3.478934340990992*^9, 
   3.478935702245981*^9, 3.478937628339028*^9, 3.478939249153772*^9, 
   3.478940408681436*^9, 3.478941267499768*^9, 3.478943271546309*^9, 
   3.478943900633651*^9, 3.478944036002008*^9, 3.478944534785811*^9, 
   3.478953149742219*^9, 3.478962609752019*^9, 3.478972094069218*^9, 
   3.479067240190569*^9, 3.479112814289376*^9, 3.479113005244046*^9, {
   3.479113134303535*^9, 3.479113163296101*^9}, 3.479113288383807*^9, 
   3.479113528556825*^9, 3.479113732914088*^9, 3.479116665913281*^9, 
   3.479124997442161*^9, 3.479661727515962*^9, 3.479731510335094*^9, 
   3.479731571751179*^9, 3.485828440482856*^9, 3.486445430750289*^9, 
   3.486450326071623*^9, 3.486452021091228*^9, 3.486452102195473*^9, 
   3.486452179494178*^9, 3.48645226515258*^9, 3.486452440400828*^9, 
   3.486452805392264*^9, 3.486453105070917*^9, 3.486453333051651*^9, 
   3.486453365052164*^9, {3.48645349686878*^9, 3.486453513982862*^9}, 
   3.486455416711288*^9, {3.486455471516102*^9, 3.486455492122644*^9}, 
   3.486517241961004*^9, 3.49070784090223*^9, 3.490708733349697*^9, 
   3.490711143342772*^9, 3.490712266263602*^9, 3.492177749428937*^9, 
   3.492177893430967*^9, 3.49217792984343*^9, 3.49217802515058*^9, {
   3.492178569463313*^9, 3.492178579943973*^9}, 3.492178612061655*^9, 
   3.492178643286187*^9, {3.492179113373374*^9, 3.492179127043198*^9}, {
   3.492179159282255*^9, 3.492179179686985*^9}, 3.492410393307678*^9, 
   3.492410431721703*^9, 3.492410494516252*^9, 3.49241053588826*^9, 
   3.492410693927262*^9, 3.492410899804775*^9, 3.492412696551022*^9, 
   3.493199511689248*^9, 3.497025117417611*^9, 3.49702615134822*^9, 
   3.497026231081365*^9, 3.497026415319704*^9, 3.4970270879751368`*^9, 
   3.497027268676009*^9, {3.497027601840951*^9, 3.4970276144930277`*^9}, 
   3.49702771956882*^9, 3.497078691543202*^9, 3.4970788386865063`*^9, 
   3.497078999605749*^9, 3.49707929714747*^9, 3.497079416443097*^9, 
   3.49707964778869*^9, 3.49708048608853*^9, 3.497080567879485*^9, 
   3.49708097067664*^9, 3.497081180951502*^9, 3.497081285287217*^9, 
   3.49708134651917*^9, 3.497082645875942*^9, 3.497083234012115*^9, 
   3.4970834179530687`*^9, 3.4970840137079897`*^9, 3.4970841288396797`*^9, 
   3.497084193389202*^9, 3.497084436022193*^9, 3.497165943683668*^9, 
   3.4971660131472387`*^9, 3.4971660888121843`*^9, 3.4971689341692133`*^9, 
   3.497168975036489*^9, 3.497169064502781*^9, 3.497170415748885*^9, 
   3.497170520125834*^9, 3.497171517983056*^9, 3.497171787605631*^9, 
   3.49717227631207*^9, 3.497175030534218*^9, 3.497177295268373*^9, 
   3.497177691412878*^9, 3.497198619478207*^9, 3.497198790441119*^9, 
   3.497199658813002*^9, 3.4972009653701363`*^9, 3.4972012842018223`*^9, 
   3.4972013992982407`*^9, 3.497253845272888*^9, 3.497257692513438*^9, 
   3.497257742314981*^9, 3.497257839940522*^9, 3.497261988274507*^9, 
   3.4972681051076517`*^9, 3.497274270240005*^9, 3.497274715238525*^9, 
   3.497278639338589*^9, 3.49727876554708*^9, 3.497279491942211*^9, 
   3.497280308113508*^9, 3.49728438746626*^9, 3.497284466447598*^9, 
   3.497290194377086*^9, 3.497291368135478*^9, 3.497291946340284*^9, 
   3.497292056117302*^9, 3.497293075309721*^9, 3.497293720268681*^9, 
   3.497293964278114*^9, {3.497294162315754*^9, 3.497294176236925*^9}, 
   3.4972991251757*^9, 3.497299364860629*^9, 3.497299558937173*^9, 
   3.497304724829374*^9, 3.497311683040802*^9, 3.497311773582206*^9, 
   3.497311874563953*^9, 3.49733421637259*^9, 3.497334893475079*^9, 
   3.497339032259324*^9, 3.49733995930364*^9, 3.497343432407506*^9, 
   3.497343727574706*^9, 3.497343927838334*^9, 3.49734417674943*^9, 
   3.49734630270958*^9, 3.497347641379018*^9, 3.497348089645064*^9, 
   3.49734837054322*^9, 3.497348755753851*^9, 3.497349459624965*^9, 
   3.497350337262195*^9, 3.497352124716199*^9, 3.497352176308503*^9, 
   3.497352469586493*^9, 3.497352625204096*^9, 3.497352685952042*^9, 
   3.497353030538052*^9, 3.497353111372492*^9, 3.497353157263145*^9, 
   3.497354323951756*^9, 3.497354485412047*^9, 3.497354808574564*^9, 
   3.497355286738436*^9, 3.497355339672217*^9, 3.497355414148434*^9, 
   3.497357763559791*^9, 3.497357987931092*^9, 3.497358965578212*^9, 
   3.497366060530883*^9, 3.497366182636229*^9, 3.497366380319837*^9, 
   3.497372587763191*^9, 3.497373962631639*^9, 3.4974215416365213`*^9, 
   3.497433633006572*^9, 3.497623778093891*^9, 3.497624490091711*^9, 
   3.497630204137265*^9, 3.497630389026865*^9, 3.497630489004607*^9, 
   3.497630683043908*^9, 3.497630931756813*^9, 3.497631184251843*^9, 
   3.4976325688280563`*^9, 3.497685055446906*^9, {3.4976852107142487`*^9, 
   3.4976852242918386`*^9}, 3.497685550094914*^9, 3.497686656684647*^9, 
   3.497686970332684*^9, 3.4976872855234423`*^9, 3.497691126178885*^9, 
   3.4976914200291348`*^9, 3.497691503462555*^9, 3.497691546952156*^9, 
   3.497691703229269*^9, 3.4976925408736753`*^9, 3.497692609690889*^9, 
   3.497692648024959*^9, 3.4976928273096647`*^9, 3.4976940851487207`*^9, 
   3.4976941585522346`*^9, 3.497694708171797*^9, 3.497694782943862*^9, 
   3.49769484754533*^9, 3.4976949151826763`*^9, 3.4976949610464373`*^9, 
   3.497699279522275*^9, 3.497699376577132*^9, 3.4977002400624104`*^9, 
   3.4977004196424*^9, 3.497701415087337*^9, 3.497704330547379*^9, 
   3.497705930050703*^9, 3.497706197518558*^9, 3.497706436779804*^9, 
   3.4977716362016706`*^9, 3.497773693812208*^9, 3.497775731468111*^9, 
   3.49777590557946*^9, 3.4977795202428007`*^9, 3.497793838084219*^9, 
   3.497793901428618*^9, 3.497794201771854*^9, 3.497794272233527*^9, 
   3.497866284509317*^9, 3.49786736169775*^9, 3.4978685564462547`*^9, 
   3.497870000489629*^9, 3.497870290850325*^9, 3.4978705107985497`*^9, 
   3.49787103750173*^9, 3.497871409546447*^9, 3.497871654130327*^9, 
   3.4978838722326813`*^9, 3.497969495788719*^9, {3.497969534285183*^9, 
   3.497969555032051*^9}, 3.497969705711256*^9, 3.498031645748004*^9, 
   3.4980335184026337`*^9, 3.498038569134007*^9, 3.498040470447319*^9, 
   3.498041413191723*^9, 3.498043569912431*^9, 3.498108334006939*^9, 
   3.498108925156054*^9, 3.498115575381897*^9, {3.498115629431006*^9, 
   3.498115740316289*^9}, 3.498115773548759*^9, {3.4981158381123667`*^9, 
   3.498115860535166*^9}, 3.49811731295*^9, 3.4981174112339354`*^9, 
   3.498121530327717*^9, 3.4981227096384897`*^9, 3.498122774674883*^9, {
   3.498122815846861*^9, 3.498122828875676*^9}, 3.498123325880464*^9, 
   3.498128900669181*^9, {3.49812894708136*^9, 3.498128989368945*^9}, 
   3.4981290795828247`*^9, 3.4981294393771753`*^9, 3.498129692053508*^9, 
   3.498129856389224*^9, 3.4981300096138783`*^9, 3.4981322480235023`*^9, 
   3.498143245672895*^9, 3.4981451788915*^9, 3.498206012407236*^9, 
   3.498210089070361*^9, 3.498211812421974*^9, 3.498216708353355*^9, 
   3.498220754177128*^9, 3.498227044013302*^9, 3.498239857706685*^9, 
   3.498243097710905*^9, 3.498252772997328*^9, 3.498253174008503*^9, 
   3.498290271075974*^9, 3.498293586129821*^9, 3.498294876853519*^9, 
   3.498294929507992*^9, 3.4982955109210567`*^9, 3.4982955624782143`*^9, 
   3.498295602840929*^9, 3.498295645208516*^9, 3.4982962957268953`*^9, 
   3.498296575304151*^9, 3.498296611593816*^9, 3.498296651489007*^9, 
   3.498296861945345*^9, 3.4982971044429073`*^9, 3.4982972613897753`*^9, 
   3.498297348433441*^9, 3.498297904910776*^9, 3.498298759400609*^9, 
   3.498299431016487*^9, 3.4982998591422987`*^9, 3.4983003342646437`*^9, 
   3.498300960397325*^9, 3.498319615236354*^9, 3.498325218991362*^9, 
   3.498424287617655*^9, 3.5033454117014236`*^9, 3.5033948084341784`*^9, 
   3.503394916108033*^9, 3.5033953978683777`*^9, 3.503395987799428*^9, 
   3.503396293948617*^9, 3.503396494182836*^9, 3.503396645212481*^9, 
   3.503397258379833*^9, 3.50340039392006*^9, 3.5064320858340673`*^9, 
   3.506432563640532*^9, 3.506433781350877*^9, 3.506434857672143*^9, 
   3.506435360147937*^9, 3.506436468591601*^9, 3.50643742420958*^9, 
   3.506443744199017*^9, 3.506444033711812*^9, 3.506444103408517*^9, 
   3.506444248378742*^9, 3.506444283409452*^9, 3.506444317682872*^9, 
   3.506444456058969*^9, 3.5064445455410547`*^9, 3.506444617145513*^9, 
   3.5064446475457067`*^9, {3.506444683707223*^9, 3.5064447133123827`*^9}, 
   3.5064447457314663`*^9, 3.506444805096178*^9, 3.506444836109953*^9, 
   3.506444866631562*^9, {3.506444897180677*^9, 3.50644497714465*^9}, {
   3.506445021319647*^9, 3.506445371911852*^9}, 3.506445437824767*^9, 
   3.506445469898979*^9, {3.506445503953595*^9, 3.5064456316428556`*^9}, {
   3.5064456685970087`*^9, 3.506445685673883*^9}, {3.506445751192296*^9, 
   3.506445975593131*^9}, 3.50644618157692*^9, 3.506501341401507*^9, 
   3.506501450317318*^9, 3.506501505237514*^9, 3.506501548813614*^9, 
   3.506501691277111*^9, 3.506501762171769*^9, 3.506502241452186*^9, 
   3.5065022910077753`*^9, 3.50650232343123*^9, 3.5065023561328793`*^9, 
   3.5065023869591312`*^9, 3.50650242215508*^9, {3.506502454448596*^9, 
   3.506502484366064*^9}, 3.506502517773388*^9, 3.506502559374249*^9, 
   3.5118523823210173`*^9, 3.5236095286422987`*^9, 3.5236104365685043`*^9, 
   3.523629869341391*^9, 3.52363040556689*^9, 3.523630858288351*^9, 
   3.531129944248756*^9, 3.5311302642204657`*^9, 3.531131365787683*^9, 
   3.531131517285035*^9, 3.531132481840434*^9, 3.53113308712218*^9, 
   3.531133325552705*^9, 3.531133583949978*^9, 3.531133924788373*^9, 
   3.531134111334778*^9, 3.531134155273649*^9, 3.531136496572261*^9, 
   3.531136965825585*^9, 3.53113742696832*^9, {3.5311374744966784`*^9, 
   3.531137532363242*^9}, 3.531137640320203*^9, 3.5311379323611727`*^9, 
   3.531138099985834*^9, 3.531138263416119*^9, 3.5311407735607224`*^9, 
   3.5315608102297*^9, 3.531560892111326*^9, 3.531561009258312*^9, 
   3.531561286704771*^9, 3.531575326382448*^9, 3.5315754564029408`*^9, 
   3.531576409308415*^9, 3.531577221765654*^9, 3.531577354703527*^9, 
   3.5315774381994743`*^9, 3.5328666134885187`*^9, 3.5328673612290163`*^9, 
   3.5328677122693872`*^9, 3.5328678892518272`*^9, 3.5328679480258427`*^9, 
   3.532868155654467*^9, 3.532868324599362*^9, 3.53286841097464*^9, 
   3.532868738272842*^9, 3.532868874626545*^9, 3.532869810563613*^9, 
   3.532870142164762*^9, 3.5328711327874517`*^9, 3.532871207477355*^9, 
   3.532871289974423*^9, 3.532871368641527*^9, 3.532872304515007*^9, 
   3.532874825080207*^9, 3.532875212461956*^9, 3.532937941577952*^9, 
   3.5329419373114843`*^9, 3.532942589323463*^9, 3.5329427041402807`*^9, 
   3.532943007834754*^9, 3.532943067286771*^9, 3.532943175951885*^9, 
   3.532943264239916*^9, 3.5329433614611893`*^9, 3.532943467664393*^9, 
   3.5329435766522913`*^9, 3.5329444494986153`*^9, 3.532948147778018*^9, 
   3.532949937954002*^9, 3.532951013112187*^9, 3.532951266093116*^9, 
   3.532951423601664*^9, 3.532953183088491*^9, 3.532953445932744*^9, 
   3.5329547883325853`*^9, 3.5329551419369593`*^9, 3.532957693147849*^9, 
   3.533046725559113*^9, 3.533046769450935*^9, 3.533047317928996*^9, 
   3.5330476738241453`*^9, 3.533047755398031*^9, 3.533047938897107*^9, 
   3.533048466688121*^9, 3.5330486127254953`*^9, 3.53304879451643*^9, 
   3.533048947640656*^9, 3.5330490762141867`*^9, 3.533052653113632*^9, 
   3.533061454241498*^9, 3.53321121947279*^9, 3.533211307483424*^9, 
   3.533211379859128*^9, 3.533211443670307*^9, 3.53321148631767*^9, 
   3.5332115482541437`*^9, 3.533211610484315*^9, 3.5332125441141787`*^9, 
   3.533212974383686*^9, 3.5332130533622217`*^9, 3.533214025393729*^9, 
   3.533214268367381*^9, 3.533214354209317*^9, 3.53321477692583*^9, 
   3.5332252598505287`*^9, 3.533284592147192*^9, 3.533285280904119*^9, 
   3.533285670519836*^9, 3.533285825010257*^9, 3.53328601095992*^9, 
   3.533286140630602*^9, 3.533305082450047*^9, 3.5333051616123953`*^9, 
   3.533305195864645*^9, 3.5333052425210857`*^9, 3.533305777214012*^9, 
   3.533306334972924*^9, 3.533307123911487*^9, 3.533308058721949*^9, 
   3.533312027920369*^9, 3.5333122526130457`*^9, 3.5333127097548103`*^9, 
   3.533313146835764*^9, 3.533313506532567*^9, 3.533313731260922*^9, 
   3.5333140238390923`*^9, 3.541240137170354*^9, {3.541240745010232*^9, 
   3.5412407587615967`*^9}, 3.541241040809417*^9, 3.541344885667877*^9, 
   3.553598484335387*^9, 3.553598582697122*^9, 3.553602354157813*^9, 
   3.553764023823144*^9, 3.553766449928207*^9, 3.5537665486391478`*^9, 
   3.553766600612393*^9, 3.553766632749387*^9, {3.553766671105673*^9, 
   3.553766736189169*^9}, 3.5537684213057613`*^9, 3.553799832657174*^9, 
   3.553799883554028*^9, 3.556602931130932*^9, 3.556602983446409*^9, 
   3.556608246894455*^9, {3.556610137952342*^9, 3.556610160491199*^9}, 
   3.5566101994237337`*^9, 3.556614912024807*^9, 3.55661499795728*^9, 
   3.556641401874773*^9, 3.556641459918585*^9, 3.556790957324757*^9, 
   3.5567910302926598`*^9, 3.556791577223919*^9, 3.556791629152205*^9, {
   3.556791817200899*^9, 3.556791896928537*^9}, 3.556792470964922*^9, 
   3.556797350748588*^9, {3.556797584235365*^9, 3.556797653218644*^9}, 
   3.556797759041486*^9, {3.556798993925137*^9, 3.55679904346719*^9}, {
   3.5567990784198933`*^9, 3.5567990969873037`*^9}, {3.556799134093109*^9, 
   3.5567991557507753`*^9}, 3.5567999700414886`*^9, {3.5568000168293123`*^9, 
   3.556800037163911*^9}, 3.556800583177822*^9, 3.556867675491742*^9, 
   3.5568711797865*^9, 3.556871649442685*^9, {3.556955308142406*^9, 
   3.55695532478399*^9}, 3.556955462038362*^9, 3.5569558601968946`*^9, 
   3.556958094658774*^9, 3.556958178322998*^9, 3.5569582304066753`*^9, {
   3.556958701905036*^9, 3.5569587146125793`*^9}, 3.556958865660421*^9, 
   3.557652830363841*^9, 3.557653856908391*^9, 3.5576539722221727`*^9, 
   3.557654644999968*^9, 3.5576553284957047`*^9, 3.5576556835051517`*^9, 
   3.5576608596376057`*^9, 3.557735038999345*^9, 3.557735964952393*^9, 
   3.557739715179002*^9, 3.557740003980281*^9, 3.5577417284496098`*^9, 
   3.557742372532598*^9, 3.557742544993478*^9, {3.557742958252988*^9, 
   3.5577429760946827`*^9}, 3.5577433701829653`*^9, 3.557746312473652*^9, {
   3.56197819129311*^9, 3.561978218841382*^9}, 3.561982537312181*^9, 
   3.5619827783029537`*^9, 3.561984362556217*^9, 3.56199315894538*^9, 
   3.561994869544469*^9, 3.5619963652114697`*^9, 3.561997211933743*^9, 
   3.5619972848589087`*^9, 3.561998467233643*^9, 3.5619996711763906`*^9, 
   3.5620604662077017`*^9, 3.56206376295758*^9, 3.562064149506352*^9, 
   3.562064277837418*^9, 3.562064836525403*^9, 3.562065157407001*^9, 
   3.5620676883949614`*^9, 3.562067876996663*^9, 3.562072558617244*^9, 
   3.562078713954493*^9, 3.562229740091447*^9, 3.562235292840908*^9, 
   3.562252307197528*^9, 3.562257921049252*^9, 3.562263817670212*^9, 
   3.562282198363845*^9, 3.5623100506546507`*^9, 3.562320068755664*^9, 
   3.562320161095553*^9, 3.562320347006913*^9, 3.5623205471882563`*^9, 
   3.562322284781231*^9, 3.56234525283426*^9, 3.562346273844719*^9, 
   3.5623463750921183`*^9, 3.562347979447689*^9, 3.5623984999948187`*^9, 
   3.5624005569602203`*^9, 3.5624052453448677`*^9, 3.562407293892116*^9, 
   3.562410622631583*^9, 3.562410709500391*^9, 3.562410780991169*^9, 
   3.56241222006597*^9, 3.5624123481100283`*^9, 3.562414350963235*^9, {
   3.562414407340323*^9, 3.5624144321433477`*^9}, 3.5624144946719713`*^9, 
   3.5624155155129423`*^9, 3.562415665387793*^9, 3.562419790388249*^9, 
   3.5624278407838*^9, 3.562436640915558*^9, 3.5624804705052557`*^9, {
   3.5624833685140247`*^9, 3.562483393406027*^9}, 3.562497916376013*^9, 
   3.562502909815374*^9, 3.56251515435671*^9, 3.562566506485573*^9, 
   3.562566712186499*^9, 3.562566910887748*^9, 3.562567011363419*^9, 
   3.562569602674165*^9, 3.5626613760336933`*^9, 3.562661444603911*^9, 
   3.566453078437478*^9, 3.566455953270791*^9, 3.566457017622486*^9, 
   3.566457650021594*^9, 3.566458419561778*^9, 3.566459321921159*^9, 
   3.566561659764494*^9, 3.566561834016314*^9, 3.566561891137405*^9, 
   3.566563506633504*^9, 3.56666167170467*^9, 3.566663229754541*^9, 
   3.56666537157049*^9, 3.5666655103358383`*^9, 3.566665669969038*^9, 
   3.566666126899002*^9, 3.566668396923272*^9, 3.566668563543542*^9, {
   3.566668602664089*^9, 3.566668689233697*^9}, 3.566669138960882*^9, 
   3.566669794023918*^9, {3.566669857341167*^9, 3.566669899173936*^9}, 
   3.566670151922246*^9, 3.566670921162409*^9, 3.566670984278655*^9, {
   3.566671075761908*^9, 3.5666711032601337`*^9}, {3.566671320615724*^9, 
   3.566671332541111*^9}, 3.566671641845722*^9, 3.566728752382991*^9, 
   3.5667293107718763`*^9, 3.56672962331364*^9, 3.5667299190634747`*^9, 
   3.566730169029887*^9, 3.566730544453401*^9, 3.56673091723737*^9, 
   3.566731149316264*^9, 3.5667312219964027`*^9, 3.566731359119946*^9, {
   3.566731507246023*^9, 3.56673153444842*^9}, 3.5667316601983547`*^9, 
   3.566731805303358*^9, 3.56673299711604*^9, 3.566733071393566*^9, 
   3.566740736231965*^9, 3.5667407735393047`*^9, 3.56674084652382*^9, 
   3.566741137908918*^9, 3.566741177358485*^9, 3.5667412220789537`*^9, 
   3.566748558102366*^9, 3.566748764884007*^9, 3.566749313304599*^9, {
   3.566749481407919*^9, 3.5667495030399857`*^9}, 3.566749669588583*^9, 
   3.5667500092393827`*^9, 3.566758248881764*^9, 3.5668061858760977`*^9, 
   3.566806311299337*^9, 3.566806889225979*^9, 3.566809019729541*^9, 
   3.566814559659484*^9, 3.566820777615676*^9, {3.566831616161647*^9, 
   3.566831659277486*^9}, 3.566831695035668*^9, 3.566894124649377*^9, 
   3.566894760135921*^9, 3.566895189913909*^9, 3.566895441974265*^9, 
   3.56690361791512*^9, 3.566905238277575*^9, 3.566908875443294*^9, 
   3.566908907533619*^9, 3.5669094078701563`*^9, 3.5669106077249937`*^9, 
   3.5669107994286127`*^9, 3.56691185595601*^9, 3.566912071915248*^9, {
   3.56691217557014*^9, 3.566912188858564*^9}, 3.5669123202269373`*^9, 
   3.566912368188014*^9, 3.566912865944265*^9, 3.566912989829735*^9, 
   3.566913749935666*^9, 3.5669358293704233`*^9, 3.56693612659271*^9, 
   3.566936243495219*^9, 3.567094955908999*^9, 3.567148839086051*^9, 
   3.56716361871627*^9, 3.567163853254242*^9, 3.567163984600366*^9, 
   3.567164209169775*^9, 3.5671713550346613`*^9, 3.5671714478018847`*^9, 
   3.567171537794327*^9, 3.5671743984621553`*^9, 3.567174491655135*^9, 
   3.567174532420896*^9, 3.567174581445055*^9, 3.567175053733171*^9, 
   3.5671755131882477`*^9, 3.5671759287633133`*^9, 3.567182054764756*^9, 
   3.567182120528185*^9, 3.56724380228594*^9, 3.5672442798420973`*^9, 
   3.567245563560754*^9, 3.567250934585402*^9, 3.567251678215214*^9, 
   3.567253388767552*^9, 3.567253544795437*^9, 3.567260308651528*^9, 
   3.5672605831855373`*^9, 3.567260772285536*^9, 3.567260809517663*^9, 
   3.567261061013966*^9, 3.5672616174017143`*^9, 3.567266703803286*^9, 
   3.5672673667564507`*^9, 3.5672674921460543`*^9, 3.56726782797437*^9, 
   3.567268563009962*^9, 3.567268665902796*^9, 3.567268787792468*^9, 
   3.567269000033423*^9, {3.567269217136217*^9, 3.567269244720805*^9}, 
   3.5672755151021442`*^9, 3.567275922520123*^9, 3.567321245986882*^9, 
   3.567321772061458*^9, 3.5673218567606564`*^9, 3.567322373765182*^9, 
   3.567326987011606*^9, 3.567332568263217*^9, 3.567332648817841*^9, 
   3.56733463597163*^9, 3.5673407768731127`*^9, 3.567342069600185*^9, 
   3.567344032864049*^9, 3.567347130960959*^9, 3.567348378925576*^9, 
   3.5673546414961042`*^9, 3.567354865885127*^9, 3.56735496977142*^9, 
   3.567355112961244*^9, 3.567355328186706*^9, 3.567355517539453*^9, 
   3.567355675969178*^9, 3.567356954946125*^9, 3.567361733783926*^9, 
   3.5673624223796597`*^9, 3.567409175965539*^9, 3.5674116983489532`*^9, 
   3.567414813541567*^9, 3.567415183475806*^9, 3.567415378213612*^9, 
   3.56741555503231*^9, 3.5674232609652767`*^9, 3.567434254412814*^9, 
   3.567435116109521*^9, 3.567441195003978*^9, 3.5674438798227453`*^9, 
   3.567680988700612*^9, 3.5677203537867537`*^9, 3.5677581414716043`*^9, 
   3.567758540439283*^9, 3.56776260644755*^9, 3.567762882345512*^9, 
   3.567767488635651*^9, 3.5677712042553177`*^9, 3.56777387340617*^9, 
   3.567774092330529*^9, 3.56777452389534*^9, 3.5677751486840754`*^9, 
   3.567776735808976*^9, 3.567777385191546*^9, 3.5677861631727457`*^9, 
   3.567786290378192*^9, 3.567787005684903*^9, 3.567787087892748*^9, 
   3.567787126764474*^9, 3.56778717783329*^9, 3.5677874279621153`*^9, 
   3.56778780083167*^9, {3.567787847017964*^9, 3.567787853410625*^9}, 
   3.567787959404749*^9, 3.567788294615169*^9, 3.5677883650005293`*^9, 
   3.567789104713564*^9, 3.567789146514686*^9, 3.567789177024685*^9, {
   3.567789213363716*^9, 3.567789242993249*^9}, {3.567789279119141*^9, 
   3.567789298969281*^9}, {3.5677893296086607`*^9, 3.5677894362945147`*^9}, {
   3.567789474754694*^9, 3.5677894938543367`*^9}, {3.567789526114122*^9, 
   3.567789595312318*^9}, {3.56778966864543*^9, 3.567789685447556*^9}, {
   3.567789719183741*^9, 3.5677897840755787`*^9}, {3.5677900252022343`*^9, 
   3.5677900433593817`*^9}, {3.567790130883299*^9, 3.567790146360415*^9}, {
   3.567790231645646*^9, 3.567790295972386*^9}, {3.567790331556834*^9, 
   3.56779035236506*^9}, {3.567790412287005*^9, 3.5677906063420486`*^9}, {
   3.567790640794372*^9, 3.56779068356679*^9}, 3.567792755124065*^9, 
   3.567792806247766*^9, 3.567792868279015*^9, 3.5677929497854347`*^9, 
   3.567793021997383*^9, 3.567793080419985*^9, {3.567793116784224*^9, 
   3.567793167660591*^9}, {3.5677931977637663`*^9, 3.567793302301839*^9}, {
   3.5677933430950603`*^9, 3.567793398450057*^9}, 3.567794005677141*^9, 
   3.5677942951343813`*^9, 3.56779539056831*^9, 3.567795614826515*^9, 
   3.567798054623856*^9, 3.567840560465205*^9, 3.567840950304316*^9, 
   3.567849191496971*^9, 3.567854436053833*^9, 3.5678547215467997`*^9, 
   3.567856291164502*^9, 3.567857149533812*^9, 3.567858255645276*^9, 
   3.567858422616583*^9, 3.5678591898670597`*^9, 3.567868507640283*^9, 
   3.567868850545745*^9, 3.56786891705958*^9, 3.5678780769517517`*^9, 
   3.56788134952634*^9, 3.567928351543268*^9, 3.5679437344803143`*^9, 
   3.56796215934918*^9, 3.5679657977827463`*^9, 3.568008704147225*^9, 
   3.5680133926681004`*^9, 3.5680178361614237`*^9, 3.568019245862673*^9, 
   3.5680214467992287`*^9, 3.568022476967371*^9, 3.5680225414612103`*^9, 
   3.568022588427054*^9, 3.568023139371237*^9, 3.568024145830864*^9, 
   3.568030075292365*^9, {3.5680304221948433`*^9, 3.568030431763377*^9}, {
   3.568030512241846*^9, 3.568030600795628*^9}, 3.5680391723791227`*^9, 
   3.568039311291581*^9, 3.5680397538950653`*^9, 3.568040209392764*^9, 
   3.568040787881835*^9, {3.5680409385106087`*^9, 3.5680409678884687`*^9}, 
   3.5680420319788303`*^9, {3.5680420642059603`*^9, 3.568042167047344*^9}, 
   3.568043429284738*^9, {3.568043460098714*^9, 3.5680435457928057`*^9}, 
   3.56811791507244*^9, 3.5681186997910233`*^9, 3.568123649299436*^9, 
   3.568124734480275*^9, 3.5681287595892467`*^9, 3.5681297828900337`*^9, 
   3.568137869042286*^9, 3.568137904803256*^9, 3.5682787887494173`*^9, 
   3.56829101797834*^9, 3.568311602408145*^9, 3.56832671191013*^9, 
   3.568371471969573*^9, 3.568372559596992*^9, 3.568373398848925*^9, 
   3.5683766079585876`*^9, 3.568377003037262*^9, 3.5683778467267437`*^9, 
   3.568379699504484*^9, 3.56838023911771*^9, 3.568380301956831*^9, 
   3.5683804798071747`*^9, 3.5683809101976357`*^9, 3.5683809623138733`*^9, 
   3.568381863854137*^9, 3.568382130366987*^9, 3.568382830745035*^9, 
   3.568387546889241*^9, 3.568442763649743*^9, 3.568443007385619*^9, 
   3.5685496446162663`*^9, 3.568549692366452*^9, 3.5685498164676247`*^9, {
   3.5685504352298203`*^9, 3.5685504545537567`*^9}, 3.568551573293462*^9, 
   3.56855206758339*^9, 3.568552724550668*^9, 3.5685544289184437`*^9, 
   3.568554480093739*^9, 3.568557870378611*^9, 3.568558000459474*^9, 
   3.568558521935219*^9, 3.56855857513721*^9, 3.5685586567673607`*^9, {
   3.568558701835227*^9, 3.568558713948164*^9}, {3.568558744552239*^9, 
   3.56855876807659*^9}, 3.5685590609037733`*^9, 3.5685694999762487`*^9, 
   3.568569589871578*^9, 3.5686149701853113`*^9, 3.568650571896214*^9, 
   3.5687143123106937`*^9, 3.568714597895282*^9, 3.568720111901003*^9, 
   3.568724939688339*^9, 3.568725617459169*^9, 3.568726627836562*^9, 
   3.568728240222005*^9, 3.5687289951422873`*^9, 3.5687329068824368`*^9, 
   3.568734904676704*^9, 3.568737371891069*^9, 3.5687396036120443`*^9, 
   3.5687410758213453`*^9, 3.5687429809139233`*^9, 3.568744813728808*^9, 
   3.568789583468658*^9, 3.5687899482156057`*^9, 3.568790122269495*^9, 
   3.568799323441722*^9, 3.568891377148781*^9, 3.568907390156994*^9, 
   3.568907947996529*^9, 3.568908225233431*^9, 3.568908279447472*^9, 
   3.568908354344809*^9, 3.568909518884554*^9, 3.568972253414809*^9, 
   3.568973610695759*^9, 3.568974698216588*^9, 3.568976752531638*^9, 
   3.568976859038123*^9, 3.568979098991932*^9, 3.5689799700841007`*^9, 
   3.568981618336379*^9, 3.568986026917385*^9, 3.568986060893167*^9, 
   3.5689863331283493`*^9, {3.568986510341099*^9, 3.568986532088024*^9}, 
   3.569000125575397*^9, 3.569003065210758*^9, 3.569046916885701*^9, 
   3.573227246690094*^9, 3.5732272939955063`*^9, 3.573379753900621*^9, 
   3.573402086892494*^9, 3.573477898112975*^9, 3.573492675714218*^9, 
   3.573532426813315*^9, 3.573549045683663*^9, 3.5735644283586893`*^9, 
   3.573564740336944*^9, 3.573564819248067*^9, 3.5735653502792187`*^9, 
   3.573565636052907*^9, 3.573622520355153*^9, 3.573625838652637*^9, 
   3.573632893019039*^9, 3.573635279119557*^9, 3.573635568193946*^9, 
   3.573635606136993*^9, 3.573635725999625*^9, 3.573637825209476*^9, 
   3.573638326238352*^9, 3.5736393840499887`*^9, 3.573639519359878*^9, 
   3.573640333242243*^9, 3.573640899530815*^9, 3.573821081067493*^9, 
   3.573826742427567*^9, 3.573827844172374*^9, 3.573832243151944*^9, 
   3.573832822353188*^9, 3.573832877903225*^9, 3.5738349561151533`*^9, 
   3.57383514658025*^9, 3.573835456027617*^9, 3.573882844432019*^9, 
   3.573885442657092*^9, 3.573885820768251*^9, 3.573886147704774*^9, 
   3.5738866908002567`*^9, 3.573886964842568*^9, 3.573887383827593*^9, 
   3.5738889624950523`*^9, 3.573889399516389*^9, 3.573889540099184*^9, 
   3.5738896498741503`*^9, 3.573889754524309*^9, 3.5739851814550533`*^9, 
   3.573985890605665*^9, 3.573997976984952*^9, 3.573998049261814*^9, 
   3.573998608184586*^9, 3.5739990445845118`*^9, 3.573999508775805*^9, 
   3.574002666493905*^9, 3.5740030039157753`*^9, 3.5740049076626596`*^9, 
   3.574005203725276*^9, 3.574007389851056*^9, {3.574007479003853*^9, 
   3.574007501393368*^9}, 3.574008405345347*^9, 3.574008548785364*^9, 
   3.574061892691843*^9, 3.574062010667466*^9, 3.574064495075715*^9, 
   3.574064782549265*^9, 3.574065110117571*^9, 3.574065821477087*^9, 
   3.574066488360435*^9, 3.5740665514719973`*^9, 3.574067811196177*^9, 
   3.574068047157896*^9, 3.574069138339375*^9, 3.574069494591392*^9, 
   3.574069554181838*^9, 3.57408300118681*^9, 3.574083084111845*^9, 
   3.574248037103538*^9, 3.574254103921245*^9, 3.5742582896762457`*^9, 
   3.574501573248412*^9, 3.574502431594244*^9, 3.5745025068595*^9, 
   3.5750993653444853`*^9, 3.575369795222851*^9, 3.5753698484545927`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"check2", "=", 
  RowBox[{
   RowBox[{"Complement", "[", 
    RowBox[{
     RowBox[{"Variables", "[", "unUednewAll", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Variables", "[", "unUednewAll", "]"}], "//.", "remove3"}], 
         "//.", "remove4"}], "//.", "remove5"}], "//.", "remove6"}], "/.", 
      "remove8"}]}], "]"}], "\[Equal]", 
   RowBox[{"{", "}"}]}]}]], "Input",
 CellChangeTimes->{{3.56667067392382*^9, 3.566670676693562*^9}, {
  3.566671111868943*^9, 3.5666711153919497`*^9}, {3.56667126451414*^9, 
  3.5666712660623417`*^9}}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.566670677898348*^9, 3.566670921218369*^9, 3.56667098428724*^9, {
   3.566671075769643*^9, 3.566671116286908*^9}, {3.5666713206240664`*^9, 
   3.566671332549386*^9}, 3.566671641853703*^9, 3.566728752391617*^9, 
   3.566729310780332*^9, 3.566729623322667*^9, 3.5667299190720673`*^9, 
   3.566730169038806*^9, 3.56673054446272*^9, 3.566730917246258*^9, 
   3.566731149407271*^9, 3.566731222006077*^9, 3.566731359128851*^9, {
   3.5667315072567*^9, 3.566731534457014*^9}, 3.5667316602085133`*^9, 
   3.5667318053121653`*^9, 3.566732997127977*^9, 3.566733071402007*^9, 
   3.566740736239764*^9, 3.566740773547052*^9, 3.566740846531262*^9, 
   3.566741137917721*^9, 3.56674117736598*^9, 3.5667412221299877`*^9, 
   3.566748558152512*^9, 3.5667487649402943`*^9, 3.5667493133656197`*^9, {
   3.566749481482237*^9, 3.566749503093114*^9}, 3.566749669676508*^9, 
   3.566750009332502*^9, 3.566758248949131*^9, 3.566806185958329*^9, 
   3.566806311309498*^9, 3.5668068893685207`*^9, 3.566809019738783*^9, 
   3.5668145596685543`*^9, 3.5668207776238823`*^9, {3.566831616208111*^9, 
   3.566831659285727*^9}, 3.56683169504387*^9, 3.566894124657531*^9, 
   3.566894760144561*^9, 3.566895189921645*^9, 3.566895442022867*^9, 
   3.566903617924444*^9, 3.566905238286324*^9, 3.566908875451857*^9, 
   3.566908907543292*^9, 3.5669094078796597`*^9, 3.5669106077337217`*^9, 
   3.566910799436874*^9, 3.566911855965415*^9, 3.566912071924906*^9, {
   3.5669121755783987`*^9, 3.56691218886823*^9}, 3.566912320308352*^9, 
   3.566912368196219*^9, 3.56691286595369*^9, 3.566912989838332*^9, 
   3.566913749943842*^9, 3.566935829421027*^9, 3.566936126600362*^9, 
   3.566936243504264*^9, 3.5670949559962997`*^9, 3.567148839126587*^9, 
   3.5671636187239313`*^9, 3.567163853264124*^9, 3.5671639846101007`*^9, 
   3.567164209177664*^9, 3.567171355042204*^9, 3.56717144781091*^9, 
   3.567171537801837*^9, 3.567174398470592*^9, 3.5671744916633863`*^9, 
   3.5671745324290733`*^9, 3.5671745814554253`*^9, 3.567175053740741*^9, 
   3.5671755131967154`*^9, 3.5671759287710543`*^9, 3.567182054772373*^9, 
   3.567182120537249*^9, 3.5672438022937193`*^9, 3.567244279854113*^9, 
   3.5672455635691633`*^9, 3.5672509345940742`*^9, 3.567251678223399*^9, 
   3.567253388775239*^9, 3.567253544804244*^9, 3.5672603088249617`*^9, 
   3.567260583237754*^9, 3.5672607722940683`*^9, 3.567260809525619*^9, 
   3.567261061023863*^9, 3.5672616174125347`*^9, 3.567266703812256*^9, 
   3.567267366764646*^9, 3.567267492219015*^9, 3.5672678280307713`*^9, 
   3.567268563019383*^9, 3.567268665911476*^9, 3.567268787800305*^9, 
   3.56726900004453*^9, {3.5672692171443567`*^9, 3.5672692447312317`*^9}, 
   3.567275515142791*^9, 3.567275922689329*^9, 3.567321245999525*^9, 
   3.567321772069394*^9, 3.567321856768881*^9, 3.567322373777052*^9, 
   3.56732698702029*^9, 3.5673325682731953`*^9, 3.567332649515141*^9, 
   3.567334635979712*^9, 3.567340776919916*^9, 3.567342069655943*^9, 
   3.567344032963756*^9, 3.567347131006074*^9, 3.567348378934444*^9, 
   3.567354641504633*^9, 3.567354865928533*^9, 3.567354969831753*^9, 
   3.567355113017624*^9, 3.567355328238505*^9, 3.567355517590125*^9, 
   3.567355676026168*^9, 3.567356954999765*^9, 3.5673617338399963`*^9, 
   3.5673624224353*^9, 3.567409175974331*^9, 3.5674116984046087`*^9, 
   3.567414813605445*^9, 3.567415183486114*^9, 3.567415378259473*^9, 
   3.567415555082745*^9, 3.567423260973981*^9, 3.567434254421187*^9, 
   3.567435116182136*^9, 3.567441195058404*^9, 3.567443879877195*^9, 
   3.5676809887691793`*^9, 3.567720354041452*^9, 3.567758141480287*^9, 
   3.5677585404851427`*^9, 3.5677626064913807`*^9, 3.567762882387946*^9, 
   3.567767488643581*^9, 3.567771204288947*^9, 3.567773873462531*^9, 
   3.567774092373519*^9, 3.5677745239452543`*^9, 3.567775148745845*^9, 
   3.567776735850048*^9, 3.567777385225506*^9, 3.567786163181632*^9, 
   3.5677862903873043`*^9, 3.567787005693591*^9, 3.567787087902631*^9, 
   3.567787126773471*^9, 3.56778717784313*^9, 3.5677874279741783`*^9, 
   3.5677878008397293`*^9, {3.567787847026565*^9, 3.567787853421414*^9}, 
   3.567787959413365*^9, 3.567788294623741*^9, 3.5677883650093403`*^9, 
   3.567789104721806*^9, 3.567789146523282*^9, 3.567789177034402*^9, {
   3.567789213372795*^9, 3.567789243003799*^9}, {3.567789279168892*^9, 
   3.5677892989775553`*^9}, {3.5677893296176023`*^9, 3.567789436305606*^9}, {
   3.567789474763671*^9, 3.567789493863996*^9}, {3.567789526122491*^9, 
   3.567789595321289*^9}, {3.567789668656465*^9, 3.567789685456846*^9}, {
   3.5677897191929502`*^9, 3.5677897840841303`*^9}, {3.567790025211501*^9, 
   3.567790043368457*^9}, {3.567790130892601*^9, 3.56779014637035*^9}, {
   3.567790231655567*^9, 3.567790296026361*^9}, {3.567790331566621*^9, 
   3.567790352374115*^9}, {3.567790412296235*^9, 3.567790606352181*^9}, {
   3.567790640802609*^9, 3.567790683575408*^9}, 3.567792755133215*^9, 
   3.5677928062567472`*^9, 3.5677928682884083`*^9, 3.56779294979396*^9, 
   3.56779302201029*^9, 3.567793080428055*^9, {3.567793116792398*^9, 
   3.567793167670055*^9}, {3.5677931977721577`*^9, 3.567793302310437*^9}, {
   3.567793343104165*^9, 3.567793398458248*^9}, 3.567794005694338*^9, 
   3.567794295144525*^9, 3.5677953905800657`*^9, 3.5677956148350897`*^9, 
   3.567798054677072*^9, 3.5678405605109463`*^9, 3.567840950358416*^9, 
   3.567849191547401*^9, 3.567854436103425*^9, 3.567854721596115*^9, 
   3.567856291214987*^9, 3.5678571495830593`*^9, 3.567858255653695*^9, 
   3.567858422991761*^9, 3.5678591898919287`*^9, 3.567868507648767*^9, 
   3.567868850555684*^9, 3.567868917067873*^9, 3.5678780769620132`*^9, 
   3.567881349534955*^9, 3.5679283515588007`*^9, 3.567943734489447*^9, 
   3.567962159397279*^9, 3.567965797818919*^9, 3.5680087041971903`*^9, 
   3.568013392725164*^9, 3.568017836215269*^9, 3.5680192458713007`*^9, 
   3.5680214468088713`*^9, 3.568022477015547*^9, 3.568022541469434*^9, 
   3.568022588435686*^9, 3.568023139379113*^9, 3.568024145889295*^9, 
   3.568030075301237*^9, {3.5680304222050447`*^9, 3.568030431771818*^9}, {
   3.568030512250349*^9, 3.568030600804957*^9}, 3.568039172388238*^9, 
   3.56803931130031*^9, 3.56803975390746*^9, 3.5680402094465017`*^9, 
   3.5680407878904123`*^9, {3.568040938523651*^9, 3.568040967897359*^9}, 
   3.568042031992104*^9, {3.568042064215004*^9, 3.5680421670559263`*^9}, 
   3.568043429296795*^9, {3.568043460107424*^9, 3.568043545802188*^9}, 
   3.5681179152435923`*^9, 3.568118699865456*^9, 3.568123649365608*^9, 
   3.568124734540367*^9, 3.568128759598876*^9, 3.568129782898589*^9, 
   3.5681378690981817`*^9, 3.5681379048789883`*^9, 3.5682787887982883`*^9, 
   3.5682910180370693`*^9, 3.5683116024662848`*^9, 3.568326711974927*^9, 
   3.56837147197873*^9, 3.568372559651504*^9, 3.568373398857139*^9, 
   3.5683766079665203`*^9, 3.56837700304517*^9, 3.568377846736971*^9, 
   3.568379699512801*^9, 3.5683802391267357`*^9, 3.568380301964736*^9, 
   3.568380479815566*^9, 3.568380910206053*^9, 3.568380962321656*^9, 
   3.568381863861681*^9, 3.5683821303772783`*^9, 3.568382830984379*^9, 
   3.568387546897707*^9, 3.568442763657976*^9, 3.5684430073981256`*^9, 
   3.568549644628264*^9, 3.56854969237838*^9, 3.5685498164758873`*^9, {
   3.568550435237818*^9, 3.56855045456143*^9}, 3.568551573301484*^9, 
   3.5685520675914*^9, 3.568552724560041*^9, 3.56855442892764*^9, 
   3.568554480101967*^9, 3.568557870387196*^9, 3.568558000467698*^9, 
   3.568558521943161*^9, 3.568558575146367*^9, 3.568558656776026*^9, {
   3.5685587018435373`*^9, 3.568558713957827*^9}, {3.568558744561055*^9, 
   3.5685587680842667`*^9}, 3.568559060912367*^9, 3.56856949998427*^9, 
   3.5685695898948107`*^9, 3.5686149701946507`*^9, 3.568650571907724*^9, 
   3.5687143123186502`*^9, 3.568714597963566*^9, 3.568720111908908*^9, 
   3.5687249396967*^9, 3.5687256174681377`*^9, 3.568726627879445*^9, 
   3.5687282402316837`*^9, 3.5687289951521053`*^9, 3.568732906934022*^9, 
   3.568734904684972*^9, 3.5687373719578133`*^9, 3.568739603660901*^9, 
   3.5687410758781*^9, 3.5687429809831057`*^9, 3.568744813785005*^9, 
   3.5687895834794703`*^9, 3.568789948223624*^9, 3.568790122281659*^9, 
   3.568799323502121*^9, 3.5688913771587973`*^9, 3.568907390165103*^9, 
   3.5689079480546103`*^9, 3.568908225243095*^9, 3.568908279456232*^9, 
   3.568908354424674*^9, 3.568909518892551*^9, 3.56897225342376*^9, 
   3.568973610765532*^9, 3.568974698227153*^9, 3.5689767525394983`*^9, 
   3.5689768590457697`*^9, 3.568979099084516*^9, 3.568979970130001*^9, 
   3.568981618346736*^9, 3.5689860269593782`*^9, 3.568986060900992*^9, 
   3.568986333136998*^9, {3.568986510349505*^9, 3.568986532096181*^9}, 
   3.569000125583684*^9, 3.5690030652198267`*^9, 3.569046916893791*^9, 
   3.573227246700453*^9, 3.573227294058094*^9, 3.573379753908442*^9, 
   3.573402086900117*^9, 3.5734778981211243`*^9, 3.573492675722604*^9, 
   3.573532426858762*^9, 3.5735490456931887`*^9, 3.573564428371385*^9, 
   3.573564740350687*^9, 3.573564819258613*^9, 3.5735653502906017`*^9, 
   3.573565636066585*^9, 3.573622520363359*^9, 3.573625838695509*^9, 
   3.573632893066087*^9, 3.573635279127625*^9, 3.5736355682728243`*^9, 
   3.573635606203323*^9, 3.57363572601015*^9, 3.573637825217682*^9, 
   3.573638326248394*^9, 3.573639384058435*^9, 3.573639519367959*^9, 
   3.5736403332500153`*^9, 3.573640899540416*^9, 3.5738210810762587`*^9, 
   3.5738267424365396`*^9, 3.573827844222938*^9, 3.5738322431605*^9, 
   3.573832822363162*^9, 3.5738328779118423`*^9, 3.57383495612348*^9, 
   3.573835146589284*^9, 3.573835456082243*^9, 3.573882844441156*^9, 
   3.573885442699559*^9, 3.573885820775909*^9, 3.573886147713904*^9, 
   3.573886690844825*^9, 3.5738869648942823`*^9, 3.573887383881991*^9, 
   3.573888962503003*^9, 3.573889399524914*^9, 3.5738895401073093`*^9, 
   3.573889649917701*^9, 3.573889754585648*^9, 3.573985181464856*^9, 
   3.573985890649881*^9, 3.5739979770406313`*^9, 3.573998049271185*^9, 
   3.573998608192396*^9, 3.5739990447491302`*^9, 3.573999508823051*^9, 
   3.574002666501363*^9, 3.574003003923162*^9, 3.5740049077666483`*^9, 
   3.5740052037357893`*^9, 3.5740073898584013`*^9, {3.574007479013747*^9, 
   3.574007501404207*^9}, 3.5740084053525248`*^9, 3.574008548793372*^9, 
   3.574061892745159*^9, 3.574062010717432*^9, 3.574064495135751*^9, 
   3.574064782597514*^9, 3.574065110175376*^9, 3.574065821532701*^9, 
   3.5740664884224157`*^9, 3.574066551528418*^9, 3.5740678112562*^9, 
   3.5740680471675158`*^9, 3.574069138405367*^9, 3.574069494645743*^9, 
   3.574069554249371*^9, 3.5740830011906157`*^9, 3.574083084122142*^9, 
   3.5742480371566143`*^9, 3.574254103930537*^9, 3.5742582896799507`*^9, 
   3.5745015732976837`*^9, 3.5745024316271973`*^9, 3.574502506906074*^9, 
   3.575099365356208*^9, 3.575369795231997*^9, 3.5753698484663897`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"check1", "&&", "check2"}], ",", 
    RowBox[{"Print", "[", 
     RowBox[{"unUed", "==", "unUednewAll"}], "]"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.566670680280738*^9, 3.5666706854446573`*^9}, {
  3.566670940995432*^9, 3.56667094681421*^9}, {3.56667126825126*^9, 
  3.566671284968751*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"0", "==", 
      RowBox[{"unUed", "-", "unU0U"}]}], "//.", "genericAll"}], "//.", 
    "contractUV"}], "//.", 
   RowBox[{
    RowBox[{"del", "[", 
     RowBox[{"xx", ",", "xx"}], "]"}], "\[Rule]", "1"}]}], "//.", 
  "removeMark"}]], "Input",
 CellChangeTimes->{{3.5667312261262693`*^9, 3.56673126645977*^9}, 
   3.56674079362986*^9, {3.566740947186952*^9, 3.566740954739209*^9}, {
   3.566894136445222*^9, 3.566894139144105*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.567332651367675*^9, 3.567334636032902*^9, 3.567340777060709*^9, 
   3.567342069783968*^9, 3.5673440331446123`*^9, 3.567347131169897*^9, 
   3.567348378984247*^9, 3.567354641559347*^9, 3.56735486603688*^9, 
   3.56735496995859*^9, 3.567355113210085*^9, 3.567355328388403*^9, 
   3.567355517729789*^9, 3.5673556761661663`*^9, 3.567356955147627*^9, 
   3.5673617340426598`*^9, 3.567362422554099*^9, 3.567409176232255*^9, 
   3.567411698532648*^9, 3.56741481373361*^9, 3.567415183543902*^9, 
   3.567415378444042*^9, 3.567415555211664*^9, 3.567423261036222*^9, 
   3.5674342546508017`*^9, 3.567435116315988*^9, 3.5674411951558847`*^9, 
   3.5674438799723997`*^9, 3.567680988838763*^9, 3.5677203591718073`*^9, 
   3.5677581415363626`*^9, 3.567758540612566*^9, 3.5677626066176777`*^9, 
   3.5677628824982233`*^9, 3.567767488701231*^9, 3.567771204368185*^9, 
   3.567773873609386*^9, 3.567774092522606*^9, 3.567774524102957*^9, 
   3.567775148885789*^9, 3.567776735990553*^9, 3.567777385307632*^9, 
   3.567786163428944*^9, 3.5677862905596943`*^9, 3.567787005758383*^9, 
   3.567787087949255*^9, 3.567787126818*^9, 3.567787177892685*^9, 
   3.567787428051207*^9, 3.567787800883129*^9, {3.56778784707681*^9, 
   3.56778785347086*^9}, 3.567787959484774*^9, 3.567788294669732*^9, 
   3.567788365069359*^9, 3.5677891047385063`*^9, 3.5677891465402927`*^9, 
   3.5677891770530567`*^9, {3.567789213427302*^9, 3.567789243057439*^9}, {
   3.567789279267118*^9, 3.567789299028961*^9}, {3.5677893296760178`*^9, 
   3.567789436371447*^9}, {3.567789474817678*^9, 3.567789493881332*^9}, {
   3.5677895261748753`*^9, 3.56778959537178*^9}, {3.567789668717098*^9, 
   3.5677896854738617`*^9}, {3.5677897192447557`*^9, 
   3.5677897841008797`*^9}, {3.5677900252638817`*^9, 3.567790043418756*^9}, {
   3.567790130944112*^9, 3.567790146422324*^9}, {3.56779023171532*^9, 
   3.567790296116107*^9}, {3.567790331620261*^9, 3.567790352391148*^9}, {
   3.5677904123488207`*^9, 3.567790606373953*^9}, {3.567790640819992*^9, 
   3.567790683623694*^9}, 3.567792755150231*^9, 3.567792806274222*^9, 
   3.567792868304254*^9, 3.5677929498109827`*^9, 3.567793022034257*^9, 
   3.567793080445458*^9, {3.567793116841773*^9, 3.5677931676882153`*^9}, {
   3.567793197824246*^9, 3.5677933023259974`*^9}, {3.5677933431517*^9, 
   3.567793398477824*^9}, 3.567794005711829*^9, 3.567794295239444*^9, 
   3.567795390603834*^9, 3.567795614852892*^9, 3.567798054907926*^9, 
   3.567840560594183*^9, 3.567840950478182*^9, 3.567849191667404*^9, 
   3.567854436217494*^9, 3.567854721713263*^9, 3.567856291326468*^9, 
   3.567857149690382*^9, 3.567858256211088*^9, 3.56785842368196*^9, 
   3.567859189944387*^9, 3.567868507701775*^9, 3.567868850834485*^9, 
   3.567868917086288*^9, 3.567878076980814*^9, 3.567881349550931*^9, 
   3.567928351673049*^9, 3.5679437345414133`*^9, 3.567962159573975*^9, 
   3.5679657979461737`*^9, 3.568008704333797*^9, 3.5680133928610497`*^9, 
   3.568017836311236*^9, 3.568019245888666*^9, 3.568021446825899*^9, 
   3.5680224770989943`*^9, 3.5680225415253897`*^9, 3.568022588488471*^9, 
   3.568023139395484*^9, 3.568024145990692*^9, 3.568030075351199*^9, {
   3.5680304222597237`*^9, 3.568030431983802*^9}, {3.568030512299317*^9, 
   3.568030600854724*^9}, 3.5680391724418583`*^9, 3.5680393113588457`*^9, 
   3.568039753971302*^9, 3.568040209535145*^9, 3.568040787941037*^9, {
   3.568040938580153*^9, 3.568040967955758*^9}, 3.568042032067238*^9, {
   3.56804206426556*^9, 3.568042167112204*^9}, 3.568043429358637*^9, {
   3.568043460158424*^9, 3.5680435458188343`*^9}, 3.568117915610593*^9, 
   3.568118700256095*^9, 3.5681236496845617`*^9, 3.5681247348848658`*^9, 
   3.568128759653884*^9, 3.5681297829717493`*^9, 3.568137869200735*^9, 
   3.5681379049914017`*^9, 3.568278788919651*^9, 3.5682910183243723`*^9, 
   3.5683116029403267`*^9, 3.568326712090106*^9, 3.5683714720413103`*^9, 
   3.5683725597337646`*^9, 3.568373399152424*^9, 3.568376608046867*^9, 
   3.5683770032875643`*^9, 3.5683778470226393`*^9, 3.5683796995896*^9, 
   3.568380239145207*^9, 3.568380301980115*^9, 3.5683804798978*^9, 
   3.568380910256996*^9, 3.568380962338278*^9, 3.568381863906979*^9, 
   3.568382130430347*^9, 3.5683828310846987`*^9, 3.568387546997312*^9, 
   3.568442763673929*^9, 3.568443007448782*^9, 3.5685496446963253`*^9, 
   3.5685496924453373`*^9, 3.56854981654214*^9, {3.568550435284265*^9, 
   3.5685504546084146`*^9}, 3.568551573341639*^9, 3.568552067633216*^9, 
   3.568552724605321*^9, 3.568554428941318*^9, 3.568554480154573*^9, 
   3.568557870449709*^9, 3.568558000516168*^9, 3.568558521989298*^9, 
   3.568558575197295*^9, 3.568558656822604*^9, {3.568558701903761*^9, 
   3.5685587143366127`*^9}, {3.568558744608556*^9, 3.5685587680990353`*^9}, 
   3.568559060959667*^9, 3.5685695000285797`*^9, 3.5685695899413557`*^9, 
   3.568614970247777*^9, 3.568650571953199*^9, 3.568714312366548*^9, 
   3.5687145984262953`*^9, 3.568720111955865*^9, 3.5687249397122097`*^9, 
   3.5687256175186787`*^9, 3.5687266279408092`*^9, 3.5687282402874928`*^9, 
   3.5687289952001057`*^9, 3.568732907025672*^9, 3.568734904730044*^9, 
   3.568737372186739*^9, 3.568739603803237*^9, 3.568741076206687*^9, 
   3.568742981304722*^9, 3.568744814008769*^9, 3.5687895835218287`*^9, 
   3.5687899482368593`*^9, 3.568790122361135*^9, 3.568799323668314*^9, 
   3.568891377204659*^9, 3.568907390220059*^9, 3.5689079481895638`*^9, 
   3.568908225295624*^9, 3.568908279475297*^9, 3.568908354840633*^9, 
   3.568909518939796*^9, 3.56897225347646*^9, 3.568973610844817*^9, 
   3.568974698268605*^9, 3.568976752587352*^9, 3.5689768590600023`*^9, 
   3.56897909913371*^9, 3.568979970205286*^9, 3.5689816184027*^9, 
   3.568986027001066*^9, 3.568986060947352*^9, 3.5689863331875772`*^9, {
   3.5689865103978243`*^9, 3.568986532145028*^9}, 3.569000125631181*^9, 
   3.569003065280773*^9, 3.5690469169414883`*^9, 3.573227246777916*^9, 
   3.5732272941337223`*^9, 3.5733797539574614`*^9, 3.57340208695973*^9, 
   3.573477898169668*^9, 3.5734926757680473`*^9, 3.573532427034615*^9, 
   3.573549045750205*^9, 3.573564428431945*^9, 3.573564740433896*^9, 
   3.573564819328168*^9, 3.573565350471363*^9, 3.573565636257374*^9, 
   3.573622520513926*^9, 3.573625838777923*^9, 3.573632894327231*^9, 
   3.5736352792656717`*^9, 3.5736355689462976`*^9, 3.5736356067009068`*^9, 
   3.573635726308124*^9, 3.5736378252368727`*^9, 3.573638326306798*^9, 
   3.573639384106863*^9, 3.5736395194166517`*^9, 3.573640333263608*^9, 
   3.573640899595523*^9, 3.573821081139483*^9, 3.573826742496944*^9, 
   3.573827844308058*^9, 3.573832243204248*^9, 3.573832822423065*^9, 
   3.573832877965708*^9, 3.573834956173483*^9, 3.573835146638023*^9, 
   3.573835456254442*^9, 3.573882844501423*^9, 3.573885442777525*^9, 
   3.573885820822378*^9, 3.573886147765378*^9, 3.5738866909054947`*^9, 
   3.573886965115164*^9, 3.573887384084947*^9, 3.5738889625506353`*^9, 
   3.57388939958619*^9, 3.573889540155826*^9, 3.573889649975958*^9, 
   3.57388975480733*^9, 3.5739851815585814`*^9, 3.573985890762444*^9, 
   3.573997977154726*^9, 3.573998049500903*^9, 3.573998608264618*^9, 
   3.573999045020587*^9, 3.573999509027608*^9, 3.574002666546327*^9, 
   3.574003003970152*^9, 3.5740049079183826`*^9, 3.574005203902176*^9, 
   3.574007389925487*^9, {3.574007479210187*^9, 3.57400750147547*^9}, 
   3.574008405405464*^9, 3.574008548848209*^9, 3.574061892826641*^9, 
   3.5740620108631077`*^9, 3.574064495261857*^9, 3.574064782705003*^9, 
   3.5740651103198223`*^9, 3.574065821751526*^9, 3.5740664885226603`*^9, 
   3.574066551634923*^9, 3.574067811383588*^9, 3.574068047218926*^9, 
   3.574069138545004*^9, 3.574069494737239*^9, 3.5740695543839607`*^9, 
   3.574083001221387*^9, 3.574083084166544*^9, 3.574248037272871*^9, 
   3.57425410398525*^9, 3.574258289718755*^9, 3.574501573556147*^9, 
   3.574502431663987*^9, 3.5745025071289873`*^9, 3.5750993653795767`*^9, 
   3.5753697952765093`*^9, 3.5753698484856157`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
dumber -  external with am[i] factors  - must do internal dumbing first  - \
normally unU0U first\
\>", "Subsection",
 CellChangeTimes->{{3.557654102048574*^9, 3.557654115809968*^9}, {
  3.566648783784586*^9, 3.566648807312286*^9}, {3.566665327839974*^9, 
  3.566665331072052*^9}, {3.566729064629129*^9, 3.566729073266926*^9}, {
  3.5668144630497513`*^9, 3.566814476143651*^9}, {3.566909674977538*^9, 
  3.566909681852619*^9}, {3.567681024089202*^9, 3.567681027551402*^9}},
 Background->RGBColor[0., 1., 1.]],

Cell[CellGroupData[{

Cell["external dumbing", "Subsubsection",
 CellChangeTimes->{{3.566729795833151*^9, 3.566729813278769*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"original", "=", "dumb"}], ";"}]], "Input",
 CellChangeTimes->{{3.573380204000592*^9, 3.5733802086855288`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "original", "]"}]], "Input",
 CellChangeTimes->{{3.566661879983769*^9, 3.5666618827184343`*^9}, {
  3.573380220813128*^9, 3.5733802218142223`*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.566661883383321*^9, 3.566663274586298*^9, 3.566663485833251*^9, 
   3.566664146602401*^9, 3.566665384383129*^9, 3.566665525557494*^9, 
   3.566665770481749*^9, 3.566666146238042*^9, 3.5666699867961206`*^9, 
   3.566671397071785*^9, 3.5666714462500353`*^9, 3.566671663033826*^9, 
   3.5667290175680923`*^9, 3.566729080255165*^9, 3.566729857785165*^9, 
   3.566730015243443*^9, 3.5667306439922447`*^9, 3.56673197552827*^9, 
   3.566733024099621*^9, 3.566733130949071*^9, 3.566803524532634*^9, 
   3.566803747359091*^9, 3.566804318121513*^9, 3.566804368593018*^9, 
   3.566804454450683*^9, 3.56680458438795*^9, 3.566804768262951*^9, 
   3.566804890780817*^9, 3.566808964268736*^9, {3.56680903333844*^9, 
   3.566809053744624*^9}, 3.566809333191051*^9, 3.566809535724762*^9, 
   3.566814580834456*^9, 3.5668147326466*^9, 3.566814806448656*^9, {
   3.566814893650392*^9, 3.566814905266448*^9}, 3.566820792763315*^9, {
   3.5668313684255867`*^9, 3.566831394353004*^9}, {3.566831483081534*^9, 
   3.566831509891968*^9}, {3.566831625987821*^9, 3.5668316680034857`*^9}, 
   3.566831705130665*^9, 3.566894867796019*^9, 3.5668949269799967`*^9, 
   3.566894969621997*^9, 3.566895026956093*^9, 3.566895067968824*^9, 
   3.566895139538217*^9, 3.566895207567667*^9, 3.566895366008222*^9, 
   3.566895450983342*^9, 3.566909357378251*^9, 3.566909422465455*^9, 
   3.566909453825531*^9, 3.566910618631363*^9, 3.5669108178120327`*^9, 
   3.566911878607542*^9, 3.566911917579113*^9, 3.566911952245839*^9, 
   3.5669121096141233`*^9, 3.566912198264141*^9, 3.5669123313833733`*^9, 
   3.56691237789082*^9, {3.566912918484374*^9, 3.566912969238451*^9}, 
   3.5669130014289217`*^9, {3.566913761850095*^9, 3.566913802790804*^9}, 
   3.5669358442714567`*^9, 3.5669361402960787`*^9, 3.5669362610481033`*^9, 
   3.567094957354166*^9, 3.567148840412376*^9, 3.567163643082274*^9, 
   3.567163862463273*^9, 3.567164000538856*^9, 3.5671642096732693`*^9, 
   3.567171365157584*^9, 3.5671714551668777`*^9, 3.567171538193411*^9, 
   3.567174407177911*^9, 3.567174497944509*^9, 3.56717453818904*^9, 
   3.5671746066361513`*^9, 3.56717493392601*^9, 3.567175054157197*^9, 
   3.56717594360467*^9, 3.567192338740361*^9, 3.567243813369096*^9, 
   3.567244288280981*^9, 3.567245583957446*^9, 3.567250954427556*^9, 
   3.5672533964968023`*^9, 3.5672535579323473`*^9, 3.567260313923129*^9, 
   3.56726058980241*^9, 3.567260779373746*^9, 3.567260817098241*^9, 
   3.567261068589864*^9, 3.567261621957222*^9, 3.567266716044269*^9, 
   3.5672673751205063`*^9, 3.56726749457786*^9, 3.567267834569232*^9, 
   3.567268572260841*^9, 3.567268675311842*^9, 3.56726879721454*^9, 
   3.567269008643525*^9, 3.567269226456959*^9, 3.5672755223678617`*^9, 
   3.5672759269299803`*^9, 3.567321261427907*^9, 3.567321779719645*^9, 
   3.567321862630831*^9, 3.5673224696379213`*^9, 3.567332793796159*^9, 
   3.567334642813134*^9, 3.5673407948953247`*^9, 3.567342081369864*^9, 
   3.567344036780409*^9, 3.567347136336549*^9, 3.5673483867951736`*^9, 
   3.567356966626954*^9, 3.567361737830242*^9, 3.56736242430973*^9, 
   3.567409192607679*^9, 3.567409358995*^9, 3.567411708864625*^9, 
   3.5674138175017633`*^9, 3.567414422335648*^9, 3.567414656556492*^9, {
   3.567414813788596*^9, 3.567414836611416*^9}, 3.567414958841312*^9, 
   3.567414994785825*^9, 3.567415084967917*^9, 3.5674151974765*^9, 
   3.567415386743341*^9, 3.567415559708549*^9, 3.567415994261495*^9, 
   3.567416217595009*^9, 3.567416251500284*^9, 3.567416935960636*^9, 
   3.567417173975162*^9, 3.567417567054244*^9, {3.5674181059430933`*^9, 
   3.5674181174604883`*^9}, {3.567418192213835*^9, 3.567418221173283*^9}, 
   3.567418320368401*^9, 3.567418381894342*^9, 3.567418708473105*^9, 
   3.567419219599864*^9, 3.567422002857823*^9, 3.567422276225906*^9, 
   3.5674225445234833`*^9, 3.567422589220809*^9, 3.567422623511495*^9, 
   3.567422898418467*^9, 3.567423029118927*^9, 3.567423276201661*^9, 
   3.5674233901918163`*^9, 3.5674241806342287`*^9, 3.567424249535932*^9, 
   3.567424944692137*^9, 3.567425662415409*^9, 3.567434267748065*^9, 
   3.567434526841696*^9, 3.5674361952117157`*^9, 3.567436783893985*^9, 
   3.5674368684199047`*^9, 3.567438579993155*^9, 3.567438683442184*^9, 
   3.5674438193421803`*^9, 3.567443907505198*^9, 3.56744486143226*^9, 
   3.56744633323988*^9, 3.5674480626912527`*^9, 3.567681020632036*^9, 
   3.567706474407336*^9, 3.56771664742132*^9, 3.567720902144182*^9, 
   3.567753501838756*^9, 3.567756849314372*^9, 3.567758270331748*^9, 
   3.567758541033639*^9, 3.567762899228655*^9, 3.567771355801268*^9, 
   3.5677738916948557`*^9, 3.567774098090452*^9, 3.567774527290942*^9, 
   3.567775151628469*^9, 3.567786189092696*^9, 3.567786299573091*^9, 
   3.567798071073819*^9, 3.5678405686798677`*^9, 3.567840960667017*^9, 
   3.56784919981878*^9, 3.567854449797455*^9, 3.56785609281634*^9, 
   3.56785629983652*^9, 3.567858303773252*^9, 3.567858431752914*^9, 
   3.567859190264929*^9, 3.5678689448072853`*^9, 3.567878087110408*^9, 
   3.567880227773185*^9, 3.567880300384467*^9, 3.567881203240967*^9, 
   3.567881356411306*^9, {3.5678813985311317`*^9, 3.567881417952861*^9}, 
   3.567881456567944*^9, 3.567927753538693*^9, 3.5679283850690327`*^9, 
   3.567930877886351*^9, 3.56793116701416*^9, 3.567931246982853*^9, 
   3.5679313668641663`*^9, 3.567934790857026*^9, 3.567939381955161*^9, 
   3.567939726832902*^9, 3.567943751032899*^9, 3.5679470195334377`*^9, 
   3.567949011037949*^9, 3.567949051650296*^9, 3.567949096417701*^9, 
   3.567949209313072*^9, 3.5679621731383123`*^9, 3.567962474630046*^9, 
   3.567965800457798*^9, 3.568008724103898*^9, 3.568013395261263*^9, 
   3.5680178387334538`*^9, 3.5680192542043133`*^9, 3.5680195965002527`*^9, 
   3.5680196749675217`*^9, 3.568021471386488*^9, 3.568022605045326*^9, 
   3.568023151166596*^9, 3.568024148589334*^9, {3.568030523364277*^9, 
   3.568030607259117*^9}, 3.568037724631405*^9, 3.568037783946919*^9, 
   3.568037832991868*^9, 3.568037935965992*^9, 3.568038054071906*^9, 
   3.568038204468502*^9, 3.56803966092752*^9, 3.568039762403562*^9, {
   3.568039800086605*^9, 3.568039828683577*^9}, 3.568040216114065*^9, 
   3.568040799964623*^9, {3.568040945287188*^9, 3.568040972622697*^9}, {
   3.568042042971661*^9, 3.568042172256826*^9}, {3.568043437832714*^9, 
   3.568043554305941*^9}, 3.56809340732661*^9, 3.5680938920770187`*^9, 
   3.5680961742325697`*^9, 3.568096465479744*^9, 3.568096523229323*^9, 
   3.5681025235873547`*^9, 3.56810281138486*^9, 3.56810308291765*^9, 
   3.568118037032485*^9, 3.5681184985141783`*^9, 3.568118734946766*^9, 
   3.56811962495793*^9, 3.5681237038835497`*^9, 3.5681247386493587`*^9, 
   3.568129806256793*^9, 3.5681379168258266`*^9, 3.5682788086687098`*^9, 
   3.568278855143495*^9, 3.568287722069709*^9, 3.568291018420155*^9, 
   3.5683116030561934`*^9, 3.568326712379373*^9, 3.568371478842619*^9, 
   3.56837256004222*^9, 3.5683733994816227`*^9, 3.5683766222428083`*^9, 
   3.568377012502026*^9, 3.5683778556413*^9, 3.568379710684102*^9, 
   3.568381894087853*^9, 3.568382140092453*^9, 3.568382831422514*^9, 
   3.568384506067973*^9, 3.5683875473255787`*^9, 3.568459507192555*^9, 
   3.568459599907247*^9, 3.568459799723563*^9, 3.5684598314417562`*^9, 
   3.5685496609045057`*^9, 3.568549829181672*^9, 3.5685499592256813`*^9, 
   3.5685500119723454`*^9, 3.5685504666179953`*^9, 3.5685505450479927`*^9, 
   3.568550708220292*^9, 3.5685515882557707`*^9, 3.5685520193665133`*^9, 
   3.568552195274448*^9, 3.568552736090303*^9, 3.568554494562715*^9, 
   3.568558021155602*^9, 3.5685590764889183`*^9, 3.5685695096643343`*^9, 
   3.5685695946998577`*^9, 3.568614983700737*^9, 3.568633027186367*^9, 
   3.568650581005631*^9, 3.568714325326331*^9, 3.568720124059792*^9, 
   3.568720179504599*^9, 3.568724951889592*^9, 3.56872563293399*^9, 
   3.5687266584562883`*^9, 3.568728256716393*^9, 3.5687290044184027`*^9, 
   3.568732916433799*^9, 3.568734911666239*^9, 3.568737392541382*^9, 
   3.568739607740814*^9, 3.568741076435046*^9, 3.568742981521059*^9, 
   3.568744814242738*^9, 3.568789971532362*^9, 3.568790128400289*^9, 
   3.568799337946979*^9, 3.568891386293275*^9, 3.5689074118374443`*^9, 
   3.568907948814151*^9, 3.56890823139438*^9, 3.568908287202385*^9, 
   3.568908355166572*^9, 3.5689095280666437`*^9, 3.568972285690035*^9, 
   3.5689736302072163`*^9, 3.568974707345213*^9, 3.568976884235305*^9, 
   3.568979117004212*^9, 3.568979995151473*^9, 3.568981628021377*^9, 
   3.568986271717099*^9, {3.568986521055173*^9, 3.568986538794961*^9}, 
   3.56900024939491*^9, 3.5690004139879723`*^9, 3.569003065520034*^9, 
   3.569046939695718*^9, 3.569047134151217*^9, 3.5729375184239807`*^9, 
   3.572938236375485*^9, 3.572940703977953*^9, 3.572961690469482*^9, 
   3.573028896565894*^9, 3.5731152036578283`*^9, 3.5731152773000927`*^9, 
   3.573195426685401*^9, 3.573196168956524*^9, 3.5731963688412952`*^9, 
   3.5732020185407124`*^9, 3.5732020739897833`*^9, 3.573202142434392*^9, 
   3.573203572530551*^9, 3.573203772334526*^9, 3.5732038061365*^9, 
   3.573208231821199*^9, 3.573208268347629*^9, 3.5732090647753563`*^9, {
   3.5732091096804953`*^9, 3.573209134107024*^9}, 3.573227334575521*^9, 
   3.573279121372682*^9, 3.573285696182922*^9, 3.57328575151686*^9, 
   3.573286217907569*^9, 3.573288716425932*^9, 3.5732892032945127`*^9, 
   3.573289563746704*^9, 3.573366627341049*^9, 3.573379761176578*^9, 
   3.573380170302981*^9, 3.573402121386928*^9, 3.573464786226376*^9, 
   3.5734650102630653`*^9, 3.573465153475239*^9, 3.573477770462659*^9, 
   3.5734779225394697`*^9, 3.573482655781261*^9, 3.57348940409962*^9, 
   3.5734923240844717`*^9, 3.573492625522175*^9, 3.573492691468987*^9, 
   3.5734940116608458`*^9, 3.573502632985183*^9, 3.573532427292673*^9, 
   3.573537019859638*^9, 3.573540745470882*^9, 3.5735487422979393`*^9, 
   3.573549061307581*^9, 3.573551198652215*^9, 3.573551236497925*^9, 
   3.573551383928191*^9, 3.573558583452046*^9, 3.573559048512002*^9, 
   3.573564454665394*^9, 3.5735647575192947`*^9, 3.573564826819427*^9, 
   3.573565356727463*^9, 3.5735656429055443`*^9, 3.573622535507019*^9, 
   3.573625700563274*^9, 3.573625858054768*^9, 3.573632908181714*^9, 
   3.573635221013702*^9, 3.573635349894705*^9, 3.573635620935821*^9, 
   3.5736357365865583`*^9, 3.573638354056892*^9, 3.573639408142487*^9, 
   3.573639529607025*^9, 3.5736402228887043`*^9, 3.57364037558025*^9, 
   3.573640925243758*^9, 3.5738209472967787`*^9, 3.573821005017333*^9, 
   3.573821035541604*^9, 3.573821091354763*^9, 3.5738267689610653`*^9, 
   3.573827635390254*^9, 3.573827855821068*^9, 3.5738322648601713`*^9, 
   3.573832844039937*^9, 3.5738328920118923`*^9, 3.5738349734590187`*^9, 
   3.573835155053505*^9, 3.57383546468078*^9, {3.573882709409109*^9, 
   3.5738827293731327`*^9}, 3.5738827846857967`*^9, 3.573882857832673*^9, 
   3.573883026678913*^9, 3.57388312072005*^9, {3.573883412934153*^9, 
   3.573883433049633*^9}, 3.573883911778694*^9, 3.5738854510712957`*^9, 
   3.573885829545627*^9, 3.57388615372928*^9, 3.5738866998154984`*^9, 
   3.573886990861042*^9, 3.573887403837631*^9, 3.573888836143931*^9, 
   3.5738889702010107`*^9, 3.573889409148631*^9, 3.5738895499965057`*^9, 
   3.573889656042172*^9, 3.5738897636152678`*^9, 3.573978821645155*^9, 
   3.573980088500573*^9, 3.573985203117979*^9, 3.5739859036176167`*^9, 
   3.573998071402897*^9, 3.573998613542832*^9, 3.5739990459070272`*^9, 
   3.5739995126118183`*^9, 3.574002691462118*^9, 3.574003010607621*^9, 
   3.5740049148080473`*^9, 3.5740052041405287`*^9, 3.574007415982382*^9, 
   3.574007511794677*^9, 3.574008415286192*^9, 3.574008564539153*^9, 
   3.5740086255395193`*^9, 3.574061916771853*^9, 3.5740620171485853`*^9, 
   3.574064499267023*^9, 3.574064786868842*^9, 3.574065112787725*^9, 
   3.5740665005015793`*^9, 3.574066554178309*^9, 3.574067818927616*^9, 
   3.574068051459221*^9, 3.574069143074801*^9, 3.5740695029699183`*^9, 
   3.5740695604041348`*^9, 3.574083010022162*^9, 3.574083087951459*^9, 
   3.5741647663539543`*^9, 3.574164868786243*^9, 3.5741649353777943`*^9, 
   3.574165278873423*^9, 3.574165317720598*^9, 3.574248070519994*^9, 
   3.574253775248117*^9, 3.574254137232069*^9, 3.574254661659487*^9, 
   3.574254694646119*^9, 3.574258175217641*^9, 3.574258265487241*^9, 
   3.574258305370982*^9, 3.574494444383292*^9, 3.574494801583931*^9, 
   3.574496256579167*^9, 3.574497839892173*^9, 3.574497878406352*^9, 
   3.574501607723014*^9, 3.5745023877331343`*^9, 3.57450244094215*^9, 
   3.574502520815322*^9, 3.57509936543589*^9, 3.575359846321478*^9, 
   3.5753599314546022`*^9, 3.575362854763138*^9, 3.575370316435376*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dumb", "=", 
   RowBox[{"delExternal", "[", 
    RowBox[{"shifterM", "[", "dumb", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.568384476839436*^9, 3.5683844951064787`*^9}, {
   3.5684599808890343`*^9, 3.568459985710285*^9}, {3.568550767770214*^9, 
   3.568550779970408*^9}, {3.5685515389904957`*^9, 3.568551545199275*^9}, 
   3.568551609903275*^9, 3.568552024841609*^9, {3.573821101828473*^9, 
   3.5738211037828827`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"dumVars", "=", 
  RowBox[{"Intersection", "[", 
   RowBox[{"dumVEC", ",", 
    RowBox[{"varlookFunction", "[", "dumb", "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"extVars", "=", 
  RowBox[{"Intersection", "[", 
   RowBox[{"extVAR", ",", 
    RowBox[{"varlookFunction", "[", "dumb", "]"}]}], "]"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"zum1", ",", "zum2", ",", "zum3", ",", "zum4"}], "}"}]], "Output",
 CellChangeTimes->{3.575370316451433*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]], "Output",
 CellChangeTimes->{3.575370316453396*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "dumVars", "]"}], "<", "8"}], ",", 
    RowBox[{"permsD", "=", 
     RowBox[{"Permutations", "[", "dumVars", "]"}]}], ",", 
    RowBox[{"permsD", "=", 
     RowBox[{"{", 
      RowBox[{"{", "}"}], "}"}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.566453553217484*^9, 3.566453559447385*^9}, {
   3.566453607840562*^9, 3.56645360951645*^9}, {3.566454166781165*^9, 
   3.566454186954534*^9}, {3.56645596295844*^9, 3.566455963262384*^9}, {
   3.566809326223421*^9, 3.566809377861314*^9}, {3.566814644293037*^9, 
   3.56681464504319*^9}, {3.566816050682867*^9, 3.566816127193119*^9}, 
   3.573203743730926*^9, 3.573208225932626*^9, {3.5732083084057426`*^9, 
   3.5732083109212008`*^9}, {3.573209128920536*^9, 3.573209128990717*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abXcdXefgh"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abXcdXef"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abXefXgh"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abcXefg"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abXefgh"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abXcd"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abXcdef"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abcdXef"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "abcdXefgh"}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{"symtype", "\[Equal]", "none"}], ")"}]}], ",", ",", ",", "\n", 
    RowBox[{
     RowBox[{"permsE", "=", 
      RowBox[{"Permutations", "[", "extVars", "]"}]}], ";", "\n", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"AppendTo", "[", 
          RowBox[{"perms", ",", 
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"permsD", "[", 
                RowBox[{"[", "ii", "]"}], "]"}], ",", 
               RowBox[{"permsE", "[", 
                RowBox[{"[", "jj", "]"}], "]"}]}], "}"}], ",", "1"}], "]"}]}],
           "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"ii", ",", "1", ",", 
           RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.567930942215261*^9, 3.567931116737677*^9}, {
  3.568459671083849*^9, 3.568459675890674*^9}, {3.5685579374240513`*^9, 
  3.5685579421721077`*^9}, {3.56898625590563*^9, 3.568986262560339*^9}, {
  3.5689864530232763`*^9, 3.568986494846397*^9}, {3.569000159627461*^9, 
  3.569000166466855*^9}, {3.569002217967744*^9, 3.56900222281568*^9}, {
  3.569045125319563*^9, 3.569045131018997*^9}, {3.573558545566702*^9, 
  3.573558553502694*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "none"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"perms", "=", "permsD"}], ";", "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.568459689254346*^9, 3.568459692930544*^9}, {
  3.5684597546383953`*^9, 3.568459757134552*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abXcd"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"c", ",", "d"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"AppendTo", "[", 
            RowBox[{"perms", ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"permsD", "[", 
                  RowBox[{"[", "ii", "]"}], "]"}], ",", 
                 RowBox[{"permsE1", "[", 
                  RowBox[{"[", "jj", "]"}], "]"}], ",", 
                 RowBox[{"permsE2", "[", 
                  RowBox[{"[", "kk", "]"}], "]"}]}], "}"}], ",", "1"}], 
              "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", 
             RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", 
           RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.566809407254231*^9, 3.566809498826333*^9}, 
   3.566809530112307*^9, {3.566814637261352*^9, 3.566814657005623*^9}, {
   3.566814696324987*^9, 3.566814696856431*^9}, {3.566814851603799*^9, 
   3.5668148777430573`*^9}, {3.566894957043298*^9, 3.566894957583254*^9}, {
   3.566895123787919*^9, 3.566895124447399*^9}, {3.567413653304565*^9, 
   3.567413661995047*^9}, {3.5739160842644567`*^9, 3.573916085434122*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abXcdef"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"AppendTo", "[", 
            RowBox[{"perms", ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"permsD", "[", 
                  RowBox[{"[", "ii", "]"}], "]"}], ",", 
                 RowBox[{"permsE1", "[", 
                  RowBox[{"[", "jj", "]"}], "]"}], ",", 
                 RowBox[{"permsE2", "[", 
                  RowBox[{"[", "kk", "]"}], "]"}]}], "}"}], ",", "1"}], 
              "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", 
             RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", 
           RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.566814650379273*^9, 3.566814651104661*^9}, {
  3.566814692324711*^9, 3.566814692753738*^9}, {3.5668148160655403`*^9, 
  3.566814846312169*^9}, {3.566814883374917*^9, 3.5668148836486692`*^9}, {
  3.566894961055441*^9, 3.566894961534305*^9}, {3.566895128423588*^9, 
  3.566895129053454*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abXefXgh"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"e", ",", "f"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE3", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"g", ",", "h"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"Do", "[", 
            RowBox[{
             RowBox[{"AppendTo", "[", 
              RowBox[{"perms", ",", 
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"permsD", "[", 
                    RowBox[{"[", "ii", "]"}], "]"}], ",", 
                   RowBox[{"permsE1", "[", 
                    RowBox[{"[", "jj", "]"}], "]"}], ",", 
                   RowBox[{"permsE2", "[", 
                    RowBox[{"[", "kk", "]"}], "]"}], ",", 
                   RowBox[{"permsE3", "[", 
                    RowBox[{"[", "hh", "]"}], "]"}]}], "}"}], ",", "1"}], 
                "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"ii", ",", "1", ",", 
               RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
           
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"kk", ",", "1", ",", 
           RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"hh", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE3", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.569000182384692*^9, 3.569000236678586*^9}, 
   3.569000370587256*^9, {3.569002200658881*^9, 3.569002212662702*^9}, {
   3.5690450511506557`*^9, 3.569045072541677*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abXcdXefgh"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"c", ",", "d"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE3", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"Do", "[", 
            RowBox[{
             RowBox[{"AppendTo", "[", 
              RowBox[{"perms", ",", 
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"permsD", "[", 
                    RowBox[{"[", "ii", "]"}], "]"}], ",", 
                   RowBox[{"permsE1", "[", 
                    RowBox[{"[", "jj", "]"}], "]"}], ",", 
                   RowBox[{"permsE2", "[", 
                    RowBox[{"[", "kk", "]"}], "]"}], ",", 
                   RowBox[{"permsE3", "[", 
                    RowBox[{"[", "hh", "]"}], "]"}]}], "}"}], ",", "1"}], 
                "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"ii", ",", "1", ",", 
               RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
           
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"kk", ",", "1", ",", 
           RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"hh", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE3", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5735584992167187`*^9, 3.573558518447847*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abXcdXef"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"c", ",", "d"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE3", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"e", ",", "f"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"Do", "[", 
            RowBox[{
             RowBox[{"AppendTo", "[", 
              RowBox[{"perms", ",", 
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"permsD", "[", 
                    RowBox[{"[", "ii", "]"}], "]"}], ",", 
                   RowBox[{"permsE1", "[", 
                    RowBox[{"[", "jj", "]"}], "]"}], ",", 
                   RowBox[{"permsE2", "[", 
                    RowBox[{"[", "kk", "]"}], "]"}], ",", 
                   RowBox[{"permsE3", "[", 
                    RowBox[{"[", "hh", "]"}], "]"}]}], "}"}], ",", "1"}], 
                "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"ii", ",", "1", ",", 
               RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
           
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", 
             RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"kk", ",", "1", ",", 
           RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"hh", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE3", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.569045100849763*^9, 3.56904511059142*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abXefgh"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"AppendTo", "[", 
            RowBox[{"perms", ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"permsD", "[", 
                  RowBox[{"[", "ii", "]"}], "]"}], ",", 
                 RowBox[{"permsE1", "[", 
                  RowBox[{"[", "jj", "]"}], "]"}], ",", 
                 RowBox[{"permsE2", "[", 
                  RowBox[{"[", "kk", "]"}], "]"}]}], "}"}], ",", "1"}], 
              "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", 
             RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", 
           RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5689862323847513`*^9, 3.56898624656304*^9}, {
  3.5689864252063217`*^9, 3.5689864307765713`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abcXefg"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"e", ",", "f", ",", "g"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"AppendTo", "[", 
            RowBox[{"perms", ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"permsD", "[", 
                  RowBox[{"[", "ii", "]"}], "]"}], ",", 
                 RowBox[{"permsE1", "[", 
                  RowBox[{"[", "jj", "]"}], "]"}], ",", 
                 RowBox[{"permsE2", "[", 
                  RowBox[{"[", "kk", "]"}], "]"}]}], "}"}], ",", "1"}], 
              "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", 
             RowBox[{"Length", "[", "permsD", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", 
           RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5689864409836807`*^9, 3.568986448900321*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abcdXef"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"e", ",", "f"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"perms", ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"permsD", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], ",", 
             RowBox[{"permsE1", "[", 
              RowBox[{"[", "jj", "]"}], "]"}], ",", 
             RowBox[{"permsE2", "[", 
              RowBox[{"[", "kk", "]"}], "]"}]}], "}"}], ",", "1"}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "permsD", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5732089657915773`*^9, 3.5732089842259007`*^9}}],

Cell["\<\
If[symtype == abcdXef,
  count = 0;
  permsE1 = Permutations[{a, b, c, d}];
  permsE2 = Permutations[{e, f}];
  permsE2 = {{}};
  perms = {};
  Do[count = count + 1;
   If[count/1000 \[Element] Integers, \
Print[N[count/(Length[permsD]*Length[permsE1]*Length[permsE2]), 3]]];
   AppendTo[perms, Flatten[{permsD[[ii]], permsE1[[jj]], permsE2[[kk]]}, 1]], \
{ii, 1, Length[permsD]}, {jj, 1, Length[permsE1]}, {kk, 1, Length[permsE2]}];
  vartot = Length[perms[[1]]]];\
\>", "Text",
 CellChangeTimes->{{3.568557954626565*^9, 3.568557965361766*^9}, {
   3.573208582354677*^9, 3.573208731798053*^9}, {3.573208803953939*^9, 
   3.5732088283214073`*^9}, {3.5732088904799433`*^9, 3.573208905205681*^9}, 
   3.573208999859415*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tstart", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"symtype", "\[Equal]", "abcdXefgh"}], ",", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"permsE1", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"permsE2", "=", 
      RowBox[{"Permutations", "[", 
       RowBox[{"{", 
        RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"perms", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"AppendTo", "[", 
         RowBox[{"perms", ",", 
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"permsD", "[", 
               RowBox[{"[", "ii", "]"}], "]"}], ",", 
              RowBox[{"permsE1", "[", 
               RowBox[{"[", "jj", "]"}], "]"}], ",", 
              RowBox[{"permsE2", "[", 
               RowBox[{"[", "kk", "]"}], "]"}]}], "}"}], ",", "1"}], "]"}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Length", "[", "perms", "]"}], "/", "10000"}], 
           "\[Element]", "Integers"}], ",", 
          RowBox[{"Print", "[", 
           RowBox[{"N", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", "perms", "]"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"6", "!"}], "*", 
                RowBox[{"4", "!"}], "*", 
                RowBox[{"4", "!"}]}], ")"}]}], ",", "3"}], "]"}], "]"}]}], 
         "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", 
         RowBox[{"Length", "[", "permsD", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE1", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", 
         RowBox[{"Length", "[", "permsE2", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vartot", "=", 
      RowBox[{"Length", "[", 
       RowBox[{"perms", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<total time is\>\"", ",", 
        RowBox[{"N", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"AbsoluteTime", "[", "]"}], "-", "tstart"}], ")"}], "/", 
           "60"}], ",", "3"}], "]"}]}], "}"}], "]"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5671754016706553`*^9, 3.567175413583323*^9}, {
   3.573498189626392*^9, 3.573498264815752*^9}, {3.573498298265029*^9, 
   3.5734984688492823`*^9}, {3.5735370339629173`*^9, 3.573537038661931*^9}, {
   3.573991161485507*^9, 3.57399120166503*^9}, 3.574061944274507*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "perms", "]"}], ",", "vartot", ",", 
   RowBox[{"Length", "[", "dumb", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.573029236013445*^9, 3.5730292390406027`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"576", ",", "8", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.566814893945367*^9, 3.5668149055696898`*^9}, 
   3.566820792995483*^9, {3.566831368791726*^9, 3.566831394803863*^9}, {
   3.566831483465753*^9, 3.566831510353601*^9}, {3.566831626169877*^9, 
   3.5668316682547894`*^9}, 3.566831705505567*^9, 3.5668948680374928`*^9, 
   3.566894927211711*^9, 3.5668949698391447`*^9, 3.5668950271830997`*^9, 
   3.5668950681941967`*^9, 3.566895139734906*^9, 3.5668952077566767`*^9, 
   3.56689536620138*^9, 3.566895451206213*^9, 3.566909423098094*^9, 
   3.5669094544249268`*^9, 3.566910619350196*^9, 3.566910818392418*^9, 
   3.566911879188562*^9, 3.566911918176196*^9, 3.56691195276022*^9, 
   3.5669121101409893`*^9, 3.56691219887505*^9, 3.566912331959477*^9, 
   3.5669123784838657`*^9, {3.566912918702449*^9, 3.56691296948393*^9}, 
   3.5669130016510487`*^9, {3.5669137620651073`*^9, 3.566913803020204*^9}, 
   3.566935844932246*^9, 3.566936140544425*^9, 3.5669362616140423`*^9, 
   3.567094982483304*^9, 3.5671488635294733`*^9, 3.567163643665494*^9, 
   3.567163862979782*^9, 3.5671640011095552`*^9, 3.567164210138462*^9, 
   3.567171365663813*^9, 3.5671714557298803`*^9, 3.5671715386547422`*^9, 
   3.567174407368685*^9, 3.567174498138772*^9, 3.5671745384118977`*^9, 
   3.567174606844247*^9, 3.567174934153019*^9, 3.567175054632718*^9, 
   3.567175979061356*^9, 3.5671923392513742`*^9, 3.5672438140593243`*^9, 
   3.567244288836248*^9, 3.567245584549138*^9, 3.5672509546702623`*^9, 
   3.5672533971366863`*^9, 3.567253558152195*^9, 3.5672603146069*^9, 
   3.567260590539999*^9, 3.567260779607957*^9, 3.567260817691002*^9, 
   3.567261068809375*^9, 3.567261622465332*^9, 3.5672667162875338`*^9, 
   3.5672673756423817`*^9, 3.567267495109548*^9, 3.5672678348774347`*^9, 
   3.5672685727974567`*^9, 3.5672686758463793`*^9, 3.5672687974166813`*^9, 
   3.5672690088735933`*^9, 3.567269226696659*^9, 3.567275522972411*^9, 
   3.5672759275397778`*^9, 3.567321261630478*^9, 3.567321779963378*^9, 
   3.567321862841065*^9, 3.567322469966716*^9, 3.567332794008278*^9, 
   3.567334643023013*^9, 3.567340795756217*^9, 3.567342082225769*^9, 
   3.5673440376143103`*^9, 3.5673471372054462`*^9, 3.567348387111472*^9, 
   3.5673569675305223`*^9, 3.567361738722227*^9, 3.567362425315063*^9, 
   3.567409193059148*^9, 3.567409359496364*^9, 3.5674117096616783`*^9, 
   3.5674138177741957`*^9, 3.567414422531743*^9, 3.567414656767761*^9, {
   3.56741481393054*^9, 3.5674148368178473`*^9}, 3.56741495903859*^9, 
   3.5674149949998207`*^9, 3.5674150852019033`*^9, 3.567415197979994*^9, 
   3.567415387505241*^9, 3.567415560573086*^9, 3.567415994505535*^9, 
   3.567416217751835*^9, 3.567416251702298*^9, 3.567416936167612*^9, 
   3.567417174207671*^9, 3.5674175676269093`*^9, {3.567418106207353*^9, 
   3.5674181176558247`*^9}, {3.5674181924095078`*^9, 3.567418221366816*^9}, 
   3.567418320566091*^9, 3.567418382125876*^9, 3.567418708669351*^9, 
   3.567419220179275*^9, 3.5674220212756023`*^9, 3.567422276728586*^9, 
   3.567422544686235*^9, 3.567422589416939*^9, 3.5674226237186728`*^9, 
   3.567422898942384*^9, 3.5674230297973223`*^9, 3.567423276717338*^9, 
   3.567423390678811*^9, 3.567424181302907*^9, 3.567424250031184*^9, 
   3.567424945087001*^9, 3.567425662783989*^9, 3.5674342682552853`*^9, 
   3.567434527231086*^9, 3.567436195407711*^9, 3.5674367841045103`*^9, 
   3.567436868632616*^9, 3.5674385801466103`*^9, 3.567438683641797*^9, 
   3.567443819524362*^9, 3.567443908440859*^9, 3.567444861634739*^9, 
   3.567446333385405*^9, 3.567448062878953*^9, 3.567681020909878*^9, 
   3.5677064747674713`*^9, 3.567716674415749*^9, 3.567720911559737*^9, 
   3.5677535027312603`*^9, 3.567756849600588*^9, 3.567758270872068*^9, 
   3.567758541886001*^9, 3.567762899899794*^9, 3.567771356454605*^9, 
   3.567773892374737*^9, 3.567774099006645*^9, 3.567774528232256*^9, 
   3.567775152568919*^9, 3.5677861897264957`*^9, 3.5677863001458406`*^9, 
   3.567798071776003*^9, 3.567840569476346*^9, 3.5678409613751297`*^9, 
   3.5678492005082493`*^9, 3.567854450470523*^9, 3.56785609351607*^9, 
   3.567856300532432*^9, 3.567858304043441*^9, 3.567858432036943*^9, 
   3.5678591904536953`*^9, 3.567868945061192*^9, 3.567878087353076*^9, 
   3.5678802298575897`*^9, 3.567880302158462*^9, 3.567881205336342*^9, 
   3.567881356985076*^9, {3.567881400329136*^9, 3.567881419871332*^9}, 
   3.5678814584718103`*^9, 3.567927754154666*^9, 3.567928385277275*^9, 
   3.567931168671885*^9, 3.567931262861382*^9, 3.56793136851956*^9, 
   3.567934792606702*^9, 3.567939383536729*^9, 3.56793972844353*^9, 
   3.567943751213994*^9, 3.567949096624104*^9, 3.5679492098484898`*^9, 
   3.5679621738557787`*^9, 3.5679624748491173`*^9, 3.567965801236211*^9, 
   3.568008724856215*^9, 3.5680133960415287`*^9, 3.5680178394747477`*^9, 
   3.5680192544273376`*^9, 3.5680195967030573`*^9, 3.568019675162806*^9, 
   3.568021471615467*^9, 3.568022605251302*^9, 3.5680231513128757`*^9, 
   3.5680241496418657`*^9, {3.568030523602339*^9, 3.568030607451549*^9}, 
   3.5680377248647547`*^9, 3.5680377841887417`*^9, 3.5680378332528343`*^9, 
   3.568037936210334*^9, 3.568038054344946*^9, 3.568038204694303*^9, 
   3.568039661148765*^9, 3.568039762626449*^9, {3.5680398003928633`*^9, 
   3.5680398289059467`*^9}, 3.568040216310861*^9, 3.568040800218876*^9, {
   3.5680409454873533`*^9, 3.568040972834786*^9}, {3.568042043209659*^9, 
   3.568042172500342*^9}, {3.568043438093186*^9, 3.568043554518525*^9}, 
   3.568093407595685*^9, 3.568093892300507*^9, 3.5680961745250893`*^9, 
   3.5680964657553253`*^9, 3.568096523438486*^9, 3.5681025239769573`*^9, 
   3.5681028118947983`*^9, 3.568103083346335*^9, 3.568118045935917*^9, 
   3.5681185061499767`*^9, 3.568118735872067*^9, 3.568119625857005*^9, 
   3.568123704797287*^9, 3.568124739806094*^9, 3.56812980661101*^9, 
   3.568137917576666*^9, 3.568278809338231*^9, 3.568278855696042*^9, 
   3.568287723122357*^9, 3.568291020188263*^9, 3.568311606464819*^9, 
   3.568326713478178*^9, 3.568371479215128*^9, 3.568372560608634*^9, 
   3.568373399997944*^9, 3.5683766225237713`*^9, 3.568377012800579*^9, 
   3.568377855953802*^9, 3.568379711028858*^9, 3.568381894308158*^9, 
   3.568382140284919*^9, 3.568382831986353*^9, 3.568384506869214*^9, 
   3.5683875480281477`*^9, 3.5684595087454576`*^9, 3.568460017089033*^9, 
   3.568549661466496*^9, 3.5685498309480543`*^9, 3.56855001279431*^9, 
   3.56855046830658*^9, 3.568550579572547*^9, 3.568550710231422*^9, 
   3.568551588630822*^9, 3.568552195531653*^9, 3.568552736343444*^9, 
   3.568554494776836*^9, 3.568558021471776*^9, 3.5685590769418087`*^9, 
   3.5685695098831463`*^9, 3.568569594894854*^9, 3.568614984539732*^9, 
   3.568633236405678*^9, 3.56865058146797*^9, 3.568714325604866*^9, 
   3.5687201810330772`*^9, 3.568724952422171*^9, 3.568725633290085*^9, 
   3.568726659012328*^9, 3.568728257248188*^9, 3.568729004931098*^9, 
   3.568732917726569*^9, 3.568734912272717*^9, 3.568737410790635*^9, 
   3.5687396099139338`*^9, 3.568741103842383*^9, 3.568743008587041*^9, 
   3.568744827942151*^9, 3.568789972026412*^9, 3.568790129208337*^9, 
   3.5687993430293903`*^9, 3.568891386647273*^9, 3.568907412844611*^9, 
   3.5689079519682417`*^9, 3.5689082325103703`*^9, 3.568908287688261*^9, 
   3.5689083684861927`*^9, 3.56890952865818*^9, 3.568972287186483*^9, 
   3.568973632758912*^9, 3.5689747078682632`*^9, 3.5689768844702263`*^9, 
   3.568979117930297*^9, 3.5689799962583637`*^9, 3.568981628270564*^9, 
   3.568986272014523*^9, {3.568986521350437*^9, 3.5689865390443907`*^9}, 
   3.569000249645957*^9, 3.569000414234927*^9, 3.5690030661923723`*^9, 
   3.569046939999915*^9, 3.569047134543852*^9, 3.572937518697362*^9, 
   3.5729382366413918`*^9, 3.572940705431116*^9, 3.5729616907727537`*^9, 
   3.5730291226958303`*^9, {3.5730292171827*^9, 3.573029239875173*^9}, 
   3.5731152041412287`*^9, 3.573115277553884*^9, 3.573195426916037*^9, 
   3.5731961692394037`*^9, 3.573196396651534*^9, 3.5732020188212852`*^9, 
   3.573202074266427*^9, 3.57320221055724*^9, 3.573203572832533*^9, {
   3.573209110078971*^9, 3.573209134882555*^9}, 3.573227335216825*^9, 
   3.5732791217951603`*^9, 3.573285696914937*^9, 3.573285955370989*^9, 
   3.573286218467231*^9, 3.573288908542889*^9, 3.5732894032982283`*^9, 
   3.573289564467184*^9, 3.573366627678946*^9, 3.573379761489489*^9, 
   3.573380170661422*^9, 3.5734021219782*^9, 3.573464786481213*^9, 
   3.5734650108108587`*^9, 3.573465153753873*^9, 3.5734777707084084`*^9, 
   3.573477922781001*^9, 3.573482656056938*^9, 3.57348978993985*^9, 
   3.573492326078714*^9, 3.573492626073702*^9, 3.573492692118688*^9, 
   3.573498160437278*^9, 3.573498283777042*^9, 3.573498315083243*^9, 
   3.573530014074868*^9, 3.5735324321100063`*^9, 3.57353702054423*^9, 
   3.573540745854398*^9, 3.57354877555798*^9, 3.573549061662259*^9, 
   3.573551198922483*^9, 3.573551236809431*^9, 3.573551384673872*^9, 
   3.573564455023411*^9, 3.5735647591101503`*^9, 3.573564827260714*^9, 
   3.573565358047779*^9, 3.573565644427388*^9, 3.57362253714554*^9, 
   3.5736258595175323`*^9, 3.573632911725905*^9, 3.573635351661064*^9, 
   3.5736356231901712`*^9, 3.573635737239221*^9, 3.573638355305825*^9, 
   3.57363940849891*^9, 3.5736395298878727`*^9, 3.573640224425974*^9, 
   3.5736403758803988`*^9, 3.573640925603992*^9, 3.573820947718521*^9, 
   3.573821005328257*^9, 3.573821091693853*^9, 3.573826769707027*^9, 
   3.573827638792111*^9, 3.5738278565335083`*^9, 3.573832265193758*^9, 
   3.573832844341299*^9, 3.573832892296184*^9, 3.5738349740064507`*^9, 
   3.573835155647637*^9, 3.573835469753574*^9, {3.5738827097442083`*^9, 
   3.573882729664937*^9}, 3.573882785060616*^9, 3.57388285814832*^9, 
   3.5738830271836042`*^9, 3.573883122705118*^9, {3.573883413504677*^9, 
   3.573883433665469*^9}, 3.573883912447813*^9, 3.573885451678102*^9, 
   3.573885829815701*^9, 3.573886154021246*^9, 3.573886700464704*^9, 
   3.573886997194661*^9, 3.573887407544364*^9, 3.5738888368564177`*^9, 
   3.573888970460657*^9, 3.573889409840247*^9, 3.573889550688717*^9, 
   3.573889656626195*^9, 3.573889766834483*^9, 3.573979020218418*^9, 
   3.573980292602995*^9, 3.573985204701211*^9, 3.573985905361533*^9, 
   3.573998072671649*^9, 3.573998614878109*^9, 3.573999049469298*^9, 
   3.57399951510991*^9, 3.574002692028315*^9, 3.574003011167317*^9, 
   3.574004917177746*^9, 3.574005206058366*^9, 3.5740074163993397`*^9, 
   3.574007512094358*^9, 3.574008415859016*^9, 3.574008565666224*^9, 
   3.5740086262966623`*^9, 3.574061917904498*^9, 3.574062018306076*^9, 
   3.57406450038835*^9, 3.574064787812668*^9, 3.574065113632309*^9, 
   3.574066501440874*^9, 3.574066555422634*^9, 3.5740678192673607`*^9, 
   3.574068051944504*^9, 3.574069143541541*^9, 3.574069504279023*^9, 
   3.574069561711269*^9, 3.574083010358644*^9, 3.574083088468032*^9, 
   3.574164766593099*^9, 3.574164869115306*^9, 3.574164935718454*^9, 
   3.5741652798500147`*^9, 3.574165318648494*^9, 3.5742480726927757`*^9, 
   3.574253776194111*^9, 3.574254137500458*^9, 3.574254662302206*^9, 
   3.574254694926476*^9, 3.574258175520335*^9, 3.574258265769459*^9, 
   3.574258305665056*^9, 3.574494539130416*^9, 3.574494813126358*^9, 
   3.574496354991599*^9, 3.574497891843457*^9, 3.574501620871138*^9, 
   3.574502441528989*^9, 3.574502531387199*^9, 3.575099365627351*^9, 
   3.575359846763612*^9, 3.575359931800254*^9, 3.575362855130986*^9, 
   3.575370316809499*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"jj", ",", "kk", ",", "nn", ",", "mm", ",", "save", ",", "fac"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"fac", "[", "ii", "]"}], "=", "1"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "dumb", "]"}]}], "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"chVec", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"nBreak", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"DateString", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tstart", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"save", "=", 
   RowBox[{"{", 
    RowBox[{"dumb", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Do", "[", "\n", 
   RowBox[{"(*", " ", 
    RowBox[{
    "kk", " ", "is", " ", "the", " ", "loop", " ", "over", " ", "all", " ", 
     "permutations"}], " ", "*)"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"Do", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"doperm", "=", 
         RowBox[{"{", "}"}]}], ";", "\n", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{"AppendTo", "[", 
           RowBox[{"doperm", ",", 
            RowBox[{
             RowBox[{"perms", "[", 
              RowBox[{"[", 
               RowBox[{"kk", ",", "mm"}], "]"}], "]"}], "\[Rule]", 
             RowBox[{"perms", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "mm"}], "]"}], "]"}]}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"mm", ",", "1", ",", "vartot"}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"newthing", "=", 
         RowBox[{"orderFunction", "[", 
          RowBox[{
           RowBox[{"dumb", "[", 
            RowBox[{"[", "jj", "]"}], "]"}], "/.", "doperm"}], "]"}]}], ";", 
        "\n", 
        RowBox[{"(*", " ", 
         RowBox[{
         "nn", " ", "is", " ", "the", " ", "loop", " ", "over", " ", "all", 
          " ", "terms", " ", "in", " ", "save"}], " ", "*)"}], "\n", 
        RowBox[{"count", "=", "0"}], ";", "\n", 
        RowBox[{"Do", "[", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"save", "[", 
               RowBox[{"[", 
                RowBox[{"1", "+", 
                 RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
               "]"}], "\[Equal]", "0"}], ",", 
             RowBox[{"Goto", "[", "next", "]"}]}], "]"}], ";", "\n", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Head", "[", 
                 RowBox[{
                  RowBox[{"save", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", "+", 
                    RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                   "]"}], "/", "newthing"}], "]"}], "\[Equal]", "Integer"}], 
               ")"}], "||", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Head", "[", 
                 RowBox[{
                  RowBox[{"save", "[", 
                   RowBox[{"[", 
                    RowBox[{"1", "+", 
                    RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                   "]"}], "/", "newthing"}], "]"}], "\[Equal]", "Rational"}], 
               ")"}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"fac", "[", 
                RowBox[{"1", "+", 
                 RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
               "=", 
               RowBox[{
                RowBox[{"fac", "[", 
                 RowBox[{"1", "+", 
                  RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                "+", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"newthing", "/", 
                   RowBox[{"save", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", "+", 
                    RowBox[{"Length", "[", "save", "]"}], "-", "nn"}], "]"}], 
                    "]"}]}], "//.", "removeAll"}], ")"}]}]}], ";", 
              RowBox[{"count", "=", 
               RowBox[{"count", "+", "1"}]}], ";", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"nBreak", ",", 
                RowBox[{"{", 
                 RowBox[{"jj", ",", "kk", ",", "nn", ",", 
                  RowBox[{"Length", "[", "save", "]"}]}], "}"}]}], "]"}], ";", 
              RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Label", "[", "next", "]"}], ";"}], "\n", ",", 
          RowBox[{"{", 
           RowBox[{"nn", ",", "1", ",", 
            RowBox[{"Length", "[", "save", "]"}]}], "}"}]}], "]"}], ";", "\n", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"count", "\[Equal]", "1"}], ",", 
          RowBox[{"Break", "[", "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", 
         StyleBox["1",
          Background->RGBColor[1., 0., 1.]], ",", 
         RowBox[{"Length", "[", "perms", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"count", "\[Equal]", "0"}], ",", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"save", ",", 
         RowBox[{"dumb", "[", 
          RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}], "]"}], ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"save", "=", 
        RowBox[{"Complement", "[", 
         RowBox[{"save", ",", 
          RowBox[{"{", "0", "}"}]}], "]"}]}], ";"}], "*)"}], "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"jj", "/", "20"}], "\[Element]", "Integers"}], ",", 
       RowBox[{"Print", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N", "[", 
           RowBox[{"jj", "/", 
            RowBox[{"Length", "[", "dumb", "]"}]}], "]"}], ",", 
          RowBox[{"DateString", "[", "]"}]}], "}"}], "]"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"jj", ",", "2", ",", 
      RowBox[{"Length", "[", "dumb", "]"}]}], "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<time in minutes\>\"", ",", 
     RowBox[{"Round", "[", 
      RowBox[{"100", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"AbsoluteTime", "[", "]"}], "-", "tstart"}], ")"}], "/", 
        "6000."}]}], "]"}]}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DUMB", "=", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"am", "[", 
        RowBox[{"fac", "[", "ii", "]"}], "]"}], 
       RowBox[{"save", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "save", "]"}]}], "}"}]}], "]"}], "//.", 
    RowBox[{
     RowBox[{"am", "[", "1", "]"}], "\[Rule]", "1"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "DUMB", "]"}]}], "Input",
 CellChangeTimes->{{3.56666454137009*^9, 3.56666455791742*^9}, {
   3.566664682160617*^9, 3.566664687768269*^9}, 3.566664798261909*^9, {
   3.566665275593224*^9, 3.56666529305298*^9}, {3.566729104692464*^9, 
   3.566729114884221*^9}, {3.566729160781657*^9, 3.566729216757659*^9}, {
   3.566814794742651*^9, 3.566814797114359*^9}, 3.566912090175519*^9, {
   3.5674139687313747`*^9, 3.56741398221664*^9}, {3.567414779388206*^9, 
   3.567414792711253*^9}, {3.567416181052206*^9, 3.567416197269767*^9}, 
   3.5674171414819508`*^9, {3.567753485372676*^9, 3.567753489074902*^9}, {
   3.567756440852841*^9, 3.567756445345684*^9}, {3.567758168152699*^9, 
   3.567758188453521*^9}, {3.567758240549768*^9, 3.567758246794857*^9}, {
   3.567947804542942*^9, 3.567947804818804*^9}, {3.567958303953517*^9, 
   3.567958304123313*^9}, {3.568278849057724*^9, 3.568278849250873*^9}, {
   3.568287750359305*^9, 3.568287754739176*^9}, {3.568384449002808*^9, 
   3.568384457277152*^9}, {3.568550641692893*^9, 3.568550646123638*^9}, {
   3.5685515558175287`*^9, 3.5685515576565228`*^9}, {3.573029228169054*^9, 
   3.573029228455147*^9}, {3.573029274290341*^9, 3.573029274726783*^9}, 
   3.573202240383436*^9, {3.573202332030116*^9, 3.573202335527092*^9}}],

Cell[BoxData["\<\"Fri 19 Apr 2013 09:25:16\"\>"], "Output",
 CellChangeTimes->{
  3.566661718501853*^9, {3.566661866107888*^9, 3.56666189033167*^9}, 
   3.5666632764724493`*^9, 3.5666635061228933`*^9, {3.566664154089595*^9, 
   3.5666642007725143`*^9}, 3.5666643221464653`*^9, 3.566664613321117*^9, 
   3.566664693464332*^9, 3.566664890141494*^9, 3.56666501001894*^9, 
   3.566665074465266*^9, 3.566665186206705*^9, {3.566665248818069*^9, 
   3.566665295388771*^9}, 3.5666653862684307`*^9, 3.566665542373496*^9, 
   3.566665786659505*^9, 3.566666148667245*^9, 3.566671399107004*^9, 
   3.566671448118681*^9, 3.566671665045375*^9, 3.5667290350046587`*^9, 
   3.566729120682172*^9, 3.566729219744586*^9, 3.5667298596638308`*^9, 
   3.5667300318408623`*^9, 3.566730645889387*^9, 3.5667319924014997`*^9, 
   3.566733041930179*^9, 3.566733150080518*^9, 3.566803524782987*^9, 
   3.566803747567459*^9, 3.5668043183182583`*^9, 3.5668043688249474`*^9, 
   3.566804454668867*^9, 3.5668045846615334`*^9, 3.5668047685124187`*^9, 
   3.566804891075955*^9, 3.5668090542763844`*^9, 3.566809542289281*^9, 
   3.566814732943183*^9, 3.5668148067093554`*^9, {3.566814893994603*^9, 
   3.5668149056164827`*^9}, 3.56682079300743*^9, {3.566831368801358*^9, 
   3.566831394813149*^9}, {3.566831483476509*^9, 3.566831510363904*^9}, {
   3.566831626211843*^9, 3.56683166826408*^9}, 3.566831705514563*^9, 
   3.566894868060639*^9, 3.5668949272209263`*^9, 3.566894969848126*^9, 
   3.566895027222911*^9, 3.566895068202524*^9, 3.566895139745323*^9, 
   3.5668952077655697`*^9, 3.56689536621036*^9, 3.566895451218601*^9, 
   3.566909423107274*^9, 3.5669094544360533`*^9, 3.566910619360903*^9, 
   3.566910818401988*^9, 3.5669118791976748`*^9, 3.566911918185245*^9, 
   3.566911952769183*^9, 3.566912110148595*^9, 3.566912198884646*^9, 
   3.5669123319684477`*^9, 3.566912378493207*^9, {3.566912918712332*^9, 
   3.5669129694963408`*^9}, 3.56691300166158*^9, {3.5669137620790997`*^9, 
   3.566913803031548*^9}, 3.566935844976494*^9, 3.566936140553258*^9, 
   3.5669362616223516`*^9, 3.5670949825591583`*^9, 3.567148863640469*^9, 
   3.567163643674837*^9, 3.567163862989105*^9, 3.567164001118601*^9, 
   3.567164210147457*^9, 3.567171365672793*^9, 3.567171455738819*^9, 
   3.5671715386634903`*^9, 3.5671744073775167`*^9, 3.56717449814874*^9, 
   3.567174538420828*^9, 3.567174606852947*^9, 3.567174934161922*^9, 
   3.567175054643237*^9, 3.56717598476744*^9, 3.567192339260103*^9, 
   3.5672438140705757`*^9, 3.56724428884636*^9, 3.567245584559354*^9, 
   3.5672509546813583`*^9, 3.5672533971464*^9, 3.567253558161336*^9, 
   3.5672603146197243`*^9, 3.5672605905914583`*^9, 3.567260779618725*^9, 
   3.567260817702281*^9, 3.567261068819469*^9, 3.567261622509777*^9, 
   3.56726671629655*^9, 3.567267375651463*^9, 3.567267495153769*^9, 
   3.5672678349205217`*^9, 3.5672685728080072`*^9, 3.567268675855452*^9, 
   3.5672687974273252`*^9, 3.567269008882712*^9, 3.567269226737764*^9, 
   3.567275523015439*^9, 3.567275927585206*^9, 3.567321261640326*^9, 
   3.5673217799760437`*^9, 3.567321862853223*^9, 3.567322469977622*^9, 
   3.5673327940179253`*^9, 3.567334643067988*^9, 3.567340795797716*^9, 
   3.567342082269454*^9, 3.5673440376707478`*^9, 3.567347137257435*^9, 
   3.567348387155802*^9, 3.567356967581112*^9, 3.5673617387755404`*^9, 
   3.567362425399002*^9, 3.567409193109229*^9, 3.567409359506484*^9, 
   3.567411709671405*^9, 3.5674138177838087`*^9, 3.567414422540454*^9, 
   3.5674146567753153`*^9, {3.567414813941559*^9, 3.5674148368650723`*^9}, 
   3.567414959049263*^9, 3.567414995011244*^9, 3.567415085210856*^9, 
   3.567415197991398*^9, 3.5674153875900297`*^9, 3.567415560622737*^9, 
   3.567415994514779*^9, 3.567416217759512*^9, 3.567416251713674*^9, 
   3.5674169361809998`*^9, 3.5674171742167377`*^9, 3.567417567636438*^9, {
   3.567418106216075*^9, 3.5674181176705837`*^9}, {3.567418192420319*^9, 
   3.567418221379715*^9}, 3.567418320577649*^9, 3.5674183821362133`*^9, 
   3.567418708679627*^9, 3.567419220189273*^9, 3.567422065026539*^9, 
   3.5674222767372627`*^9, 3.567422544695427*^9, 3.5674225894290457`*^9, 
   3.56742262372647*^9, 3.567422899013032*^9, 3.56742302981045*^9, 
   3.567423276726324*^9, 3.5674233906907682`*^9, 3.567424181313414*^9, 
   3.567424250040636*^9, 3.56742494509662*^9, 3.5674256627951937`*^9, 
   3.567434268264717*^9, 3.567434527241046*^9, 3.567436195421364*^9, 
   3.5674367841206837`*^9, 3.56743686864359*^9, 3.567438580197702*^9, 
   3.5674386836526833`*^9, 3.5674438195380793`*^9, 3.5674439084885902`*^9, 
   3.567444861644822*^9, 3.567446333396893*^9, 3.567448062892806*^9, 
   3.567681020967325*^9, 3.567706474777269*^9, 3.567716674502475*^9, 
   3.5677209116154346`*^9, 3.567753502798882*^9, 3.5677568496146317`*^9, 
   3.567758270882962*^9, 3.567758541929285*^9, 3.5677628999399767`*^9, 
   3.567771356465119*^9, 3.567773892415806*^9, 3.5677740990571413`*^9, 
   3.5677745282787237`*^9, 3.567775152614107*^9, 3.5677861897819643`*^9, 
   3.567786300156764*^9, 3.567798071817274*^9, 3.567840569488953*^9, 
   3.567840961421892*^9, 3.567849200521264*^9, 3.567854450516801*^9, 
   3.5678560935671473`*^9, 3.567856300579932*^9, 3.567858304091661*^9, 
   3.567858432045948*^9, 3.567859190463717*^9, 3.567868945070486*^9, 
   3.567878087363263*^9, 3.567880229869234*^9, 3.567880302167973*^9, 
   3.567881205346162*^9, 3.567881356997573*^9, {3.56788140033934*^9, 
   3.567881419882701*^9}, 3.567881458484737*^9, 3.567927754165721*^9, 
   3.567928385326734*^9, 3.567931168685379*^9, 3.567931303947919*^9, 
   3.567931368530589*^9, 3.567934792616538*^9, 3.56793938354679*^9, 
   3.5679397284539747`*^9, 3.5679437512596073`*^9, 3.567949096633339*^9, 
   3.567949209889946*^9, 3.567962173910108*^9, 3.5679624748576403`*^9, 
   3.5679658012743607`*^9, 3.568008724913351*^9, 3.5680133960934277`*^9, 
   3.568017839525804*^9, 3.568019254479562*^9, 3.5680195967543364`*^9, 
   3.5680196751725903`*^9, 3.568021471626122*^9, 3.568022605260784*^9, 
   3.568023151324933*^9, 3.568024149689733*^9, {3.5680305236143208`*^9, 
   3.568030607462311*^9}, 3.568037724911529*^9, 3.5680377842003736`*^9, 
   3.568037833263534*^9, 3.568037936219974*^9, 3.568038054355693*^9, 
   3.5680382047055807`*^9, 3.568039661195319*^9, 3.56803976263844*^9, {
   3.56803980040338*^9, 3.568039828918343*^9}, 3.568040216323989*^9, 
   3.568040800228306*^9, {3.568040945497489*^9, 3.568040972845292*^9}, {
   3.568042043221129*^9, 3.56804217251007*^9}, {3.5680434381059847`*^9, 
   3.568043554530365*^9}, 3.568093407607596*^9, 3.5680938923104773`*^9, 
   3.568096174540723*^9, 3.5680964657729063`*^9, 3.568096523452853*^9, 
   3.568102523986384*^9, 3.56810281190586*^9, 3.568103083360721*^9, 
   3.568118046011388*^9, 3.568118506160891*^9, 3.568118735932208*^9, 
   3.56811962591428*^9, 3.568123704857903*^9, 3.568124739862956*^9, 
   3.568129806622065*^9, 3.568137917620781*^9, 3.568278809348064*^9, 
   3.568278855704732*^9, 3.568287723132962*^9, 3.568291020238928*^9, 
   3.568311606523732*^9, 3.568326713531958*^9, 3.568371479228443*^9, 
   3.568372560619006*^9, 3.56837340001079*^9, 3.568376622532106*^9, 
   3.5683770128092747`*^9, 3.5683778559656973`*^9, 3.5683797110393763`*^9, 
   3.568381894318862*^9, 3.568382140294508*^9, 3.5683828320067663`*^9, 
   3.568384506911209*^9, 3.568387548070218*^9, 3.568459509010852*^9, 
   3.568460018659381*^9, 3.5685496614765043`*^9, 3.5685498310007057`*^9, 
   3.568550012803279*^9, 3.568550468315724*^9, 3.568550597444975*^9, 
   3.568550648928135*^9, 3.568550710324686*^9, 3.568551588640045*^9, 
   3.568552195540468*^9, 3.568552736352721*^9, 3.568554494825945*^9, 
   3.568558021482589*^9, 3.5685590769829617`*^9, 3.568569509935307*^9, 
   3.56856959498361*^9, 3.5686149845551653`*^9, 3.568633236416267*^9, 
   3.568650581487158*^9, 3.5687143256179256`*^9, 3.5687201810432587`*^9, 
   3.568724952437086*^9, 3.56872563330116*^9, 3.568726659021843*^9, 
   3.568728257257783*^9, 3.5687290049763203`*^9, 3.5687329177361403`*^9, 
   3.568734912282317*^9, 3.568737410858685*^9, 3.568739609960847*^9, 
   3.568741103891267*^9, 3.568743008649225*^9, 3.5687448279963007`*^9, 
   3.568789972053932*^9, 3.5687901292183733`*^9, 3.568799343076832*^9, 
   3.5688913866619463`*^9, 3.568907412855094*^9, 3.568907952022626*^9, 
   3.5689082325203648`*^9, 3.568908287700029*^9, 3.568908368540846*^9, 
   3.568909528669627*^9, 3.568972287300585*^9, 3.568973632805509*^9, 
   3.568974707878118*^9, 3.5689768844807043`*^9, 3.568979117941298*^9, 
   3.5689799962686253`*^9, 3.568981628279907*^9, 3.5689862720226517`*^9, {
   3.5689865213961143`*^9, 3.568986539087709*^9}, 3.5690002496563597`*^9, 
   3.5690004142435102`*^9, 3.569003066202404*^9, 3.56904694000984*^9, 
   3.569047134552937*^9, 3.572937518708544*^9, 3.57293823668181*^9, 
   3.572940705573283*^9, 3.5729616907827463`*^9, 3.573029122846919*^9, {
   3.573029248113065*^9, 3.573029275829236*^9}, 3.573115204153078*^9, 
   3.573115277562969*^9, 3.5731954269323187`*^9, 3.573196169249053*^9, 
   3.573202018867247*^9, 3.5732020743134604`*^9, 3.5732026962989597`*^9, 
   3.5732035728878403`*^9, {3.5732091101392*^9, 3.573209134994923*^9}, 
   3.5732273352354393`*^9, 3.573279121856173*^9, 3.573285696976514*^9, 
   3.573285955387486*^9, 3.57328621848498*^9, 3.5732889085595407`*^9, 
   3.573289403356472*^9, 3.5732895645567503`*^9, 3.573366627697397*^9, 
   3.573379761507976*^9, 3.573380170678454*^9, 3.573402122005715*^9, 
   3.573464786534235*^9, 3.573465010909071*^9, 3.573465153812449*^9, 
   3.5734777707583637`*^9, 3.5734779228317127`*^9, 3.573482656142231*^9, 
   3.573492326179434*^9, 3.573492626090695*^9, 3.573492692138184*^9, 
   3.5735324321600437`*^9, 3.573537020594439*^9, 3.5735407458641167`*^9, 
   3.573548775568677*^9, 3.573549061673778*^9, 3.573551198931316*^9, 
   3.57355123681997*^9, 3.57355138468396*^9, 3.573564455038528*^9, 
   3.573564759122999*^9, 3.5735648272750607`*^9, 3.573565358065414*^9, 
   3.5735656444445667`*^9, 3.573622537238593*^9, 3.573625859577695*^9, 
   3.573632911857732*^9, 3.573635351722332*^9, 3.573635623413444*^9, 
   3.573635737250266*^9, 3.573638355315174*^9, 3.57363940851036*^9, 
   3.573639529897093*^9, 3.573640224436529*^9, 3.5736403758897047`*^9, 
   3.57364092561376*^9, 3.573820947729628*^9, 3.573821005341329*^9, 
   3.573821091706583*^9, 3.5738267697189837`*^9, 3.573827638841385*^9, 
   3.573827856543346*^9, 3.573832265203883*^9, 3.5738328443512173`*^9, 
   3.573832892305835*^9, 3.573834974018092*^9, 3.5738351556567993`*^9, 
   3.5738354698014917`*^9, {3.5738827098672*^9, 3.573882729673828*^9}, 
   3.573882785069522*^9, 3.573882858159384*^9, 3.5738830271925077`*^9, 
   3.573883122781062*^9, {3.57388341351305*^9, 3.573883433674288*^9}, 
   3.573883912457286*^9, 3.5738854516878557`*^9, 3.573885829824684*^9, 
   3.573886154031308*^9, 3.573886700473867*^9, 3.5738869972425423`*^9, 
   3.573887407609127*^9, 3.57388883686712*^9, 3.573888970469673*^9, 
   3.57388940984921*^9, 3.573889550700713*^9, 3.573889656635213*^9, 
   3.573889766914895*^9, 3.573979020360601*^9, 3.573980292610607*^9, 
   3.573985204756112*^9, 3.573985905371965*^9, 3.57399807268153*^9, 
   3.5739986149208727`*^9, 3.573999049515312*^9, 3.57399951527254*^9, 
   3.574002692038599*^9, 3.5740030111763067`*^9, 3.5740049171874943`*^9, 
   3.574005206070141*^9, 3.574007416411338*^9, 3.57400751210424*^9, 
   3.5740084158692904`*^9, 3.5740085656746273`*^9, 3.574008626304903*^9, 
   3.5740619179386263`*^9, 3.574062018363474*^9, 3.574064500440737*^9, 
   3.574064787854726*^9, 3.574065113685914*^9, 3.574066501476625*^9, 
   3.5740665554903584`*^9, 3.574067819285884*^9, 3.574068051960256*^9, 
   3.574069143554965*^9, 3.574069504330106*^9, 3.5740695617708473`*^9, 
   3.574083010403657*^9, 3.574083088519476*^9, 3.574164766623534*^9, 
   3.5741648691276608`*^9, 3.5741649357318783`*^9, 3.5741652798649*^9, 
   3.5741653186993113`*^9, 3.574248072794239*^9, 3.5742537762342567`*^9, 
   3.57425413751641*^9, 3.574254662314485*^9, 3.5742546949419937`*^9, 
   3.574258175536165*^9, 3.57425826577699*^9, 3.574258305682169*^9, 
   3.574494539143951*^9, 3.5744948150603113`*^9, 3.57449635505365*^9, 
   3.574497896454426*^9, 3.574501620919632*^9, 3.574502441571343*^9, 
   3.57450253141963*^9, 3.57509936568279*^9, 3.5753598467696342`*^9, 
   3.57535993181205*^9, 3.575362855142592*^9, 3.575370316818016*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"time in minutes\"\>", ",", "0"}], "}"}]], "Print",
 CellChangeTimes->{3.575099365686516*^9, 3.575359846792632*^9, 
  3.575359931857296*^9, 3.5753628551728163`*^9, 3.575370316839107*^9}],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{
  3.566661718501853*^9, {3.566661866107888*^9, 3.56666189033167*^9}, 
   3.5666632764724493`*^9, 3.5666635061228933`*^9, {3.566664154089595*^9, 
   3.5666642007725143`*^9}, 3.5666643221464653`*^9, 3.566664613321117*^9, 
   3.566664693464332*^9, 3.566664890141494*^9, 3.56666501001894*^9, 
   3.566665074465266*^9, 3.566665186206705*^9, {3.566665248818069*^9, 
   3.566665295388771*^9}, 3.5666653862684307`*^9, 3.566665542373496*^9, 
   3.566665786659505*^9, 3.566666148667245*^9, 3.566671399107004*^9, 
   3.566671448118681*^9, 3.566671665045375*^9, 3.5667290350046587`*^9, 
   3.566729120682172*^9, 3.566729219744586*^9, 3.5667298596638308`*^9, 
   3.5667300318408623`*^9, 3.566730645889387*^9, 3.5667319924014997`*^9, 
   3.566733041930179*^9, 3.566733150080518*^9, 3.566803524782987*^9, 
   3.566803747567459*^9, 3.5668043183182583`*^9, 3.5668043688249474`*^9, 
   3.566804454668867*^9, 3.5668045846615334`*^9, 3.5668047685124187`*^9, 
   3.566804891075955*^9, 3.5668090542763844`*^9, 3.566809542289281*^9, 
   3.566814732943183*^9, 3.5668148067093554`*^9, {3.566814893994603*^9, 
   3.5668149056164827`*^9}, 3.56682079300743*^9, {3.566831368801358*^9, 
   3.566831394813149*^9}, {3.566831483476509*^9, 3.566831510363904*^9}, {
   3.566831626211843*^9, 3.56683166826408*^9}, 3.566831705514563*^9, 
   3.566894868060639*^9, 3.5668949272209263`*^9, 3.566894969848126*^9, 
   3.566895027222911*^9, 3.566895068202524*^9, 3.566895139745323*^9, 
   3.5668952077655697`*^9, 3.56689536621036*^9, 3.566895451218601*^9, 
   3.566909423107274*^9, 3.5669094544360533`*^9, 3.566910619360903*^9, 
   3.566910818401988*^9, 3.5669118791976748`*^9, 3.566911918185245*^9, 
   3.566911952769183*^9, 3.566912110148595*^9, 3.566912198884646*^9, 
   3.5669123319684477`*^9, 3.566912378493207*^9, {3.566912918712332*^9, 
   3.5669129694963408`*^9}, 3.56691300166158*^9, {3.5669137620790997`*^9, 
   3.566913803031548*^9}, 3.566935844976494*^9, 3.566936140553258*^9, 
   3.5669362616223516`*^9, 3.5670949825591583`*^9, 3.567148863640469*^9, 
   3.567163643674837*^9, 3.567163862989105*^9, 3.567164001118601*^9, 
   3.567164210147457*^9, 3.567171365672793*^9, 3.567171455738819*^9, 
   3.5671715386634903`*^9, 3.5671744073775167`*^9, 3.56717449814874*^9, 
   3.567174538420828*^9, 3.567174606852947*^9, 3.567174934161922*^9, 
   3.567175054643237*^9, 3.56717598476744*^9, 3.567192339260103*^9, 
   3.5672438140705757`*^9, 3.56724428884636*^9, 3.567245584559354*^9, 
   3.5672509546813583`*^9, 3.5672533971464*^9, 3.567253558161336*^9, 
   3.5672603146197243`*^9, 3.5672605905914583`*^9, 3.567260779618725*^9, 
   3.567260817702281*^9, 3.567261068819469*^9, 3.567261622509777*^9, 
   3.56726671629655*^9, 3.567267375651463*^9, 3.567267495153769*^9, 
   3.5672678349205217`*^9, 3.5672685728080072`*^9, 3.567268675855452*^9, 
   3.5672687974273252`*^9, 3.567269008882712*^9, 3.567269226737764*^9, 
   3.567275523015439*^9, 3.567275927585206*^9, 3.567321261640326*^9, 
   3.5673217799760437`*^9, 3.567321862853223*^9, 3.567322469977622*^9, 
   3.5673327940179253`*^9, 3.567334643067988*^9, 3.567340795797716*^9, 
   3.567342082269454*^9, 3.5673440376707478`*^9, 3.567347137257435*^9, 
   3.567348387155802*^9, 3.567356967581112*^9, 3.5673617387755404`*^9, 
   3.567362425399002*^9, 3.567409193109229*^9, 3.567409359506484*^9, 
   3.567411709671405*^9, 3.5674138177838087`*^9, 3.567414422540454*^9, 
   3.5674146567753153`*^9, {3.567414813941559*^9, 3.5674148368650723`*^9}, 
   3.567414959049263*^9, 3.567414995011244*^9, 3.567415085210856*^9, 
   3.567415197991398*^9, 3.5674153875900297`*^9, 3.567415560622737*^9, 
   3.567415994514779*^9, 3.567416217759512*^9, 3.567416251713674*^9, 
   3.5674169361809998`*^9, 3.5674171742167377`*^9, 3.567417567636438*^9, {
   3.567418106216075*^9, 3.5674181176705837`*^9}, {3.567418192420319*^9, 
   3.567418221379715*^9}, 3.567418320577649*^9, 3.5674183821362133`*^9, 
   3.567418708679627*^9, 3.567419220189273*^9, 3.567422065026539*^9, 
   3.5674222767372627`*^9, 3.567422544695427*^9, 3.5674225894290457`*^9, 
   3.56742262372647*^9, 3.567422899013032*^9, 3.56742302981045*^9, 
   3.567423276726324*^9, 3.5674233906907682`*^9, 3.567424181313414*^9, 
   3.567424250040636*^9, 3.56742494509662*^9, 3.5674256627951937`*^9, 
   3.567434268264717*^9, 3.567434527241046*^9, 3.567436195421364*^9, 
   3.5674367841206837`*^9, 3.56743686864359*^9, 3.567438580197702*^9, 
   3.5674386836526833`*^9, 3.5674438195380793`*^9, 3.5674439084885902`*^9, 
   3.567444861644822*^9, 3.567446333396893*^9, 3.567448062892806*^9, 
   3.567681020967325*^9, 3.567706474777269*^9, 3.567716674502475*^9, 
   3.5677209116154346`*^9, 3.567753502798882*^9, 3.5677568496146317`*^9, 
   3.567758270882962*^9, 3.567758541929285*^9, 3.5677628999399767`*^9, 
   3.567771356465119*^9, 3.567773892415806*^9, 3.5677740990571413`*^9, 
   3.5677745282787237`*^9, 3.567775152614107*^9, 3.5677861897819643`*^9, 
   3.567786300156764*^9, 3.567798071817274*^9, 3.567840569488953*^9, 
   3.567840961421892*^9, 3.567849200521264*^9, 3.567854450516801*^9, 
   3.5678560935671473`*^9, 3.567856300579932*^9, 3.567858304091661*^9, 
   3.567858432045948*^9, 3.567859190463717*^9, 3.567868945070486*^9, 
   3.567878087363263*^9, 3.567880229869234*^9, 3.567880302167973*^9, 
   3.567881205346162*^9, 3.567881356997573*^9, {3.56788140033934*^9, 
   3.567881419882701*^9}, 3.567881458484737*^9, 3.567927754165721*^9, 
   3.567928385326734*^9, 3.567931168685379*^9, 3.567931303947919*^9, 
   3.567931368530589*^9, 3.567934792616538*^9, 3.56793938354679*^9, 
   3.5679397284539747`*^9, 3.5679437512596073`*^9, 3.567949096633339*^9, 
   3.567949209889946*^9, 3.567962173910108*^9, 3.5679624748576403`*^9, 
   3.5679658012743607`*^9, 3.568008724913351*^9, 3.5680133960934277`*^9, 
   3.568017839525804*^9, 3.568019254479562*^9, 3.5680195967543364`*^9, 
   3.5680196751725903`*^9, 3.568021471626122*^9, 3.568022605260784*^9, 
   3.568023151324933*^9, 3.568024149689733*^9, {3.5680305236143208`*^9, 
   3.568030607462311*^9}, 3.568037724911529*^9, 3.5680377842003736`*^9, 
   3.568037833263534*^9, 3.568037936219974*^9, 3.568038054355693*^9, 
   3.5680382047055807`*^9, 3.568039661195319*^9, 3.56803976263844*^9, {
   3.56803980040338*^9, 3.568039828918343*^9}, 3.568040216323989*^9, 
   3.568040800228306*^9, {3.568040945497489*^9, 3.568040972845292*^9}, {
   3.568042043221129*^9, 3.56804217251007*^9}, {3.5680434381059847`*^9, 
   3.568043554530365*^9}, 3.568093407607596*^9, 3.5680938923104773`*^9, 
   3.568096174540723*^9, 3.5680964657729063`*^9, 3.568096523452853*^9, 
   3.568102523986384*^9, 3.56810281190586*^9, 3.568103083360721*^9, 
   3.568118046011388*^9, 3.568118506160891*^9, 3.568118735932208*^9, 
   3.56811962591428*^9, 3.568123704857903*^9, 3.568124739862956*^9, 
   3.568129806622065*^9, 3.568137917620781*^9, 3.568278809348064*^9, 
   3.568278855704732*^9, 3.568287723132962*^9, 3.568291020238928*^9, 
   3.568311606523732*^9, 3.568326713531958*^9, 3.568371479228443*^9, 
   3.568372560619006*^9, 3.56837340001079*^9, 3.568376622532106*^9, 
   3.5683770128092747`*^9, 3.5683778559656973`*^9, 3.5683797110393763`*^9, 
   3.568381894318862*^9, 3.568382140294508*^9, 3.5683828320067663`*^9, 
   3.568384506911209*^9, 3.568387548070218*^9, 3.568459509010852*^9, 
   3.568460018659381*^9, 3.5685496614765043`*^9, 3.5685498310007057`*^9, 
   3.568550012803279*^9, 3.568550468315724*^9, 3.568550597444975*^9, 
   3.568550648928135*^9, 3.568550710324686*^9, 3.568551588640045*^9, 
   3.568552195540468*^9, 3.568552736352721*^9, 3.568554494825945*^9, 
   3.568558021482589*^9, 3.5685590769829617`*^9, 3.568569509935307*^9, 
   3.56856959498361*^9, 3.5686149845551653`*^9, 3.568633236416267*^9, 
   3.568650581487158*^9, 3.5687143256179256`*^9, 3.5687201810432587`*^9, 
   3.568724952437086*^9, 3.56872563330116*^9, 3.568726659021843*^9, 
   3.568728257257783*^9, 3.5687290049763203`*^9, 3.5687329177361403`*^9, 
   3.568734912282317*^9, 3.568737410858685*^9, 3.568739609960847*^9, 
   3.568741103891267*^9, 3.568743008649225*^9, 3.5687448279963007`*^9, 
   3.568789972053932*^9, 3.5687901292183733`*^9, 3.568799343076832*^9, 
   3.5688913866619463`*^9, 3.568907412855094*^9, 3.568907952022626*^9, 
   3.5689082325203648`*^9, 3.568908287700029*^9, 3.568908368540846*^9, 
   3.568909528669627*^9, 3.568972287300585*^9, 3.568973632805509*^9, 
   3.568974707878118*^9, 3.5689768844807043`*^9, 3.568979117941298*^9, 
   3.5689799962686253`*^9, 3.568981628279907*^9, 3.5689862720226517`*^9, {
   3.5689865213961143`*^9, 3.568986539087709*^9}, 3.5690002496563597`*^9, 
   3.5690004142435102`*^9, 3.569003066202404*^9, 3.56904694000984*^9, 
   3.569047134552937*^9, 3.572937518708544*^9, 3.57293823668181*^9, 
   3.572940705573283*^9, 3.5729616907827463`*^9, 3.573029122846919*^9, {
   3.573029248113065*^9, 3.573029275829236*^9}, 3.573115204153078*^9, 
   3.573115277562969*^9, 3.5731954269323187`*^9, 3.573196169249053*^9, 
   3.573202018867247*^9, 3.5732020743134604`*^9, 3.5732026962989597`*^9, 
   3.5732035728878403`*^9, {3.5732091101392*^9, 3.573209134994923*^9}, 
   3.5732273352354393`*^9, 3.573279121856173*^9, 3.573285696976514*^9, 
   3.573285955387486*^9, 3.57328621848498*^9, 3.5732889085595407`*^9, 
   3.573289403356472*^9, 3.5732895645567503`*^9, 3.573366627697397*^9, 
   3.573379761507976*^9, 3.573380170678454*^9, 3.573402122005715*^9, 
   3.573464786534235*^9, 3.573465010909071*^9, 3.573465153812449*^9, 
   3.5734777707583637`*^9, 3.5734779228317127`*^9, 3.573482656142231*^9, 
   3.573492326179434*^9, 3.573492626090695*^9, 3.573492692138184*^9, 
   3.5735324321600437`*^9, 3.573537020594439*^9, 3.5735407458641167`*^9, 
   3.573548775568677*^9, 3.573549061673778*^9, 3.573551198931316*^9, 
   3.57355123681997*^9, 3.57355138468396*^9, 3.573564455038528*^9, 
   3.573564759122999*^9, 3.5735648272750607`*^9, 3.573565358065414*^9, 
   3.5735656444445667`*^9, 3.573622537238593*^9, 3.573625859577695*^9, 
   3.573632911857732*^9, 3.573635351722332*^9, 3.573635623413444*^9, 
   3.573635737250266*^9, 3.573638355315174*^9, 3.57363940851036*^9, 
   3.573639529897093*^9, 3.573640224436529*^9, 3.5736403758897047`*^9, 
   3.57364092561376*^9, 3.573820947729628*^9, 3.573821005341329*^9, 
   3.573821091706583*^9, 3.5738267697189837`*^9, 3.573827638841385*^9, 
   3.573827856543346*^9, 3.573832265203883*^9, 3.5738328443512173`*^9, 
   3.573832892305835*^9, 3.573834974018092*^9, 3.5738351556567993`*^9, 
   3.5738354698014917`*^9, {3.5738827098672*^9, 3.573882729673828*^9}, 
   3.573882785069522*^9, 3.573882858159384*^9, 3.5738830271925077`*^9, 
   3.573883122781062*^9, {3.57388341351305*^9, 3.573883433674288*^9}, 
   3.573883912457286*^9, 3.5738854516878557`*^9, 3.573885829824684*^9, 
   3.573886154031308*^9, 3.573886700473867*^9, 3.5738869972425423`*^9, 
   3.573887407609127*^9, 3.57388883686712*^9, 3.573888970469673*^9, 
   3.57388940984921*^9, 3.573889550700713*^9, 3.573889656635213*^9, 
   3.573889766914895*^9, 3.573979020360601*^9, 3.573980292610607*^9, 
   3.573985204756112*^9, 3.573985905371965*^9, 3.57399807268153*^9, 
   3.5739986149208727`*^9, 3.573999049515312*^9, 3.57399951527254*^9, 
   3.574002692038599*^9, 3.5740030111763067`*^9, 3.5740049171874943`*^9, 
   3.574005206070141*^9, 3.574007416411338*^9, 3.57400751210424*^9, 
   3.5740084158692904`*^9, 3.5740085656746273`*^9, 3.574008626304903*^9, 
   3.5740619179386263`*^9, 3.574062018363474*^9, 3.574064500440737*^9, 
   3.574064787854726*^9, 3.574065113685914*^9, 3.574066501476625*^9, 
   3.5740665554903584`*^9, 3.574067819285884*^9, 3.574068051960256*^9, 
   3.574069143554965*^9, 3.574069504330106*^9, 3.5740695617708473`*^9, 
   3.574083010403657*^9, 3.574083088519476*^9, 3.574164766623534*^9, 
   3.5741648691276608`*^9, 3.5741649357318783`*^9, 3.5741652798649*^9, 
   3.5741653186993113`*^9, 3.574248072794239*^9, 3.5742537762342567`*^9, 
   3.57425413751641*^9, 3.574254662314485*^9, 3.5742546949419937`*^9, 
   3.574258175536165*^9, 3.57425826577699*^9, 3.574258305682169*^9, 
   3.574494539143951*^9, 3.5744948150603113`*^9, 3.57449635505365*^9, 
   3.574497896454426*^9, 3.574501620919632*^9, 3.574502441571343*^9, 
   3.57450253141963*^9, 3.57509936568279*^9, 3.5753598467696342`*^9, 
   3.57535993181205*^9, 3.575362855142592*^9, 3.5753703168407917`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "symtype", "]"}]], "Input",
 CellChangeTimes->{{3.5668146623742447`*^9, 3.566814687205481*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["checker", "Subsubsection",
 CellChangeTimes->{{3.566729795833151*^9, 3.5667298339740477`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"check1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"dumb", "==", "DUMB"}], "//.", 
     RowBox[{
      RowBox[{"am", "[", "x_", "]"}], "\[Rule]", "x"}]}], "//.", 
    "genericAll"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"check2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{"dumb", "[", 
          RowBox[{"[", "ii", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"ii", ",", "1", ",", 
           RowBox[{"Length", "[", "dumb", "]"}]}], "}"}]}], "]"}], "==", 
       "DUMB"}], "//.", 
      RowBox[{
       RowBox[{"am", "[", "x_", "]"}], "\[Rule]", "x"}]}], "//.", 
     "genericAll"}], "//.", 
    RowBox[{
     RowBox[{"holdL", "[", "X_", "]"}], "\[Rule]", "0"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"check1", "||", "check2"}]}], "Input",
 CellChangeTimes->{{3.566661905541438*^9, 3.566661906673479*^9}, {
   3.56666539024018*^9, 3.56666540015278*^9}, {3.566814784264723*^9, 
   3.5668147907021933`*^9}, {3.567414850135787*^9, 3.567414860947001*^9}, {
   3.567417628312112*^9, 3.5674176478569717`*^9}, {3.567424163412985*^9, 
   3.567424173303225*^9}, {3.567755203160758*^9, 3.567755206214109*^9}, 
   3.5730289062375717`*^9, {3.573899527028553*^9, 3.57389953727242*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.567417613314537*^9, 3.567417648894992*^9}, 
   3.567418117923583*^9, {3.5674181926216784`*^9, 3.567418221633823*^9}, 
   3.567418320795966*^9, 3.5674183849815598`*^9, 3.5674187104092283`*^9, 
   3.567419351953874*^9, 3.567422069824732*^9, 3.5674224041302156`*^9, 
   3.567422544810419*^9, 3.567422589794935*^9, 3.5674226239937763`*^9, {
   3.567423028526417*^9, 3.5674230372568398`*^9}, 3.567423340639638*^9, 
   3.567423515502406*^9, 3.5674241889447308`*^9, 3.567424384557499*^9, 
   3.567425070571892*^9, 3.5674257849695187`*^9, 3.567434335625863*^9, 
   3.567434653188487*^9, 3.5674361963303843`*^9, 3.567436785024652*^9, 
   3.567436869667911*^9, 3.567438582065127*^9, 3.567438684524089*^9, 
   3.567443819695979*^9, 3.567444063695207*^9, 3.5674448625702133`*^9, 
   3.567446334104431*^9, 3.5674480638399553`*^9, 3.567681028093289*^9, 
   3.567733732560233*^9, 3.567755057673362*^9, 3.567755208212831*^9, 
   3.567756849739832*^9, 3.567758318087492*^9, 3.567758724362357*^9, 
   3.567763018066636*^9, 3.5677714344326067`*^9, 3.567773961017352*^9, 
   3.567774215247183*^9, 3.5677746416802588`*^9, 3.567775260297114*^9, 
   3.5677862540427017`*^9, 3.567786361385723*^9, 3.567798167645268*^9, 
   3.567840643961409*^9, 3.567841044667574*^9, 3.567849286337718*^9, 
   3.5678545306617947`*^9, 3.567856191008171*^9, 3.567856378840497*^9, 
   3.567858306320691*^9, 3.567858433634945*^9, 3.5678591920618277`*^9, 
   3.567868945173127*^9, 3.5678780874543447`*^9, 3.567880229935165*^9, 
   3.5678803022278137`*^9, 3.567881205405223*^9, 3.567881357151608*^9, {
   3.5678814005932302`*^9, 3.567881420138589*^9}, 3.567881458552876*^9, 
   3.56792775432143*^9, 3.567928385556356*^9, 3.567931169927401*^9, 
   3.567931369100381*^9, 3.567934804895021*^9, 3.567939405713499*^9, 
   3.567939734224021*^9, 3.5679437514194603`*^9, 3.567949097670775*^9, 
   3.5679492200409517`*^9, 3.567962259686123*^9, 3.567962485885642*^9, 
   3.567965895928698*^9, 3.568008826980895*^9, 3.568013485011526*^9, 
   3.5680179274326973`*^9, 3.568019254607409*^9, 3.5680195968492928`*^9, 
   3.568019675231824*^9, 3.568021471716683*^9, 3.5680226053577223`*^9, 
   3.568023151418681*^9, 3.56802424347985*^9, {3.568030525636969*^9, 
   3.5680306086784763`*^9}, 3.5680377264793367`*^9, 3.568037788929554*^9, 
   3.568037835101303*^9, 3.5680379380236807`*^9, 3.56803805614684*^9, 
   3.568038204767606*^9, 3.568039661302497*^9, 3.568039762744307*^9, {
   3.568039800517729*^9, 3.568039829012526*^9}, 3.568040216429019*^9, 
   3.5680408012849293`*^9, {3.568040946546803*^9, 3.5680409740956297`*^9}, {
   3.56804204429978*^9, 3.5680421730556707`*^9}, {3.5680434394041147`*^9, 
   3.5680435545902357`*^9}, 3.568093408162119*^9, 3.5680938925902157`*^9, 
   3.5680961746096573`*^9, 3.568096465905161*^9, 3.568096523515113*^9, 
   3.568102586940277*^9, 3.5681028807454023`*^9, 3.568103147120522*^9, 
   3.5681188673222637`*^9, 3.568119725800859*^9, 3.5681238056206083`*^9, 
   3.5681248428949003`*^9, 3.5681298224650097`*^9, 3.5681380047393017`*^9, 
   3.568279187839402*^9, 3.56829356422005*^9, 3.568323525489977*^9, 
   3.568327462188758*^9, 3.568371591291408*^9, 3.568372786151737*^9, 
   3.568373655900301*^9, 3.5683766350050697`*^9, 3.568377025097575*^9, 
   3.568377869300373*^9, 3.5683797275323477`*^9, 3.568381894412634*^9, 
   3.568382140925952*^9, 3.568382860470654*^9, 3.5683845395772142`*^9, 
   3.568387580207614*^9, 3.56845951889359*^9, 3.568460024395576*^9, 
   3.568549661905855*^9, 3.568549832137348*^9, 3.568550013802627*^9, 
   3.5685504693829327`*^9, 3.568550716006175*^9, 3.56855158870226*^9, 
   3.5685521962600594`*^9, 3.568552736738407*^9, 3.5685544949955873`*^9, 
   3.5685580228095713`*^9, 3.5685590783120604`*^9, 3.5685695109714613`*^9, 
   3.568569595607823*^9, 3.568614985296282*^9, 3.568634083499339*^9, 
   3.568650583628221*^9, 3.568714326853313*^9, 3.568720188010243*^9, 
   3.5687249530940847`*^9, 3.5687256344353323`*^9, 3.568726667227786*^9, 
   3.568728261212246*^9, 3.568729009183098*^9, 3.568732983849888*^9, 
   3.568734916694539*^9, 3.568738050378923*^9, 3.568739705947836*^9, 
   3.568742174468506*^9, 3.568744062168939*^9, 3.5687453766218452`*^9, 
   3.56878997282342*^9, 3.568790151585658*^9, 3.568799589029632*^9, 
   3.568891388744698*^9, 3.568907436796506*^9, 3.568908056086972*^9, 
   3.568908256894709*^9, 3.568908287894453*^9, 3.568908885282617*^9, 
   3.5689095300278893`*^9, 3.568972326264711*^9, 3.56897374844989*^9, 
   3.5689747152315407`*^9, 3.568976884588298*^9, 3.568979143443459*^9, 
   3.568980033110314*^9, 3.5689816286838293`*^9, 3.568986272666451*^9, {
   3.568986522033087*^9, 3.5689865393783607`*^9}, 3.5690002497577877`*^9, 
   3.5690004144361067`*^9, 3.5690030686606283`*^9, 3.569046940381077*^9, 
   3.569047134812065*^9, 3.572937518812237*^9, 3.572938236802544*^9, 
   3.572940706281756*^9, 3.572961691719533*^9, 3.5730299499617987`*^9, 
   3.573115206242341*^9, 3.5731152778868713`*^9, 3.5731954272486143`*^9, 
   3.573196169558608*^9, 3.573202018978321*^9, 3.573202074386793*^9, 
   3.5732035729845963`*^9, {3.573209110203238*^9, 3.5732091385008173`*^9}, 
   3.573227341314328*^9, 3.5732791222684813`*^9, 3.573285700768499*^9, 
   3.573286112875558*^9, 3.5732862186837597`*^9, 3.573288909039253*^9, 
   3.5732894038418694`*^9, 3.5732895650074577`*^9, 3.5733666280702677`*^9, 
   3.5733797615991507`*^9, 3.573380170737158*^9, 3.5734021259149857`*^9, 
   3.573464787163487*^9, 3.573465011683823*^9, 3.573465154238394*^9, 
   3.573477770991522*^9, 3.573477922978475*^9, 3.5734826565443163`*^9, 
   3.573492381466057*^9, 3.573492628086568*^9, 3.573492694981451*^9, 
   3.57353267415739*^9, 3.573537027329198*^9, 3.5735407461615677`*^9, 
   3.573548830204569*^9, 3.573549062058516*^9, 3.573551199151273*^9, 
   3.573551237072239*^9, 3.573551432682646*^9, 3.573564455570447*^9, 
   3.573564773251133*^9, 3.573564828801237*^9, 3.573565368371866*^9, 
   3.573565655392192*^9, 3.573622600151449*^9, 3.5736258955193653`*^9, 
   3.573633025587288*^9, 3.573635384136631*^9, 3.573635670240548*^9, 
   3.573635749315956*^9, 3.573638385526845*^9, 3.5736394088492126`*^9, 
   3.573639530044923*^9, 3.573640224492702*^9, 3.573640375954575*^9, 
   3.573640926209482*^9, 3.5738209496429033`*^9, 3.573821005475882*^9, 
   3.573821091972776*^9, 3.573826784426684*^9, 3.573827869661274*^9, 
   3.573832265493247*^9, 3.573832844657455*^9, 3.573832892606491*^9, 
   3.573834978758335*^9, 3.573835160400158*^9, 3.5738358092316523`*^9, {
   3.5738827098877277`*^9, 3.573882729824553*^9}, 3.573882785178681*^9, 
   3.573882858313273*^9, 3.573883027247436*^9, 3.5738831719192266`*^9, {
   3.5738834139049683`*^9, 3.5738834400747004`*^9}, 3.573883918679196*^9, 
   3.5738854590164948`*^9, 3.573885830143181*^9, 3.573886154329899*^9, 
   3.573886708152483*^9, 3.573887234137611*^9, 3.573887577417582*^9, 
   3.573888842950049*^9, 3.573888970789257*^9, 3.57388942310678*^9, 
   3.573889562846939*^9, 3.573889661428463*^9, 3.573889905546421*^9, 
   3.573979031844037*^9, 3.573980375092819*^9, 3.573985216079884*^9, 
   3.5739859181631737`*^9, 3.573998122515995*^9, 3.5739986631553307`*^9, 
   3.5739993398346148`*^9, 3.573999695265007*^9, 3.574002693113661*^9, 
   3.574003011897294*^9, 3.5740050591890593`*^9, 3.574005323966792*^9, 
   3.574007416659216*^9, 3.5740075122868958`*^9, 3.574008417434245*^9, 
   3.574008586029655*^9, 3.574008648619995*^9, 3.5740619252143908`*^9, 
   3.5740620245817337`*^9, 3.574064507075788*^9, 3.574064794733674*^9, 
   3.574065119105446*^9, 3.5740665089141607`*^9, 3.574066562862309*^9, 
   3.574067819976737*^9, 3.5740680525225773`*^9, 3.574069144204338*^9, 
   3.5740695117222443`*^9, 3.574069569106946*^9, 3.574083010983857*^9, 
   3.574083089108371*^9, 3.574164766740782*^9, 3.574164869530469*^9, 
   3.574164935943377*^9, 3.574165284152411*^9, 3.57416532092108*^9, 
   3.574248178868503*^9, 3.5742537868487587`*^9, 3.574254137676836*^9, 
   3.5742546624206047`*^9, 3.57425469503543*^9, 3.574258175655601*^9, 
   3.574258265871976*^9, 3.574258305818965*^9, 3.574494590789645*^9, 
   3.574494844237136*^9, 3.574496752995289*^9, 3.5745019494492064`*^9, 
   3.574502451564168*^9, 3.5745027817430983`*^9, 3.575099365730651*^9, 
   3.575359846836392*^9, 3.575359931923525*^9, 3.575362855210668*^9, 
   3.5753703168865833`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "original", "]"}], ",", 
   RowBox[{
    RowBox[{"Length", "[", 
     RowBox[{"DUMB", "+", "hold"}], "]"}], "-", "1"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.5733802308808193`*^9, 3.5733802352216578`*^9}, {
  3.575370332676375*^9, 3.575370335226573*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.573029976953721*^9, 3.573115206258273*^9, 3.573115277932248*^9, 
   3.573195427293745*^9, 3.573196169597835*^9, 3.573202019012361*^9, 
   3.5732020743949966`*^9, 3.57320357303782*^9, {3.573209110212612*^9, 
   3.573209138586512*^9}, 3.573227341357779*^9, 3.573279122317851*^9, 
   3.573285700824113*^9, 3.573286112923788*^9, 3.5732862187419167`*^9, 
   3.573288909050889*^9, 3.573289403884509*^9, 3.573289565061863*^9, 
   3.5733666281215763`*^9, 3.573379761639433*^9, 3.573380170745049*^9, 
   3.573402125985598*^9, 3.573464787175727*^9, 3.573465011739601*^9, 
   3.573465154290072*^9, 3.5734777710334797`*^9, 3.573477922987337*^9, 
   3.5734826565934067`*^9, 3.57349238153351*^9, 3.5734926281372013`*^9, 
   3.5734926950345297`*^9, 3.5735326741689577`*^9, 3.573537027387371*^9, 
   3.573540746217985*^9, 3.5735488302623463`*^9, 3.57354906210566*^9, 
   3.5735511991984367`*^9, 3.573551237130542*^9, 3.573551432746264*^9, 
   3.573564455638126*^9, 3.573564773314599*^9, 3.573564828856907*^9, 
   3.573565368422282*^9, 3.573565655440073*^9, 3.573622600161619*^9, 
   3.573625895575939*^9, 3.5736330256015053`*^9, 3.573635384208413*^9, 
   3.573635670294537*^9, 3.573635749367255*^9, 3.573638385579108*^9, 
   3.573639408895699*^9, 3.573639530090437*^9, 3.573640224503125*^9, 
   3.573640375962474*^9, 3.573640926256913*^9, 3.573820949729082*^9, 
   3.573821005485055*^9, 3.573821092023931*^9, 3.573826784490348*^9, 
   3.573827869702475*^9, 3.573832265538742*^9, 3.573832844700308*^9, 
   3.57383289264907*^9, 3.573834978802648*^9, 3.5738351604407043`*^9, 
   3.573835809242157*^9, {3.573882709895755*^9, 3.573882729832562*^9}, 
   3.573882785186688*^9, 3.573882858322062*^9, 3.573883027254923*^9, 
   3.5738831719667187`*^9, {3.573883413912643*^9, 3.573883440120597*^9}, 
   3.5738839187241*^9, 3.573885459062601*^9, 3.5738858301838703`*^9, 
   3.5738861543798523`*^9, 3.573886708207197*^9, 3.5738872341495132`*^9, 
   3.573887577464672*^9, 3.573888843009398*^9, 3.573888970830699*^9, 
   3.573889423155525*^9, 3.573889562892495*^9, 3.573889661468493*^9, 
   3.5738899055998583`*^9, 3.573979031884502*^9, 3.57398037516191*^9, 
   3.573985216132627*^9, 3.573985918226594*^9, 3.573998122565899*^9, 
   3.573998663213258*^9, 3.573999339882128*^9, 3.573999695330246*^9, 
   3.5740026931559277`*^9, 3.5740030119396677`*^9, 3.574005059238328*^9, 
   3.574005323976405*^9, 3.574007416704294*^9, 3.574007512326071*^9, 
   3.574008417474287*^9, 3.574008586085705*^9, 3.5740086486667833`*^9, 
   3.574061925224588*^9, 3.5740620246339207`*^9, 3.5740645071201477`*^9, 
   3.574064794795125*^9, 3.574065119115152*^9, 3.5740665089636908`*^9, 
   3.574066562873477*^9, 3.574067820024365*^9, 3.574068052576436*^9, 
   3.574069144279942*^9, 3.574069511733302*^9, 3.574069569118987*^9, 
   3.574083011028633*^9, 3.5740830891605453`*^9, 3.574164766800477*^9, 
   3.574164869575906*^9, 3.574164935992633*^9, 3.574165284194874*^9, 
   3.574165320962237*^9, 3.57424817887917*^9, 3.57425378690133*^9, 
   3.5742541377211857`*^9, 3.5742546624623957`*^9, 3.574254695077025*^9, 
   3.5742581756651382`*^9, 3.574258265914324*^9, 3.574258305824655*^9, 
   3.574494590872579*^9, 3.574494844282292*^9, 3.574496753052326*^9, 
   3.574501949461376*^9, 3.574502451623824*^9, 3.574502781754711*^9, 
   3.575099365742055*^9, 3.5753598468458157`*^9, 3.575359931934094*^9, 
   3.575362855214082*^9, {3.57537031689723*^9, 3.57537033649646*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1425, 971},
WindowMargins->{{Automatic, 193}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"8.0 for Linux x86 (64-bit) (October 10, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 412, 10, 71, "Input"],
Cell[982, 34, 7875, 112, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8894, 151, 100, 1, 109, "Section"],
Cell[CellGroupData[{
Cell[9019, 156, 233, 4, 57, "Subsection"],
Cell[9255, 162, 562, 12, 64, "Input"],
Cell[9820, 176, 9300, 235, 795, "Input"],
Cell[19123, 413, 20550, 545, 2091, "Input"],
Cell[CellGroupData[{
Cell[39698, 962, 231, 6, 64, "Input"],
Cell[39932, 970, 2255, 33, 105, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42236, 1009, 253, 3, 43, "Subsection"],
Cell[42492, 1014, 5689, 159, 511, "Input"],
Cell[48184, 1175, 1603, 38, 228, "Input"],
Cell[49790, 1215, 1585, 38, 268, "Input"],
Cell[51378, 1255, 830, 24, 64, "Input"],
Cell[52211, 1281, 1383, 33, 147, "Input"],
Cell[53597, 1316, 979, 24, 147, "Input"],
Cell[54579, 1342, 676, 12, 106, "Input"],
Cell[55258, 1356, 679, 12, 106, "Input"],
Cell[55940, 1370, 707, 13, 106, "Input"],
Cell[56650, 1385, 707, 13, 106, "Input"],
Cell[57360, 1400, 707, 13, 106, "Input"],
Cell[58070, 1415, 703, 13, 106, "Input"],
Cell[58776, 1430, 621, 19, 64, "Input"],
Cell[59400, 1451, 8085, 242, 916, "Input"],
Cell[67488, 1695, 1375, 42, 147, "Input"],
Cell[68866, 1739, 1656, 47, 670, "Input"],
Cell[70525, 1788, 3981, 98, 1045, "Input"],
Cell[74509, 1888, 360, 10, 285, "Input"],
Cell[74872, 1900, 424, 11, 285, "Input"],
Cell[75299, 1913, 307, 9, 285, "Input"],
Cell[75609, 1924, 439, 13, 285, "Input"],
Cell[76051, 1939, 408, 12, 285, "Input"],
Cell[76462, 1953, 4165, 132, 1801, "Input"],
Cell[80630, 2087, 3684, 107, 1045, "Input"],
Cell[84317, 2196, 3593, 105, 670, "Input"],
Cell[87913, 2303, 1375, 42, 670, "Input"],
Cell[89291, 2347, 1901, 47, 670, "Input"],
Cell[91195, 2396, 10458, 312, 3492, "Input"],
Cell[101656, 2710, 5368, 159, 1620, "Input"],
Cell[107027, 2871, 3375, 102, 1045, "Input"],
Cell[CellGroupData[{
Cell[110427, 2977, 133, 2, 285, "Input"],
Cell[110563, 2981, 374, 5, 105, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110974, 2991, 138, 2, 285, "Input"],
Cell[111115, 2995, 374, 5, 105, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111526, 3005, 4261, 125, 1620, "Input"],
Cell[115790, 3132, 801, 14, 105, "Message"],
Cell[116594, 3148, 801, 14, 105, "Message"],
Cell[117398, 3164, 801, 14, 105, "Message"],
Cell[118202, 3180, 801, 14, 105, "Message"],
Cell[119006, 3196, 801, 14, 105, "Message"],
Cell[119810, 3212, 621, 12, 105, "Message"],
Cell[120434, 3226, 799, 14, 105, "Message"],
Cell[121236, 3242, 800, 14, 105, "Message"],
Cell[122039, 3258, 801, 14, 105, "Message"],
Cell[122843, 3274, 621, 12, 105, "Message"],
Cell[123467, 3288, 803, 14, 105, "Message"],
Cell[124273, 3304, 801, 14, 105, "Message"],
Cell[125077, 3320, 803, 14, 105, "Message"],
Cell[125883, 3336, 621, 12, 105, "Message"]
}, Open  ]],
Cell[126519, 3351, 1829, 55, 486, "Input"],
Cell[128351, 3408, 1904, 54, 864, "Input"],
Cell[130258, 3464, 1198, 24, 486, "Input"],
Cell[131459, 3490, 332, 5, 325, "Text"],
Cell[131794, 3497, 1356, 34, 285, "Input"],
Cell[133153, 3533, 383, 8, 325, "Text"],
Cell[133539, 3543, 3827, 106, 390, "Input"],
Cell[137369, 3651, 321, 5, 73, "Text"],
Cell[137693, 3658, 1213, 35, 147, "Input"],
Cell[138909, 3695, 359, 6, 73, "Text"],
Cell[139271, 3703, 1143, 26, 64, "Input"],
Cell[140417, 3731, 1036, 30, 106, "Input"],
Cell[141456, 3763, 1300, 35, 147, "Input"],
Cell[142759, 3800, 6584, 179, 592, "Input"],
Cell[149346, 3981, 1090, 30, 147, "Input"],
Cell[150439, 4013, 3733, 96, 349, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[154221, 4115, 121, 2, 109, "Section"],
Cell[CellGroupData[{
Cell[154367, 4121, 165, 2, 81, "Subsection"],
Cell[154535, 4125, 1265, 33, 228, "Input"],
Cell[155803, 4160, 2690, 69, 471, "Input"],
Cell[158496, 4231, 4796, 119, 714, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[163329, 4355, 275, 4, 67, "Subsection"],
Cell[163607, 4361, 964, 28, 147, "Input"],
Cell[164574, 4391, 207, 4, 63, "Text"],
Cell[164784, 4397, 3718, 95, 471, "Input"],
Cell[168505, 4494, 770, 15, 331, "Text"],
Cell[169278, 4511, 5717, 129, 754, "Input"],
Cell[174998, 4642, 130, 1, 63, "Text"],
Cell[175131, 4645, 4357, 109, 754, "Input"],
Cell[179491, 4756, 207, 4, 63, "Text"],
Cell[179701, 4762, 6514, 143, 795, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[186252, 4910, 177, 2, 67, "Subsection"],
Cell[186432, 4914, 2353, 59, 2065, "Input"],
Cell[188788, 4975, 194, 4, 283, "Text"],
Cell[188985, 4981, 5568, 141, 2782, "Input"],
Cell[194556, 5124, 3778, 101, 2065, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[198371, 5230, 128, 2, 67, "Subsection"],
Cell[198502, 5234, 8055, 185, 997, "Input"],
Cell[206560, 5421, 8046, 184, 997, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[214643, 5610, 323, 4, 67, "Subsection"],
Cell[214969, 5616, 478, 10, 202, "Text"],
Cell[215450, 5628, 21393, 518, 2293, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[236892, 6152, 207, 3, 109, "Section"],
Cell[CellGroupData[{
Cell[237124, 6159, 359, 6, 81, "Subsection"],
Cell[CellGroupData[{
Cell[237508, 6169, 150, 2, 39, "Subsubsection"],
Cell[237661, 6173, 232, 5, 64, "Input"],
Cell[237896, 6180, 323, 6, 64, "Input"],
Cell[CellGroupData[{
Cell[238244, 6190, 1173, 31, 228, "Input"],
Cell[239420, 6223, 4496, 63, 64, "Output"]
}, Open  ]],
Cell[243931, 6289, 231, 6, 64, "Input"],
Cell[244165, 6297, 504, 14, 64, "Input"],
Cell[244672, 6313, 702, 15, 106, "Input"],
Cell[245377, 6330, 863, 25, 106, "Input"],
Cell[246243, 6357, 1168, 19, 106, "Input"],
Cell[247414, 6378, 21060, 550, 2131, "Input"],
Cell[268477, 6930, 2240, 44, 187, "Input"],
Cell[270720, 6976, 327, 6, 64, "Input"],
Cell[CellGroupData[{
Cell[271072, 6986, 764, 19, 106, "Input"],
Cell[271839, 7007, 60221, 840, 64, "Output"]
}, Open  ]],
Cell[332075, 7850, 604, 16, 64, "Input"],
Cell[CellGroupData[{
Cell[332704, 7870, 249, 6, 64, "Input"],
Cell[332956, 7878, 11517, 165, 64, "Output"]
}, Open  ]],
Cell[344488, 8046, 164, 5, 64, "Input"],
Cell[CellGroupData[{
Cell[344677, 8055, 413, 10, 106, "Input"],
Cell[345093, 8067, 197, 5, 64, "Output"],
Cell[345293, 8074, 209, 5, 64, "Output"]
}, Open  ]],
Cell[345517, 8082, 1451, 36, 228, "Input"],
Cell[CellGroupData[{
Cell[346993, 8122, 285, 6, 64, "Input"],
Cell[347281, 8130, 33567, 465, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[380885, 8600, 8209, 210, 1240, "Input"],
Cell[389097, 8812, 34856, 482, 64, "Output"],
Cell[423956, 9296, 34826, 482, 64, "Output"]
}, Open  ]],
Cell[458797, 9781, 518, 14, 106, "Input"],
Cell[CellGroupData[{
Cell[459340, 9799, 424, 10, 64, "Input"],
Cell[459767, 9811, 36037, 499, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[495841, 10315, 729, 12, 106, "Input"],
Cell[496573, 10329, 34673, 480, 64, "Output"]
}, Open  ]],
Cell[531261, 10812, 231, 5, 102, "Text"],
Cell[531495, 10819, 6526, 166, 916, "Input"],
Cell[538024, 10987, 564, 13, 64, "Input"],
Cell[CellGroupData[{
Cell[538613, 11004, 131, 2, 64, "Input"],
Cell[538747, 11008, 11026, 155, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[549810, 11168, 484, 10, 64, "Input"],
Cell[550297, 11180, 22982, 320, 64, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[573328, 11506, 98, 1, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[573451, 11511, 879, 24, 98, "Input"],
Cell[574333, 11537, 34018, 471, 33, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[608388, 12013, 418, 9, 43, "Input"],
Cell[608809, 12024, 2920, 43, 43, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[611790, 12074, 325, 5, 81, "Subsection"],
Cell[CellGroupData[{
Cell[612140, 12083, 98, 1, 39, "Subsubsection"],
Cell[612241, 12086, 230, 6, 64, "Input"],
Cell[612474, 12094, 863, 25, 106, "Input"],
Cell[613340, 12121, 1168, 19, 106, "Input"],
Cell[614511, 12142, 21084, 552, 2212, "Input"],
Cell[635598, 12696, 2161, 43, 187, "Input"],
Cell[637762, 12741, 323, 7, 64, "Input"],
Cell[CellGroupData[{
Cell[638110, 12752, 129, 2, 64, "Input"],
Cell[638242, 12756, 10833, 151, 64, "Output"]
}, Open  ]],
Cell[649090, 12910, 3830, 101, 430, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[652957, 13016, 98, 1, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[653080, 13021, 710, 18, 64, "Input"],
Cell[653793, 13041, 36094, 508, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[689924, 13554, 631, 17, 147, "Input"],
Cell[690558, 13573, 10809, 151, 64, "Output"]
}, Open  ]],
Cell[701382, 13727, 372, 9, 64, "Input"],
Cell[CellGroupData[{
Cell[701779, 13740, 504, 14, 64, "Input"],
Cell[702286, 13756, 7970, 112, 64, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[710317, 13875, 518, 9, 81, "Subsection"],
Cell[CellGroupData[{
Cell[710860, 13888, 107, 1, 39, "Subsubsection"],
Cell[710970, 13891, 145, 3, 64, "Input"],
Cell[CellGroupData[{
Cell[711140, 13898, 185, 3, 64, "Input"],
Cell[711328, 13903, 12601, 177, 64, "Output"]
}, Open  ]],
Cell[723944, 14083, 467, 9, 64, "Input"],
Cell[CellGroupData[{
Cell[724436, 14096, 347, 9, 106, "Input"],
Cell[724786, 14107, 147, 3, 64, "Output"],
Cell[724936, 14112, 135, 3, 64, "Output"]
}, Open  ]],
Cell[725086, 14118, 833, 17, 64, "Input"],
Cell[725922, 14137, 2529, 62, 349, "Input"],
Cell[728454, 14201, 495, 12, 147, "Input"],
Cell[728952, 14215, 2272, 54, 309, "Input"],
Cell[731227, 14271, 2178, 54, 309, "Input"],
Cell[733408, 14327, 2540, 63, 390, "Input"],
Cell[735951, 14392, 2446, 62, 390, "Input"],
Cell[738400, 14456, 2415, 61, 390, "Input"],
Cell[740818, 14519, 1986, 51, 309, "Input"],
Cell[742807, 14572, 1940, 51, 309, "Input"],
Cell[744750, 14625, 1754, 46, 309, "Input"],
Cell[746507, 14673, 731, 17, 445, "Text"],
Cell[747241, 14692, 3136, 83, 430, "Input"],
Cell[CellGroupData[{
Cell[750402, 14779, 230, 5, 64, "Input"],
Cell[750635, 14786, 11414, 161, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[762086, 14952, 8420, 211, 1240, "Input"],
Cell[770509, 15165, 12309, 172, 64, "Output"],
Cell[782821, 15339, 229, 4, 49, "Print"],
Cell[783053, 15345, 12280, 172, 64, "Output"]
}, Open  ]],
Cell[795348, 15520, 132, 2, 64, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[795517, 15527, 100, 1, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[795642, 15532, 1314, 35, 98, "Input"],
Cell[796959, 15569, 8308, 116, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[805304, 15690, 323, 8, 43, "Input"],
Cell[805630, 15700, 3505, 51, 43, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)