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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     54067,       1139]
NotebookOptionsPosition[     51356,       1057]
NotebookOutlinePosition[     51691,       1072]
CellTagsIndexPosition[     51648,       1069]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"deg", "=", "3"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"d", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "i"}], "*", 
      RowBox[{"y", "^", "j"}], "*", 
      RowBox[{"z", "^", "k"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "deg"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", 
       RowBox[{"deg", "-", "i"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", 
       RowBox[{"deg", "-", "i", "-", "j"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"Flatten", "[", "d", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", "[", "i", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "d", "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"d", ".", "v"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"cf", " ", "=", " ", 
   RowBox[{"CoefficientList", "[", 
    RowBox[{"f", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cf", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "=", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cf", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "=", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cf", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "=", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cf", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], "=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cf", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "=", "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.535729238101449*^9, 3.5357292440668993`*^9}, {
   3.535730785284378*^9, 3.535730785607462*^9}, 3.539818512943715*^9, {
   3.53998551024417*^9, 3.539985521997554*^9}, {3.540034583971677*^9, 
   3.540034584127707*^9}, {3.5400346418106947`*^9, 3.540034649000997*^9}, {
   3.54015919843462*^9, 3.540159199705955*^9}, 3.54016207254384*^9, 
   3.540162110930809*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cf", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cf", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "[", 
   RowBox[{"[", "3", "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.540162078689323*^9, 3.540162099581935*^9}}],

Cell[BoxData[
 RowBox[{"a", "[", "17", "]"}]], "Output",
 CellChangeTimes->{{3.540162100032048*^9, 3.5401621143001337`*^9}, 
   3.540162354783183*^9, 3.540162443491322*^9, 3.5401625705108767`*^9}],

Cell[BoxData[
 RowBox[{"a", "[", "8", "]"}]], "Output",
 CellChangeTimes->{{3.540162100032048*^9, 3.5401621143001337`*^9}, 
   3.540162354783183*^9, 3.540162443491322*^9, 3.540162570621139*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"a", "[", "17", "]"}], " ", "and", " ", 
   RowBox[{"a", "[", "8", "]"}], " ", "are", " ", "dependant", " ", "on", " ",
    "a", " ", "principal", " ", "curvature", " ", 
   RowBox[{"assumption", "."}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.540162118828807*^9, 3.5401621395551434`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fx", "=", 
   RowBox[{"D", "[", 
    RowBox[{"f", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fy", "=", 
   RowBox[{"D", "[", 
    RowBox[{"f", ",", "y"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fz", "=", 
   RowBox[{"D", "[", 
    RowBox[{"f", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nf", "=", 
   RowBox[{
    RowBox[{"fx", "^", "2"}], "+", 
    RowBox[{"fy", "^", "2"}], "+", 
    RowBox[{"fz", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lf", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"fx", ",", "x"}], "]"}], "+", 
    RowBox[{"D", "[", 
     RowBox[{"fy", ",", "y"}], "]"}], "+", 
    RowBox[{"D", "[", 
     RowBox[{"fz", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NNfNf", "=", 
   RowBox[{
    RowBox[{"fx", "*", 
     RowBox[{"D", "[", 
      RowBox[{"Nf", ",", "x"}], "]"}]}], "+", 
    RowBox[{"fy", "*", 
     RowBox[{"D", "[", 
      RowBox[{"Nf", ",", "y"}], "]"}]}], "+", 
    RowBox[{"fz", "*", 
     RowBox[{"D", "[", 
      RowBox[{"Nf", ",", "z"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{
    RowBox[{"2", "*", "Nf", "*", "Lf"}], "-", "NNfNf", "-", 
    RowBox[{"4", "*", 
     RowBox[{
      RowBox[{"(", "Nf", ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"G", "[", "0", "]"}], "=", "g"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Q", "[", "0", "]"}], "=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "=", "0"}], ",", 
      RowBox[{"y", "=", "0"}], ",", 
      RowBox[{"z", "=", "0"}]}], "}"}], ",", 
    RowBox[{"Simplify", "[", 
     RowBox[{"G", "[", "0", "]"}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5354564732639728`*^9, 3.5354564758577023`*^9}, {
   3.535456516676397*^9, 3.535456569862875*^9}, {3.535456602399661*^9, 
   3.5354566171408577`*^9}, {3.535457388630205*^9, 3.5354573890007377`*^9}, {
   3.535676101725634*^9, 3.5356761047158337`*^9}, {3.53568306223811*^9, 
   3.53568310148643*^9}, 3.5394492489431877`*^9, {3.539985674164404*^9, 
   3.5399858415166407`*^9}, {3.5399858947898273`*^9, 3.539985904244314*^9}, {
   3.53998593441117*^9, 3.539985939364025*^9}, {3.539986084540403*^9, 
   3.539986101031724*^9}, {3.539986448044969*^9, 3.5399864775991917`*^9}, {
   3.540034633543725*^9, 3.540034638239217*^9}, {3.540159621554947*^9, 
   3.54015964363421*^9}, 3.5401606462295647`*^9, 3.540162145661669*^9}],

Cell[BoxData[
 RowBox[{"4", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"a", "[", "8", "]"}], "+", 
    RowBox[{"a", "[", "17", "]"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.540162146235146*^9, 3.5401623561059837`*^9, 
  3.540162445107177*^9, 3.540162570657303*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"We", " ", "want", " ", 
     RowBox[{"Q", "[", "0", "]"}], " ", "to", " ", "be", " ", "zero"}], ",", 
    " ", 
    RowBox[{
    "so", " ", "at", " ", "the", " ", "very", " ", "least", " ", "we", " ", 
     "can", " ", "make", " ", "the", " ", "following", " ", 
     RowBox[{"substitution", ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "17", "]"}], "=", 
    RowBox[{"1", "-", 
     RowBox[{"a", "[", "8", "]"}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.540162148528652*^9, 3.540162184469243*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cross1", "[", "h_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"h", ",", "y"}], "]"}], "*", "fz"}], "-", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"h", ",", "z"}], "]"}], "*", "fy"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cross2", "[", "h_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"h", ",", "z"}], "]"}], "*", "fx"}], "-", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"h", ",", "x"}], "]"}], "*", "fz"}]}]}]}], "Input",
 CellChangeTimes->{{3.535457400897845*^9, 3.535457401008003*^9}, {
  3.5354575163839054`*^9, 3.5354575644730544`*^9}, {3.535683107970916*^9, 
  3.535683132589582*^9}, {3.539986619874688*^9, 3.539986649670693*^9}, {
  3.5401611014475203`*^9, 3.540161124571824*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nextIndex", "[", "index_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"in", "=", "index"}], ";", "\[IndentingNewLine]", 
    RowBox[{"rem", "=", 
     RowBox[{"Mod", "[", 
      RowBox[{"in", ",", "10"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"rem", "\[NotEqual]", "2"}], ",", 
      RowBox[{"Return", "[", 
       RowBox[{"in", "+", "1"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"retindex", "=", 
        RowBox[{"nextIndex", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"in", "-", "rem"}], ")"}], "/", "10"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{
         RowBox[{"retindex", "*", "10"}], "+", 
         RowBox[{"Mod", "[", 
          RowBox[{"retindex", ",", "10"}], "]"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.540159339556685*^9, 3.540159343791759*^9}, {
  3.5401597016763783`*^9, 3.54015970285189*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"stats", "[", 
     RowBox[{"letter_", ",", "index_"}], "]"}], ":=", 
    RowBox[{"Print", "[", 
     RowBox[{"letter", "<>", "\"\<[\>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{"NumberForm", "[", 
        RowBox[{"index", ",", 
         RowBox[{"DigitBlock", "\[Rule]", "3"}], ",", 
         RowBox[{"NumberSeparator", "\[Rule]", "\"\< \>\""}]}], "]"}], "]"}], 
      "<>", "\"\<] (\>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{"TimeUsed", "[", "]"}], "]"}], "<>", "\"\< / \>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{"NumberForm", "[", 
        RowBox[{
         RowBox[{"MemoryInUse", "[", "]"}], ",", 
         RowBox[{"DigitBlock", "\[Rule]", "3"}], ",", 
         RowBox[{"NumberSeparator", "\[Rule]", "\"\< \>\""}]}], "]"}], "]"}], 
      "<>", "\"\< / \>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{"NumberForm", "[", 
        RowBox[{
         RowBox[{"MaxMemoryUsed", "[", "]"}], ",", 
         RowBox[{"DigitBlock", "\[Rule]", "3"}], ",", 
         RowBox[{"NumberSeparator", "\[Rule]", "\"\< \>\""}]}], "]"}], "]"}], 
      "<>", "\"\<)\>\""}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Gdone", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Qdone", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iterate", "[", "num_", "]"}], ":=", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"i", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"While", "[", 
     RowBox[{
      RowBox[{"i", "<", "num"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"i", " ", "=", " ", 
        RowBox[{"nextIndex", "[", "i", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"stats", "[", 
        RowBox[{"\"\<G\>\"", ",", "i"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", " ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{"i", ",", "10"}], "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{"G", "[", "i", "]"}], "=", 
          RowBox[{"cross1", "[", 
           RowBox[{"G", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"i", "-", 
               RowBox[{"Mod", "[", 
                RowBox[{"i", ",", "10"}], "]"}]}], ")"}], "/", "10"}], "]"}], 
           "]"}]}], ",", 
         RowBox[{
          RowBox[{"G", "[", "i", "]"}], "=", 
          RowBox[{"cross2", "[", 
           RowBox[{"G", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"i", "-", 
               RowBox[{"Mod", "[", 
                RowBox[{"i", ",", "10"}], "]"}]}], ")"}], "/", "10"}], "]"}], 
           "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"Gdone", ",", "i"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"stats", "[", 
        RowBox[{"\"\<Q\>\"", ",", "i"}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Q", "[", "i", "]"}], "=", 
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "=", "0"}], ",", 
            RowBox[{"y", "=", "0"}], ",", 
            RowBox[{"z", "=", "0"}]}], "}"}], ",", 
          RowBox[{"Simplify", "[", 
           RowBox[{"G", "[", "i", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"Qdone", ",", "i"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
     "]"}], ";"}], "\[IndentingNewLine]", ")"}]}]}], "Input",
 CellChangeTimes->{{3.535673799284607*^9, 3.535673830980793*^9}, {
   3.5356738739754457`*^9, 3.535673891605411*^9}, {3.5356739791142883`*^9, 
   3.535673989422043*^9}, {3.535674221475849*^9, 3.535674323448656*^9}, {
   3.535674393491889*^9, 3.5356745174529123`*^9}, {3.535674586566164*^9, 
   3.5356747076292553`*^9}, {3.5356750312257423`*^9, 
   3.5356750844890947`*^9}, {3.535675126652732*^9, 3.535675138704864*^9}, {
   3.5356751939987164`*^9, 3.535675236144711*^9}, {3.5356752952611437`*^9, 
   3.535675431621016*^9}, {3.535675487363614*^9, 3.535675618347335*^9}, {
   3.535675703414139*^9, 3.535675711542694*^9}, {3.5356757604109287`*^9, 
   3.535675821851335*^9}, {3.5356759561955757`*^9, 3.535676004516355*^9}, {
   3.535676118855112*^9, 3.5356761254564047`*^9}, {3.535676287203865*^9, 
   3.535676342410241*^9}, {3.53567637997079*^9, 3.535676390994223*^9}, {
   3.535676424437437*^9, 3.535676553442849*^9}, {3.535678584558559*^9, 
   3.535678598103463*^9}, {3.535678637521797*^9, 3.535678737301982*^9}, {
   3.535678771353733*^9, 3.535678792743741*^9}, {3.5356804608709517`*^9, 
   3.535680464064707*^9}, {3.535680621718042*^9, 3.535680633225165*^9}, {
   3.5356814523205757`*^9, 3.535681629176569*^9}, {3.5356816770225277`*^9, 
   3.5356816880082617`*^9}, {3.535681741794496*^9, 3.5356818365677843`*^9}, 
   3.535682835952167*^9, 3.53568315064841*^9, {3.5356846642077103`*^9, 
   3.535684675438447*^9}, {3.535722498786312*^9, 3.535722510735485*^9}, {
   3.535722579466258*^9, 3.535722582117064*^9}, {3.53572374440007*^9, 
   3.535723745402553*^9}, {3.53998666112562*^9, 3.539986788076407*^9}, {
   3.539987977046517*^9, 3.539988022221778*^9}, {3.540031018838937*^9, 
   3.540031040715006*^9}, {3.540031477163218*^9, 3.5400317872699757`*^9}, {
   3.540031829682291*^9, 3.5400318307961617`*^9}, {3.540034610703607*^9, 
   3.540034613519828*^9}, {3.540034669571412*^9, 3.540034672814392*^9}, {
   3.540159365746069*^9, 3.5401594740118713`*^9}, {3.5401595092776747`*^9, 
   3.540159536255662*^9}, {3.540159657220889*^9, 3.5401596624460163`*^9}, {
   3.5401606639226923`*^9, 3.540160665773909*^9}, 3.540160699749188*^9, {
   3.540162033115893*^9, 3.540162063818633*^9}, {3.540162213716312*^9, 
   3.540162233309786*^9}, {3.540162316291143*^9, 3.540162348652762*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"iterate", "[", "22222", "]"}]], "Input",
 CellChangeTimes->{{3.535673834109256*^9, 3.535673835139147*^9}, 
   3.53567522605377*^9, {3.535675421602545*^9, 3.535675422992243*^9}, {
   3.535675494729319*^9, 3.535675498331723*^9}, {3.535675623890188*^9, 
   3.535675625720214*^9}, {3.5356761689627237`*^9, 3.535676169432386*^9}, {
   3.535676204933168*^9, 3.535676207037511*^9}, {3.535681165425889*^9, 
   3.535681165952339*^9}, {3.535681634107259*^9, 3.535681634337085*^9}, {
   3.535682329361971*^9, 3.535682330136846*^9}, {3.53568284445859*^9, 
   3.53568284533855*^9}, 3.535682914430998*^9, {3.535728322736681*^9, 
   3.535728323080985*^9}, {3.53572843453052*^9, 3.535728435066197*^9}, {
   3.535729290044795*^9, 3.535729290660695*^9}, {3.535729816144105*^9, 
   3.535729816544413*^9}, {3.5357307892056627`*^9, 3.535730798165141*^9}, {
   3.5399867973884478`*^9, 3.539986806066636*^9}, {3.5401595680614347`*^9, 
   3.540159575404483*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"G[1] (0.403308 / 17 287 328 / 17 295 104)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162570884705*^9}],

Cell[BoxData["\<\"Q[1] (0.403308 / 17 335 200 / 17 335 960)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625708927794`*^9}],

