tetrachordscales1.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    228310,       6140]
NotebookOptionsPosition[    223023,       6038]
NotebookOutlinePosition[    225072,       6088]
CellTagsIndexPosition[    224736,       6076]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Generate Custom, Musical Scales with Tetrachords", "DemoTitle",
 CellChangeTimes->{{3.7947595013082247`*^9, 3.794759646494059*^9}, {
  3.794759677424328*^9, 
  3.794759688764349*^9}},ExpressionUUID->"8692525e-bc74-4ba9-8db7-\
f0514eccc348"],

Cell[CellGroupData[{

Cell["", "InitializationSection",ExpressionUUID->"3528022b-725f-4978-bdae-82086e005ceb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Unprotect", "[", "tetrachords", "]"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tetrachords", " ", "=", " ", 
    RowBox[{"<|", " ", 
     RowBox[{
      RowBox[{"1", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"80", "/", "79"}], ",", 
         RowBox[{"79", "/", "78"}], ",", 
         RowBox[{"13", "/", "10"}]}], "}"}]}], ",", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "49"}], ",", 
         RowBox[{"118", "/", "117"}], ",", 
         RowBox[{"13", "/", "10"}]}], "}"}]}], ",", 
      RowBox[{"3", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "119"}], ",", 
         RowBox[{"66", "/", "65"}], ",", 
         RowBox[{"13", "/", "10"}]}], "}"}]}], ",", 
      RowBox[{"4", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"100", "/", "99"}], ",", 
         RowBox[{"66", "/", "65"}], ",", 
         RowBox[{"13", "/", "10"}]}], "}"}]}], ",", 
      RowBox[{"5", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"72", "/", "71"}], ",", 
         RowBox[{"71", "/", "70"}], ",", 
         RowBox[{"35", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"6", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"108", "/", "107"}], ",", 
         RowBox[{"107", "/", "105"}], ",", 
         RowBox[{"35", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"7", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"54", "/", "53"}], ",", 
         RowBox[{"106", "/", "105"}], ",", 
         RowBox[{"35", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"8", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"35", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"9", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "66"}], ",", 
         RowBox[{"22", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"10", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"51", "/", "50"}], ",", 
         RowBox[{"100", "/", "99"}], ",", 
         RowBox[{"22", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"11", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"102", "/", "101"}], ",", 
         RowBox[{"101", "/", "99"}], ",", 
         RowBox[{"22", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"12", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"85", "/", "84"}], ",", 
         RowBox[{"56", "/", "55"}], ",", 
         RowBox[{"22", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"13", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"66", "/", "65"}], ",", 
         RowBox[{"65", "/", "64"}], ",", 
         RowBox[{"128", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"14", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"99", "/", "98"}], ",", 
         RowBox[{"49", "/", "48"}], ",", 
         RowBox[{"128", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"15", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"99", "/", "97"}], ",", 
         RowBox[{"97", "/", "96"}], ",", 
         RowBox[{"128", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"16", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"63", "/", "62"}], ",", 
         RowBox[{"31", "/", "24"}]}], "}"}]}], ",", 
      RowBox[{"17", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"96", "/", "95"}], ",", 
         RowBox[{"95", "/", "93"}], ",", 
         RowBox[{"31", "/", "24"}]}], "}"}]}], ",", 
      RowBox[{"18", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"48", "/", "47"}], ",", 
         RowBox[{"94", "/", "93"}], ",", 
         RowBox[{"31", "/", "24"}]}], "}"}]}], ",", 
      RowBox[{"19", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"62", "/", "61"}], ",", 
         RowBox[{"61", "/", "60"}], ",", 
         RowBox[{"40", "/", "31"}]}], "}"}]}], ",", 
      RowBox[{"20", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"93", "/", "92"}], ",", 
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"40", "/", "31"}]}], "}"}]}], ",", 
      RowBox[{"21", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"93", "/", "91"}], ",", 
         RowBox[{"91", "/", "90"}], ",", 
         RowBox[{"40", "/", "31"}]}], "}"}]}], ",", 
      RowBox[{"22", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"59", "/", "58"}], ",", 
         RowBox[{"58", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"23", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"90", "/", "89"}], ",", 
         RowBox[{"89", "/", "87"}], ",", 
         RowBox[{"58", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"24", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "44"}], ",", 
         RowBox[{"88", "/", "87"}], ",", 
         RowBox[{"58", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"25", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "199"}], ",", 
         RowBox[{"119", "/", "116"}], ",", 
         RowBox[{"58", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"26", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"56", "/", "55"}], ",", 
         RowBox[{"55", "/", "54"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"27", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"42", "/", "41"}], ",", 
         RowBox[{"82", "/", "81"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"28", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"84", "/", "83"}], ",", 
         RowBox[{"83", "/", "81"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"29", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"49", "/", "48"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"30", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"70", "/", "69"}], ",", 
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"31", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"91", "/", "90"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"32", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"112", "/", "111"}], ",", 
         RowBox[{"37", "/", "36"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"33", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"2240", "/", "2187"}], ",", 
         RowBox[{"9", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"34", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "7"}], ",", 
         RowBox[{"119", "/", "117"}], ",", 
         RowBox[{"52", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"35", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"54", "/", "53"}], ",", 
         RowBox[{"53", "/", "52"}], ",", 
         RowBox[{"104", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"36", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "79"}], ",", 
         RowBox[{"79", "/", "78"}], ",", 
         RowBox[{"104", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"37", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"104", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"38", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"52", "/", "51"}], ",", 
         RowBox[{"51", "/", "50"}], ",", 
         RowBox[{"50", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"39", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"39", "/", "38"}], ",", 
         RowBox[{"76", "/", "75"}], ",", 
         RowBox[{"50", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"40", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"78", "/", "77"}], ",", 
         RowBox[{"77", "/", "75"}], ",", 
         RowBox[{"50", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"41", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"50", "/", "49"}], ",", 
         RowBox[{"49", "/", "48"}], ",", 
         RowBox[{"32", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"42", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"75", "/", "73"}], ",", 
         RowBox[{"73", "/", "72"}], ",", 
         RowBox[{"32", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"43", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"75", "/", "74"}], ",", 
         RowBox[{"37", "/", "36"}], ",", 
         RowBox[{"32", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"44", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"48", "/", "47"}], ",", 
         RowBox[{"47", "/", "46"}], ",", 
         RowBox[{"23", "/", "18"}]}], "}"}]}], ",", 
      RowBox[{"45", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"70", "/", "69"}], ",", 
         RowBox[{"23", "/", "18"}]}], "}"}]}], ",", 
      RowBox[{"46", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"72", "/", "71"}], ",", 
         RowBox[{"71", "/", "69"}], ",", 
         RowBox[{"23", "/", "18"}]}], "}"}]}], ",", 
      RowBox[{"47", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"116", "/", "115"}], ",", 
         RowBox[{"23", "/", "18"}]}], "}"}]}], ",", 
      RowBox[{"48", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"118", "/", "115"}], ",", 
         RowBox[{"23", "/", "18"}]}], "}"}]}], ",", 
      RowBox[{"49", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"45", "/", "44"}], ",", 
         RowBox[{"88", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"50", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"69", "/", "67"}], ",", 
         RowBox[{"67", "/", "66"}], ",", 
         RowBox[{"88", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"51", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"69", "/", "68"}], ",", 
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"88", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"52", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"320", "/", "313"}], ",", 
         RowBox[{"313", "/", "306"}], ",", 
         RowBox[{"51", "/", "40"}]}], "}"}]}], ",", 
      RowBox[{"53", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"480", "/", "473"}], ",", 
         RowBox[{"473", "/", "459"}], ",", 
         RowBox[{"51", "/", "40"}]}], "}"}]}], ",", 
      RowBox[{"54", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"240", "/", "233"}], ",", 
         RowBox[{"466", "/", "459"}], ",", 
         RowBox[{"51", "/", "40"}]}], "}"}]}], ",", 
      RowBox[{"55", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"44", "/", "43"}], ",", 
         RowBox[{"43", "/", "42"}], ",", 
         RowBox[{"14", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"56", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"33", "/", "32"}], ",", 
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"14", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"57", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"66", "/", "65"}], ",", 
         RowBox[{"65", "/", "63"}], ",", 
         RowBox[{"14", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"58", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"88", "/", "87"}], ",", 
         RowBox[{"29", "/", "28"}], ",", 
         RowBox[{"14", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"59", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"55", "/", "54"}], ",", 
         RowBox[{"14", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"60", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"50", "/", "49"}], ",", 
         RowBox[{"77", "/", "75"}], ",", 
         RowBox[{"14", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"61", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "11"}], ",", 
         RowBox[{"143", "/", "140"}], ",", 
         RowBox[{"40", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"62", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"42", "/", "41"}], ",", 
         RowBox[{"41", "/", "40"}], ",", 
         RowBox[{"80", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"63", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"63", "/", "61"}], ",", 
         RowBox[{"61", "/", "60"}], ",", 
         RowBox[{"80", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"64", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"63", "/", "62"}], ",", 
         RowBox[{"31", "/", "30"}], ",", 
         RowBox[{"80", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"65", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"208", "/", "203"}], ",", 
         RowBox[{"203", "/", "198"}], ",", 
         RowBox[{"33", "/", "26"}]}], "}"}]}], ",", 
      RowBox[{"66", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"312", "/", "307"}], ",", 
         RowBox[{"307", "/", "297"}], ",", 
         RowBox[{"33", "/", "26"}]}], "}"}]}], ",", 
      RowBox[{"67", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"312", "/", "302"}], ",", 
         RowBox[{"302", "/", "297"}], ",", 
         RowBox[{"33", "/", "26"}]}], "}"}]}], ",", 
      RowBox[{"68", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"52", "/", "51"}], ",", 
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"33", "/", "26"}]}], "}"}]}], ",", 
      RowBox[{"69", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"100", "/", "99"}], ",", 
         RowBox[{"33", "/", "26"}]}], "}"}]}], ",", 
      RowBox[{"70", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"78", "/", "77"}], ",", 
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"33", "/", "26"}]}], "}"}]}], ",", 
      RowBox[{"71", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"39", "/", "38"}], ",", 
         RowBox[{"19", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"72", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"58", "/", "57"}], ",", 
         RowBox[{"19", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"73", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"59", "/", "57"}], ",", 
         RowBox[{"19", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"74", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"135", "/", "133"}], ",", 
         RowBox[{"19", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"75", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"512", "/", "499"}], ",", 
         RowBox[{"499", "/", "486"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"76", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"384", "/", "371"}], ",", 
         RowBox[{"742", "/", "729"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"77", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"768", "/", "755"}], ",", 
         RowBox[{"755", "/", "729"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"78", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"416", "/", "405"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"79", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"128", "/", "125"}], ",", 
         RowBox[{"250", "/", "243"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"80", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"81", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"282429536481", "/", "274877906944"}], ",", 
         RowBox[{"70368744177664", "/", "68630377364883"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"82", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"2240", "/", "2187"}], ",", 
         RowBox[{"81", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"83", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"38", "/", "37"}], ",", 
         RowBox[{"37", "/", "36"}], ",", 
         RowBox[{"24", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"84", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"57", "/", "55"}], ",", 
         RowBox[{"55", "/", "54"}], ",", 
         RowBox[{"24", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"85", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"57", "/", "56"}], ",", 
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"24", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"86", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"76", "/", "75"}], ",", 
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"24", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"87", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"117", "/", "95"}], ",", 
         RowBox[{"24", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"88", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"35", "/", "34"}], ",", 
         RowBox[{"34", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"89", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "26"}], ",", 
         RowBox[{"52", "/", "51"}], ",", 
         RowBox[{"34", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"90", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"54", "/", "53"}], ",", 
         RowBox[{"53", "/", "51"}], ",", 
         RowBox[{"34", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"91", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"69", "/", "68"}], ",", 
         RowBox[{"34", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"92", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"240", "/", "233"}], ",", 
         RowBox[{"233", "/", "266"}], ",", 
         RowBox[{"113", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"93", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"180", "/", "173"}], ",", 
         RowBox[{"346", "/", "339"}], ",", 
         RowBox[{"113", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"94", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"360", "/", "353"}], ",", 
         RowBox[{"353", "/", "339"}], ",", 
         RowBox[{"113", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"95", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"116", "/", "113"}], ",", 
         RowBox[{"113", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"96", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"117", "/", "113"}], ",", 
         RowBox[{"113", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"97", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"118", "/", "113"}], ",", 
         RowBox[{"113", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"98", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"33", "/", "32"}], ",", 
         RowBox[{"64", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"99", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"51", "/", "50"}], ",", 
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"64", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"100", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"49", "/", "48"}], ",", 
         RowBox[{"51", "/", "49"}], ",", 
         RowBox[{"64", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"101", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "65"}], ",", 
         RowBox[{"65", "/", "64"}], ",", 
         RowBox[{"64", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"102", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "64"}], ",", 
         RowBox[{"64", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"103", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"32", "/", "31"}], ",", 
         RowBox[{"31", "/", "30"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"104", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"105", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"48", "/", "47"}], ",", 
         RowBox[{"47", "/", "45"}], ",", "54"}], "}"}]}], ",", 
      RowBox[{"106", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"107", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"56", "/", "55"}], ",", 
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"108", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"109", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"128", "/", "125"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"110", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"111", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"112", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"76", "/", "75"}], ",", 
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"113", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"96", "/", "95"}], ",", 
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"114", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"136", "/", "135"}], ",", 
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"115", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "255"}], ",", 
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"5", "/", "4"}]}], "}"}]}], ",", 
      RowBox[{"116", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "65"}], ",", 
         RowBox[{"5", "/", "4"}], ",", 
         RowBox[{"52", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"117", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"4374", "/", "4235"}], ",", 
         RowBox[{"4235", "/", "4096"}], ",", 
         RowBox[{"8192", "/", "6561"}]}], "}"}]}], ",", 
      RowBox[{"118", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"6561", "/", "6283"}], ",", 
         RowBox[{"6283", "/", "6144"}], ",", 
         RowBox[{"8192", "/", "6561"}]}], "}"}]}], ",", 
      RowBox[{"119", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"6561", "/", "6422"}], ",", 
         RowBox[{"3211", "/", "3072"}], ",", 
         RowBox[{"8192", "/", "6561"}]}], "}"}]}], ",", 
      RowBox[{"120", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"282429536481", "/", "274877906944"}], ",", 
         RowBox[{"134217728", "/", "129140163"}], ",", 
         RowBox[{"8192", "/", "6561"}]}], "}"}]}], ",", 
      RowBox[{"121", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"29", "/", "28"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"122", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "43"}], ",", 
         RowBox[{"43", "/", "42"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"123", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "44"}], ",", 
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"124", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"125", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"80", "/", "77"}], ",", 
         RowBox[{"33", "/", "32"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"126", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"59", "/", "56"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"127", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"117", "/", "112"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"128", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"375", "/", "364"}], ",", 
         RowBox[{"56", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"129", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"88", "/", "85"}], ",", 
         RowBox[{"85", "/", "82"}], ",", 
         RowBox[{"41", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"130", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"42", "/", "41"}], ",", 
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"41", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"131", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"44", "/", "43"}], ",", 
         RowBox[{"43", "/", "41"}], ",", 
         RowBox[{"41", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"132", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"29", "/", "28"}], ",", 
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"36", "/", "29"}]}], "}"}]}], ",", 
      RowBox[{"133", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"87", "/", "85"}], ",", 
         RowBox[{"85", "/", "81"}], ",", 
         RowBox[{"36", "/", "29"}]}], "}"}]}], ",", 
      RowBox[{"134", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"87", "/", "83"}], ",", 
         RowBox[{"83", "/", "81"}], ",", 
         RowBox[{"36", "/", "29"}]}], "}"}]}], ",", 
      RowBox[{"135", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"27", "/", "26"}], ",", 
         RowBox[{"26", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"136", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"26", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"137", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"42", "/", "41"}], ",", 
         RowBox[{"41", "/", "39"}], ",", 
         RowBox[{"26", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"138", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"161", "/", "156"}], ",", 
         RowBox[{"26", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"139", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"136", "/", "131"}], ",", 
         RowBox[{"131", "/", "126"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"140", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"102", "/", "97"}], ",", 
         RowBox[{"194", "/", "189"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"141", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"204", "/", "199"}], ",", 
         RowBox[{"199", "/", "189"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"142", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"143", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"144", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"221", "/", "210"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"145", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"391", "/", "378"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"146", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"51", "/", "49"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"147", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "26"}], ",", 
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"148", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "77"}], ",", 
         RowBox[{"77", "/", "75"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"149", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "79"}], ",", 
         RowBox[{"79", "/", "75"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"150", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"151", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"51", "/", "50"}], ",", 
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"152", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"153", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"1053", "/", "1000"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"154", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"135", "/", "128"}], ",", 
         RowBox[{"128", "/", "125"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"155", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"207", "/", "200"}], ",", 
         RowBox[{"100", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"156", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"80", "/", "77"}], ",", 
         RowBox[{"77", "/", "74"}], ",", 
         RowBox[{"37", "/", "30"}]}], "}"}]}], ",", 
      RowBox[{"157", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"38", "/", "37"}], ",", 
         RowBox[{"37", "/", "30"}]}], "}"}]}], ",", 
      RowBox[{"158", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"39", "/", "37"}], ",", 
         RowBox[{"37", "/", "30"}]}], "}"}]}], ",", 
      RowBox[{"159", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"116", "/", "111"}], ",", 
         RowBox[{"37", "/", "30"}]}], "}"}]}], ",", 
      RowBox[{"160", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"118", "/", "111"}], ",", 
         RowBox[{"37", "/", "30"}]}], "}"}]}], ",", 
      RowBox[{"161", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"162", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"39", "/", "37"}], ",", 
         RowBox[{"37", "/", "36"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"163", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"39", "/", "38"}], ",", 
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"164", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"65", "/", "64"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"165", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"52", "/", "51"}], ",", 
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"166", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"169", "/", "160"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"167", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"117", "/", "112"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"168", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"169", "/", "168"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"169", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"91", "/", "88"}], ",", 
         RowBox[{"16", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"170", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"176", "/", "169"}], ",", 
         RowBox[{"169", "/", "162"}], ",", 
         RowBox[{"27", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"171", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"132", "/", "125"}], ",", 
         RowBox[{"250", "/", "243"}], ",", 
         RowBox[{"27", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"172", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"264", "/", "257"}], ",", 
         RowBox[{"257", "/", "243"}], ",", 
         RowBox[{"27", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"173", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"27", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"174", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"55", "/", "54"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"27", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"175", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"143", "/", "135"}], ",", 
         RowBox[{"27", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"176", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"23", "/", "22"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"177", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"178", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"35", "/", "33"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"179", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "44"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"180", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"56", "/", "55"}], ",", 
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"181", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"78", "/", "77"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"182", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"57", "/", "55"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"183", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"58", "/", "55"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"184", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"81", "/", "77"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"185", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"117", "/", "110"}], ",", 
         RowBox[{"11", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"186", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "245"}], ",", 
         RowBox[{"245", "/", "234"}], ",", 
         RowBox[{"39", "/", "32"}]}], "}"}]}], ",", 
      RowBox[{"187", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"384", "/", "373"}], ",", 
         RowBox[{"373", "/", "351"}], ",", 
         RowBox[{"39", "/", "32"}]}], "}"}]}], ",", 
      RowBox[{"188", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"192", "/", "181"}], ",", 
         RowBox[{"362", "/", "351"}], ",", 
         RowBox[{"39", "/", "32"}]}], "}"}]}], ",", 
      RowBox[{"189", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"39", "/", "32"}]}], "}"}]}], ",", 
      RowBox[{"190", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"23", "/", "22"}], ",", 
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"28", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"191", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"69", "/", "65"}], ",", 
         RowBox[{"65", "/", "63"}], ",", 
         RowBox[{"28", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"192", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"69", "/", "67"}], ",", 
         RowBox[{"67", "/", "63"}], ",", 
         RowBox[{"28", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"193", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"28", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"194", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"112", "/", "107"}], ",", 
         RowBox[{"107", "/", "102"}], ",", 
         RowBox[{"17", "/", "14"}]}], "}"}]}], ",", 
      RowBox[{"195", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"168", "/", "158"}], ",", 
         RowBox[{"158", "/", "153"}], ",", 
         RowBox[{"17", "/", "14"}]}], "}"}]}], ",", 
      RowBox[{"196", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"168", "/", "163"}], ",", 
         RowBox[{"163", "/", "153"}], ",", 
         RowBox[{"17", "/", "14"}]}], "}"}]}], ",", 
      RowBox[{"197", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"52", "/", "51"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"17", "/", "14"}]}], "}"}]}], ",", 
      RowBox[{"198", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"17", "/", "14"}]}], "}"}]}], ",", 
      RowBox[{"199", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"35", "/", "34"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"17", "/", "14"}]}], "}"}]}], ",", 
      RowBox[{"200", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"91", "/", "85"}], ",", 
         RowBox[{"17", "/", "14"}]}], "}"}]}], ",", 
      RowBox[{"201", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17", "/", "14"}], ",", 
         RowBox[{"56", "/", "55"}], ",", 
         RowBox[{"55", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"202", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17", "/", "14"}], ",", 
         RowBox[{"56", "/", "53"}], ",", 
         RowBox[{"53", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"203", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"40", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"204", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"33", "/", "32"}], ",", 
         RowBox[{"31", "/", "30"}], ",", 
         RowBox[{"40", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"205", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"33", "/", "32"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"40", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"206", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"55", "/", "54"}], ",", 
         RowBox[{"27", "/", "25"}], ",", 
         RowBox[{"40", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"207", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"66", "/", "65"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"40", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"208", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"187", "/", "180"}], ",", 
         RowBox[{"40", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"209", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "61"}], ",", 
         RowBox[{"61", "/", "58"}], ",", 
         RowBox[{"29", "/", "24"}]}], "}"}]}], ",", 
      RowBox[{"210", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"29", "/", "24"}]}], "}"}]}], ",", 
      RowBox[{"211", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"32", "/", "31"}], ",", 
         RowBox[{"31", "/", "29"}], ",", 
         RowBox[{"29", "/", "24"}]}], "}"}]}], ",", 
      RowBox[{"212", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"213", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"214", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"29", "/", "27"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"215", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"216", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"217", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"55", "/", "54"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"218", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"65", "/", "63"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"219", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"35", "/", "33"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"220", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"200", "/", "189"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"221", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"6", "/", "5"}], ",", 
         RowBox[{"135", "/", "128"}]}], "}"}]}], ",", 
      RowBox[{"222", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"59", "/", "54"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"223", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"80", "/", "77"}], ",", 
         RowBox[{"77", "/", "72"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"224", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"115", "/", "108"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"225", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"88", "/", "81"}], ",", 
         RowBox[{"45", "/", "44"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"226", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"6", "/", "5"}], ",", 
         RowBox[{"25", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"227", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"52", "/", "51"}], ",", 
         RowBox[{"85", "/", "78"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"228", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"100", "/", "99"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"6", "/", "5"}]}], "}"}]}], ",", 
      RowBox[{"229", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"6", "/", "5"}], ",", 
         RowBox[{"55", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"230", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"6", "/", "5"}], ",", 
         RowBox[{"35", "/", "32"}], ",", 
         RowBox[{"64", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"231", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"6", "/", "5"}], ",", 
         RowBox[{"2240", "/", "2187"}], ",", 
         RowBox[{"243", "/", "224"}]}], "}"}]}], ",", 
      RowBox[{"232", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"56", "/", "53"}], ",", 
         RowBox[{"53", "/", "50"}], ",", 
         RowBox[{"25", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"233", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"25", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"234", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"27", "/", "25"}], ",", 
         RowBox[{"25", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"235", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"25", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"236", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"273", "/", "250"}], ",", 
         RowBox[{"25", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"237", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"128", "/", "121"}], ",", 
         RowBox[{"121", "/", "114"}], ",", 
         RowBox[{"19", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"238", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"96", "/", "89"}], ",", 
         RowBox[{"178", "/", "171"}], ",", 
         RowBox[{"19", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"239", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"192", "/", "185"}], ",", 
         RowBox[{"185", "/", "171"}], ",", 
         RowBox[{"19", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"240", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"19", "/", "16"}], ",", 
         RowBox[{"16", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"241", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"81", "/", "76"}], ",", 
         RowBox[{"19", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"242", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"96", "/", "95"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"19", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"243", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"21", "/", "19"}], ",", 
         RowBox[{"19", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"244", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"104", "/", "95"}], ",", 
         RowBox[{"19", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"245", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"246", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "25"}], ",", 
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"247", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "26"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"248", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"243", "/", "224"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"249", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"2187", "/", "2048"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"250", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"251", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"33", "/", "32"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"252", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "44"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"253", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"254", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"135", "/", "128"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"255", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"35", "/", "32"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"256", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"49", "/", "48"}], ",", 
         RowBox[{"54", "/", "49"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"257", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"243", "/", "230"}], ",", 
         RowBox[{"230", "/", "216"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"258", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"243", "/", "229"}], ",", 
         RowBox[{"229", "/", "216"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"259", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"171", "/", "160"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"260", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"23", "/", "22"}], ",", 
         RowBox[{"99", "/", "92"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"261", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"69", "/", "64"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"262", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"351", "/", "320"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"263", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"117", "/", "112"}], ",", 
         RowBox[{"32", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"264", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"304", "/", "287"}], ",", 
         RowBox[{"287", "/", "270"}], ",", 
         RowBox[{"45", "/", "38"}]}], "}"}]}], ",", 
      RowBox[{"265", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"456", "/", "439"}], ",", 
         RowBox[{"439", "/", "405"}], ",", 
         RowBox[{"45", "/", "38"}]}], "}"}]}], ",", 
      RowBox[{"266", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"228", "/", "211"}], ",", 
         RowBox[{"422", "/", "405"}], ",", 
         RowBox[{"45", "/", "38"}]}], "}"}]}], ",", 
      RowBox[{"267", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"45", "/", "38"}]}], "}"}]}], ",", 
      RowBox[{"268", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"76", "/", "75"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"45", "/", "38"}]}], "}"}]}], ",", 
      RowBox[{"269", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"38", "/", "35"}], ",", 
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"45", "/", "38"}]}], "}"}]}], ",", 
      RowBox[{"270", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"88", "/", "83"}], ",", 
         RowBox[{"83", "/", "78"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"271", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"66", "/", "61"}], ",", 
         RowBox[{"122", "/", "117"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"272", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"132", "/", "127"}], ",", 
         RowBox[{"127", "/", "117"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"273", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"274", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"275", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"66", "/", "65"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"276", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "26"}], ",", 
         RowBox[{"88", "/", "81"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"277", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"99", "/", "91"}], ",", 
         RowBox[{"13", "/", "11"}]}], "}"}]}], ",", 
      RowBox[{"278", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"224", "/", "211"}], ",", 
         RowBox[{"211", "/", "198"}], ",", 
         RowBox[{"33", "/", "28"}]}], "}"}]}], ",", 
      RowBox[{"279", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"336", "/", "323"}], ",", 
         RowBox[{"323", "/", "297"}], ",", 
         RowBox[{"33", "/", "28"}]}], "}"}]}], ",", 
      RowBox[{"280", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"168", "/", "155"}], ",", 
         RowBox[{"310", "/", "297"}], ",", 
         RowBox[{"33", "/", "28"}]}], "}"}]}], ",", 
      RowBox[{"281", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"56", "/", "55"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"33", "/", "28"}]}], "}"}]}], ",", 
      RowBox[{"282", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"35", "/", "32"}], ",", 
         RowBox[{"33", "/", "28"}]}], "}"}]}], ",", 
      RowBox[{"283", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"33", "/", "28"}], ",", 
         RowBox[{"56", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"284", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"285", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"51", "/", "47"}], ",", 
         RowBox[{"47", "/", "45"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"286", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"51", "/", "49"}], ",", 
         RowBox[{"49", "/", "45"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"287", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"288", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"51", "/", "50"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"289", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"221", "/", "200"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"290", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"153", "/", "140"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"291", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"20", "/", "17"}], ",", 
         RowBox[{"68", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"292", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "65"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"293", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "31"}], ",", 
         RowBox[{"31", "/", "30"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"294", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "61"}], ",", 
         RowBox[{"61", "/", "60"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"295", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "57"}], ",", 
         RowBox[{"19", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"296", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "60"}], ",", 
         RowBox[{"20", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"297", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"184", "/", "173"}], ",", 
         RowBox[{"173", "/", "162"}], ",", 
         RowBox[{"27", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"298", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"276", "/", "265"}], ",", 
         RowBox[{"265", "/", "243"}], ",", 
         RowBox[{"27", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"299", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"138", "/", "127"}], ",", 
         RowBox[{"254", "/", "243"}], ",", 
         RowBox[{"27", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"300", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"23", "/", "21"}], ",", 
         RowBox[{"27", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"301", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"23", "/", "22"}], ",", 
         RowBox[{"88", "/", "81"}], ",", 
         RowBox[{"27", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"302", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"27", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"303", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"512", "/", "481"}], ",", 
         RowBox[{"481", "/", "450"}], ",", 
         RowBox[{"75", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"304", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"768", "/", "737"}], ",", 
         RowBox[{"737", "/", "675"}], ",", 
         RowBox[{"75", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"305", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"384", "/", "353"}], ",", 
         RowBox[{"706", "/", "675"}], ",", 
         RowBox[{"75", "/", "64"}]}], "}"}]}], ",", 
      RowBox[{"306", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"75", "/", "64"}], ",", 
         RowBox[{"16", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"307", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"308", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"309", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"23", "/", "21"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"310", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"38", "/", "35"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"311", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"312", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"313", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"92", "/", "91"}], ",", 
         RowBox[{"26", "/", "23"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"314", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"243", "/", "224"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"315", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"39", "/", "35"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"316", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"7", "/", "6"}], ",", 
         RowBox[{"68", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"317", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"50", "/", "49"}], ",", 
         RowBox[{"7", "/", "6"}], ",", 
         RowBox[{"28", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"318", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"7", "/", "6"}], ",", 
         RowBox[{"52", "/", "49"}]}], "}"}]}], ",", 
      RowBox[{"319", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"180", "/", "161"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"320", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"54", "/", "49"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"321", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "113"}], ",", 
         RowBox[{"113", "/", "105"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"322", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"118", "/", "105"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"323", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"116", "/", "105"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"324", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"88", "/", "81"}], ",", 
         RowBox[{"81", "/", "77"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"325", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "119"}], ",", 
         RowBox[{"17", "/", "15"}], ",", 
         RowBox[{"7", "/", "6"}]}], "}"}]}], ",", 
      RowBox[{"326", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "25"}], ",", 
         RowBox[{"7", "/", "6"}], ",", 
         RowBox[{"200", "/", "189"}]}], "}"}]}], ",", 
      RowBox[{"327", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"7", "/", "6"}], ",", 
         RowBox[{"100", "/", "91"}]}], "}"}]}], ",", 
      RowBox[{"328", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"7", "/", "6"}], ",", 
         RowBox[{"1024", "/", "945"}], ",", 
         RowBox[{"135", "/", "128"}]}], "}"}]}], ",", 
      RowBox[{"329", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"78", "/", "73"}], ",", 
         RowBox[{"73", "/", "68"}], ",", 
         RowBox[{"136", "/", "117"}]}], "}"}]}], ",", 
      RowBox[{"330", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"117", "/", "112"}], ",", 
         RowBox[{"56", "/", "51"}], ",", 
         RowBox[{"136", "/", "117"}]}], "}"}]}], ",", 
      RowBox[{"331", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"117", "/", "107"}], ",", 
         RowBox[{"107", "/", "102"}], ",", 
         RowBox[{"136", "/", "117"}]}], "}"}]}], ",", 
      RowBox[{"332", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"52", "/", "51"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"136", "/", "117"}]}], "}"}]}], ",", 
      RowBox[{"333", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"31", "/", "29"}], ",", 
         RowBox[{"29", "/", "27"}], ",", 
         RowBox[{"36", "/", "31"}]}], "}"}]}], ",", 
      RowBox[{"334", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"93", "/", "89"}], ",", 
         RowBox[{"89", "/", "81"}], ",", 
         RowBox[{"36", "/", "31"}]}], "}"}]}], ",", 
      RowBox[{"335", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"93", "/", "85"}], ",", 
         RowBox[{"85", "/", "81"}], ",", 
         RowBox[{"36", "/", "31"}]}], "}"}]}], ",", 
      RowBox[{"336", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "43"}], ",", 
         RowBox[{"43", "/", "40"}], ",", 
         RowBox[{"80", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"337", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"23", "/", "21"}], ",", 
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"80", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"338", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"23", "/", "22"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"80", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"339", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"80", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"340", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"76", "/", "71"}], ",", 
         RowBox[{"71", "/", "66"}], ",", 
         RowBox[{"22", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"341", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"57", "/", "52"}], ",", 
         RowBox[{"104", "/", "99"}], ",", 
         RowBox[{"22", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"342", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"114", "/", "109"}], ",", 
         RowBox[{"109", "/", "99"}], ",", 
         RowBox[{"22", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"343", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"22", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"344", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"19", "/", "17"}], ",", 
         RowBox[{"22", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"345", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"247", "/", "220"}], ",", 
         RowBox[{"22", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"346", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"347", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "41"}], ",", 
         RowBox[{"41", "/", "39"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"348", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "43"}], ",", 
         RowBox[{"43", "/", "39"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"349", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"115", "/", "104"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"350", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"351", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"85", "/", "78"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"352", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "/", "44"}], ",", 
         RowBox[{"44", "/", "39"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"353", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"65", "/", "63"}], ",", 
         RowBox[{"28", "/", "25"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"354", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"55", "/", "52"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"355", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"59", "/", "45"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"356", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"52", "/", "45"}], ",", 
         RowBox[{"57", "/", "52"}]}], "}"}]}], ",", 
      RowBox[{"357", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "26"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"358", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"150", "/", "143"}], ",", 
         RowBox[{"52", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"359", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"104", "/", "97"}], ",", 
         RowBox[{"97", "/", "90"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"360", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"78", "/", "71"}], ",", 
         RowBox[{"142", "/", "135"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"361", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"156", "/", "149"}], ",", 
         RowBox[{"149", "/", "135"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"362", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"15", "/", "13"}], ",", 
         RowBox[{"13", "/", "12"}]}], "}"}]}], ",", 
      RowBox[{"363", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"364", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"351", "/", "320"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"365", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"247", "/", "225"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"366", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"15", "/", "13"}], ",", 
         RowBox[{"104", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"367", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"15", "/", "13"}], ",", 
         RowBox[{"143", "/", "135"}]}], "}"}]}], ",", 
      RowBox[{"368", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"26", "/", "23"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"369", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"169", "/", "150"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"370", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"39", "/", "35"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"371", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"91", "/", "90"}], ",", 
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"15", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"372", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"44", "/", "41"}], ",", 
         RowBox[{"41", "/", "38"}], ",", 
         RowBox[{"38", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"373", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"38", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"374", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"21", "/", "19"}], ",", 
         RowBox[{"38", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"375", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"160", "/", "149"}], ",", 
         RowBox[{"149", "/", "138"}], ",", 
         RowBox[{"23", "/", "20"}]}], "}"}]}], ",", 
      RowBox[{"376", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "109"}], ",", 
         RowBox[{"218", "/", "207"}], ",", 
         RowBox[{"23", "/", "20"}]}], "}"}]}], ",", 
      RowBox[{"377", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"240", "/", "229"}], ",", 
         RowBox[{"229", "/", "207"}], ",", 
         RowBox[{"23", "/", "20"}]}], "}"}]}], ",", 
      RowBox[{"378", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"70", "/", "69"}], ",", 
         RowBox[{"23", "/", "20"}]}], "}"}]}], ",", 
      RowBox[{"379", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"26", "/", "23"}], ",", 
         RowBox[{"23", "/", "20"}]}], "}"}]}], ",", 
      RowBox[{"380", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"23", "/", "20"}], ",", 
         RowBox[{"10", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"381", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"180", "/", "161"}], ",", 
         RowBox[{"23", "/", "20"}]}], "}"}]}], ",", 
      RowBox[{"382", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"72", "/", "67"}], ",", 
         RowBox[{"67", "/", "62"}], ",", 
         RowBox[{"31", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"383", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"108", "/", "103"}], ",", 
         RowBox[{"103", "/", "93"}], ",", 
         RowBox[{"31", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"384", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"54", "/", "49"}], ",", 
         RowBox[{"98", "/", "93"}], ",", 
         RowBox[{"31", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"385", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"32", "/", "31"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"31", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"386", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"272", "/", "253"}], ",", 
         RowBox[{"253", "/", "234"}], ",", 
         RowBox[{"39", "/", "34"}]}], "}"}]}], ",", 
      RowBox[{"387", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"408", "/", "389"}], ",", 
         RowBox[{"389", "/", "351"}], ",", 
         RowBox[{"39", "/", "34"}]}], "}"}]}], ",", 
      RowBox[{"388", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"204", "/", "185"}], ",", 
         RowBox[{"370", "/", "351"}], ",", 
         RowBox[{"39", "/", "34"}]}], "}"}]}], ",", 
      RowBox[{"389", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"39", "/", "34"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"390", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"391", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"21", "/", "19"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"392", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "20"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"393", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"394", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"49", "/", "48"}], ",", 
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"395", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"35", "/", "33"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"396", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"77", "/", "72"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"397", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"35", "/", "32"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"398", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"35", "/", "34"}], ",", 
         RowBox[{"17", "/", "15"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"399", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"28", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"400", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"49", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"401", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"91", "/", "80"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"402", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"105", "/", "92"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"403", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"119", "/", "108"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"404", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"56", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"405", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"77", "/", "68"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"406", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"567", "/", "512"}], ",", 
         RowBox[{"8", "/", "7"}]}], "}"}]}], ",", 
      RowBox[{"407", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"150", "/", "139"}], ",", 
         RowBox[{"139", "/", "128"}], ",", 
         RowBox[{"256", "/", "225"}]}], "}"}]}], ",", 
      RowBox[{"408", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"225", "/", "214"}], ",", 
         RowBox[{"107", "/", "96"}], ",", 
         RowBox[{"256", "/", "225"}]}], "}"}]}], ",", 
      RowBox[{"409", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"225", "/", "203"}], ",", 
         RowBox[{"203", "/", "192"}], ",", 
         RowBox[{"256", "/", "225"}]}], "}"}]}], ",", 
      RowBox[{"410", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"256", "/", "225"}]}], "}"}]}], ",", 
      RowBox[{"411", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"176", "/", "163"}], ",", 
         RowBox[{"163", "/", "150"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"412", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"132", "/", "119"}], ",", 
         RowBox[{"238", "/", "225"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"413", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"264", "/", "251"}], ",", 
         RowBox[{"251", "/", "225"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"414", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"415", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"88", "/", "81"}], ",", 
         RowBox[{"27", "/", "25"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"416", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"25", "/", "22"}], ",", 
         RowBox[{"28", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"417", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"198", "/", "175"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"418", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"26", "/", "25"}], ",", 
         RowBox[{"44", "/", "39"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"419", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "25"}], ",", 
         RowBox[{"25", "/", "23"}], ",", 
         RowBox[{"92", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"420", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "77"}], ",", 
         RowBox[{"77", "/", "69"}], ",", 
         RowBox[{"92", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"421", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "73"}], ",", 
         RowBox[{"73", "/", "69"}], ",", 
         RowBox[{"92", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"422", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"92", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"423", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"27", "/", "26"}], ",", 
         RowBox[{"26", "/", "23"}], ",", 
         RowBox[{"92", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"424", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"67", "/", "62"}], ",", 
         RowBox[{"62", "/", "57"}], ",", 
         RowBox[{"76", "/", "67"}]}], "}"}]}], ",", 
      RowBox[{"425", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"201", "/", "181"}], ",", 
         RowBox[{"181", "/", "171"}], ",", 
         RowBox[{"76", "/", "67"}]}], "}"}]}], ",", 
      RowBox[{"426", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"201", "/", "191"}], ",", 
         RowBox[{"191", "/", "171"}], ",", 
         RowBox[{"76", "/", "67"}]}], "}"}]}], ",", 
      RowBox[{"427", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"76", "/", "67"}], ",", 
         RowBox[{"5427", "/", "4864"}]}], "}"}]}], ",", 
      RowBox[{"428", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "37"}], ",", 
         RowBox[{"37", "/", "34"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"429", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"430", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"19", "/", "17"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"431", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"56", "/", "51"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"432", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"80", "/", "77"}], ",", 
         RowBox[{"77", "/", "68"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"433", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"55", "/", "51"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"434", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "109"}], ",", 
         RowBox[{"109", "/", "102"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"435", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "113"}], ",", 
         RowBox[{"113", "/", "102"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"436", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"115", "/", "102"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"437", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"160", "/", "153"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"438", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"66", "/", "61"}], ",", 
         RowBox[{"61", "/", "56"}], ",", 
         RowBox[{"112", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"439", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"99", "/", "94"}], ",", 
         RowBox[{"47", "/", "42"}], ",", 
         RowBox[{"112", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"440", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"99", "/", "89"}], ",", 
         RowBox[{"89", "/", "84"}], ",", 
         RowBox[{"112", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"441", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"297", "/", "280"}], ",", 
         RowBox[{"112", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"442", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"112", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"443", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"44", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"444", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"39", "/", "35"}], ",", 
         RowBox[{"35", "/", "33"}], ",", 
         RowBox[{"44", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"445", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"39", "/", "37"}], ",", 
         RowBox[{"37", "/", "33"}], ",", 
         RowBox[{"44", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"446", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"44", "/", "39"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"104", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"447", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"90", "/", "83"}], ",", 
         RowBox[{"83", "/", "76"}], ",", 
         RowBox[{"152", "/", "135"}]}], "}"}]}], ",", 
      RowBox[{"448", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"135", "/", "128"}], ",", 
         RowBox[{"64", "/", "57"}], ",", 
         RowBox[{"152", "/", "135"}]}], "}"}]}], ",", 
      RowBox[{"449", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"135", "/", "121"}], ",", 
         RowBox[{"121", "/", "114"}], ",", 
         RowBox[{"152", "/", "135"}]}], "}"}]}], ",", 
      RowBox[{"450", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"152", "/", "135"}]}], "}"}]}], ",", 
      RowBox[{"451", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "59"}], ",", 
         RowBox[{"59", "/", "54"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"452", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"48", "/", "43"}], ",", 
         RowBox[{"86", "/", "81"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"453", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"96", "/", "91"}], ",", 
         RowBox[{"91", "/", "81"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"454", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"455", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"10", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"456", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"2187", "/", "2048"}], ",", 
         RowBox[{"65536", "/", "59049"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"457", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"88", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"458", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"128", "/", "117"}]}], "}"}]}], ",", 
      RowBox[{"459", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"208", "/", "189"}]}], "}"}]}], ",", 
      RowBox[{"460", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"320", "/", "297"}]}], "}"}]}], ",", 
      RowBox[{"461", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"448", "/", "405"}]}], "}"}]}], ",", 
      RowBox[{"462", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"512", "/", "459"}]}], "}"}]}], ",", 
      RowBox[{"463", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"272", "/", "243"}]}], "}"}]}], ",", 
      RowBox[{"464", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"64", "/", "57"}]}], "}"}]}], ",", 
      RowBox[{"465", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"56", "/", "51"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"68", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"466", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"200", "/", "189"}], ",", 
         RowBox[{"28", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"467", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"184", "/", "171"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"76", "/", "69"}]}], "}"}]}], ",", 
      RowBox[{"468", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"32", "/", "29"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"29", "/", "27"}]}], "}"}]}], ",", 
      RowBox[{"469", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"121", "/", "108"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"128", "/", "121"}]}], "}"}]}], ",", 
      RowBox[{"470", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"4096", "/", "3645"}], ",", 
         RowBox[{"135", "/", "128"}]}], "}"}]}], ",", 
      RowBox[{"471", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"7168", "/", "6561"}], ",", 
         RowBox[{"243", "/", "224"}]}], "}"}]}], ",", 
      RowBox[{"472", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"35", "/", "32"}], ",", 
         RowBox[{"1024", "/", "945"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"473", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"160", "/", "143"}]}], "}"}]}], ",", 
      RowBox[{"474", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"10", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"475", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"27", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"476", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"72", "/", "65"}]}], "}"}]}], ",", 
      RowBox[{"477", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"400", "/", "363"}]}], "}"}]}], ",", 
      RowBox[{"478", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"121", "/", "108"}]}], "}"}]}], ",", 
      RowBox[{"479", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"192", "/", "169"}]}], "}"}]}], ",", 
      RowBox[{"480", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"169", "/", "147"}]}], "}"}]}], ",", 
      RowBox[{"481", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"784", "/", "675"}]}], "}"}]}], ",", 
      RowBox[{"482", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"2187", "/", "2048"}], ",", 
         RowBox[{"16777216", "/", "14348907"}], ",", 
         RowBox[{"2187", "/", "2048"}]}], "}"}]}], ",", 
      RowBox[{"483", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"1024", "/", "867"}]}], "}"}]}], ",", 
      RowBox[{"484", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"18", "/", "17"}], ",", 
         RowBox[{"289", "/", "243"}]}], "}"}]}], ",", 
      RowBox[{"485", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"19688", "/", "16384"}]}], "}"}]}], ",", 
      RowBox[{"486", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "21"}], ",", 
         RowBox[{"147", "/", "121"}], ",", 
         RowBox[{"22", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"487", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"768", "/", "625"}]}], "}"}]}], ",", 
      RowBox[{"488", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"243", "/", "196"}]}], "}"}]}], ",", 
      RowBox[{"489", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"363", "/", "289"}]}], "}"}]}], ",", 
      RowBox[{"490", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"1225", "/", "972"}]}], "}"}]}], ",", 
      RowBox[{"491", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"507", "/", "400"}]}], "}"}]}], ",", 
      RowBox[{"492", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"675", "/", "529"}]}], "}"}]}], ",", 
      RowBox[{"493", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"176", "/", "175"}], ",", 
         RowBox[{"175", "/", "174"}], ",", 
         RowBox[{"29", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"494", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25", "/", "19"}], ",", 
         RowBox[{"931", "/", "925"}], ",", 
         RowBox[{"148", "/", "147"}]}], "}"}]}], ",", 
      RowBox[{"495", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"128", "/", "127"}], ",", 
         RowBox[{"127", "/", "126"}], ",", 
         RowBox[{"21", "/", "16"}]}], "}"}]}], ",", 
      RowBox[{"496", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"21", "/", "16"}], ",", 
         RowBox[{"656", "/", "651"}], ",", 
         RowBox[{"124", "/", "123"}]}], "}"}]}], ",", 
      RowBox[{"497", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"104", "/", "103"}], ",", 
         RowBox[{"103", "/", "102"}], ",", 
         RowBox[{"17", "/", "13"}]}], "}"}]}], ",", 
      RowBox[{"498", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17", "/", "13"}], ",", 
         RowBox[{"429", "/", "425"}], ",", 
         RowBox[{"100", "/", "99"}]}], "}"}]}], ",", 
      RowBox[{"499", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"98", "/", "97"}], ",", 
         RowBox[{"97", "/", "96"}], ",", 
         RowBox[{"64", "/", "49"}]}], "}"}]}], ",", 
      RowBox[{"500", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"92", "/", "91"}], ",", 
         RowBox[{"91", "/", "90"}], ",", 
         RowBox[{"30", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"501", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"90", "/", "89"}], ",", 
         RowBox[{"89", "/", "88"}], ",", 
         RowBox[{"176", "/", "135"}]}], "}"}]}], ",", 
      RowBox[{"502", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"88", "/", "87"}], ",", 
         RowBox[{"87", "/", "86"}], ",", 
         RowBox[{"43", "/", "33"}]}], "}"}]}], ",", 
      RowBox[{"503", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"86", "/", "85"}], ",", 
         RowBox[{"85", "/", "84"}], ",", 
         RowBox[{"56", "/", "43"}]}], "}"}]}], ",", 
      RowBox[{"504", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"84", "/", "83"}], ",", 
         RowBox[{"83", "/", "82"}], ",", 
         RowBox[{"82", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"505", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"82", "/", "81"}], ",", 
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"160", "/", "123"}]}], "}"}]}], ",", 
      RowBox[{"506", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"13", "/", "10"}], ",", 
         RowBox[{"250", "/", "247"}], ",", 
         RowBox[{"76", "/", "74"}]}], "}"}]}], ",", 
      RowBox[{"507", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"78", "/", "77"}], ",", 
         RowBox[{"77", "/", "76"}], ",", 
         RowBox[{"152", "/", "117"}]}], "}"}]}], ",", 
      RowBox[{"508", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"76", "/", "75"}], ",", 
         RowBox[{"76", "/", "75"}], ",", 
         RowBox[{"74", "/", "57"}]}], "}"}]}], ",", 
      RowBox[{"509", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"74", "/", "73"}], ",", 
         RowBox[{"73", "/", "72"}], ",", 
         RowBox[{"48", "/", "31"}]}], "}"}]}], ",", 
      RowBox[{"510", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"70", "/", "69"}], ",", 
         RowBox[{"69", "/", "68"}], ",", 
         RowBox[{"136", "/", "105"}]}], "}"}]}], ",", 
      RowBox[{"511", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"22", "/", "17"}], ",", 
         RowBox[{"357", "/", "352"}], ",", 
         RowBox[{"64", "/", "63"}]}], "}"}]}], ",", 
      RowBox[{"512", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"58", "/", "57"}], ",", 
         RowBox[{"57", "/", "56"}], ",", 
         RowBox[{"112", "/", "87"}]}], "}"}]}], ",", 
      RowBox[{"513", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"87", "/", "80"}], ",", 
         RowBox[{"43", "/", "42"}], ",", 
         RowBox[{"112", "/", "87"}]}], "}"}]}], ",", 
      RowBox[{"514", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"87", "/", "85"}], ",", 
         RowBox[{"85", "/", "84"}], ",", 
         RowBox[{"112", "/", "87"}]}], "}"}]}], ",", 
      RowBox[{"515", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "53"}], ",", 
         RowBox[{"53", "/", "52"}], ",", 
         RowBox[{"52", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"516", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"136", "/", "133"}], ",", 
         RowBox[{"133", "/", "130"}], ",", 
         RowBox[{"65", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"517", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "65"}], ",", 
         RowBox[{"65", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"518", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "33"}], ",", 
         RowBox[{"66", "/", "65"}], ",", 
         RowBox[{"65", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"519", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "54"}], ",", 
         RowBox[{"18", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"520", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"25", "/", "24"}], ",", 
         RowBox[{"32", "/", "31"}], ",", 
         RowBox[{"31", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"521", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "55"}], ",", 
         RowBox[{"55", "/", "54"}], ",", 
         RowBox[{"18", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"522", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "63"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"523", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "65"}], ",", 
         RowBox[{"65", "/", "63"}], ",", 
         RowBox[{"21", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"524", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"315", "/", "256"}]}], "}"}]}], ",", 
      RowBox[{"525", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"315", "/", "256"}]}], "}"}]}], ",", 
      RowBox[{"526", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"64", "/", "63"}], ",", 
         RowBox[{"2187", "/", "2048"}], ",", 
         RowBox[{"896", "/", "729"}]}], "}"}]}], ",", 
      RowBox[{"527", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"135", "/", "128"}], ",", 
         RowBox[{"896", "/", "729"}]}], "}"}]}], ",", 
      RowBox[{"528", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"2187", "/", "1792"}], ",", 
         RowBox[{"256", "/", "243"}]}], "}"}]}], ",", 
      RowBox[{"529", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"2240", "/", "2187"}], ",", 
         RowBox[{"2187", "/", "1792"}]}], "}"}]}], ",", 
      RowBox[{"530", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"128", "/", "105"}], ",", 
         RowBox[{"135", "/", "128"}]}], "}"}]}], ",", 
      RowBox[{"531", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"32", "/", "31"}], ",", 
         RowBox[{"62", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"532", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"20", "/", "19"}], ",", 
         RowBox[{"57", "/", "47"}], ",", 
         RowBox[{"47", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"533", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"360", "/", "349"}], ",", 
         RowBox[{"349", "/", "327"}], ",", 
         RowBox[{"109", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"534", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"115", "/", "109"}], ",", 
         RowBox[{"109", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"535", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"240", "/", "229"}], ",", 
         RowBox[{"229", "/", "218"}], ",", 
         RowBox[{"109", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"536", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"23", "/", "19"}]}], "}"}]}], ",", 
      RowBox[{"537", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"98", "/", "81"}]}], "}"}]}], ",", 
      RowBox[{"538", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"135", "/", "112"}]}], "}"}]}], ",", 
      RowBox[{"539", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"115", "/", "96"}], ",", 
         RowBox[{"16", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"540", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"243", "/", "230"}], ",", 
         RowBox[{"115", "/", "96"}]}], "}"}]}], ",", 
      RowBox[{"541", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "67"}], ",", 
         RowBox[{"67", "/", "56"}], ",", 
         RowBox[{"56", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"542", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "57"}], ",", 
         RowBox[{"19", "/", "18"}], ",", 
         RowBox[{"18", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"543", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"266", "/", "255"}], ",", 
         RowBox[{"68", "/", "57"}]}], "}"}]}], ",", 
      RowBox[{"544", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"243", "/", "229"}], ",", 
         RowBox[{"229", "/", "192"}]}], "}"}]}], ",", 
      RowBox[{"545", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"32", "/", "31"}], ",", 
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"31", "/", "26"}]}], "}"}]}], ",", 
      RowBox[{"546", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"240", "/", "227"}], ",", 
         RowBox[{"227", "/", "214"}], ",", 
         RowBox[{"107", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"547", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"360", "/", "347"}], ",", 
         RowBox[{"347", "/", "321"}], ",", 
         RowBox[{"107", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"548", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"7168", "/", "6561"}], ",", 
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"1215", "/", "1024"}]}], "}"}]}], ",", 
      RowBox[{"549", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"1215", "/", "1024"}], ",", 
         RowBox[{"256", "/", "243"}]}], "}"}]}], ",", 
      RowBox[{"550", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"1024", "/", "945"}], ",", 
         RowBox[{"1215", "/", "1024"}]}], "}"}]}], ",", 
      RowBox[{"551", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "113"}], ",", 
         RowBox[{"113", "/", "106"}], ",", 
         RowBox[{"53", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"552", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"180", "/", "173"}], ",", 
         RowBox[{"173", "/", "159"}], ",", 
         RowBox[{"53", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"553", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"90", "/", "83"}], ",", 
         RowBox[{"166", "/", "159"}], ",", 
         RowBox[{"53", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"554", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"24", "/", "23"}], ",", 
         RowBox[{"115", "/", "106"}], ",", 
         RowBox[{"53", "/", "45"}]}], "}"}]}], ",", 
      RowBox[{"555", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"34", "/", "29"}], ",", 
         RowBox[{"58", "/", "57"}], ",", 
         RowBox[{"19", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"556", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"117", "/", "100"}], ",", 
         RowBox[{"40", "/", "39"}]}], "}"}]}], ",", 
      RowBox[{"557", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "113"}], ",", 
         RowBox[{"113", "/", "97"}], ",", 
         RowBox[{"97", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"558", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"13", "/", "12"}], ",", 
         RowBox[{"55", "/", "52"}], ",", 
         RowBox[{"64", "/", "55"}]}], "}"}]}], ",", 
      RowBox[{"559", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "65"}], ",", 
         RowBox[{"65", "/", "56"}], ",", 
         RowBox[{"56", "/", "51"}]}], "}"}]}], ",", 
      RowBox[{"560", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"297", "/", "256"}], ",", 
         RowBox[{"256", "/", "243"}]}], "}"}]}], ",", 
      RowBox[{"561", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"28", "/", "27"}], ",", 
         RowBox[{"81", "/", "70"}], ",", 
         RowBox[{"10", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"562", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "70"}], ",", 
         RowBox[{"2240", "/", "2187"}], ",", 
         RowBox[{"9", "/", "8"}]}], "}"}]}], ",", 
      RowBox[{"563", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"81", "/", "70"}], ",", 
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"35", "/", "32"}]}], "}"}]}], ",", 
      RowBox[{"564", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"135", "/", "128"}], ",", 
         RowBox[{"7168", "/", "6561"}], ",", 
         RowBox[{"81", "/", "70"}]}], "}"}]}], ",", 
      RowBox[{"565", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"60", "/", "59"}], ",", 
         RowBox[{"59", "/", "51"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"566", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "37"}], ",", 
         RowBox[{"37", "/", "32"}], ",", 
         RowBox[{"16", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"567", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"280", "/", "243"}], ",", 
         RowBox[{"243", "/", "224"}]}], "}"}]}], ",", 
      RowBox[{"568", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"36", "/", "35"}], ",", 
         RowBox[{"9", "/", "8"}], ",", 
         RowBox[{"280", "/", "243"}]}], "}"}]}], ",", 
      RowBox[{"569", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"8", "/", "7"}], ",", 
         RowBox[{"81", "/", "80"}], ",", 
         RowBox[{"280", "/", "243"}]}], "}"}]}], ",", 
      RowBox[{"570", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"46", "/", "45"}], ",", 
         RowBox[{"132", "/", "115"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"571", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"16", "/", "15"}], ",", 
         RowBox[{"12", "/", "11"}], ",", 
         RowBox[{"55", "/", "48"}]}], "}"}]}], ",", 
      RowBox[{"572", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"63", "/", "55"}], ",", 
         RowBox[{"22", "/", "21"}]}], "}"}]}], ",", 
      RowBox[{"573", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"116", "/", "103"}], ",", 
         RowBox[{"103", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"574", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"360", "/", "343"}], ",", 
         RowBox[{"343", "/", "309"}], ",", 
         RowBox[{"103", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"575", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"40", "/", "39"}], ",", 
         RowBox[{"143", "/", "125"}], ",", 
         RowBox[{"25", "/", "22"}]}], "}"}]}], ",", 
      RowBox[{"576", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "65"}], ",", 
         RowBox[{"65", "/", "57"}], ",", 
         RowBox[{"19", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"577", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"256", "/", "243"}], ",", 
         RowBox[{"729", "/", "640"}], ",", 
         RowBox[{"10", "/", "9"}]}], "}"}]}], ",", 
      RowBox[{"578", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"30", "/", "29"}], ",", 
         RowBox[{"58", "/", "51"}], ",", 
         RowBox[{"17", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"579", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"23", "/", "21"}], ",", 
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"26", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"580", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"23", "/", "22"}], ",", 
         RowBox[{"44", "/", "39"}], ",", 
         RowBox[{"26", "/", "23"}]}], "}"}]}], ",", 
      RowBox[{"581", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", "/", "13"}], ",", 
         RowBox[{"260", "/", "231"}], ",", 
         RowBox[{"11", "/", "10"}]}], "}"}]}], ",", 
      RowBox[{"582", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"4096", "/", "3645"}], ",", 
         RowBox[{"35", "/", "32"}], ",", 
         RowBox[{"243", "/", "224"}]}], "}"}]}], ",", 
      RowBox[{"583", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"38", "/", "35"}], ",", 
         RowBox[{"35", "/", "32"}], ",", 
         RowBox[{"64", "/", "57"}]}], "}"}]}], ",", 
      RowBox[{"584", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"19", "/", "17"}], ",", 
         RowBox[{"17", "/", "16"}], ",", 
         RowBox[{"64", "/", "57"}]}], "}"}]}], ",", 
      RowBox[{"585", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"11", "/", "10"}], ",", 
         RowBox[{"95", "/", "88"}], ",", 
         RowBox[{"64", "/", "57"}]}], "}"}]}], ",", 
      RowBox[{"586", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"240", "/", "221"}], ",", 
         RowBox[{"221", "/", "202"}], ",", 
         RowBox[{"101", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"587", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"15", "/", "14"}], ",", 
         RowBox[{"112", "/", "101"}], ",", 
         RowBox[{"101", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"588", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"120", "/", "113"}], ",", 
         RowBox[{"113", "/", "101"}], ",", 
         RowBox[{"101", "/", "90"}]}], "}"}]}], ",", 
      RowBox[{"589", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"533", "/", "483"}], ",", 
         RowBox[{"575", "/", "533"}], ",", 
         RowBox[{"28", "/", "25"}]}], "}"}]}], ",", 
      RowBox[{"590", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"19", "/", "17"}], ",", 
         RowBox[{"85", "/", "76"}], ",", 
         RowBox[{"16", "/", "15"}]}], "}"}]}], ",", 
      RowBox[{"591", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"19", "/", "17"}], ",", 
         RowBox[{"1156", "/", "1083"}], ",", 
         RowBox[{"19", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"592", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"68", "/", "63"}], ",", 
         RowBox[{"21", "/", "19"}], ",", 
         RowBox[{"19", "/", "17"}]}], "}"}]}], ",", 
      RowBox[{"593", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "/", "9"}], ",", 
         RowBox[{"108", "/", "97"}], ",", 
         RowBox[{"97", "/", "90"}]}], "}"}]}]}], "\[IndentingNewLine]", 
     "|>"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Protect", "[", "tetrachords", "]"}], " ", ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Unprotect", "[", "knownRatios", "]"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"knownRatios", " ", "=", " ", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"1", "\[Rule]", "\"\<unison, perfect prime\>\""}], ",", 
     RowBox[{"2", "\[Rule]", "\"\<octave\>\""}], ",", 
     RowBox[{
      FractionBox["3", "2"], "\[Rule]", "\"\<perfect fifth\>\""}], ",", 
     RowBox[{
      FractionBox["4", "3"], "\[Rule]", "\"\<perfect fourth\>\""}], ",", 
     RowBox[{
      FractionBox["5", "3"], "\[Rule]", "\"\<major sixth, BP sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["5", "4"], "\[Rule]", "\"\<major third\>\""}], ",", 
     RowBox[{
      FractionBox["6", "5"], "\[Rule]", "\"\<minor third\>\""}], ",", 
     RowBox[{
      FractionBox["7", "3"], "\[Rule]", "\"\<minimal tenth, BP tenth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["7", "4"], "\[Rule]", "\"\<harmonic seventh\>\""}], ",", 
     RowBox[{
      FractionBox["7", "5"], "\[Rule]", 
      "\"\<septimal or Huygens' tritone, BP fourth\>\""}], ",", 
     RowBox[{
      FractionBox["7", "6"], "\[Rule]", "\"\<septimal minor third\>\""}], ",", 
     RowBox[{
      FractionBox["8", "5"], "\[Rule]", "\"\<minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["8", "7"], "\[Rule]", "\"\<septimal whole tone\>\""}], ",", 
     
     RowBox[{
      FractionBox["9", "4"], "\[Rule]", "\"\<major ninth\>\""}], ",", 
     RowBox[{
      FractionBox["9", "5"], "\[Rule]", 
      "\"\<just minor seventh, BP seventh\>\""}], ",", 
     RowBox[{
      FractionBox["9", "7"], "\[Rule]", 
      "\"\<septimal major third, BP third\>\""}], ",", 
     RowBox[{
      FractionBox["9", "8"], "\[Rule]", "\"\<major whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["10", "7"], "\[Rule]", "\"\<Euler's tritone\>\""}], ",", 
     RowBox[{
      FractionBox["10", "9"], "\[Rule]", "\"\<minor whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["11", "5"], "\[Rule]", "\"\<neutral ninth\>\""}], ",", 
     RowBox[{
      FractionBox["11", "6"], "\[Rule]", 
      "\"\<21/4-tone, undecimal neutral seventh\>\""}], ",", 
     RowBox[{
      FractionBox["11", "7"], "\[Rule]", 
      "\"\<undecimal augmented fifth\>\""}], ",", 
     RowBox[{
      FractionBox["11", "8"], "\[Rule]", 
      "\"\<undecimal semi-augmented fourth\>\""}], ",", 
     RowBox[{
      FractionBox["11", "9"], "\[Rule]", "\"\<undecimal neutral third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["11", "10"], "\[Rule]", 
      "\"\<4/5-tone, Ptolemy's second\>\""}], ",", 
     RowBox[{
      FractionBox["12", "7"], "\[Rule]", "\"\<septimal major sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["12", "11"], "\[Rule]", 
      "\"\<3/4-tone, undecimal neutral second\>\""}], ",", 
     RowBox[{
      FractionBox["13", "7"], "\[Rule]", "\"\<16/3-tone\>\""}], ",", 
     RowBox[{
      FractionBox["13", "8"], "\[Rule]", "\"\<tridecimal neutral sixth\>\""}],
      ",", 
     RowBox[{
      FractionBox["13", "9"], "\[Rule]", 
      "\"\<tridecimal diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["13", "10"], "\[Rule]", 
      "\"\<tridecimal semi-diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["13", "11"], "\[Rule]", "\"\<tridecimal minor third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["13", "12"], "\[Rule]", "\"\<tridecimal 2/3-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["14", "9"], "\[Rule]", "\"\<septimal minor sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["14", "11"], "\[Rule]", 
      "\"\<undecimal diminished fourth or major third\>\""}], ",", 
     RowBox[{
      FractionBox["14", "13"], "\[Rule]", "\"\<2/3-tone\>\""}], ",", 
     RowBox[{
      FractionBox["15", "7"], "\[Rule]", 
      "\"\<septimal minor ninth, BP ninth\>\""}], ",", 
     RowBox[{
      FractionBox["15", "8"], "\[Rule]", "\"\<classic major seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["15", "11"], "\[Rule]", 
      "\"\<undecimal augmented fourth\>\""}], ",", 
     RowBox[{
      FractionBox["15", "13"], "\[Rule]", "\"\<tridecimal 5/4-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["15", "14"], "\[Rule]", "\"\<major diatonic semitone\>\""}],
      ",", 
     RowBox[{
      FractionBox["16", "7"], "\[Rule]", "\"\<septimal major ninth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["16", "9"], "\[Rule]", 
      "\"\<Pythagorean minor seventh\>\""}], ",", 
     RowBox[{
      FractionBox["16", "11"], "\[Rule]", 
      "\"\<undecimal semi-diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["16", "13"], "\[Rule]", 
      "\"\<tridecimal neutral third\>\""}], ",", 
     RowBox[{
      FractionBox["16", "15"], "\[Rule]", "\"\<minor diatonic semitone\>\""}],
      ",", 
     RowBox[{
      FractionBox["17", "8"], "\[Rule]", 
      "\"\<septendecimal minor ninth\>\""}], ",", 
     RowBox[{
      FractionBox["17", "9"], "\[Rule]", 
      "\"\<septendecimal major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["17", "10"], "\[Rule]", 
      "\"\<septendecimal diminished seventh\>\""}], ",", 
     RowBox[{
      FractionBox["17", "12"], "\[Rule]", 
      "\"\<2nd septendecimal tritone\>\""}], ",", 
     RowBox[{
      FractionBox["17", "14"], "\[Rule]", "\"\<supraminor third\>\""}], ",", 
     RowBox[{
      FractionBox["17", "15"], "\[Rule]", 
      "\"\<septendecimal whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["17", "16"], "\[Rule]", "\"\<17th harmonic\>\""}], ",", 
     RowBox[{
      FractionBox["18", "11"], "\[Rule]", "\"\<undecimal neutral sixth\>\""}],
      ",", 
     RowBox[{
      FractionBox["18", "13"], "\[Rule]", 
      "\"\<tridecimal augmented fourth\>\""}], ",", 
     RowBox[{
      FractionBox["18", "17"], "\[Rule]", 
      "\"\<Arabic lute index finger\>\""}], ",", 
     RowBox[{
      FractionBox["19", "10"], "\[Rule]", 
      "\"\<undevicesimal major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["19", "12"], "\[Rule]", 
      "\"\<undevicesimal minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["19", "15"], "\[Rule]", "\"\<undevicesimal ditone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["19", "16"], "\[Rule]", "\"\<19th harmonic\>\""}], ",", 
     RowBox[{
      FractionBox["19", "17"], "\[Rule]", "\"\<quasi-meantone\>\""}], ",", 
     RowBox[{
      FractionBox["19", "18"], "\[Rule]", "\"\<undevicesimal semitone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["20", "9"], "\[Rule]", "\"\<small ninth\>\""}], ",", 
     RowBox[{
      FractionBox["20", "11"], "\[Rule]", "\"\<large minor seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["20", "13"], "\[Rule]", 
      "\"\<tridecimal semi-augmented fifth\>\""}], ",", 
     RowBox[{
      FractionBox["20", "17"], "\[Rule]", 
      "\"\<septendecimal augmented second\>\""}], ",", 
     RowBox[{
      FractionBox["20", "19"], "\[Rule]", 
      "\"\<small undevicesimal semitone\>\""}], ",", 
     RowBox[{
      FractionBox["21", "11"], "\[Rule]", "\"\<undecimal major seventh\>\""}],
      ",", 
     RowBox[{
      FractionBox["21", "16"], "\[Rule]", "\"\<narrow fourth\>\""}], ",", 
     RowBox[{
      FractionBox["21", "17"], "\[Rule]", "\"\<submajor third\>\""}], ",", 
     RowBox[{
      FractionBox["21", "20"], "\[Rule]", "\"\<minor semitone\>\""}], ",", 
     RowBox[{
      FractionBox["22", "13"], "\[Rule]", "\"\<tridecimal major sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["22", "15"], "\[Rule]", 
      "\"\<undecimal diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["22", "21"], "\[Rule]", 
      "\"\<undecimal minor semitone\>\""}], ",", 
     RowBox[{
      FractionBox["23", "12"], "\[Rule]", 
      "\"\<vicesimotertial major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["23", "16"], "\[Rule]", "\"\<23rd harmonic\>\""}], ",", 
     RowBox[{
      FractionBox["23", "18"], "\[Rule]", 
      "\"\<vicesimotertial major third\>\""}], ",", 
     RowBox[{
      FractionBox["24", "13"], "\[Rule]", 
      "\"\<tridecimal neutral seventh\>\""}], ",", 
     RowBox[{
      FractionBox["24", "17"], "\[Rule]", 
      "\"\<1st septendecimal tritone\>\""}], ",", 
     RowBox[{
      FractionBox["24", "19"], "\[Rule]", 
      "\"\<smaller undevicesimal major third\>\""}], ",", 
     RowBox[{
      FractionBox["24", "23"], "\[Rule]", 
      "\"\<vicesimotertial minor semitone\>\""}], ",", 
     RowBox[{
      FractionBox["25", "9"], "\[Rule]", 
      "\"\<classic augmented eleventh, BP twelfth\>\""}], ",", 
     RowBox[{
      FractionBox["25", "12"], "\[Rule]", 
      "\"\<classic augmented octave\>\""}], ",", 
     RowBox[{
      FractionBox["25", "14"], "\[Rule]", "\"\<middle minor seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["25", "16"], "\[Rule]", "\"\<classic augmented fifth\>\""}],
      ",", 
     RowBox[{
      FractionBox["25", "18"], "\[Rule]", 
      "\"\<classic augmented fourth\>\""}], ",", 
     RowBox[{
      FractionBox["25", "21"], "\[Rule]", 
      "\"\<BP second, quasi-equal minor third\>\""}], ",", 
     RowBox[{
      FractionBox["25", "22"], "\[Rule]", 
      "\"\<undecimal acute whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["25", "24"], "\[Rule]", 
      "\"\<classic chromatic semitone, minor chroma\>\""}], ",", 
     RowBox[{
      FractionBox["26", "15"], "\[Rule]", 
      "\"\<tridecimal semi-augmented sixth\>\""}], ",", 
     RowBox[{
      FractionBox["26", "25"], "\[Rule]", "\"\<tridecimal 1/3-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["27", "14"], "\[Rule]", "\"\<septimal major seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["27", "16"], "\[Rule]", "\"\<Pythagorean major sixth\>\""}],
      ",", 
     RowBox[{
      FractionBox["27", "17"], "\[Rule]", 
      "\"\<septendecimal minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["27", "20"], "\[Rule]", "\"\<acute fourth\>\""}], ",", 
     RowBox[{
      FractionBox["27", "22"], "\[Rule]", 
      "\"\<neutral third, Zalzal wosta of al-Farabi\>\""}], ",", 
     RowBox[{
      FractionBox["27", "23"], "\[Rule]", 
      "\"\<vicesimotertial minor third\>\""}], ",", 
     RowBox[{
      FractionBox["27", "25"], "\[Rule]", 
      "\"\<large limma, BP small semitone, Zarlino semitone\>\""}], ",", 
     RowBox[{
      FractionBox["27", "26"], "\[Rule]", "\"\<tridecimal comma\>\""}], ",", 
     RowBox[{
      FractionBox["28", "15"], "\[Rule]", "\"\<grave major seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["28", "17"], "\[Rule]", "\"\<submajor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["28", "25"], "\[Rule]", "\"\<middle second\>\""}], ",", 
     RowBox[{
      FractionBox["28", "27"], "\[Rule]", "\"\<Archytas' 1/3-tone\>\""}], ",", 
     RowBox[{
      FractionBox["29", "16"], "\[Rule]", "\"\<29th harmonic\>\""}], ",", 
     RowBox[{
      FractionBox["30", "17"], "\[Rule]", 
      "\"\<septendecimal minor seventh\>\""}], ",", 
     RowBox[{
      FractionBox["30", "19"], "\[Rule]", 
      "\"\<smaller undevicesimal minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["31", "16"], "\[Rule]", "\"\<31st harmonic\>\""}], ",", 
     RowBox[{
      FractionBox["31", "30"], "\[Rule]", "\"\<31st-partial chroma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["32", "15"], "\[Rule]", "\"\<minor ninth\>\""}], ",", 
     RowBox[{
      FractionBox["32", "17"], "\[Rule]", "\"\<17th subharmonic\>\""}], ",", 
     RowBox[{
      FractionBox["32", "19"], "\[Rule]", "\"\<19th subharmonic\>\""}], ",", 
     RowBox[{
      FractionBox["32", "21"], "\[Rule]", "\"\<wide fifth\>\""}], ",", 
     RowBox[{
      FractionBox["32", "23"], "\[Rule]", "\"\<23rd subharmonic\>\""}], ",", 
     RowBox[{
      FractionBox["32", "25"], "\[Rule]", 
      "\"\<classic diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["32", "27"], "\[Rule]", "\"\<Pythagorean minor third\>\""}],
      ",", 
     RowBox[{
      FractionBox["32", "29"], "\[Rule]", "\"\<29th subharmonic\>\""}], ",", 
     RowBox[{
      FractionBox["32", "31"], "\[Rule]", 
      "\"\<Greek enharmonic 1/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["33", "25"], "\[Rule]", "\"\<2 pentatones\>\""}], ",", 
     RowBox[{
      FractionBox["33", "26"], "\[Rule]", "\"\<tridecimal major third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["33", "28"], "\[Rule]", "\"\<undecimal minor third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["33", "32"], "\[Rule]", 
      "\"\<undecimal comma, al-Farabi's 1/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["34", "19"], "\[Rule]", "\"\<quasi-mean seventh\>\""}], ",", 
     RowBox[{
      FractionBox["34", "21"], "\[Rule]", "\"\<supraminor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["34", "27"], "\[Rule]", 
      "\"\<septendecimal major third\>\""}], ",", 
     RowBox[{
      FractionBox["35", "18"], "\[Rule]", 
      "\"\<septimal semi-diminished octave\>\""}], ",", 
     RowBox[{
      FractionBox["35", "24"], "\[Rule]", 
      "\"\<septimal semi-diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["35", "27"], "\[Rule]", 
      "\"\<9/4-tone, septimal semi-diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["35", "32"], "\[Rule]", "\"\<septimal neutral second\>\""}],
      ",", 
     RowBox[{
      FractionBox["35", "34"], "\[Rule]", "\"\<septendecimal 1/4-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["36", "19"], "\[Rule]", 
      "\"\<smaller undevicesimal major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["36", "25"], "\[Rule]", 
      "\"\<classic diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["36", "35"], "\[Rule]", 
      "\"\<septimal diesis, 1/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["37", "32"], "\[Rule]", "\"\<37th harmonic\>\""}], ",", 
     RowBox[{
      FractionBox["39", "32"], "\[Rule]", 
      "\"\<39th harmonic, Zalzal wosta of Ibn Sina\>\""}], ",", 
     RowBox[{
      FractionBox["40", "21"], "\[Rule]", "\"\<acute major seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["40", "27"], "\[Rule]", "\"\<grave fifth\>\""}], ",", 
     RowBox[{
      FractionBox["40", "39"], "\[Rule]", "\"\<tridecimal minor diesis\>\""}],
      ",", 
     RowBox[{
      FractionBox["42", "25"], "\[Rule]", "\"\<quasi-equal major sixth\>\""}],
      ",", 
     RowBox[{
      FractionBox["44", "25"], "\[Rule]", 
      "\"\<undecimal grave minor seventh\>\""}], ",", 
     RowBox[{
      FractionBox["44", "27"], "\[Rule]", "\"\<neutral sixth\>\""}], ",", 
     RowBox[{
      FractionBox["45", "28"], "\[Rule]", 
      "\"\<septimale wide minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["45", "32"], "\[Rule]", "\"\<diatonic tritone\>\""}], ",", 
     RowBox[{
      FractionBox["45", "44"], "\[Rule]", "\"\<1/5-tone\>\""}], ",", 
     RowBox[{
      FractionBox["46", "45"], "\[Rule]", "\"\<23rd-partial chroma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["48", "25"], "\[Rule]", "\"\<classic diminished octave\>\""}
      ], ",", 
     RowBox[{
      FractionBox["48", "35"], "\[Rule]", 
      "\"\<septimal semi-augmented fourth\>\""}], ",", 
     RowBox[{
      FractionBox["49", "25"], "\[Rule]", "\"\<BP eighth\>\""}], ",", 
     RowBox[{
      FractionBox["49", "30"], "\[Rule]", 
      "\"\<larger approximation to neutral sixth\>\""}], ",", 
     RowBox[{
      FractionBox["49", "36"], "\[Rule]", 
      "\"\<Arabic lute acute fourth\>\""}], ",", 
     RowBox[{
      FractionBox["49", "40"], "\[Rule]", 
      "\"\<larger approximation to neutral third\>\""}], ",", 
     RowBox[{
      FractionBox["49", "45"], "\[Rule]", "\"\<BP minor semitone\>\""}], ",", 
     
     RowBox[{
      FractionBox["49", "44"], "\[Rule]", 
      "\"\<undecimal minor whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["49", "48"], "\[Rule]", 
      "\"\<slendro diesis, septimal 1/6-tone\>\""}], ",", 
     RowBox[{
      FractionBox["50", "27"], "\[Rule]", "\"\<grave major seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["50", "33"], "\[Rule]", "\"\<3 pentatones\>\""}], ",", 
     RowBox[{
      FractionBox["50", "49"], "\[Rule]", 
      "\"\<Erlich's decatonic comma, tritonic diesis\>\""}], ",", 
     RowBox[{
      FractionBox["51", "40"], "\[Rule]", 
      "\"\<septendecimal diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["51", "50"], "\[Rule]", "\"\<17th-partial chroma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["52", "33"], "\[Rule]", "\"\<tridecimal minor sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["54", "35"], "\[Rule]", 
      "\"\<septimal semi-augmented fifth\>\""}], ",", 
     RowBox[{
      FractionBox["54", "49"], "\[Rule]", "\"\<Zalzal's mujannab\>\""}], ",", 
     
     RowBox[{
      FractionBox["55", "36"], "\[Rule]", 
      "\"\<undecimal semi-augmented fifth\>\""}], ",", 
     RowBox[{
      FractionBox["55", "48"], "\[Rule]", 
      "\"\<undecimal semi-augmented whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["55", "49"], "\[Rule]", 
      "\"\<quasi-equal major second\>\""}], ",", 
     RowBox[{
      FractionBox["55", "54"], "\[Rule]", "\"\<telepathma\>\""}], ",", 
     RowBox[{
      FractionBox["56", "45"], "\[Rule]", 
      "\"\<septimal narrow major third\>\""}], ",", 
     RowBox[{
      FractionBox["56", "55"], "\[Rule]", 
      "\"\<undecimal diesis, konbini comma\>\""}], ",", 
     RowBox[{
      FractionBox["57", "32"], "\[Rule]", 
      "\"\<undevicesimal minor seventh\>\""}], ",", 
     RowBox[{
      FractionBox["57", "56"], "\[Rule]", "\"\<Hendrix comma\>\""}], ",", 
     RowBox[{
      FractionBox["60", "49"], "\[Rule]", 
      "\"\<smaller approximation to neutral third\>\""}], ",", 
     RowBox[{
      FractionBox["63", "25"], "\[Rule]", 
      "\"\<quasi-equal major tenth, BP eleventh\>\""}], ",", 
     RowBox[{
      FractionBox["63", "32"], "\[Rule]", "\"\<octave - septimal comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["63", "34"], "\[Rule]", "\"\<submajor seventh\>\""}], ",", 
     RowBox[{
      FractionBox["63", "40"], "\[Rule]", "\"\<narrow minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["63", "50"], "\[Rule]", "\"\<quasi-equal major third\>\""}],
      ",", 
     RowBox[{
      FractionBox["64", "33"], "\[Rule]", "\"\<33rd subharmonic\>\""}], ",", 
     RowBox[{
      FractionBox["64", "35"], "\[Rule]", 
      "\"\<septimal neutral seventh\>\""}], ",", 
     RowBox[{
      FractionBox["64", "37"], "\[Rule]", "\"\<37th subharmonic\>\""}], ",", 
     RowBox[{
      FractionBox["64", "39"], "\[Rule]", "\"\<39th subharmonic\>\""}], ",", 
     RowBox[{
      FractionBox["64", "45"], "\[Rule]", "\"\<2nd tritone\>\""}], ",", 
     RowBox[{
      FractionBox["64", "49"], "\[Rule]", 
      "\"\<2 septatones or septatonic major third\>\""}], ",", 
     RowBox[{
      FractionBox["64", "63"], "\[Rule]", 
      "\"\<septimal comma, Archytas' comma\>\""}], ",", 
     RowBox[{
      FractionBox["65", "64"], "\[Rule]", "\"\<13th-partial chroma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["66", "65"], "\[Rule]", "\"\<Winmeanma\>\""}], ",", 
     RowBox[{
      FractionBox["68", "35"], "\[Rule]", "\"\<23/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["68", "63"], "\[Rule]", "\"\<supraminor second\>\""}], ",", 
     
     RowBox[{
      FractionBox["68", "65"], "\[Rule]", "\"\<Valentine semitone\>\""}], ",", 
     RowBox[{
      FractionBox["72", "49"], "\[Rule]", "\"\<Arabic lute grave fifth\>\""}],
      ",", 
     RowBox[{
      FractionBox["72", "55"], "\[Rule]", 
      "\"\<undecimal semi-diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["72", "59"], "\[Rule]", 
      "\"\<Ibn Sina's neutral third\>\""}], ",", 
     RowBox[{
      FractionBox["74", "73"], "\[Rule]", 
      "\"\<approximation to Pythagorean comma\>\""}], ",", 
     RowBox[{
      FractionBox["75", "49"], "\[Rule]", "\"\<BP fifth\>\""}], ",", 
     RowBox[{
      FractionBox["75", "56"], "\[Rule]", "\"\<marvelous fourth\>\""}], ",", 
     RowBox[{
      FractionBox["75", "64"], "\[Rule]", 
      "\"\<classic augmented second\>\""}], ",", 
     RowBox[{
      FractionBox["77", "64"], "\[Rule]", "\"\<Keemun minor third\>\""}], ",", 
     RowBox[{
      FractionBox["77", "72"], "\[Rule]", "\"\<undecimal secor\>\""}], ",", 
     RowBox[{
      FractionBox["77", "76"], "\[Rule]", 
      "\"\<approximation to 53-tone comma\>\""}], ",", 
     RowBox[{
      FractionBox["78", "71"], "\[Rule]", 
      "\"\<porcupine neutral second\>\""}], ",", 
     RowBox[{
      FractionBox["78", "77"], "\[Rule]", 
      "\"\<tridecimal minor third comma\>\""}], ",", 
     RowBox[{
      FractionBox["80", "49"], "\[Rule]", 
      "\"\<smaller approximation to neutral sixth\>\""}], ",", 
     RowBox[{
      FractionBox["80", "63"], "\[Rule]", "\"\<wide major third\>\""}], ",", 
     RowBox[{
      FractionBox["81", "44"], "\[Rule]", 
      "\"\<2nd undecimal neutral seventh\>\""}], ",", 
     RowBox[{
      FractionBox["81", "50"], "\[Rule]", "\"\<acute minor sixth\>\""}], ",", 
     
     RowBox[{
      FractionBox["81", "64"], "\[Rule]", "\"\<Pythagorean major third\>\""}],
      ",", 
     RowBox[{
      FractionBox["81", "68"], "\[Rule]", "\"\<Persian wosta\>\""}], ",", 
     RowBox[{
      FractionBox["81", "70"], "\[Rule]", 
      "\"\<Al-Hwarizmi's lute middle finger\>\""}], ",", 
     RowBox[{
      FractionBox["81", "80"], "\[Rule]", 
      "\"\<syntonic comma, Didymus comma\>\""}], ",", 
     RowBox[{
      FractionBox["85", "72"], "\[Rule]", 
      "\"\<septendecimal minor third\>\""}], ",", 
     RowBox[{
      FractionBox["88", "49"], "\[Rule]", "\"\<undecimal minor seventh\>\""}],
      ",", 
     RowBox[{
      FractionBox["88", "81"], "\[Rule]", 
      "\"\<2nd undecimal neutral second\>\""}], ",", 
     RowBox[{
      FractionBox["89", "84"], "\[Rule]", "\"\<quasi-equal semitone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["91", "59"], "\[Rule]", "\"\<15/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["91", "90"], "\[Rule]", 
      "\"\<medium tridecimal comma, superleap\>\""}], ",", 
     RowBox[{
      FractionBox["96", "95"], "\[Rule]", "\"\<19th-partial chroma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["98", "55"], "\[Rule]", 
      "\"\<quasi-equal minor seventh\>\""}], ",", 
     RowBox[{
      FractionBox["99", "70"], "\[Rule]", "\"\<2nd quasi-equal tritone\>\""}],
      ",", 
     RowBox[{
      FractionBox["99", "98"], "\[Rule]", "\"\<small undecimal comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["100", "63"], "\[Rule]", 
      "\"\<quasi-equal minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["100", "81"], "\[Rule]", "\"\<grave major third\>\""}], ",", 
     RowBox[{
      FractionBox["100", "99"], "\[Rule]", "\"\<Ptolemy's comma\>\""}], ",", 
     RowBox[{
      FractionBox["105", "64"], "\[Rule]", "\"\<septimal neutral sixth\>\""}],
      ",", 
     RowBox[{
      FractionBox["105", "104"], "\[Rule]", 
      "\"\<small tridecimal comma\>\""}], ",", 
     RowBox[{
      FractionBox["112", "75"], "\[Rule]", "\"\<marvelous fifth\>\""}], ",", 
     RowBox[{
      FractionBox["117", "88"], "\[Rule]", 
      "\"\<tridecimal gentle fourth\>\""}], ",", 
     RowBox[{
      FractionBox["121", "120"], "\[Rule]", 
      "\"\<undecimal seconds comma, biyatisma\>\""}], ",", 
     RowBox[{
      FractionBox["125", "64"], "\[Rule]", 
      "\"\<classic augmented seventh, octave - minor diesis\>\""}], ",", 
     RowBox[{
      FractionBox["125", "72"], "\[Rule]", 
      "\"\<classic augmented sixth\>\""}], ",", 
     RowBox[{
      FractionBox["125", "96"], "\[Rule]", 
      "\"\<classic augmented third\>\""}], ",", 
     RowBox[{
      FractionBox["125", "108"], "\[Rule]", 
      "\"\<semi-augmented whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["125", "112"], "\[Rule]", 
      "\"\<classic augmented semitone\>\""}], ",", 
     RowBox[{
      FractionBox["126", "125"], "\[Rule]", 
      "\"\<septimal semicomma, Starling comma\>\""}], ",", 
     RowBox[{
      FractionBox["128", "75"], "\[Rule]", "\"\<diminished seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["128", "81"], "\[Rule]", 
      "\"\<Pythagorean minor sixth\>\""}], ",", 
     RowBox[{
      FractionBox["128", "105"], "\[Rule]", 
      "\"\<septimal neutral third\>\""}], ",", 
     RowBox[{
      FractionBox["128", "121"], "\[Rule]", "\"\<undecimal semitone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["128", "125"], "\[Rule]", "\"\<minor diesis, diesis\>\""}], 
     ",", 
     RowBox[{
      FractionBox["135", "112"], "\[Rule]", 
      "\"\<septimal wide minor third\>\""}], ",", 
     RowBox[{
      FractionBox["135", "128"], "\[Rule]", 
      "\"\<major chroma, major limma\>\""}], ",", 
     RowBox[{
      FractionBox["140", "99"], "\[Rule]", "\"\<quasi-equal tritone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["144", "125"], "\[Rule]", 
      "\"\<classic diminished third\>\""}], ",", 
     RowBox[{
      FractionBox["144", "143"], "\[Rule]", "\"\<Grossma\>\""}], ",", 
     RowBox[{
      FractionBox["145", "144"], "\[Rule]", "\"\<29th-partial chroma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["153", "125"], "\[Rule]", "\"\<7/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["153", "152"], "\[Rule]", "\"\<Ganassi's comma\>\""}], ",", 
     
     RowBox[{
      FractionBox["160", "81"], "\[Rule]", 
      "\"\<octave - syntonic comma\>\""}], ",", 
     RowBox[{
      FractionBox["161", "93"], "\[Rule]", "\"\<19/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["162", "149"], "\[Rule]", 
      "\"\<Persian neutral second\>\""}], ",", 
     RowBox[{
      FractionBox["168", "89"], "\[Rule]", 
      "\"\<quasi-equal major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["169", "168"], "\[Rule]", "\"\<Schulter's comma\>\""}], ",", 
     RowBox[{
      FractionBox["176", "175"], "\[Rule]", "\"\<valinorsma\>\""}], ",", 
     RowBox[{
      FractionBox["192", "125"], "\[Rule]", 
      "\"\<classic diminished sixth\>\""}], ",", 
     RowBox[{
      FractionBox["192", "175"], "\[Rule]", "\"\<septimal 4/5-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["196", "195"], "\[Rule]", "\"\<mynucuma\>\""}], ",", 
     RowBox[{
      FractionBox["210", "209"], "\[Rule]", "\"\<spleen comma\>\""}], ",", 
     RowBox[{
      FractionBox["216", "125"], "\[Rule]", "\"\<semi-augmented sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["224", "135"], "\[Rule]", 
      "\"\<narrow septimal major sixth\>\""}], ",", 
     RowBox[{
      FractionBox["225", "128"], "\[Rule]", "\"\<augmented sixth\>\""}], ",", 
     
     RowBox[{
      FractionBox["225", "224"], "\[Rule]", "\"\<septimal kleisma\>\""}], ",", 
     RowBox[{
      FractionBox["231", "200"], "\[Rule]", "\"\<5/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["241", "221"], "\[Rule]", "\"\<Meshaqah's 3/4-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["243", "125"], "\[Rule]", 
      "\"\<octave - maximal diesis\>\""}], ",", 
     RowBox[{
      FractionBox["243", "128"], "\[Rule]", 
      "\"\<Pythagorean major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["243", "160"], "\[Rule]", "\"\<acute fifth\>\""}], ",", 
     RowBox[{
      FractionBox["243", "200"], "\[Rule]", "\"\<acute minor third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["243", "224"], "\[Rule]", "\"\<Archytas' 2/3-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["243", "242"], "\[Rule]", 
      "\"\<neutral third comma, rastma\>\""}], ",", 
     RowBox[{
      FractionBox["245", "242"], "\[Rule]", "\"\<Nautilus comma\>\""}], ",", 
     RowBox[{
      FractionBox["245", "243"], "\[Rule]", 
      "\"\<minor BP diesis, Sensamagic comma\>\""}], ",", 
     RowBox[{
      FractionBox["246", "239"], "\[Rule]", "\"\<Meshaqah's 1/4-tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["248", "243"], "\[Rule]", "\"\<tricesoprimal comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["250", "153"], "\[Rule]", "\"\<17/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["250", "243"], "\[Rule]", 
      "\"\<maximal diesis, Porcupine comma\>\""}], ",", 
     RowBox[{
      FractionBox["256", "135"], "\[Rule]", "\"\<octave - major chroma\>\""}],
      ",", 
     RowBox[{
      FractionBox["256", "225"], "\[Rule]", "\"\<diminished third\>\""}], ",", 
     RowBox[{
      FractionBox["256", "243"], "\[Rule]", 
      "\"\<limma, Pythagorean minor second\>\""}], ",", 
     RowBox[{
      FractionBox["256", "245"], "\[Rule]", 
      "\"\<septimal minor semitone\>\""}], ",", 
     RowBox[{
      FractionBox["256", "255"], "\[Rule]", "\"\<septendecimal kleisma\>\""}],
      ",", 
     RowBox[{
      FractionBox["261", "256"], "\[Rule]", "\"\<vicesimononal comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["270", "161"], "\[Rule]", "\"\<Kirnberger's sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["272", "243"], "\[Rule]", "\"\<Persian whole tone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["273", "256"], "\[Rule]", 
      "\"\<Ibn Sina's minor second\>\""}], ",", 
     RowBox[{
      FractionBox["273", "272"], "\[Rule]", "\"\<Tannisma\>\""}], ",", 
     RowBox[{
      FractionBox["275", "273"], "\[Rule]", "\"\<Garibert comma\>\""}], ",", 
     RowBox[{
      FractionBox["289", "288"], "\[Rule]", 
      "\"\<septendecimal minor second comma\>\""}], ",", 
     RowBox[{
      FractionBox["320", "243"], "\[Rule]", "\"\<grave fourth\>\""}], ",", 
     RowBox[{
      FractionBox["325", "324"], "\[Rule]", "\"\<marveltwin\>\""}], ",", 
     RowBox[{
      FractionBox["351", "350"], "\[Rule]", "\"\<ratwolf comma\>\""}], ",", 
     RowBox[{
      FractionBox["352", "343"], "\[Rule]", "\"\<supracomma\>\""}], ",", 
     RowBox[{
      FractionBox["352", "351"], "\[Rule]", "\"\<minthma\>\""}], ",", 
     RowBox[{
      FractionBox["361", "360"], "\[Rule]", "\"\<Dudon comma\>\""}], ",", 
     RowBox[{
      FractionBox["364", "363"], "\[Rule]", "\"\<gentle comma\>\""}], ",", 
     RowBox[{
      FractionBox["375", "256"], "\[Rule]", 
      "\"\<double augmented fourth\>\""}], ",", 
     RowBox[{
      FractionBox["375", "343"], "\[Rule]", 
      "\"\<BP major semitone, minor BP chroma\>\""}], ",", 
     RowBox[{
      FractionBox["385", "384"], "\[Rule]", 
      "\"\<undecimal kleisma, Keemun comma\>\""}], ",", 
     RowBox[{
      FractionBox["400", "243"], "\[Rule]", "\"\<grave major sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["405", "256"], "\[Rule]", "\"\<wide augmented fifth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["405", "392"], "\[Rule]", "\"\<greenwoodma\>\""}], ",", 
     RowBox[{
      FractionBox["441", "440"], "\[Rule]", 
      "\"\<Werckmeister's undecimal septenarian schisma\>\""}], ",", 
     RowBox[{
      FractionBox["512", "343"], "\[Rule]", 
      "\"\<3 septatones or septatonic fifth\>\""}], ",", 
     RowBox[{
      FractionBox["512", "375"], "\[Rule]", 
      "\"\<double diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["512", "405"], "\[Rule]", 
      "\"\<narrow diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["512", "507"], "\[Rule]", 
      "\"\<tridecimal neutral third comma\>\""}], ",", 
     RowBox[{
      FractionBox["513", "512"], "\[Rule]", 
      "\"\<undevicesimal comma, Boethius' comma\>\""}], ",", 
     RowBox[{
      FractionBox["525", "512"], "\[Rule]", 
      "\"\<Avicenna enharmonic diesis\>\""}], ",", 
     RowBox[{
      FractionBox["540", "539"], "\[Rule]", "\"\<Swets' comma\>\""}], ",", 
     RowBox[{
      FractionBox["625", "324"], "\[Rule]", "\"\<octave - major diesis\>\""}],
      ",", 
     RowBox[{
      FractionBox["625", "512"], "\[Rule]", "\"\<classic neutral third\>\""}],
      ",", 
     RowBox[{
      FractionBox["625", "567"], "\[Rule]", 
      "\"\<BP great semitone, major BP chroma\>\""}], ",", 
     RowBox[{
      FractionBox["640", "637"], "\[Rule]", "\"\<huntma\>\""}], ",", 
     RowBox[{
      FractionBox["648", "625"], "\[Rule]", "\"\<major diesis\>\""}], ",", 
     RowBox[{
      FractionBox["675", "512"], "\[Rule]", "\"\<wide augmented third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["676", "675"], "\[Rule]", "\"\<island comma\>\""}], ",", 
     RowBox[{
      FractionBox["686", "675"], "\[Rule]", "\"\<senga\>\""}], ",", 
     RowBox[{
      FractionBox["687", "500"], "\[Rule]", "\"\<11/4-tone\>\""}], ",", 
     RowBox[{
      FractionBox["715", "714"], "\[Rule]", 
      "\"\<septendecimal bridge comma\>\""}], ",", 
     RowBox[{
      FractionBox["729", "400"], "\[Rule]", "\"\<acute minor seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["729", "512"], "\[Rule]", "\"\<Pythagorean tritone\>\""}], 
     ",", 
     RowBox[{
      FractionBox["729", "640"], "\[Rule]", "\"\<acute major second\>\""}], 
     ",", 
     RowBox[{
      FractionBox["729", "704"], "\[Rule]", 
      "\"\<undecimal major diesis\>\""}], ",", 
     RowBox[{
      FractionBox["729", "728"], "\[Rule]", "\"\<squbema\>\""}], ",", 
     RowBox[{
      FractionBox["736", "729"], "\[Rule]", "\"\<vicesimotertial comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["749", "500"], "\[Rule]", 
      "\"\<ancient Chinese quasi-equal fifth\>\""}], ",", 
     RowBox[{
      FractionBox["750", "749"], "\[Rule]", 
      "\"\<ancient Chinese tempering\>\""}], ",", 
     RowBox[{
      FractionBox["800", "729"], "\[Rule]", "\"\<grave whole tone\>\""}], ",", 
     RowBox[{
      FractionBox["847", "845"], "\[Rule]", "\"\<Cuthbert comma\>\""}], ",", 
     RowBox[{
      FractionBox["875", "864"], "\[Rule]", "\"\<keema\>\""}], ",", 
     RowBox[{
      FractionBox["896", "891"], "\[Rule]", 
      "\"\<undecimal semicomma, pentacircle\>\""}], ",", 
     RowBox[{
      FractionBox["1001", "1000"], "\[Rule]", "\"\<fairytale comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["1024", "675"], "\[Rule]", 
      "\"\<narrow diminished sixth\>\""}], ",", 
     RowBox[{
      FractionBox["1024", "729"], "\[Rule]", 
      "\"\<Pythagorean diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["1029", "1000"], "\[Rule]", "\"\<keega\>\""}], ",", 
     RowBox[{
      FractionBox["1029", "1024"], "\[Rule]", "\"\<gamelan residue\>\""}], 
     ",", 
     RowBox[{
      FractionBox["1053", "1024"], "\[Rule]", 
      "\"\<tridecimal major diesis\>\""}], ",", 
     RowBox[{
      FractionBox["1125", "1024"], "\[Rule]", 
      "\"\<double augmented prime\>\""}], ",", 
     RowBox[{
      FractionBox["1188", "1183"], "\[Rule]", "\"\<kestrel comma\>\""}], ",", 
     
     RowBox[{
      FractionBox["1215", "1024"], "\[Rule]", 
      "\"\<wide augmented second\>\""}], ",", 
     RowBox[{
      FractionBox["1216", "1215"], "\[Rule]", "\"\<Eratosthenes' comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["1232", "1215"], "\[Rule]", "\"\<sensmus\>\""}], ",", 
     RowBox[{
      FractionBox["1280", "729"], "\[Rule]", "\"\<grave minor seventh\>\""}], 
     ",", 
     RowBox[{
      FractionBox["1288", "1287"], "\[Rule]", "\"\<triaphonisma\>\""}], ",", 
     RowBox[{
      FractionBox["1331", "1323"], "\[Rule]", "\"\<aphrowe\>\""}], ",", 
     RowBox[{
      FractionBox["1344", "1331"], "\[Rule]", "\"\<hemimin\>\""}], ",", 
     RowBox[{
      FractionBox["1375", "1372"], "\[Rule]", "\"\<moctdel\>\""}], ",", 
     RowBox[{
      FractionBox["1575", "1573"], "\[Rule]", "\"\<Nicola\>\""}], ",", 
     RowBox[{
      FractionBox["1716", "1715"], "\[Rule]", "\"\<lummic comma\>\""}], ",", 
     RowBox[{
      FractionBox["1728", "1715"], "\[Rule]", "\"\<Orwell comma\>\""}], ",", 
     RowBox[{
      FractionBox["1732", "1731"], "\[Rule]", 
      "\"\<approximation to 1 cent\>\""}], ",", 
     RowBox[{
      FractionBox["1875", "1024"], "\[Rule]", 
      "\"\<double augmented sixth\>\""}], ",", 
     RowBox[{
      FractionBox["2025", "1024"], "\[Rule]", "\"\<2 tritones\>\""}], ",", 
     RowBox[{
      FractionBox["2048", "1125"], "\[Rule]", 
      "\"\<double diminished octave\>\""}], ",", 
     RowBox[{
      FractionBox["2048", "1215"], "\[Rule]", 
      "\"\<narrow diminished seventh\>\""}], ",", 
     RowBox[{
      FractionBox["2048", "1875"], "\[Rule]", 
      "\"\<double diminished third\>\""}], ",", 
     RowBox[{
      FractionBox["2048", "2025"], "\[Rule]", "\"\<diaschisma\>\""}], ",", 
     RowBox[{
      FractionBox["2057", "2048"], "\[Rule]", "\"\<Blume comma\>\""}], ",", 
     RowBox[{
      FractionBox["2058", "2057"], "\[Rule]", "\"\<xenisma\>\""}], ",", 
     RowBox[{
      FractionBox["2080", "2079"], "\[Rule]", "\"\<ibnsinma\>\""}], ",", 
     RowBox[{
      FractionBox["2187", "1280"], "\[Rule]", "\"\<acute major sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["2187", "2000"], "\[Rule]", "\"\<Gorgo limma\>\""}], ",", 
     RowBox[{
      FractionBox["2187", "2048"], "\[Rule]", "\"\<apotome\>\""}], ",", 
     RowBox[{
      FractionBox["2187", "2176"], "\[Rule]", "\"\<septendecimal comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["2200", "2197"], "\[Rule]", 
      "\"\<Parizek comma, petrma\>\""}], ",", 
     RowBox[{
      FractionBox["2401", "2400"], "\[Rule]", "\"\<Breedsma\>\""}], ",", 
     RowBox[{
      FractionBox["2430", "2401"], "\[Rule]", "\"\<nuwell comma\>\""}], ",", 
     RowBox[{
      FractionBox["2560", "2187"], "\[Rule]", "\"\<grave minor third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["3025", "3024"], "\[Rule]", "\"\<Lehmerisma\>\""}], ",", 
     RowBox[{
      FractionBox["3125", "3072"], "\[Rule]", 
      "\"\<small diesis, magic comma\>\""}], ",", 
     RowBox[{
      FractionBox["3125", "3087"], "\[Rule]", "\"\<major BP diesis\>\""}], 
     ",", 
     RowBox[{
      FractionBox["3136", "3125"], "\[Rule]", "\"\<middle second comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["3375", "2048"], "\[Rule]", 
      "\"\<double augmented fifth\>\""}], ",", 
     RowBox[{
      FractionBox["3388", "3375"], "\[Rule]", "\"\<myhemiwell\>\""}], ",", 
     RowBox[{
      FractionBox["3645", "2048"], "\[Rule]", 
      "\"\<wide augmented sixth\>\""}], ",", 
     RowBox[{
      FractionBox["4000", "3969"], "\[Rule]", 
      "\"\<small septimal comma\>\""}], ",", 
     RowBox[{
      FractionBox["4000", "3993"], "\[Rule]", "\"\<undecimal schisma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["4096", "2187"], "\[Rule]", 
      "\"\<Pythagorean diminished octave\>\""}], ",", 
     RowBox[{
      FractionBox["4096", "2401"], "\[Rule]", 
      "\"\<4 septatones or septatonic major sixth\>\""}], ",", 
     RowBox[{
      FractionBox["4096", "3375"], "\[Rule]", 
      "\"\<double diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["4096", "3645"], "\[Rule]", 
      "\"\<narrow diminished third\>\""}], ",", 
     RowBox[{
      FractionBox["4096", "4095"], "\[Rule]", 
      "\"\<tridecimal schisma, Sagittal schismina\>\""}], ",", 
     RowBox[{
      FractionBox["4131", "4096"], "\[Rule]", "\"\<Hunt flat 2 comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["4225", "4224"], "\[Rule]", "\"\<leprechaun comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["4375", "4374"], "\[Rule]", "\"\<ragisma\>\""}], ",", 
     RowBox[{
      FractionBox["4608", "4235"], "\[Rule]", 
      "\"\<Arabic neutral second\>\""}], ",", 
     RowBox[{
      FractionBox["5120", "5103"], "\[Rule]", 
      "\"\<Beta 5, Garibaldi comma\>\""}], ",", 
     RowBox[{
      FractionBox["5625", "4096"], "\[Rule]", 
      "\"\<double augmented third\>\""}], ",", 
     RowBox[{
      FractionBox["6144", "3125"], "\[Rule]", 
      "\"\<octave - small diesis\>\""}], ",", 
     RowBox[{
      FractionBox["6144", "6125"], "\[Rule]", "\"\<porwell comma\>\""}], ",", 
     
     RowBox[{
      FractionBox["6561", "4096"], "\[Rule]", 
      "\"\<Pythagorean augmented fifth\>\""}], ",", 
     RowBox[{
      FractionBox["6561", "5120"], "\[Rule]", "\"\<acute major third\>\""}], 
     ",", 
     RowBox[{
      FractionBox["6561", "6125"], "\[Rule]", "\"\<BP major link\>\""}], ",", 
     
     RowBox[{
      FractionBox["6561", "6250"], "\[Rule]", "\"\<ripple\>\""}], ",", 
     RowBox[{
      FractionBox["6561", "6400"], "\[Rule]", "\"\<Mathieu superdiesis\>\""}],
      ",", 
     RowBox[{
      FractionBox["6655", "6561"], "\[Rule]", "\"\<Triple BP comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["6656", "6655"], "\[Rule]", "\"\<jacobin comma\>\""}], ",", 
     
     RowBox[{
      FractionBox["8192", "5625"], "\[Rule]", 
      "\"\<double diminished sixth\>\""}], ",", 
     RowBox[{
      FractionBox["8192", "6561"], "\[Rule]", 
      "\"\<Pythagorean diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["8192", "8019"], "\[Rule]", 
      "\"\<undecimal minor diesis\>\""}], ",", 
     RowBox[{
      FractionBox["9801", "9800"], "\[Rule]", 
      "\"\<kalisma, Gauss' comma\>\""}], ",", 
     RowBox[{
      FractionBox["10125", "8192"], "\[Rule]", 
      "\"\<double augmented second\>\""}], ",", 
     RowBox[{
      FractionBox["10240", "6561"], "\[Rule]", "\"\<grave minor sixth\>\""}], 
     ",", 
     RowBox[{
      FractionBox["10648", "10647"], "\[Rule]", "\"\<harmonisma\>\""}], ",", 
     RowBox[{
      FractionBox["10935", "8192"], "\[Rule]", 
      "\"\<fourth + schisma, 5-limit approximation to ET fourth\>\""}], ",", 
     RowBox[{
      FractionBox["10976", "10935"], "\[Rule]", "\"\<hemimage\>\""}], ",", 
     RowBox[{
      FractionBox["10985", "10976"], "\[Rule]", "\"\<cantonisma\>\""}], ",", 
     RowBox[{
      FractionBox["15625", "15309"], "\[Rule]", "\"\<great BP diesis\>\""}], 
     ",", 
     RowBox[{
      FractionBox["15625", "15552"], "\[Rule]", 
      "\"\<kleisma, semicomma majeur\>\""}], ",", 
     RowBox[{
      FractionBox["16384", "10125"], "\[Rule]", 
      "\"\<double diminished seventh\>\""}], ",", 
     RowBox[{
      FractionBox["16384", "10935"], "\[Rule]", 
      "\"\<fifth - schisma, 5-limit approximation to ET fifth\>\""}], ",", 
     RowBox[{
      FractionBox["16807", "16384"], "\[Rule]", "\"\<cloudy\>\""}], ",", 
     RowBox[{
      FractionBox["16875", "16384"], "\[Rule]", 
      "\"\<double augmentation diesis, Negri comma\>\""}], ",", 
     RowBox[{
      FractionBox["16875", "16807"], "\[Rule]", 
      "\"\<small BP diesis, mirkwai comma\>\""}], ",", 
     RowBox[{
      FractionBox["17496", "16807"], "\[Rule]", 
      "\"\<septimal major diesis\>\""}], ",", 
     RowBox[{
      FractionBox["18225", "16807"], "\[Rule]", "\"\<minimal BP chroma\>\""}],
      ",", 
     RowBox[{
      FractionBox["19657", "19656"], "\[Rule]", 
      "\"\<greater harmonisma\>\""}], ",", 
     RowBox[{
      FractionBox["19683", "10000"], "\[Rule]", 
      "\"\<octave - minimal diesis\>\""}], ",", 
     RowBox[{
      FractionBox["19683", "10240"], "\[Rule]", 
      "\"\<acute major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["19683", "16384"], "\[Rule]", 
      "\"\<Pythagorean augmented second\>\""}], ",", 
     RowBox[{
      FractionBox["19683", "19600"], "\[Rule]", "\"\<cataharry comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["20000", "19683"], "\[Rule]", "\"\<minimal diesis\>\""}], 
     ",", 
     RowBox[{
      FractionBox["20480", "19683"], "\[Rule]", 
      "\"\<grave minor second\>\""}], ",", 
     RowBox[{
      FractionBox["21875", "19683"], "\[Rule]", "\"\<maximal BP chroma\>\""}],
      ",", 
     RowBox[{
      FractionBox["23232", "23231"], "\[Rule]", "\"\<lesser harmonisma\>\""}],
      ",", 
     RowBox[{
      FractionBox["26411", "26244"], "\[Rule]", "\"\<mechanism comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["28672", "28431"], "\[Rule]", "\"\<Secorian\>\""}], ",", 
     RowBox[{
      FractionBox["32768", "16875"], "\[Rule]", 
      "\"\<octave - double augmentation diesis\>\""}], ",", 
     RowBox[{
      FractionBox["32768", "19683"], "\[Rule]", 
      "\"\<Pythagorean diminished seventh\>\""}], ",", 
     RowBox[{
      FractionBox["32768", "16807"], "\[Rule]", 
      "\"\<5 septatones or septatonic diminished octave\>\""}], ",", 
     RowBox[{
      FractionBox["32805", "32768"], "\[Rule]", "\"\<schisma\>\""}], ",", 
     RowBox[{
      FractionBox["33075", "32768"], "\[Rule]", "\"\<mirwomo comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["43923", "43904"], "\[Rule]", "\"\<hemigail\>\""}], ",", 
     RowBox[{
      FractionBox["50421", "50000"], "\[Rule]", "\"\<trimyna\>\""}], ",", 
     RowBox[{
      FractionBox["52973", "50000"], "\[Rule]", 
      "\"\<Mersenne's quasi-equal semitone\>\""}], ",", 
     RowBox[{
      FractionBox["59049", "32768"], "\[Rule]", 
      "\"\<Pythagorean augmented sixth\>\""}], ",", 
     RowBox[{
      FractionBox["59049", "57344"], "\[Rule]", "\"\<Harrison's comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["64827", "64000"], "\[Rule]", "\"\<Squalentine\>\""}], ",", 
     
     RowBox[{
      FractionBox["65536", "32805"], "\[Rule]", "\"\<octave - schisma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["65536", "59049"], "\[Rule]", 
      "\"\<Pythagorean diminished third\>\""}], ",", 
     RowBox[{
      FractionBox["65536", "65219"], "\[Rule]", "\"\<orgonisma\>\""}], ",", 
     RowBox[{
      FractionBox["65625", "65536"], "\[Rule]", "\"\<horwell comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["78125", "73728"], "\[Rule]", 
      "\"\<Woolhouse semitone\>\""}], ",", 
     RowBox[{
      FractionBox["78732", "78125"], "\[Rule]", 
      "\"\<medium semicomma, Sensi comma\>\""}], ",", 
     RowBox[{
      FractionBox["83349", "78125"], "\[Rule]", "\"\<BP minor link\>\""}], 
     ",", 
     RowBox[{
      FractionBox["118098", "117649"], "\[Rule]", "\"\<stearnsma\>\""}], ",", 
     
     RowBox[{
      FractionBox["123201", "123200"], "\[Rule]", "\"\<chalmersia\>\""}], ",", 
     RowBox[{
      FractionBox["131072", "130321"], "\[Rule]", 
      "\"\<Hunt 19-cycle comma\>\""}], ",", 
     RowBox[{
      FractionBox["147456", "78125"], "\[Rule]", 
      "\"\<Woolhouse major seventh\>\""}], ",", 
     RowBox[{
      FractionBox["151263", "151250"], "\[Rule]", "\"\<odiheim\>\""}], ",", 
     RowBox[{
      FractionBox["177147", "131072"], "\[Rule]", 
      "\"\<Pythagorean augmented third\>\""}], ",", 
     RowBox[{
      FractionBox["179200", "177147"], "\[Rule]", "\"\<tolerma\>\""}], ",", 
     RowBox[{
      FractionBox["194481", "194480"], "\[Rule]", 
      "\"\<supraminor scintillisma\>\""}], ",", 
     RowBox[{
      FractionBox["234375", "234256"], "\[Rule]", "\"\<sesdecal\>\""}], ",", 
     RowBox[{
      FractionBox["250047", "250000"], "\[Rule]", "\"\<Landscape comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["262144", "177147"], "\[Rule]", 
      "\"\<Pythagorean diminished sixth\>\""}], ",", 
     RowBox[{
      FractionBox["262144", "253125"], "\[Rule]", "\"\<Passion comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["321489", "320000"], "\[Rule]", "\"\<varunisma\>\""}], ",", 
     
     RowBox[{
      FractionBox["390625", "196608"], "\[Rule]", 
      "\"\<octave - W\[UDoubleDot]rschmidt's comma\>\""}], ",", 
     RowBox[{
      FractionBox["390625", "373248"], "\[Rule]", "\"\<doublewide\>\""}], ",", 
     RowBox[{
      FractionBox["390625", "388962"], "\[Rule]", "\"\<dimcomp comma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["393216", "390625"], "\[Rule]", 
      "\"\<W\[UDoubleDot]rschmidt's comma\>\""}], ",", 
     RowBox[{
      FractionBox["413343", "390625"], "\[Rule]", "\"\<BP small link\>\""}], 
     ",", 
     RowBox[{
      FractionBox["420175", "419904"], "\[Rule]", "\"\<wizma\>\""}], ",", 
     RowBox[{
      FractionBox["531441", "262144"], "\[Rule]", 
      "\"\<Pythagorean augmented seventh\>\""}], ",", 
     RowBox[{
      FractionBox["531441", "524288"], "\[Rule]", 
      "\"\<Pythagorean comma, ditonic comma\>\""}], ",", 
     RowBox[{
      FractionBox["823543", "819200"], "\[Rule]", "\"\<quince\>\""}], ",", 
     RowBox[{
      FractionBox["823543", "820125"], "\[Rule]", 
      "\"\<complementary BP diesis\>\""}], ",", 
     RowBox[{
      FractionBox["1048576", "531441"], "\[Rule]", 
      "\"\<Pythagorean diminished ninth\>\""}], ",", 
     RowBox[{
      FractionBox["1594323", "1048576"], "\[Rule]", 
      "\"\<Pythagorean double augmented fourth\>\""}], ",", 
     RowBox[{
      FractionBox["1594323", "1562500"], "\[Rule]", "\"\<Unicorn comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["1600000", "1594323"], "\[Rule]", 
      "\"\<Amity comma, kleisma - schisma\>\""}], ",", 
     RowBox[{
      FractionBox["1638400", "1594323"], "\[Rule]", 
      "\"\<Immunity comma\>\""}], ",", 
     RowBox[{
      FractionBox["1953125", "1889568"], "\[Rule]", 
      "\"\<Shibboleth comma\>\""}], ",", 
     RowBox[{
      FractionBox["2097152", "1594323"], "\[Rule]", 
      "\"\<Pythagorean double diminished fifth\>\""}], ",", 
     RowBox[{
      FractionBox["2109375", "2097152"], "\[Rule]", 
      "\"\<semicomma, Fokker's comma\>\""}], ",", 
     RowBox[{
      FractionBox["4782969", "4194304"], "\[Rule]", 
      "\"\<Pythagorean double augmented prime\>\""}], ",", 
     RowBox[{
      FractionBox["5000000", "4782969"], "\[Rule]", "\"\<sevond\>\""}], ",", 
     RowBox[{
      FractionBox["8388608", "4782969"], "\[Rule]", 
      "\"\<Pythagorean double diminished octave\>\""}], ",", 
     RowBox[{
      FractionBox["9765625", "9565938"], "\[Rule]", "\"\<Fifives comma\>\""}],
      ",", 
     RowBox[{
      FractionBox["10077696", "9765625"], "\[Rule]", "\"\<mynic\>\""}], ",", 
     RowBox[{
      FractionBox["14348907", "8388608"], "\[Rule]", 
      "\"\<Pythagorean double augmented fifth\>\""}], ",", 
     RowBox[{
      FractionBox["16777216", "14348907"], "\[Rule]", 
      "\"\<Pythagorean double diminished fourth\>\""}], ",", 
     RowBox[{
      FractionBox["29360128", "29296875"], "\[Rule]", 
      "\"\<Freivald comma\>\""}], ",", 
     RowBox[{
      FractionBox["33554432", "33480783"], "\[Rule]", 
      "\"\<Beta 2, septimal schisma\>\""}], ",", 
     RowBox[{
      FractionBox["34171875", "33554432"], "\[Rule]", 
      "\"\<Ampersand's comma\>\""}], ",", 
     RowBox[{
      FractionBox["43046721", "33554432"], "\[Rule]", 
      "\"\<Pythagorean double augmented second\>\""}], ",", 
     RowBox[{
      FractionBox["48828125", "47775744"], "\[Rule]", 
      "\"\<Sycamore comma\>\""}], ",", 
     RowBox[{
      FractionBox["51018336", "48828125"], "\[Rule]", "\"\<nusecond\>\""}], 
     ",", 
     RowBox[{
      FractionBox["67108864", "43046721"], "\[Rule]", 
      "\"\<Pythagorean double diminished seventh\>\""}], ",", 
     RowBox[{
      FractionBox["67108864", "66430125"], "\[Rule]", 
      "\"\<Misty comma, diaschisma - schisma\>\""}], ",", 
     RowBox[{
      FractionBox["129140163", "67108864"], "\[Rule]", 
      "\"\<Pythagorean double augmented sixth\>\""}], ",", 
     RowBox[{
      FractionBox["129140163", "128000000"], "\[Rule]", 
      "\"\<gravity comma\>\""}], ",", 
     RowBox[{
      FractionBox["131072000", "129140163"], "\[Rule]", "\"\<roda\>\""}], ",", 
     RowBox[{
      FractionBox["134217728", "119574225"], "\[Rule]", 
      "\"\<whole tone - 2 schismas, 5-limit approximation to ET whole \
tone\>\""}], ",", 
     RowBox[{
      FractionBox["134217728", "129140163"], "\[Rule]", 
      "\"\<Pythagorean double diminished third\>\""}], ",", 
     RowBox[{
      FractionBox["201768035", "201326592"], "\[Rule]", "\"\<wadisma\>\""}], 
     ",", 
     RowBox[{
      FractionBox["387420489", "268435456"], "\[Rule]", 
      "\"\<Pythagorean double augmented third\>\""}], ",", 
     RowBox[{
      FractionBox["536870912", "387420489"], "\[Rule]", 
      "\"\<Pythagorean double diminished sixth\>\""}], ",", 
     RowBox[{
      FractionBox["854296875", "843308032"], "\[Rule]", 
      "\"\<Blackjack comma\>\""}], ",", 
     RowBox[{
      FractionBox["1162261467", "536870912"], "\[Rule]", 
      "\"\<Pythagorean double augmented seventh\>\""}], ",", 
     RowBox[{
      FractionBox["1162261467", "1073741824"], "\[Rule]", 
      "\"\<Pythagorean-19 comma\>\""}], ",", 
     RowBox[{
      FractionBox["1220703125", "1162261467"], "\[Rule]", 
      "\"\<Trithagorean comma\>\""}], ",", 
     RowBox[{
      FractionBox["1220703125", "1207959552"], "\[Rule]", "\"\<ditonma\>\""}],
      ",", 
     RowBox[{
      FractionBox["1224440064", "1220703125"], "\[Rule]", 
      "\"\<parakleisma\>\""}], ",", 
     RowBox[{
      FractionBox["6115295232", "6103515625"], "\[Rule]", 
      "\"\<Vishnu comma\>\""}], ",", 
     RowBox[{
      FractionBox["274877906944", "274658203125"], "\[Rule]", 
      "\"\<semithirds comma\>\""}], ",", 
     RowBox[{
      FractionBox["7629394531250", "7625597484987"], "\[Rule]", 
      "\"\<ennealimmal comma\>\""}], ",", 
     RowBox[{
      FractionBox["19073486328125", "19042491875328"], "\[Rule]", 
      "\"\<'19-tone' comma\>\""}], ",", 
     RowBox[{
      FractionBox["450359962737049600", "450283905890997363"], "\[Rule]", 
      "\"\<monzisma\>\""}], ",", 
     RowBox[{
      FractionBox["36893488147419103232", "36472996377170786403"], "\[Rule]", 
      "\"\<'41-tone' comma\>\""}], ",", 
     RowBox[{
      FractionBox["19383245667680019896796723", "19342813113834066795298816"],
       "\[Rule]", "\"\<Mercator's comma\>\""}]}], "\[RightAssociation]"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Protect", "[", "knownRatios", "]"}], " ", ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"epimorix", " ", "=", " ", 
   RowBox[{"List", "[", "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"ancestry", " ", "=", " ", 
    RowBox[{"List", "[", "]"}]}], " ", ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compose", "[", 
    RowBox[{"choice_", ",", "factor_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"factor", "*", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], ",", " ", 
       RowBox[{"(", 
        RowBox[{"factor", " ", "*", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "*", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ",", " ", 
       RowBox[{"(", 
        RowBox[{"factor", " ", "*", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "*", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], " ", "*", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], " ", "}"}], " ", "&"}], 
    " ", "[", 
    RowBox[{"tetrachords", "[", "choice", "]"}], " ", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"generate", "::", "undefined"}], " ", "=", " ", 
    "\"\<(!) Please define the tonic with a Hertz frequency value in the \
input field named 'tonic'...\>\""}], " ", ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"generate", "[", 
    RowBox[{"first_", ",", "second_", ",", "tonickey_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"NumberQ", "[", "tonickey", "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"perfectfifth", " ", "=", " ", 
            FractionBox["3", "2"]}], " ", ",", 
           RowBox[{"tonicratio", " ", "=", " ", 
            FractionBox["1", "1"]}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"bottom", " ", "=", " ", 
           RowBox[{"compose", "[", 
            RowBox[{"first", ",", "tonicratio"}], "]"}]}], " ", ";", 
          "\[IndentingNewLine]", 
          RowBox[{"top", " ", "=", " ", 
           RowBox[{"compose", "[", 
            RowBox[{"second", ",", "perfectfifth"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"octave", " ", "=", " ", 
           RowBox[{"Flatten", "[", 
            RowBox[{"{", " ", 
             RowBox[{
              FractionBox["1", "1"], ",", " ", "bottom", ",", " ", 
              FractionBox["3", "2"], ",", " ", "top"}], " ", "}"}], " ", 
            "]"}]}], "  ", ";", "\[IndentingNewLine]", 
          RowBox[{"octavefreqs", " ", "=", " ", 
           RowBox[{"Quantity", "[", " ", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"N", "[", " ", 
                RowBox[{"tonickey", " ", "*", " ", "#"}], "]"}], " ", "&"}], 
              " ", "[", " ", "octave", " ", "]"}], ",", " ", 
             "\"\<Hertz\>\""}], " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
          RowBox[{"decimals", " ", "=", " ", 
           RowBox[{"N", "[", "octave", "]"}]}], " ", ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"generate", " ", "Scala", " ", "tuning", " ", 
            RowBox[{"file", " ", ".", "scl"}]}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"name", " ", "=", " ", 
           RowBox[{"\"\<tetrachords\>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", "first", "]"}], " ", "<>", " ", 
            "\"\<and\>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", "second", "]"}], " ", "<>", " ", 
            "\"\<.scl\>\""}]}], " ", ";", "\[IndentingNewLine]", 
          RowBox[{"headline", " ", "=", " ", 
           RowBox[{"\"\<!\>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", "name", "]"}]}]}], " ", ";", 
          "\[IndentingNewLine]", 
          RowBox[{"identity", " ", "=", " ", 
           RowBox[{
           "\"\<Custom octave: bottom tetrachord is # \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", "first", "]"}], " ", "<>", " ", 
            "\"\< and top tetrachord is # \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", "second", "]"}], " ", "<>", " ", 
            "\"\< from John Chalmer's Divisions of the Tetrachord\>\""}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"contents", " ", "=", " ", 
           RowBox[{"{", " ", 
            RowBox[{
            "headline", ",", " ", "\"\<!\>\"", ",", " ", "identity", ",", 
             "\"\<!\>\"", ",", "\"\<7\>\"", ",", "\"\<!\>\""}], "}"}]}], " ", 
          ";", "\[IndentingNewLine]", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"contents", ",", 
            RowBox[{"ExportString", "[", " ", 
             RowBox[{
              RowBox[{"Column", "[", 
               RowBox[{
                RowBox[{"Rest", "[", "octave", "]"}], ",", " ", 
                "\"\<\\n\>\""}], "]"}], ",", " ", "\"\<Table\>\""}], "]"}]}], 
           "]"}], " ", ";", "\[IndentingNewLine]", 
          RowBox[{"go", " ", "=", " ", 
           RowBox[{"StringRiffle", "[", 
            RowBox[{"contents", ",", "\"\<\\n\>\""}], "]"}]}], " ", ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Export", "[", 
           RowBox[{"name", ",", "contents", ",", "\"\<Table\>\""}], "]"}], 
          "  ", ";", "\[IndentingNewLine]", 
          RowBox[{"Export", "[", 
           RowBox[{"name", ",", "go", ",", "\"\<Text\>\""}], "]"}], " ", ";", 
          " ", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"CloudDeploy", "[", 
             RowBox[{
              RowBox[{"ExportForm", "[", 
               RowBox[{"contents", ",", "\"\<Table\>\""}], "]"}], ",", 
              RowBox[{"CloudObject", "[", "name", "]"}], ",", 
              RowBox[{"Permissions", "\[Rule]", "\"\<Public\>\""}]}], "]"}], 
            " ", ";"}], " ", "*)"}], "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"identify", " ", "/@", " ", "octave"}], " ", ";"}], " ", 
           "*)"}], "\[IndentingNewLine]", 
          RowBox[{"epimor", " ", "/@", " ", "octave"}], " ", ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"limit", " ", "=", 
           RowBox[{"(", "  ", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Denominator", "[", "epimorix", "]"}], "]"}], " ", "+", 
             " ", "2"}], " ", ")"}]}], " ", ";", "\[IndentingNewLine]", 
          RowBox[{"limitHalf", " ", "=", " ", 
           RowBox[{"(", " ", 
            RowBox[{"limit", " ", "/", " ", "2"}], "  ", ")"}]}], ";", "  ", 
          "\[IndentingNewLine]", 
          RowBox[{"epimorics", " ", "=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"#", "+", "1"}], ")"}], "/", "#"}], " ", "}"}], " ", 
              "&"}], " ", "[", " ", 
             RowBox[{"Range", "[", 
              RowBox[{"1", ",", "limit"}], "]"}], " ", "]"}], " ", "//", " ", 
            "Flatten"}]}], " ", ";", " ", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"For", "[", " ", 
           RowBox[{
            RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
            RowBox[{"x", " ", "<", " ", "limitHalf"}], ",", " ", 
            RowBox[{"x", "++"}], ",", "  ", 
            RowBox[{"With", "[", " ", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"y", " ", "=", " ", 
                 RowBox[{"(", 
                  RowBox[{"x", " ", "*", " ", "2"}], ")"}]}], ",", "  ", 
                RowBox[{"z", " ", "=", " ", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", " ", "*", " ", "2"}], ")"}], " ", "+", 
                  "1"}]}]}], "}"}], " ", ",", " ", 
              RowBox[{"AppendTo", "[", 
               RowBox[{"ancestry", ",", 
                RowBox[{"{", " ", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"epimorics", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", " ", 
                   RowBox[{"epimorics", "[", 
                    RowBox[{"[", "y", "]"}], "]"}]}], ",", " ", 
                  RowBox[{
                   RowBox[{"epimorics", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", 
                   RowBox[{"epimorics", "[", 
                    RowBox[{"[", "z", "]"}], "]"}]}]}], " ", "}"}]}], "]"}]}],
              "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"CellPrint", "[", 
            RowBox[{"TextCell", "[", "\[IndentingNewLine]", 
             RowBox[{"Row", "[", 
              RowBox[{"{", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<YOUR CUSTOM SCALE: defined by tetrachords\>\"", ",", 
                    "Red", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", "24"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<The tetrachords used in this scale generator are \
precisely those catalogued in Mr. John Chalmer's seminal work on the topic: \
'Divisions of the Tetrachord'\>\"", ",", " ", "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "Italic", ",", " ", "Bold", ",", " ", "12"}], 
                   "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxx\>\"", "]"}], "]"}], ",",
                 "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{
                    "\"\<The lower tetrachord, numbered \>\"", "  ", "<>", 
                    " ", 
                    RowBox[{"ToString", "[", "first", "]"}], " ", "<>", " ", 
                    "\"\< , instantiates the \>\"", " ", "<>", " ", 
                    RowBox[{"ToString", "[", 
                    RowBox[{"classify", "[", "first", "]"}], "]"}], " ", "<>",
                     " ", "\"\< genus and comprises these ratios: \>\"", "<>", 
                    RowBox[{"ToString", "[", 
                    RowBox[{
                    RowBox[{"tetrachords", "[", "first", "]"}], ",", " ", 
                    "TraditionalForm"}], "]"}]}], ",", "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", "12"}], "]"}], "]"}], "]"}], " ", ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{
                    "\"\<The upper tetrachord, numbered \>\"", "  ", "<>", 
                    " ", 
                    RowBox[{"ToString", "[", "second", "]"}], " ", "<>", 
                    "\"\< , instantiates the \>\"", " ", "<>", " ", 
                    RowBox[{"ToString", "[", 
                    RowBox[{"classify", "[", "second", "]"}], "]"}], " ", "<>",
                     " ", "\"\< genus and comprises these ratios: \>\"", "<>",
                     " ", 
                    RowBox[{"ToString", "[", 
                    RowBox[{
                    RowBox[{"tetrachords", "[", "second", "]"}], ",", " ", 
                    "TraditionalForm"}], "]"}]}], ",", " ", "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "12"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxx\>\"", "]"}], "]"}], ",",
                 "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{
                    "\"\<Those two tetrachords produce the ratios which \
define this scale and tuning: \>\"", "<>", " ", 
                    RowBox[{"ToString", "[", 
                    RowBox[{"octave", ",", "TraditionalForm"}], "]"}]}], ",", 
                    "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "12"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", " ", 
                   RowBox[{
                    RowBox[{
                    "\"\<Decimal equivalents of the octave-tuning ratios: \
\>\"", "  ", "<>", " ", 
                    RowBox[{"ToString", "[", "decimals", "]"}]}], ",", 
                    "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "12"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxx\>\"", "]"}], "]"}], ",",
                 "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{
                    "\"\<With a tonic-key frequency of \>\"", " ", "<>", " ", 
                    
                    RowBox[{"ToString", "[", "tonickey", "]"}], " ", "<>", 
                    " ", "\"\< Hertz, your scale produces these note \
frequencies: \>\"", " ", "<>", " ", 
                    RowBox[{"ToString", "[", "octavefreqs", "]"}]}], ",", 
                    "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "12"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxx\>\"", "]"}], "]"}], ",",
                 "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{"\"\<Epimoricity Rating: \>\"", " ", "<>", " ", 
                    RowBox[{"ToString", "[", 
                    RowBox[{"Length", "[", "epimorix", "]"}], "]"}], " ", "<>",
                     " ", "\"\< stars out of a 7-possible-stars rating\>\""}],
                     " ", ",", " ", "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "12"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxx\>\"", "]"}], "]"}], ",",
                 "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{"\"\<SCALA TUNING FILE: \>\"", " ", "<>", " ", 
                    RowBox[{"ToString", "[", "name", "]"}]}], " ", ",", " ", 
                    "Green", ",", " ", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "24"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{
                    "\"\<A scala tuning file was generated for your scale, is \
named \>\"", " ", "<>", " ", 
                    RowBox[{"ToString", "[", "name", "]"}], " ", "<>", " ", 
                    "\"\< , and may have already downloaded to the top level \
of the home directory for the user you are currently logged into your \
computer as...\>\""}], ",", "  ", "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", " ", "12"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{
                    "\"\<You may also copy and paste the following into a \
text editor, then save the file as a pure text file, naming it \>\"", " ", "<>",
                     " ", 
                    RowBox[{"ToString", "[", "name", "]"}]}], ",", " ", 
                    "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", "12"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxxx\>\"", "]"}], "]"}], 
                ",", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxxx\>\"", "]"}], "]"}], 
                ",", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxxx\>\"", "]"}], "]"}], 
                ",", "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Text", "[", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{"ToString", "[", "go", "]"}], ",", "Black", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helevetica\>\""}], 
                    ",", "10"}], "]"}], "]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Print", "[", 
                 RowBox[{"Invisible", "[", "\"\<xxxxxx\>\"", "]"}], "]"}]}], 
               "\[IndentingNewLine]", "}"}], "]"}], "]"}], 
            "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
           "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
           RowBox[{"HighlightGraph", "[", 
            RowBox[{
             RowBox[{"TreeGraph", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", "ancestry", "]"}], ",", 
               RowBox[{"GraphLayout", "\[Rule]", "\"\<LayeredDrawing\>\""}], 
               ",", 
               RowBox[{"ImageSize", " ", "\[Rule]", " ", "Full"}], " ", ",", 
               RowBox[{"VertexShapeFunction", "\[Rule]", 
                RowBox[{"{", "\"\<Circle\>\"", "}"}]}], ",", 
               RowBox[{"VertexSize", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"{", 
                  RowBox[{"\"\<Scaled\>\"", ",", "0.045"}], "}"}], "}"}]}], 
               ",", " ", 
               RowBox[{"VertexLabels", "\[Rule]", 
                RowBox[{"Placed", "[", 
                 RowBox[{"\"\<Name\>\"", ",", " ", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox["1", "2"], ",", 
                    FractionBox["1", "2"]}], "}"}]}], "]"}]}]}], "]"}], ",", 
             " ", 
             RowBox[{"Style", "[", 
              RowBox[{"epimorix", ",", "Green"}], "]"}]}], "]"}]}]}]}], " ", 
        "]"}], " ", "//", " ", "CreatePalette"}], " ", ";"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", " ", ",", " ", 
     RowBox[{"Message", "[", 
      RowBox[{"generate", "::", "undefined"}], "]"}]}], " ", 
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"classify", "[", "tetra_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", " ", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"hyperenharmonic", " ", "=", " ", 
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "43"}], "]"}]}], " ", ",", " ", 
       RowBox[{"enharmonic", " ", "=", " ", 
        RowBox[{"Range", "[", 
         RowBox[{"44", ",", "131"}], "]"}]}], ",", 
       RowBox[{"chromatic", " ", "=", " ", 
        RowBox[{"Range", "[", 
         RowBox[{"132", ",", "358"}], "]"}]}], ",", " ", 
       RowBox[{"diatonic", " ", "=", " ", 
        RowBox[{"Range", "[", 
         RowBox[{"359", ",", "593"}], "]"}]}]}], " ", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", " ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"hyperenharmonic", ",", "tetra"}], "]"}], ",", " ", 
        RowBox[{"Return", "[", "\"\<hyper-enharmonic\>\"", "]"}], ",", " ", 
        "Continue"}], " ", "]"}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", " ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"enharmonic", ",", "tetra"}], "]"}], ",", " ", 
        RowBox[{"Return", "[", " ", "\"\<enharmonic\>\"", "]"}], ",", " ", 
        "Continue"}], " ", "]"}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", " ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"chromatic", ",", "tetra"}], "]"}], ",", " ", 
        RowBox[{"Return", "[", "\"\<chromatic\>\"", "]"}], ",", " ", 
        "Continue"}], " ", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", " ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"diatonic", ",", "tetra"}], "]"}], ",", " ", 
        RowBox[{"Return", "[", "\"\<diatonic\>\"", "]"}], ",", " ", 
        "Continue"}], " ", "]"}], " ", ";"}]}], " ", "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"identify", "[", "ratio_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"referenced", " ", "=", " ", 
       RowBox[{"Keys", "[", "knownRatios", "]"}]}], " ", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", " ", 
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{"referenced", ",", "ratio"}], "]"}], ",", 
       RowBox[{"Echo", "[", " ", 
        RowBox[{
         RowBox[{"knownRatios", "[", "ratio", "]"}], ",", " ", 
         RowBox[{
          RowBox[{"ToString", "[", 
           RowBox[{"StandardForm", "[", "ratio", "]"}], "]"}], " ", "<>", 
          " ", "\"\<: \>\""}]}], "]"}], ",", 
       RowBox[{"Echo", "[", " ", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"StandardForm", "[", "ratio", "]"}], "]"}], ",", " ", 
         RowBox[{
          RowBox[{"ToString", "[", 
           RowBox[{"StandardForm", "[", "ratio", "]"}], "]"}], " ", "<>", 
          " ", "\"\<: Unidentified ratio \>\""}]}], " ", "]"}]}], " ", 
      "]"}]}], "  ", "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"epimor", "[", "candidate_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"testorama", " ", "=", " ", "1"}], "}"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"Numerator", "[", "candidate", "]"}], " ", "-", " ", 
           RowBox[{"Denominator", "[", "candidate", "]"}]}], ")"}], " ", 
         "\[Equal]", " ", "1"}], ",", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"epimorix", ",", "candidate"}], "]"}], ",", " ", 
        "Continue"}], " ", "]"}], " ", ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"progeny", "[", "incoming_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"multiplied", " ", "=", " ", 
       RowBox[{"List", "[", "]"}]}], ",", " ", 
      RowBox[{"divided", " ", "=", " ", 
       RowBox[{"List", "[", "]"}]}], ",", " ", 
      RowBox[{"added", " ", "=", " ", 
       RowBox[{"List", "[", "]"}]}], ",", " ", 
      RowBox[{"subtracted", " ", "=", " ", 
       RowBox[{"List", "[", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", " ", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "<", "limit"}], ",", " ", 
       RowBox[{"i", "++"}], ",", " ", 
       RowBox[{"For", "[", " ", 
        RowBox[{
         RowBox[{"n", " ", "=", " ", "1"}], ",", " ", 
         RowBox[{"n", " ", "<", " ", "limit"}], ",", " ", 
         RowBox[{"n", "++"}], ",", " ", 
         RowBox[{"AppendTo", "[", " ", 
          RowBox[{"multiplied", ",", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "i", "]"}], "]"}], " ", "\[Rule]", " ", 
              RowBox[{
               RowBox[{"higher", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "*", " ", 
               RowBox[{"higher", "[", 
                RowBox[{"[", "n", "]"}], "]"}]}]}], " ", ",", " ", 
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "n", "]"}], "]"}], " ", "\[Rule]", "  ", 
              RowBox[{
               RowBox[{"higher", "[", 
                RowBox[{"[", "n", "]"}], "]"}], " ", "*", " ", 
               RowBox[{"higher", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}]}]}], " ", "}"}]}], "]"}]}], 
        "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", " ", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "<", "limit"}], ",", " ", 
       RowBox[{"i", "++"}], ",", " ", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"n", "=", "1"}], ",", " ", 
         RowBox[{"n", "<", "limit"}], ",", " ", 
         RowBox[{"n", "++"}], ",", " ", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"divided", ",", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "\[Rule]", 
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{"higher", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], " ", "/", "  ", 
                RowBox[{"higher", "[", 
                 RowBox[{"[", "n", "]"}], "]"}]}], " ", ")"}]}], ",", " ", 
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "n", "]"}], "]"}], " ", "\[Rule]", " ", 
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{"higher", "[", 
                 RowBox[{"[", "n", "]"}], "]"}], " ", "/", "  ", 
                RowBox[{"higher", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], " ", ")"}]}]}], " ", 
            "}"}]}], "]"}]}], "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", " ", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "<", "limit"}], ",", " ", 
       RowBox[{"i", "++"}], ",", " ", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"n", "=", "1"}], ",", " ", 
         RowBox[{"n", "<", "limit"}], ",", " ", 
         RowBox[{"n", "++"}], ",", " ", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"added", ",", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "\[Rule]", 
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{"higher", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], " ", "+", " ", 
                RowBox[{"higher", "[", 
                 RowBox[{"[", "n", "]"}], "]"}]}], " ", ")"}]}], ",", " ", 
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "n", "]"}], "]"}], " ", "\[Rule]", " ", 
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{"higher", "[", 
                 RowBox[{"[", "n", "]"}], "]"}], " ", "+", "  ", 
                RowBox[{"higher", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], " ", ")"}]}]}], " ", 
            "}"}]}], "]"}]}], "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", " ", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "<", "limit"}], ",", " ", 
       RowBox[{"i", "++"}], ",", " ", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"n", "=", "1"}], ",", " ", 
         RowBox[{"n", "<", "limit"}], ",", " ", 
         RowBox[{"n", "++"}], ",", " ", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"subtracted", ",", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "\[Rule]", 
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{"higher", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "-", "  ", 
                RowBox[{"higher", "[", 
                 RowBox[{"[", "n", "]"}], "]"}]}], " ", ")"}]}], ",", " ", 
             RowBox[{
              RowBox[{"higher", "[", 
               RowBox[{"[", "n", "]"}], "]"}], " ", "\[Rule]", " ", 
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{"higher", "[", 
                 RowBox[{"[", "n", "]"}], "]"}], " ", "-", "  ", 
                RowBox[{"higher", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], " ", ")"}]}]}], " ", 
            "}"}]}], "]"}]}], "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"generaMultiplied", " ", "=", " ", 
      RowBox[{"VertexList", "[", 
       RowBox[{"Flatten", "[", "multiplied", "]"}], " ", "]"}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{"generaDivided", " ", "=", " ", 
      RowBox[{"VertexList", "[", 
       RowBox[{"Flatten", "[", "divided", "]"}], " ", "]"}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{"generaAdded", " ", "=", " ", 
      RowBox[{"VertexList", "[", 
       RowBox[{"Flatten", "[", "added", "]"}], " ", "]"}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{"generaSubtracted", " ", "=", " ", 
      RowBox[{"VertexList", "[", 
       RowBox[{"Flatten", "[", "subtracted", "]"}], " ", "]"}]}], " ", 
     ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "Input",
 InitializationCell->True,
 CellChangeTimes->{3.794759285278243*^9, 3.7947593323104973`*^9},
 CellID->83633083,ExpressionUUID->"29cc11a2-5255-4c16-b35a-5c1e7208201f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ManipulateSection",ExpressionUUID->"1303014c-2664-4e16-bf23-99baa833807c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{"compute", ",", 
       RowBox[{"generate", "[", 
        RowBox[{"firstchoice", ",", "secondchoice", ",", "tonic"}], "]"}], 
       ",", " ", 
       RowBox[{"compute", " ", "=", " ", "False"}]}], " ", "]"}], " ", ";", 
     " ", 
     RowBox[{"{", 
      RowBox[{
      "firstchoice", ",", "secondchoice", ",", "tonic", ",", "compute"}], 
      "}"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"firstchoice", ",", "1", ",", "593", ",", "1", ",", "Slider"}], 
     "}"}], ",", "  ", 
    RowBox[{"{", 
     RowBox[{"secondchoice", ",", "1", ",", "593", ",", "1", ",", "Slider"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"tonic", ",", "InputField"}], "}"}], " ", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"compute", ",", "False", ",", "True"}], "}"}], ",", 
      "Checkbox"}], "}"}], ",", " ", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], " ", "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.794759434246694*^9, 
  3.794759454612739*^9}},ExpressionUUID->"47253849-02c6-492c-a536-\
df46712c8c7a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ManipulateCaptionSection",ExpressionUUID->"b0fdbccf-d3c1-4e2b-841f-3f04c6aca32e"],