Cell[BoxData["\<\"G[2] (0.409974 / 17 359 816 / 17 365 608)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162570894053*^9}],

Cell[BoxData["\<\"Q[2] (0.413307 / 17 397 064 / 17 397 824)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625708986473`*^9}],

Cell[BoxData["\<\"G[11] (0.419973 / 17 428 880 / 17 434 664)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162571050502*^9}],

Cell[BoxData["\<\"Q[11] (0.423306 / 17 506 184 / 17 506 944)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625710534286`*^9}],

Cell[BoxData["\<\"G[12] (0.466637 / 17 704 424 / 17 732 712)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625710561333`*^9}],

Cell[BoxData["\<\"Q[12] (0.473303 / 17 760 944 / 17 761 704)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162571059658*^9}],

Cell[BoxData["\<\"G[22] (0.493302 / 17 820 568 / 17 835 328)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162571062236*^9}],

Cell[BoxData["\<\"Q[22] (0.496635 / 17 880 648 / 17 881 408)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162571065465*^9}],

Cell[BoxData["\<\"G[111] (0.529966 / 17 992 424 / 18 020 288)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625710739307`*^9}],

Cell[BoxData["\<\"Q[111] (0.546631 / 18 125 160 / 18 125 920)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162571213647*^9}],

Cell[BoxData["\<\"G[112] (0.703287 / 18 456 696 / 18 525 072)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162571504142*^9}],

Cell[BoxData["\<\"Q[112] (0.723286 / 18 551 040 / 18 551 800)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625715985603`*^9}],

Cell[BoxData["\<\"G[122] (0.849945 / 18 883 184 / 18 963 920)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162571932131*^9}],

Cell[BoxData["\<\"Q[122] (0.869944 / 19 010 648 / 19 011 408)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625720485487`*^9}],

Cell[BoxData["\<\"G[222] (0.996602 / 19 307 408 / 19 364 088)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625722956038`*^9}],

Cell[BoxData["\<\"Q[222] (1.01327 / 19 404 864 / 19 405 624)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625724032*^9}],

Cell[BoxData["\<\"G[1 111] (1.17659 / 19 748 456 / 19 832 232)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162572775506*^9}],

Cell[BoxData["\<\"Q[1 111] (1.23659 / 19 951 560 / 19 952 848)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162572959*^9}],

Cell[BoxData["\<\"G[1 112] (1.77988 / 20 933 160 / 21 131 392)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.54016257391883*^9}],

Cell[BoxData["\<\"Q[1 112] (1.83321 / 21 071 056 / 21 131 392)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625740454597`*^9}],

Cell[BoxData["\<\"G[1 122] (2.51984 / 22 553 744 / 22 797 280)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162575037682*^9}],

Cell[BoxData["\<\"Q[1 122] (2.5865 / 22 787 928 / 22 797 280)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162575208804*^9}],

Cell[BoxData["\<\"G[1 222] (3.27979 / 23 903 864 / 24 127 168)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162576128869*^9}],

Cell[BoxData["\<\"Q[1 222] (3.34978 / 24 107 792 / 24 127 168)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162576264969*^9}],

Cell[BoxData["\<\"G[2 222] (3.93974 / 25 109 216 / 25 329 840)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162577019142*^9}],

Cell[BoxData["\<\"Q[2 222] (3.99974 / 25 251 408 / 25 329 840)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162577148758*^9}],

Cell[BoxData["\<\"G[11 111] (4.51637 / 26 083 488 / 26 305 496)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162577782078*^9}],

Cell[BoxData["\<\"Q[11 111] (4.71636 / 26 346 080 / 26 348 152)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162578005678*^9}],

Cell[BoxData["\<\"G[11 112] (6.82955 / 27 659 392 / 29 287 832)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625801031446`*^9}],

Cell[BoxData["\<\"Q[11 112] (6.99288 / 27 825 384 / 29 287 832)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162580265215*^9}],

Cell[BoxData["\<\"G[11 122] (10.096 / 30 056 472 / 32 138 144)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162583352351*^9}],

Cell[BoxData["\<\"Q[11 122] (10.326 / 30 412 256 / 32 138 144)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162583582851*^9}],

Cell[BoxData["\<\"G[11 222] (13.9624 / 33 205 072 / 35 522 152)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162587192058*^9}],

Cell[BoxData["\<\"Q[11 222] (14.2557 / 33 570 536 / 35 522 152)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162587486928*^9}],

Cell[BoxData["\<\"G[12 222] (17.7855 / 36 376 200 / 38 582 440)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.5401625909989157`*^9}],

Cell[BoxData["\<\"Q[12 222] (18.0455 / 36 654 992 / 38 582 440)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162591253879*^9}],

Cell[BoxData["\<\"G[22 222] (20.822 / 38 227 976 / 40 227 192)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.54016259401964*^9}],

Cell[BoxData["\<\"Q[22 222] (21.0253 / 38 412 104 / 40 227 192)\"\>"], "Print",
 CellChangeTimes->{
  3.535722590783127*^9, 3.535723653560417*^9, 3.535723915249363*^9, 
   3.535728401669636*^9, 3.535730032166821*^9, 3.539449312991403*^9, 
   3.539509535180971*^9, 3.5399868306825113`*^9, 3.539986885189583*^9, 
   3.5399869644880457`*^9, 3.5400310622289677`*^9, 3.540031246201915*^9, 
   3.5400313027800922`*^9, 3.5400315829041367`*^9, 3.540031759690919*^9, 
   3.540031819177246*^9, 3.540031899466504*^9, 3.5400346171116943`*^9, 
   3.540034683562092*^9, 3.5401592234008703`*^9, {3.540159675991083*^9, 
   3.5401596901480703`*^9}, 3.5401597239017067`*^9, {3.540160694904333*^9, 
   3.54016071915219*^9}, 3.540162247836913*^9, 3.540162366561013*^9, 
   3.540162453217346*^9, 3.540162594223022*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"q", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Q", "[", 
      RowBox[{"Qdone", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "Qdone", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.540159781034666*^9, 3.540159809799589*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "=", 
   RowBox[{"q", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "[", "8", "]"}], "\[Rule]", "0"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.540162402590208*^9, 3.540162420576366*^9}, {
  3.540162464187846*^9, 3.540162488200205*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GroebnerBasis", "[", 
  RowBox[{"r", ",", 
   RowBox[{"Variables", "[", "r", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5401625159259777`*^9, 3.540162525714919*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "[", "16", "]"}], ",", 
   RowBox[{"a", "[", "15", "]"}], ",", 
   RowBox[{
    RowBox[{"a", "[", "13", "]"}], "-", 
    RowBox[{"a", "[", "20", "]"}]}], ",", 
   RowBox[{
    RowBox[{"a", "[", "12", "]"}], "-", 
    RowBox[{"a", "[", "20", "]"}]}], ",", 
   RowBox[{"a", "[", "10", "]"}], ",", 
   RowBox[{"a", "[", "9", "]"}], ",", 
   RowBox[{
    RowBox[{"a", "[", "7", "]"}], "-", 
    RowBox[{"a", "[", "19", "]"}]}], ",", 
   RowBox[{
    RowBox[{"a", "[", "6", "]"}], "-", 
    RowBox[{"a", "[", "19", "]"}]}], ",", 
   RowBox[{
    RowBox[{"a", "[", "4", "]"}], "-", 
    RowBox[{"a", "[", "18", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"a", "[", "3", "]"}], "-", 
    RowBox[{"a", "[", "18", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.540162526638632*^9, 3.540162597271873*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GroebnerBasis", "[", 
  RowBox[{"q", ",", 
   RowBox[{"Variables", "[", "q", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540162529256096*^9, 3.540162534576652*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.5401625417877207`*^9, 3.5401626069327707`*^9}]
}, Open  ]]
},
WindowSize->{958, 1054},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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[557, 20, 3001, 94, 245, "Input"],
Cell[CellGroupData[{
Cell[3583, 118, 437, 13, 48, "Input"],
Cell[4023, 133, 196, 3, 29, "Output"],
Cell[4222, 138, 193, 3, 29, "Output"]
}, Open  ]],
Cell[4430, 144, 352, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[4807, 155, 2640, 72, 201, "Input"],
Cell[7450, 229, 301, 8, 29, "Output"]
}, Open  ]],
Cell[7766, 240, 621, 16, 49, "Input"],
Cell[8390, 258, 806, 22, 55, "Input"],
Cell[9199, 282, 1098, 29, 165, "Input"],
Cell[10300, 313, 5933, 126, 434, "Input"],
Cell[CellGroupData[{
Cell[16258, 443, 962, 14, 29, "Input"],
Cell[CellGroupData[{
Cell[17245, 461, 793, 11, 22, "Print"],
Cell[18041, 474, 795, 11, 22, "Print"],
Cell[18839, 487, 793, 11, 22, "Print"],
Cell[19635, 500, 795, 11, 22, "Print"],
Cell[20433, 513, 794, 11, 22, "Print"],
Cell[21230, 526, 796, 11, 22, "Print"],
Cell[22029, 539, 796, 11, 22, "Print"],
Cell[22828, 552, 794, 11, 22, "Print"],
Cell[23625, 565, 794, 11, 22, "Print"],
Cell[24422, 578, 794, 11, 22, "Print"],
Cell[25219, 591, 797, 11, 22, "Print"],
Cell[26019, 604, 795, 11, 22, "Print"],
Cell[26817, 617, 795, 11, 22, "Print"],
Cell[27615, 630, 797, 11, 22, "Print"],
Cell[28415, 643, 795, 11, 22, "Print"],
Cell[29213, 656, 797, 11, 22, "Print"],
Cell[30013, 669, 797, 11, 22, "Print"],
Cell[30813, 682, 792, 11, 22, "Print"],
Cell[31608, 695, 796, 11, 22, "Print"],
Cell[32407, 708, 793, 11, 22, "Print"],
Cell[33203, 721, 795, 11, 22, "Print"],
Cell[34001, 734, 798, 11, 22, "Print"],
Cell[34802, 747, 796, 11, 22, "Print"],
Cell[35601, 760, 795, 11, 22, "Print"],
Cell[36399, 773, 796, 11, 22, "Print"],
Cell[37198, 786, 796, 11, 22, "Print"],
Cell[37997, 799, 796, 11, 22, "Print"],
Cell[38796, 812, 796, 11, 22, "Print"],
Cell[39595, 825, 797, 11, 22, "Print"],
Cell[40395, 838, 797, 11, 22, "Print"],
Cell[41195, 851, 799, 11, 22, "Print"],
Cell[41997, 864, 797, 11, 22, "Print"],
Cell[42797, 877, 796, 11, 22, "Print"],
Cell[43596, 890, 796, 11, 22, "Print"],
Cell[44395, 903, 797, 11, 22, "Print"],
Cell[45195, 916, 797, 11, 22, "Print"],
Cell[45995, 929, 799, 11, 22, "Print"],
Cell[46797, 942, 797, 11, 22, "Print"],
Cell[47597, 955, 795, 11, 22, "Print"],
Cell[48395, 968, 797, 11, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[49219, 983, 384, 12, 33, "Input"],
Cell[49606, 997, 299, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[49930, 1010, 194, 4, 33, "Input"],
Cell[50127, 1016, 878, 26, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51042, 1047, 192, 4, 33, "Input"],
Cell[51237, 1053, 103, 1, 29, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)