Cell["\<\
Compose a custom, musical scale by selecting a pair of non-equal-temperament \
tetrachords from the catalog contained in Mr. John Chalmer's seminal treatise \
on the topic: 'Divisions of the Tetrachord'.  The first 593 tetrachords of \
the catalog are faithfully represented here.  Input a tonic frequency in \
Hertz ( i.e. 440, 432, 415, 256, etc ).  Along with analysis of your custom \
scale, the output will facilitate your ability to actually hear your custom \
scale by including a Scala tuning file (.scl) of your custom scale, ready for \
immediate use in the software synthesizer or digital audio workstation of \
your choice.  This demonstration was made for the true rebels of music who \
reject the 12-tone and equally-tempered notes of convention.  These include \
those who compose and/or play their own music and desire an expanded gamut of \
tonal possibilities, those scholars who pursue in earnest ancient music, \
those who desire a vacation towards microtonal territories, and those who \
dabble part-time in xenharmonic systems.  If you have ever wondered what the \
'notes-in-between-the-notes' sound like, here is one way to explore them.\
\>", "ManipulateCaption",
 CellChangeTimes->{{3.7947598406104593`*^9, 3.7947606185913563`*^9}, {
  3.794760673027067*^9, 3.794760854528825*^9}, {3.7947608896595993`*^9, 
  3.794760896348798*^9}, {3.794761028995553*^9, 
  3.794761029699958*^9}},ExpressionUUID->"b710cd34-5a5c-4958-b003-\
2e2b8eec8fc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ThumbnailSection",ExpressionUUID->"43799e72-1de9-4553-9a4d-d17600868de8"],

Cell[BoxData[
 GraphicsBox[
  {EdgeForm[GrayLevel[0]], FaceForm[GrayLevel[1]], RectangleBox[{0, 0}], 
   InsetBox[
    StyleBox["\<\"Thumbnail Placeholder\"\>",
     StripOnInput->False,
     FontFamily->"Verdana",
     FontSize->14], {0.5, 0.6}], InsetBox[
    StyleBox["\<\"Replace this with your\"\>",
     StripOnInput->False,
     FrontFaceColor->GrayLevel[0.5],
     GraphicsColor->GrayLevel[0.5],
     FontFamily->"Verdana",
     FontSize->10,
     FontColor->GrayLevel[0.5],
     $CellContext`BackFaceColor -> GrayLevel[0.5]], {0.5, 0.45}], InsetBox[
    StyleBox["\<\"Manipulate at a particular setting.\"\>",
     StripOnInput->False,
     FrontFaceColor->GrayLevel[0.5],
     GraphicsColor->GrayLevel[0.5],
     FontFamily->"Verdana",
     FontSize->10,
     FontColor->GrayLevel[0.5],
     $CellContext`BackFaceColor -> GrayLevel[0.5]], {0.5, 0.39}], InsetBox[
    StyleBox["\<\"(Do not use a bitmap.)\"\>",
     StripOnInput->False,
     FrontFaceColor->GrayLevel[0.5],
     GraphicsColor->GrayLevel[0.5],
     FontFamily->"Verdana",
     FontSize->10,
     FontColor->GrayLevel[0.5],
     $CellContext`BackFaceColor -> GrayLevel[0.5]], {0.5, 0.315}]},
  ImageMargins->0.,
  ImageSize->220]], "Output",
 CellEditDuplicate->
  False,ExpressionUUID->"10a204af-d6a5-4f07-998c-d39dd187355d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SnapshotsSection",ExpressionUUID->"083d155f-1f03-4792-83cc-2d1e71018c56"],

Cell[BoxData[
 GraphicsBox[
  {EdgeForm[GrayLevel[0]], FaceForm[GrayLevel[1]], RectangleBox[{0, 0}], 
   InsetBox[
    StyleBox["\<\"Snapshot Placeholder\"\>",
     StripOnInput->False,
     FontFamily->"Verdana",
     FontSize->14], {0.5, 0.6}], InsetBox[
    StyleBox["\<\"Replace this with your\"\>",
     StripOnInput->False,
     FrontFaceColor->GrayLevel[0.5],
     GraphicsColor->GrayLevel[0.5],
     FontFamily->"Verdana",
     FontSize->10,
     FontColor->GrayLevel[0.5],
     $CellContext`BackFaceColor -> GrayLevel[0.5]], {0.5, 0.45}], InsetBox[
    StyleBox["\<\"Manipulate at a particular setting.\"\>",
     StripOnInput->False,
     FrontFaceColor->GrayLevel[0.5],
     GraphicsColor->GrayLevel[0.5],
     FontFamily->"Verdana",
     FontSize->10,
     FontColor->GrayLevel[0.5],
     $CellContext`BackFaceColor -> GrayLevel[0.5]], {0.5, 0.39}], InsetBox[
    StyleBox["\<\"(Do not use a bitmap.)\"\>",
     StripOnInput->False,
     FrontFaceColor->GrayLevel[0.5],
     GraphicsColor->GrayLevel[0.5],
     FontFamily->"Verdana",
     FontSize->10,
     FontColor->GrayLevel[0.5],
     $CellContext`BackFaceColor -> GrayLevel[0.5]], {0.5, 0.315}]},
  ImageMargins->0.,
  ImageSize->220]], "Output",
 CellEditDuplicate->
  False,ExpressionUUID->"b84c8b76-1607-4cb0-8fb4-b2c43090bdf4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "DetailsSection",ExpressionUUID->"ae21d2c5-e6a7-4f04-9f1c-838c73b56600"],

Cell["\<\
 Mr. John Chalmers himself collaborated with me on this project, and I am \
indebted to him for much.\
\>", "DetailNotes",
 CellID->882035710,ExpressionUUID->"151b3ff8-a93a-42db-becb-0b5884a1dcb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ControlSuggestionsSection",ExpressionUUID->"5d5f2728-1598-4ecb-b7ce-909b48db942b"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Resize Images",ExpressionUUID->"95a7424c-d70b-42e2-997f-27bc1e563f3f"]}],
  
  "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \
the orange resize handles to resize the image.\""]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->
  "ResizeImages",ExpressionUUID->"94841146-53f4-43ee-9ecc-0d992c16cee6"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Rotate and Zoom in 3D",ExpressionUUID->
    "d30b048c-a769-4f9d-b3ab-359cd8fef109"]}],
  RowBox[{
   "\"Drag a 3D graphic to rotate it. Starting the drag near the center \
tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \
of the screen.\\nHold down \"", 
    FrameBox[
    "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" (or \"", 
    FrameBox[
    "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], 
    "\" on Mac) and drag up and down to zoom.\""}]]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->
  "RotateAndZoomIn3D",ExpressionUUID->"3b7bf289-0b81-4e53-99dd-b8d77bcbca71"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Drag Locators",ExpressionUUID->"34a300e9-916e-42f7-b9b2-42fa5ece76b5"]}],
  
  RowBox[{"\"Drag any locator (\"", 
    GraphicsBox[
     LocatorBox[
      Scaled[{0.5, 0.5}]], ImageSize -> 20], 
    "\", etc.) to move it around.\""}]]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->
  "DragLocators",ExpressionUUID->"b9e7bd07-8eb4-4a6e-be12-64685ce4609c"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Create and Delete Locators",ExpressionUUID->
    "3663259b-7ddc-40ca-a9cc-2287572f587d"]}],
  RowBox[{"\"Insert a new locator in the graphic by holding down the \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], 
    "\" key\\nand clicking where you want it to be. Delete a locator by \
clicking it\\nwhile holding down the \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" key.\""}]]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->
  "CreateAndDeleteLocators",ExpressionUUID->"58c79c9b-bad6-4385-af3f-\
5c730acba346"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Slider Zoom",ExpressionUUID->"89da9112-c8d4-4404-9eab-e11a2fc7196d"]}],
  RowBox[{"\"Hold down the \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], 
    "\" key while moving a slider to make fine adjustments in the slider \
value.\\nHold \"", 
    FrameBox[
    "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" and/or \"", 
    FrameBox[
    "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" at the same time as \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], 
    "\" to make ever finer adjustments.\""}]]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->
  "SliderZoom",ExpressionUUID->"65c09b95-99b8-4971-a1e7-c36b87d17787"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Gamepad Controls",ExpressionUUID->
    "067bbbfc-c80a-4a6c-99c5-0085e54b470a"]}],
  "\"Control this Demonstration with a gamepad or other\\nhuman interface \
device connected to your computer.\""]], "ControlSuggestions",
 CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9},
 FontFamily->"Verdana",
 CellTags->
  "GamepadControls",ExpressionUUID->"b82e66bf-7e5c-48b8-8d9b-251468da5014"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Automatic Animation",ExpressionUUID->
    "aa379aa4-68e4-4797-b5f0-cccd0cb06db0"]}],
  RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", 
    AdjustmentBox[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\
/4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\
IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 
      0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"button\\nnext to the slider, and then clicking the play button that \
appears.\\nAnimate all controls by selecting \"", 
    StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", 
    AdjustmentBox[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\
57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\
X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\
UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", 
      ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], 
     BoxBaselineShift -> 0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"menu.\""}]]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->
  "AutomaticAnimation",ExpressionUUID->"5aee729d-d1d4-41ff-a225-bdb58e75918a"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[
   " Bookmark Animation",ExpressionUUID->
    "9ca9cdea-93a2-4b05-ac0a-2a7c15cb0278"]}],
  RowBox[{
   "\"See a prepared animation of this Demonstration by selecting\\n\"", 
    StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", 
    AdjustmentBox[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\
57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\
X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\
UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", 
      ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], 
     BoxBaselineShift -> 0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"menu.\""}]]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->
  "BookmarkAnimation",ExpressionUUID->"a81379d7-bd4a-4b06-b7a9-3364d5b1c594"]
}, Open  ]],

Cell["", "SearchTermsSection",ExpressionUUID->"79ea98c7-4fc9-4334-b59f-6db8063a9e72"],

Cell["", "RelatedLinksSection",ExpressionUUID->"bb5018bb-a645-49f2-b014-4525a0c6a77b"],

Cell[CellGroupData[{

Cell["", "AuthorSection",ExpressionUUID->"fc65325e-b403-49d3-bdfa-6eb08ccc2811"],

Cell["Contributed by: XXXX", "Author",
 CellChangeTimes->{
  3.35696210375764*^9, {3.432333043774981*^9, 
   3.432333045441087*^9}},ExpressionUUID->"71afee9d-a58b-45e9-8773-\
93ef830564c0"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1439, 1100},
WindowMargins->{{10, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "AutomaticAnimation"->{
  Cell[219934, 5961, 1564, 33, 29, "ControlSuggestions",ExpressionUUID->"5aee729d-d1d4-41ff-a225-bdb58e75918a",
   CellTags->"AutomaticAnimation"]},
 "BookmarkAnimation"->{
  Cell[221501, 5996, 1008, 23, 29, "ControlSuggestions",ExpressionUUID->"a81379d7-bd4a-4b06-b7a9-3364d5b1c594",
   CellTags->"BookmarkAnimation"]},
 "CreateAndDeleteLocators"->{
  Cell[217773, 5903, 739, 18, 29, "ControlSuggestions",ExpressionUUID->"58c79c9b-bad6-4385-af3f-5c730acba346",
   CellTags->"CreateAndDeleteLocators"]},
 "DragLocators"->{
  Cell[217332, 5888, 438, 13, 29, "ControlSuggestions",ExpressionUUID->"b9e7bd07-8eb4-4a6e-be12-64685ce4609c",
   CellTags->"DragLocators"]},
 "GamepadControls"->{
  Cell[219462, 5948, 469, 11, 29, "ControlSuggestions",ExpressionUUID->"b82e66bf-7e5c-48b8-8d9b-251468da5014",
   CellTags->"GamepadControls"]},
 "ResizeImages"->{
  Cell[216133, 5855, 410, 10, 29, "ControlSuggestions",ExpressionUUID->"94841146-53f4-43ee-9ecc-0d992c16cee6",
   CellTags->"ResizeImages"]},
 "RotateAndZoomIn3D"->{
  Cell[216546, 5867, 783, 19, 29, "ControlSuggestions",ExpressionUUID->"3b7bf289-0b81-4e53-99dd-b8d77bcbca71",
   CellTags->"RotateAndZoomIn3D"]},
 "SliderZoom"->{
  Cell[218515, 5923, 944, 23, 29, "ControlSuggestions",ExpressionUUID->"65c09b95-99b8-4971-a1e7-c36b87d17787",
   CellTags->"SliderZoom"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"AutomaticAnimation", 223392, 6049},
 {"BookmarkAnimation", 223565, 6052},
 {"CreateAndDeleteLocators", 223743, 6055},
 {"DragLocators", 223915, 6058},
 {"GamepadControls", 224079, 6061},
 {"ResizeImages", 224243, 6064},
 {"RotateAndZoomIn3D", 224409, 6067},
 {"SliderZoom", 224573, 6070}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 246, 4, 76, "DemoTitle",ExpressionUUID->"8692525e-bc74-4ba9-8db7-f0514eccc348"],
Cell[CellGroupData[{
Cell[851, 30, 88, 0, 301, "InitializationSection",ExpressionUUID->"3528022b-725f-4978-bdae-82086e005ceb"],
Cell[942, 32, 208971, 5653, 8077, "Input",ExpressionUUID->"29cc11a2-5255-4c16-b35a-5c1e7208201f",
 InitializationCell->True,
 CellID->83633083]
}, Open  ]],
Cell[CellGroupData[{
Cell[209950, 5690, 84, 0, 247, "ManipulateSection",ExpressionUUID->"1303014c-2664-4e16-bf23-99baa833807c"],
Cell[210037, 5692, 1186, 33, 66, "Input",ExpressionUUID->"47253849-02c6-492c-a536-df46712c8c7a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211260, 5730, 91, 0, 181, "ManipulateCaptionSection",ExpressionUUID->"b0fdbccf-d3c1-4e2b-841f-3f04c6aca32e"],
Cell[211354, 5732, 1474, 21, 103, "ManipulateCaption",ExpressionUUID->"b710cd34-5a5c-4958-b003-2e2b8eec8fc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212865, 5758, 83, 0, 179, "ThumbnailSection",ExpressionUUID->"43799e72-1de9-4553-9a4d-d17600868de8"],
Cell[212951, 5760, 1300, 35, 230, "Output",ExpressionUUID->"10a204af-d6a5-4f07-998c-d39dd187355d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214288, 5800, 83, 0, 149, "SnapshotsSection",ExpressionUUID->"083d155f-1f03-4792-83cc-2d1e71018c56"],
Cell[214374, 5802, 1299, 35, 230, "Output",ExpressionUUID->"b84c8b76-1607-4cb0-8fb4-b2c43090bdf4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215710, 5842, 81, 0, 359, "DetailsSection",ExpressionUUID->"ae21d2c5-e6a7-4f04-9f1c-838c73b56600"],
Cell[215794, 5844, 207, 4, 23, "DetailNotes",ExpressionUUID->"151b3ff8-a93a-42db-becb-0b5884a1dcb5",
 CellID->882035710]
}, Open  ]],
Cell[CellGroupData[{
Cell[216038, 5853, 92, 0, 131, "ControlSuggestionsSection",ExpressionUUID->"5d5f2728-1598-4ecb-b7ce-909b48db942b"],
Cell[216133, 5855, 410, 10, 29, "ControlSuggestions",ExpressionUUID->"94841146-53f4-43ee-9ecc-0d992c16cee6",
 CellTags->"ResizeImages"],
Cell[216546, 5867, 783, 19, 29, "ControlSuggestions",ExpressionUUID->"3b7bf289-0b81-4e53-99dd-b8d77bcbca71",
 CellTags->"RotateAndZoomIn3D"],
Cell[217332, 5888, 438, 13, 29, "ControlSuggestions",ExpressionUUID->"b9e7bd07-8eb4-4a6e-be12-64685ce4609c",
 CellTags->"DragLocators"],
Cell[217773, 5903, 739, 18, 29, "ControlSuggestions",ExpressionUUID->"58c79c9b-bad6-4385-af3f-5c730acba346",
 CellTags->"CreateAndDeleteLocators"],
Cell[218515, 5923, 944, 23, 29, "ControlSuggestions",ExpressionUUID->"65c09b95-99b8-4971-a1e7-c36b87d17787",
 CellTags->"SliderZoom"],
Cell[219462, 5948, 469, 11, 29, "ControlSuggestions",ExpressionUUID->"b82e66bf-7e5c-48b8-8d9b-251468da5014",
 CellTags->"GamepadControls"],
Cell[219934, 5961, 1564, 33, 29, "ControlSuggestions",ExpressionUUID->"5aee729d-d1d4-41ff-a225-bdb58e75918a",
 CellTags->"AutomaticAnimation"],
Cell[221501, 5996, 1008, 23, 29, "ControlSuggestions",ExpressionUUID->"a81379d7-bd4a-4b06-b7a9-3364d5b1c594",
 CellTags->"BookmarkAnimation"]
}, Open  ]],
Cell[222524, 6022, 85, 0, 165, "SearchTermsSection",ExpressionUUID->"79ea98c7-4fc9-4334-b59f-6db8063a9e72"],
Cell[222612, 6024, 86, 0, 137, "RelatedLinksSection",ExpressionUUID->"bb5018bb-a645-49f2-b014-4525a0c6a77b"],
Cell[CellGroupData[{
Cell[222723, 6028, 80, 0, 137, "AuthorSection",ExpressionUUID->"fc65325e-b403-49d3-bdfa-6eb08ccc2811"],
Cell[222806, 6030, 189, 4, 23, "Author",ExpressionUUID->"71afee9d-a58b-45e9-8773-93ef830564c0"]
}, Open  ]]
}, Open  ]]
}
]
*)