running-man.cdf

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

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 11.3' *)

(***************************************************************************)
(*                                                                         *)
(*                                                                         *)
(*  Under the Wolfram FreeCDF terms of use, this file and its content are  *)
(*  bound by the Creative Commons BY-SA Attribution-ShareAlike license.    *)
(*                                                                         *)
(*        For additional information concerning CDF licensing, see:        *)
(*                                                                         *)
(*         www.wolfram.com/cdf/adopting-cdf/licensing-options.html         *)
(*                                                                         *)
(*                                                                         *)
(***************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1088,         20]
NotebookDataLength[    175976,       3630]
NotebookOptionsPosition[    176158,       3616]
NotebookOutlinePosition[    176621,       3637]
CellTagsIndexPosition[    176578,       3634]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"scales", " ", "in", " ", "interger", " ", "notation"}], ",", " ", 
    RowBox[{"add", " ", "your", " ", "own"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ionian", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "11", ",", 
       "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dorian", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"phrygian", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "1", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lydian", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "0", ",", "2", ",", "4", ",", "6", ",", "7", ",", "9", ",", "11", ",", 
       "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mixolydian", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "0", ",", "2", ",", "4", ",", "5", ",", "7", ",", "9", ",", "10", ",", 
       "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aeolian", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "0", ",", "2", ",", "3", ",", "5", ",", "7", ",", "8", ",", "10", ",", 
       "12"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gong", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "4", ",", "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "4", ",", "7", ",", "9", ",", "12"}], "}"}]}], 
    ";"}], "\n", 
   RowBox[{
    RowBox[{"yu", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", 
       "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "7", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "7", ",", "10", ",", "12"}], "}"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"shang", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",",
        "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", 
       ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", 
       ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", 
       ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0",
        ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5",
        ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "10", ",", "0", ",", "2", ",", "5", ",", "7", ",", "10", ",", "0", ",",
        "2", ",", "5", ",", "7", ",", "10", ",", "0", ",", "2", ",", "5", ",",
        "7", ",", "10", ",", "12"}], "}"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"jue", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", 
       "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", 
       ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", 
       ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", 
       ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0",
        ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5",
        ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", 
       "10", ",", "0", ",", "3", ",", "5", ",", "8", ",", "10", ",", "0", ",",
        "3", ",", "5", ",", "8", ",", "10", ",", "0", ",", "3", ",", "5", ",",
        "8", ",", "10", ",", "12"}], "}"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"zhi", "=", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", 
       "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", 
       "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", 
       "2", ",", "5", ",", "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", 
       "7", ",", "9", ",", "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", 
       "0", ",", "2", ",", "5", ",", "7", ",", "9", ",", "12"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Integer", " ", "Sequence", " ", "Functions"}], ",", " ", 
     RowBox[{
      RowBox[{"Some", " ", "In"}], "-", "Built"}], ",", " ", 
     RowBox[{"Others", " ", "Taken", " ", "From", " ", "The", " ", "OEIS"}], 
     ",", " ", 
     RowBox[{"Add", " ", "Your", " ", "Own"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"BaguenaudierNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "x"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"x", "^", "2"}]}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MBellB", "[", "exp_", "]"}], ":=", 
     RowBox[{"BellB", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MBernoulliB", "[", "exp_", "]"}], ":=", 
     RowBox[{"Round", "[", 
      RowBox[{"BernoulliB", "[", 
       RowBox[{"Range", "[", "exp", "]"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"BracketingsNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1", "/", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"Sqrt", "[", 
             RowBox[{
              RowBox[{"x", "^", "2"}], "-", 
              RowBox[{"6", " ", "x"}], "+", "1"}], "]"}], "+", "1"}], ")"}]}],
          ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MCarmichaelLambda", "[", "exp_", "]"}], ":=", 
     RowBox[{"CarmichaelLambda", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"CenteredCubicNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "^", "3"}], "+", 
              RowBox[{"5", " ", 
               RowBox[{"x", "^", "2"}]}], "+", 
              RowBox[{"5", " ", "x"}], "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"CenteredPentagonalNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "+", 
            RowBox[{"3", " ", "x"}], "+", "1"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"CenteredSquareNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "+", 
            RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"CenteredTriangularNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "+", "x", "+", "1"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"CentralTrinomialNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "+", "1"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"3", " ", "x"}]}], ")"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"ColumnConvexNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"x", "^", "3"}]}], "+", 
            RowBox[{"7", " ", 
             RowBox[{"x", "^", "2"}]}], "-", 
            RowBox[{"5", " ", "x"}], "+", "1"}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ChessNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"x", "^", "5"}]}], "-", 
            RowBox[{"8", " ", 
             RowBox[{"x", "^", "4"}]}], "+", 
            RowBox[{"12", " ", 
             RowBox[{"x", "^", "2"}]}], "+", 
            RowBox[{"5", " ", "x"}], "+", "1"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"ConstantNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "x"}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"CubicNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "^", "2"}], "+", 
              RowBox[{"4", " ", "x"}], "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"DelannoyNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "-", 
            RowBox[{"6", " ", "x"}], "+", "1"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MDivisorSigma", "[", "exp_", "]"}], ":=", 
     RowBox[{"DivisorSigma", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Range", "[", "exp", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MEulerE", "[", "exp_", "]"}], ":=", 
     RowBox[{"EulerE", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MEulerPhi", "[", "exp_", "]"}], ":=", 
     RowBox[{"EulerPhi", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"EvenNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", " ", "x"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MFibonacci", "[", "exp_", "]"}], ":=", 
     RowBox[{"Fibonacci", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"HexagonalPyramidalNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", "x"}], "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MIntegerExponent", "[", "exp_", "]"}], ":=", 
     RowBox[{"IntegerExponent", "[", 
      RowBox[{
       RowBox[{"Range", "[", "exp", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MLucasL", "[", "exp_", "]"}], ":=", 
     RowBox[{"LucasL", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MMangoldtLambda", "[", "exp_", "]"}], ":=", 
     RowBox[{"Round", "[", 
      RowBox[{"MangoldtLambda", "[", 
       RowBox[{"Range", "[", "exp", "]"}], "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MotzkinNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x"}], "+", "1", "-", 
            RowBox[{"Sqrt", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "3"}], " ", 
               RowBox[{"x", "^", "2"}]}], "-", 
              RowBox[{"2", " ", "x"}], "+", "1"}], "]"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", " ", 
            RowBox[{"x", "^", "2"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"NaturalNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"x", "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MNorlundB", "[", "exp_", "]"}], " ", ":=", " ", 
     RowBox[{"Round", "[", 
      RowBox[{"NorlundB", "[", 
       RowBox[{
        RowBox[{"Range", "[", "exp", "]"}], ",", "1"}], "]"}], "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"OctahedralNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"OddNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "x"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"PentatopeNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"x", "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "5"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MPartitionsQ", "[", "exp_", "]"}], ":=", 
     RowBox[{"PartitionsQ", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MPartitionsP", "[", "exp_", "]"}], ":=", 
     RowBox[{"PartitionsP", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MFiniteGroupCount", "[", "exp_", "]"}], ":=", 
     RowBox[{"FiniteGroupCount", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MPrime", "[", "exp_", "]"}], ":=", 
     RowBox[{"Prime", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MPrimePi", "[", "exp_", "]"}], ":=", 
     RowBox[{"PrimePi", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MPrimeNu", "[", "exp_", "]"}], ":=", 
     RowBox[{"PrimeNu", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PronicNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", " ", "x"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"QuarticNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{"x", "+", "1"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "^", "2"}], "+", 
              RowBox[{"10", " ", "x"}], "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "5"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MRamanujanTau", "[", "exp_", "]"}], ":=", 
     RowBox[{"RamanujanTau", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"RhombicDodecahedralNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "^", "3"}], "+", 
              RowBox[{"11", " ", 
               RowBox[{"x", "^", "2"}]}], "+", 
              RowBox[{"11", " ", "x"}], "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Rule50Numbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x", "-", "1"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", "x"}], "-", "1"}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Rule94Numbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"16", " ", 
                RowBox[{"x", "^", "4"}]}], "-", 
               RowBox[{"5", " ", "x"}], "-", "1"}], ")"}]}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "-", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"x", "+", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", "x"}], "-", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", "x"}], "+", "1"}], ")"}]}], ")"}]}], ")"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"MSubfactorial", "[", "exp_", "]"}], ":=", 
     RowBox[{"Subfactorial", "[", 
      RowBox[{"Range", "[", "exp", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"SquarePyramidalNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{"x", "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"SquareNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{"x", "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"SquareTriangularNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{"x", "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "x"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "^", "2"}], "-", 
              RowBox[{"34", " ", "x"}], "+", "1"}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"StackPolyominosNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"x", "^", "2"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"x", "^", "2"}]}], "-", "x", "+", "1"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"x", "^", "2"}]}], "+", "x", "+", "1"}], ")"}]}], 
           ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"StarNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "^", "2"}], "+", 
              RowBox[{"10", " ", "x"}], "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"TriangularNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"x", "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "3"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TribonacciNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"x", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"x", "^", "3"}]}], "-", 
            RowBox[{"x", "^", "2"}], "-", "x", "+", "1"}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"TetrahedralNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"x", "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TetranacciNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"x", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"x", "^", "4"}]}], "-", 
            RowBox[{"x", "^", "3"}], "-", 
            RowBox[{"x", "^", "2"}], "-", "x", "+", "1"}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"TriangleCountingNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "4"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "x"}], ")"}], "^", "3"}], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"x", "^", "2"}]}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TritriangularNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", " ", "x"}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "5"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TruncatedTetrahedralNumbers", "[", "exp_", "]"}], ":=", 
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"10", " ", 
               RowBox[{"x", "^", "2"}]}], "+", 
              RowBox[{"12", " ", "x"}], "+", "1"}], ")"}]}], ")"}], "/", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "x"}], ")"}], "^", "4"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "exp"}], "}"}]}], "]"}], ",", "x"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "A", " ", "Very", " ", "Useful", " ", "Sampling", " ", "Window", " ", 
      "Function"}], ",", " ", 
     RowBox[{"c", ".", "f", "."}], ",", " ", 
     RowBox[{
     "Sal", " ", "Mangano", " ", "The", " ", "Mathematica", " ", "Cookbook"}],
      ",", " ", 
     RowBox[{"p", ".44"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MovingWindow", "::", "usage"}], "=", 
     "\"\<MovingWindow[f, exp, n, o]\ngives a moving window of f over exp by \
n groups and o offset\>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MovingWindow", "[", 
      RowBox[{"f_", ",", "exp_", ",", "n_", ",", "o_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"len", "=", 
          RowBox[{"Length", "[", "exp", "]"}]}], ",", "end"}], "}"}], ",", 
       RowBox[{
        RowBox[{"end", "=", 
         RowBox[{
          RowBox[{"Min", "[", 
           RowBox[{"n", ",", "len"}], "]"}], "-", "1"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"f", ",", 
            RowBox[{"{", 
             RowBox[{"exp", "[", 
              RowBox[{"[", 
               RowBox[{"i", ";;", 
                RowBox[{"i", "+", "end"}]}], "]"}], "]"}], "}"}]}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"len", "-", "end"}], ",", "o"}], "}"}]}], "]"}]}]}], 
      "]"}]}], ";"}]}]}]], "Input",
 CellOpen->False,
 InitializationCell->
  True,ExpressionUUID->"658d531f-1b5b-471b-ad84-f98883b145c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Set", " ", "Directory"}], ",", " ", 
    RowBox[{
    "So", " ", "We", " ", "Can", " ", "Save", " ", "Our", " ", "MIDI", " ", 
     "Files"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"The", " ", "GUI", " ", "Container"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Set", " ", "Initial", " ", "Values", " ", "For", " ", "GUI"}], 
     ",", " ", 
     RowBox[{"e", ".", "g", "."}], ",", " ", 
     RowBox[{"m", "=", "dorian"}], ",", " ", 
     RowBox[{"F", "=", "SquareNumbers"}], ",", " ", 
     RowBox[{"etc", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"m", "=", "dorian"}], ",", 
       RowBox[{"F", "=", "SquareNumbers"}], ",", 
       RowBox[{"V", "=", "Poly"}], ",", 
       RowBox[{"d", "=", "Differences"}], ",", 
       RowBox[{"fT1", "=", 
        RowBox[{"-", "12"}]}], ",", 
       RowBox[{"fT2", "=", "0"}], ",", 
       RowBox[{"fT3", "=", "12"}], ",", 
       RowBox[{"mB", "=", "11"}], ",", 
       RowBox[{"mI", "=", "1"}], ",", 
       RowBox[{"ln", "=", "100"}], ",", 
       RowBox[{"s", "=", "1"}], ",", 
       RowBox[{"r", "=", "0"}], ",", 
       RowBox[{"b", "=", "4"}], ",", "g"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"Harmonize", " ", "Function"}], ",", " ", 
        RowBox[{"Aggregates", " ", 
         RowBox[{"Maj", "/", "Min"}], " ", "Triads"}], ",", " ", 
        RowBox[{"Perfect", " ", "Consonances"}], ",", " ", 
        RowBox[{"etc", "."}], ",", " ", 
        RowBox[{
         RowBox[{"I", "'"}], "m", " ", "Absolutely", " ", "Positive", " ", 
         "There", " ", "Is", " ", "a", " ", "More", " ", "Efficient", " ", 
         "Way", " ", "of", " ", "Writing", " ", "This", " ", "Function"}]}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Harmonize", "[", "exp_", "]"}], ":=", 
         RowBox[{"With", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"n1", "=", 
              RowBox[{"Take", "[", 
               RowBox[{"exp", ",", 
                RowBox[{"{", "1", "}"}]}], "]"}]}], ",", 
             RowBox[{"n2", "=", 
              RowBox[{"Take", "[", 
               RowBox[{"exp", ",", 
                RowBox[{"{", "2", "}"}]}], "]"}]}], ",", 
             RowBox[{"n3", "=", 
              RowBox[{"Take", "[", 
               RowBox[{"exp", ",", 
                RowBox[{"{", "3", "}"}]}], "]"}]}]}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "3"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "3"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "3"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "3"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "3"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "3"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "4"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "4"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "4"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "4"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "4"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "7"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "4"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "3"}]}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "3"}]}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "3"}]}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "3"}]}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "3"}]}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "3"}]}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "4"}]}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "4"}]}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "4"}]}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "4"}]}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "4"}]}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", 
                  RowBox[{"-", "4"}]}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "9"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "9"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "9"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "0"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "9"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "5"}], ")"}]}]}], "||", 
              RowBox[{
               RowBox[{"n2", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "9"}], ")"}]}], "&&", 
               RowBox[{"n3", "\[Equal]", 
                RowBox[{"(", 
                 RowBox[{"n1", "+", "9"}], ")"}]}]}]}], ",", 
             RowBox[{"Flatten", "[", 
              RowBox[{"List", "[", 
               RowBox[{
                RowBox[{"n1", "+", "fT1"}], ",", 
                RowBox[{"n2", "+", "fT2"}], ",", 
                RowBox[{"n3", "+", "fT3"}]}], "]"}], "]"}], ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"n2", "\[Equal]", 
                 RowBox[{"(", 
                  RowBox[{"n1", "+", "3"}], ")"}]}], "||", 
                RowBox[{"n2", "\[Equal]", 
                 RowBox[{"(", 
                  RowBox[{"n1", "-", "3"}], ")"}]}]}], ",", 
               RowBox[{"Flatten", "[", 
                RowBox[{"List", "[", 
                 RowBox[{"n1", ",", "n2"}], "]"}], "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"n2", "\[Equal]", 
                   RowBox[{"(", 
                    RowBox[{"n1", "+", "4"}], ")"}]}], "||", 
                  RowBox[{"n2", "\[Equal]", 
                   RowBox[{"(", 
                    RowBox[{"n1", "-", "4"}], ")"}]}]}], ",", 
                 RowBox[{"Flatten", "[", 
                  RowBox[{"List", "[", 
                   RowBox[{"n1", ",", "n2"}], "]"}], "]"}], ",", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "+", "5"}], ")"}]}], "||", 
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "-", "5"}], ")"}]}]}], ",", 
                   RowBox[{"Flatten", "[", 
                    RowBox[{"List", "[", 
                    RowBox[{"n1", ",", "n2"}], "]"}], "]"}], ",", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "+", "7"}], ")"}]}], "||", 
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "-", "7"}], ")"}]}]}], ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{"List", "[", 
                    RowBox[{"n1", ",", "n2"}], "]"}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "+", "8"}], ")"}]}], "||", 
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "-", "8"}], ")"}]}]}], ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{"List", "[", 
                    RowBox[{"n1", ",", "n2"}], "]"}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "+", "9"}], ")"}]}], "||", 
                    RowBox[{"n2", "\[Equal]", 
                    RowBox[{"(", 
                    RowBox[{"n1", "-", "9"}], ")"}]}]}], ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{"List", "[", 
                    RowBox[{
                    RowBox[{"n1", "+", "fT1"}], ",", 
                    RowBox[{"n2", "+", "fT2"}]}], "]"}], "]"}], ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{"List", "[", 
                    RowBox[{"n1", "+", "fT1"}], "]"}], "]"}]}], "]"}]}], 
                    "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"The", " ", "MONO", " ", "Function"}], ",", " ", 
          RowBox[{"See", " ", 
           RowBox[{"FOR_BEGINNERS", ".", "MD"}], " ", "If", " ", "You", " ", 
           RowBox[{"Don", "'"}], "t", " ", "Know", " ", "What", " ", "The", 
           " ", "Heck", " ", 
           RowBox[{"You", "'"}], "re", " ", "Looking", " ", "At", " ", 
           "Here"}], ",", " ", 
          RowBox[{"c", ".", "f", "."}], ",", " ", 
          RowBox[{"Guy", " ", 
           RowBox[{"Birkin", "'"}], "s", " ", "Post", " ", 
           "\"\<Programming Arvo Part\>\""}]}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Mono", "[", "exp_", "]"}], ":=", 
         RowBox[{"With", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"arb", "=", "exp"}], "}"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Take", "[", 
              RowBox[{"arb", ",", 
               RowBox[{"{", "#", "}"}]}], "]"}], "&"}], "/@", 
            RowBox[{"Mod", "[", 
             RowBox[{
              RowBox[{"d", "@", 
               RowBox[{"F", "[", "ln", "]"}]}], ",", "mB", ",", "mI"}], 
             "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"The", " ", "POLY", " ", "Function"}], ",", " ", 
          RowBox[{"See", " ", 
           RowBox[{"FOR_BEGINNERS", ".", "MD"}], " ", "If", " ", "You", " ", 
           RowBox[{"Don", "'"}], "t", " ", "Know", " ", "What", " ", "The", 
           " ", "Heck", " ", 
           RowBox[{"You", "'"}], "re", " ", "Looking", " ", "At", " ", 
           "Here"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Poly", "[", "exp_", "]"}], ":=", 
         RowBox[{"MovingWindow", "[", 
          RowBox[{"Harmonize", ",", 
           RowBox[{"Mono", "[", "m", "]"}], ",", "3", ",", "3"}], "]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Make", " ", "the", " ", "GUI", " ", "Look", " ", "OK"}], 
         " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Column", "[", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"g", "=", 
            RowBox[{"Sound", "[", "\[IndentingNewLine]", 
             RowBox[{"Map", "[", "\[IndentingNewLine]", 
              RowBox[{"(*", " ", 
               RowBox[{
                RowBox[{
                "I", " ", "tried", " ", "messing", " ", "with", " ", 
                 "serializing", " ", "the", " ", "note", " ", "durations"}], 
                ",", " ", 
                RowBox[{
                 RowBox[{"couldn", "'"}], "t", " ", "really", " ", "figure", 
                 " ", "out", " ", "any", " ", "thing", " ", "that", " ", 
                 "sounded", " ", "cool"}], ",", " ", 
                RowBox[{
                "some", " ", "residue", " ", "of", " ", "my", " ", "attempts",
                  " ", "are", " ", "still", " ", "in", " ", "the", " ", 
                 "GUI"}]}], " ", "*)"}], "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"SoundNote", "[", 
                 RowBox[{"#", ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"First", "[", "#", "]"}], ",", 
                    RowBox[{"mB", "/", "s"}], ",", "mI"}], "]"}], "/", "b"}], 
                    "*", "r"}], "+", 
                   RowBox[{"(", 
                    RowBox[{"s", "/", "b"}], ")"}]}], ",", "\"\<Piano\>\""}], 
                 "]"}], "&"}], ",", 
               RowBox[{"V", "[", "m", "]"}]}], "]"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<          \>\"", ",", 
              RowBox[{"Button", "[", 
               RowBox[{
               "\"\<\!\(\*StyleBox[\"EXPORT\",FontSize->10,FontWeight->\"\
Plain\"]\)\>\"", ",", 
                RowBox[{"Export", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"ToString", "[", 
                    RowBox[{
                    RowBox[{"ToString", "[", "F", "]"}], "<>", "\"\<_\>\"", "<>", 
                    RowBox[{"ToString", "[", "mB", "]"}], "<>", "\"\<-\>\"", "<>", 
                    RowBox[{"ToString", "[", "mI", "]"}]}], "]"}], "<>", 
                   "\"\<_\>\"", "<>", 
                   RowBox[{"ToString", "[", 
                    RowBox[{"Total", "[", "m", "]"}], "]"}], "<>", 
                   "\"\<.mid\>\""}], ",", "g"}], "]"}], ",", 
                RowBox[{"ImageMargins", "\[Rule]", "10"}], ",", 
                RowBox[{"ImageSize", "\[Rule]", "75"}], ",", 
                RowBox[{"FrameMargins", "\[Rule]", "5"}]}], "]"}]}], "}"}], 
            "]"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Panel", "[", "\[IndentingNewLine]", 
        RowBox[{"Column", "[", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<STOKE      \>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"SetterBar", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "b", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"1", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{"\"\<wn\>\"", ",", "\"\<Whole Notes\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}], 
                  ",", 
                  RowBox[{"2", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    "\"\<hn\>\"", ",", " ", "\"\<Half Notes\>\"", ",", " ", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}], 
                  ",", 
                  RowBox[{"4", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    "\"\<qn\>\"", ",", "\"\<Quarter Notes\>\"", ",", " ", 
                    RowBox[{"TooltipDelay", "->", "1"}]}], "]"}]}], ",", 
                  RowBox[{"8", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{"\"\<en\>\"", ",", "\"\<Eighth Notes\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}], 
                  ",", 
                  RowBox[{"17", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{"\"\<sn\>\"", ",", "\"\<Sixteenth Notes\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}], 
                  ",", 
                  RowBox[{"32", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    "\"\<tn\>\"", ",", " ", "\"\<Thirty-Second Notes\>\"", 
                    ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}]}], 
                 "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
              "\"\<                  \>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"SetterBar", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "r", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"0.25", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    "\"\<\!\(\*StyleBox[\"Y\",FontWeight->\"Plain\"]\)\>\"", 
                    ",", "\"\<Enable Serialized Durations\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}], 
                  ",", " ", 
                  RowBox[{"0", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    "\"\<\!\(\*StyleBox[\"N\",FontWeight->\"Plain\"]\)\>\"", 
                    ",", "\"\<Disable Serialized Durations\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}]}], 
                 "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "\"\<\>\"", "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<MODE       \>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"PopupMenu", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "m", "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"{", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"aeolian", "\[Rule]", "\"\<Aeolian\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"dorian", "\[Rule]", "\"\<Dorian\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"gong", "\[Rule]", "\"\<Gong\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"ionian", "\[Rule]", "\"\<Ionian\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"jue", "\[Rule]", "\"\<Jue\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"lydian", "\[Rule]", "\"\<Lydian\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"mixolydian", "\[Rule]", "\"\<Mixolydian\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"phrygian", "\[Rule]", "\"\<Phrygian\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"shang", "\[Rule]", "\"\<Shang\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "yu", "\[Rule]", 
                   "\"\<Yu                                   \>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"zhi", "\[Rule]", "\"\<Zhi\>\""}]}], 
                 "\[IndentingNewLine]", "}"}], ",", 
                RowBox[{"MenuStyle", "\[Rule]", "Small"}]}], 
               "\[IndentingNewLine]", "]"}], ",", 
              "\"\<                    \>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"SetterBar", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "V", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Mono", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    RowBox[{"ToString", "[", "\"\<\[CapitalMu]\>\"", "]"}], 
                    ",", "\"\<Monophonic\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}], 
                  ",", 
                  RowBox[{"Poly", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    RowBox[{"ToString", "[", "\"\<\[CapitalRho]\>\"", "]"}], 
                    ",", "\"\<Polyphonic\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}]}], 
                 "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "\"\<\>\"", "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<SERIES      \>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"PopupMenu", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "F", "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                  "BaguenaudierNumbers", "\[Rule]", " ", 
                   "\"\<Baguenaudier\>\""}], ",", "\[IndentingNewLine]", 
                  RowBox[{"MBellB", "\[Rule]", "\"\<Bell\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"MBernoulliB", "\[Rule]", "\"\<Bernoulli\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "BracketingsNumbers", "\[Rule]", "\"\<Bracketing\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "MCarmichaelLambda", "\[Rule]", 
                   "\"\<Carmichael Lambda\>\""}], ",", "\[IndentingNewLine]", 
                  
                  RowBox[{
                  "CenteredCubicNumbers", "\[Rule]", 
                   "\"\<Centered Cubic\>\""}], ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "CenteredPentagonalNumbers", "\[Rule]", 
                   "\"\<Centered Pentagonal\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "CenteredSquareNumbers", "\[Rule]", 
                   "\"\<Centered Square\>\""}], ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "CenteredTriangularNumbers", "\[Rule]", 
                   "\"\<Centered Triangular\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "CentralTrinomialNumbers", "\[Rule]", 
                   "\"\<Central Trinomial\>\""}], ",", "\[IndentingNewLine]", 
                  
                  RowBox[{
                  "ColumnConvexNumbers", "\[Rule]", "\"\<Column Convex\>\""}],
                   ",", "\[IndentingNewLine]", 
                  RowBox[{"ChessNumbers", "\[Rule]", "\"\<Chess\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"ConstantNumbers", "\[Rule]", "\"\<Constant\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"CubicNumbers", "\[Rule]", "\"\<Cubic\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"DelannoyNumbers", "\[Rule]", "\"\<Delannoy\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "MDivisorSigma", "\[Rule]", "\"\<DivisorSigma\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"MEulerE", "\[Rule]", "\"\<Euler E\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"MEulerPhi", "\[Rule]", "\"\<Euler Phi\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"EvenNumbers", "\[Rule]", "\"\<Even\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"MFibonacci", "\[Rule]", "\"\<Fibonacci\>\""}], ",",
                   "\[IndentingNewLine]", 
                  RowBox[{
                  "MFiniteGroupCount", "\[Rule]", "\"\<Finite Groups\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "HexagonalPyramidalNumbers", "\[Rule]", 
                   "\"\<Hexagonal Pyramidal\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "MIntegerExponent", "\[Rule]", "\"\<Integer Exponent\>\""}],
                   ",", "\[IndentingNewLine]", 
                  RowBox[{"MLucasL", " ", "->", "\"\<Lucas\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "MMangoldtLambda", "\[Rule]", "\"\<Mangoldt Lambda\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"MotzkinNumbers", "\[Rule]", "\"\<Motzkin\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"NaturalNumbers", "\[Rule]", "\"\<Natural\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"MNorlundB", "\[Rule]", "\"\<Norlund\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "OctahedralNumbers", "\[Rule]", "\"\<Octahedral\>\""}], ",",
                   "\[IndentingNewLine]", 
                  RowBox[{"OddNumbers", "\[Rule]", "\"\<Odd\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "PentatopeNumbers", "\[Rule]", "\"\<Pentatope\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"MPartitionsP", "\[Rule]", "\"\<Partitions\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"MPrime", "\[Rule]", "\"\<Prime\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"MPrimePi", "\[Rule]", "\"\<PrimePi\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"MPrimeNu", "\[Rule]", "\"\<PrimeNu\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"PronicNumbers", "\[Rule]", "\"\<Pronic\>\""}], ",",
                   "\[IndentingNewLine]", 
                  RowBox[{"QuarticNumbers", "\[Rule]", "\"\<Quartic\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "MRamanujanTau", "\[Rule]", "\"\<Ramanujan Tau\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "RhombicDodecahedralNumbers", "\[Rule]", 
                   "\"\<Rhombic Dodecahedral\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Rule50Numbers", "\[Rule]", "\"\<Rule 50\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"Rule94Numbers", "\[Rule]", "\"\<Rule 94\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "MSubfactorial", "\[Rule]", "\"\<Subfactorial\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"SquareNumbers", "\[Rule]", "\"\<Square\>\""}], ",",
                   "\[IndentingNewLine]", 
                  RowBox[{
                  "SquarePyramidalNumbers", "\[Rule]", 
                   "\"\<Square Pyramidal\>\""}], ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "SquareTriangularNumbers", "\[Rule]", 
                   "\"\<Square Triangular\>\""}], ",", "\[IndentingNewLine]", 
                  
                  RowBox[{
                  "StackPolyominosNumbers", "\[Rule]", 
                   "\"\<Stack Polyominos\>\""}], ",", "\[IndentingNewLine]", 
                  RowBox[{"StarNumbers", "\[Rule]", "\"\<Star\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "TriangularNumbers", "\[Rule]", "\"\<Triangulars\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "TribonacciNumbers", "\[Rule]", "\"\<Tribonacci\>\""}], ",",
                   "\[IndentingNewLine]", 
                  RowBox[{
                  "TetrahedralNumbers", "\[Rule]", "\"\<Tetrahedral\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "TetranacciNumbers", "\[Rule]", "\"\<Tetranacci\>\""}], ",",
                   "\[IndentingNewLine]", 
                  RowBox[{
                  "TriangleCountingNumbers", "\[Rule]", 
                   "\"\<Triangle Counting\>\""}], ",", "\[IndentingNewLine]", 
                  
                  RowBox[{
                  "TritriangularNumbers", "\[Rule]", 
                   "\"\<Tritriangular\>\""}], ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "TruncatedTetrahedralNumbers", "\[Rule]", 
                   "\"\<Truncated Tetrahedral\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "MPartitionsQ", "\[Rule]", 
                   "\"\<Unrestricted Partitions\>\""}]}], "}"}], ",", 
                RowBox[{"MenuStyle", "\[Rule]", "Small"}]}], "]"}], ",", 
              "\[IndentingNewLine]", "\"\<                    \>\"", ",", 
              "\[IndentingNewLine]", 
              RowBox[{"SetterBar", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "d", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Flatten", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    "\"\<\!\(\*StyleBox[\"#\",FontSize->9,FontWeight->\"Plain\
\",FontSlant->\"Italic\"]\)\>\"", ",", 
                    "\"\<Pitches from successive cardinalities.\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}], 
                  ",", 
                  RowBox[{"Differences", "\[Rule]", 
                   RowBox[{"Tooltip", "[", 
                    RowBox[{
                    "\"\<\!\(\*StyleBox[\"\[CapitalDelta]\",FontSize->9,\
FontWeight->\"Plain\"]\)\>\"", ",", 
                    "\"\<Pitches from successive differences.\>\"", ",", 
                    RowBox[{"TooltipDelay", "\[Rule]", "0.5"}]}], "]"}]}]}], 
                 "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "\"\<\>\"", "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "\"\<\>\"", "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<BASE M      \>\"", ",", 
              RowBox[{"Manipulator", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "mB", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "36", ",", "1"}], "}"}], ",", 
                RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], 
               "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<OFFSET      \>\"", ",", 
              RowBox[{"Manipulator", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "mI", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "36", ",", "1"}], "}"}], ",", 
                RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], 
               "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "\"\<\>\"", "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "\"\<\>\"", "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<FINE 1      \>\"", ",", 
              RowBox[{"Manipulator", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "fT1", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "24"}], ",", "24", ",", "1"}], "}"}], ",", 
                RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], 
               "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<FINE 2      \>\"", ",", 
              RowBox[{"Manipulator", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "fT2", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "24"}], ",", "24", ",", "1"}], "}"}], ",", 
                RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], 
               "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<FINE 3      \>\"", ",", 
              RowBox[{"Manipulator", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "fT3", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "24"}], ",", "24", ",", "1"}], "}"}], ",", 
                RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], 
               "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "\"\<\>\"", "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<LENGTH    \>\"", ",", 
              RowBox[{"Manipulator", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "ln", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "253", ",", "1"}], "}"}], ",", 
                RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], 
               "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<QUAVER    \>\"", ",", 
              RowBox[{"Manipulator", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "s", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "64", ",", "1"}], "}"}], ",", 
                RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], 
               "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], 
        "]"}], ",", 
       RowBox[{"ControlPlacement", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Left", ",", "Right"}], "}"}]}], ",", 
       RowBox[{"SaveDefinitions", "\[Rule]", " ", "True"}]}], 
      "\[IndentingNewLine]", "]"}]}], "]"}]}]}]], "Input",
 CellOpen->False,
 InitializationCell->
  True,ExpressionUUID->"4e5252f8-2ed5-42ad-8cff-f7f0846843c6"],

Cell[BoxData[
 DynamicModuleBox[{$CellContext`m$$ = {0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9,
   10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2,
   3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 
  9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 
  2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 
  7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
  0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 
  5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 
  10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 
  3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 
  9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
  12}, $CellContext`F$$ = $CellContext`SquareNumbers, $CellContext`V$$ = \
$CellContext`Poly, $CellContext`d$$ = 
  Differences, $CellContext`fT1$$ = -12, $CellContext`fT2$$ = 
  0, $CellContext`fT3$$ = 12, $CellContext`mB$$ = 11, $CellContext`mI$$ = 
  1, $CellContext`ln$$ = 100, $CellContext`s$$ = 1, $CellContext`r$$ = 
  0, $CellContext`b$$ = 4, $CellContext`g$$ = Sound[{
    SoundNote[{-12, 3, 19}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{10, 2}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-10, 5, 21}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-12, 3, 12}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-9, 7, 22}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-10, 5, 14}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{5, 9}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-9, 0, 15}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{7, 10}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-7, 2, 17}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-3, 0}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-12, 3, 19}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{10, 2}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-10, 5, 21}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-12, 3, 12}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-9, 7, 22}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-10, 5, 14}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{5, 9}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-9, 0, 15}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{7, 10}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-7, 2, 17}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-3, 0}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-12, 3, 19}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{10, 2}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-10, 5, 21}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-12, 3, 12}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-9, 7, 22}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-10, 5, 14}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{5, 9}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-9, 0, 15}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{7, 10}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-7, 2, 17}, 
     Rational[1, 4], "Piano"], 
    SoundNote[{-3, 0}, 
     Rational[1, 4], "Piano"]}]}, 
  TagBox[
   StyleBox[
    DynamicModuleBox[{Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
     Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
     1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
       Hold[
        Panel[
         Column[{
           Row[{"STOKE      ", 
             SetterBar[
              Dynamic[$CellContext`b$$], {
              1 -> Tooltip["wn", "Whole Notes", TooltipDelay -> 0.5], 2 -> 
               Tooltip["hn", "Half Notes", TooltipDelay -> 0.5], 4 -> 
               Tooltip["qn", "Quarter Notes", TooltipDelay -> 1], 8 -> 
               Tooltip["en", "Eighth Notes", TooltipDelay -> 0.5], 17 -> 
               Tooltip["sn", "Sixteenth Notes", TooltipDelay -> 0.5], 32 -> 
               Tooltip["tn", "Thirty-Second Notes", TooltipDelay -> 0.5]}], 
             "                  ", 
             SetterBar[
              Dynamic[$CellContext`r$$], {
              0.25 -> Tooltip[
                "\!\(\*StyleBox[\"Y\",FontWeight->\"Plain\"]\)", 
                 "Enable Serialized Durations", TooltipDelay -> 0.5], 0 -> 
               Tooltip[
                "\!\(\*StyleBox[\"N\",FontWeight->\"Plain\"]\)", 
                 "Disable Serialized Durations", TooltipDelay -> 0.5]}]}], 
           Row[{""}], 
           Row[{"MODE       ", 
             PopupMenu[
              
              Dynamic[$CellContext`m$$], {{0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 
                7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3,
                 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 
                2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10,
                 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8,
                 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 
                7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3,
                 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 
                2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10,
                 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8,
                 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 
                7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3,
                 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 
                2, 3, 5, 7, 8, 10, 12} -> 
               "Aeolian", {0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 
                3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0,
                 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 
                10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7,
                 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 
                5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2,
                 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
                0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 
                10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7,
                 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 
                5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2,
                 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
                0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 
                10, 12} -> 
               "Dorian", {0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4,
                 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 
                7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7,
                 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 
                9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9,
                 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 
                0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0,
                 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 
                2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2,
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4,
                 7, 9, 0, 2, 4, 7, 9, 12} -> 
               "Gong", {0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 
                5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2,
                 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 
                0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 
                11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7,
                 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 
                5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2,
                 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 
                0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 
                11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7,
                 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 
                5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2,
                 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 
                12} -> 
               "Ionian", {0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 
                3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 
                0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 
                10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 
                8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 
                5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 
                3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 
                0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 
                10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 
                8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 
                5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 
                3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 
                0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 
                10, 0, 3, 5, 8, 10, 12} -> 
               "Jue", {0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6,
                 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 
                4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0,
                 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 
                11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7,
                 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 
                6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2,
                 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 
                0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 
                11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7,
                 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 
                6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2,
                 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 
                12} -> "Lydian", {0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 
                0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 
                10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7,
                 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 
                5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2,
                 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 
                0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 
                10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7,
                 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 
                5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2,
                 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 
                0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 
                10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7,
                 9, 10, 12} -> 
               "Mixolydian", {0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 
                1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10,
                 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8,
                 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 
                7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3,
                 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 
                1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10,
                 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8,
                 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 
                7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3,
                 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 
                1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10,
                 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8,
                 10, 12} -> 
               "Phrygian", {0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0,
                 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 
                0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 
                10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 
                7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 
                5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 
                2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 
                0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 
                10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 
                7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 
                5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 
                2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 
                0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 
                10, 0, 2, 5, 7, 10, 12} -> 
               "Shang", {0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3,
                 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 
                3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 
                0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 
                10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 
                7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 
                5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 
                3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 
                0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 
                10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 
                7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 
                5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 
                3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 
                0, 3, 5, 7, 10, 12} -> 
               "Yu                                   ", {0, 2, 5, 7, 9, 0, 2, 
                5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5,
                 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 
                7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7,
                 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 
                9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9,
                 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 
                0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0,
                 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 
                2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2,
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5,
                 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 12} -> 
               "Zhi"}, MenuStyle -> Small], "                    ", 
             SetterBar[
              
              Dynamic[$CellContext`V$$], {$CellContext`Mono -> 
               Tooltip[
                "\[CapitalMu]", "Monophonic", TooltipDelay -> 
                 0.5], $CellContext`Poly -> 
               Tooltip[
                "\[CapitalRho]", "Polyphonic", TooltipDelay -> 0.5]}]}], 
           Row[{""}], 
           Row[{"SERIES      ", 
             PopupMenu[
              
              Dynamic[$CellContext`F$$], {$CellContext`BaguenaudierNumbers -> 
               "Baguenaudier", $CellContext`MBellB -> 
               "Bell", $CellContext`MBernoulliB -> 
               "Bernoulli", $CellContext`BracketingsNumbers -> 
               "Bracketing", $CellContext`MCarmichaelLambda -> 
               "Carmichael Lambda", $CellContext`CenteredCubicNumbers -> 
               "Centered Cubic", $CellContext`CenteredPentagonalNumbers -> 
               "Centered Pentagonal", $CellContext`CenteredSquareNumbers -> 
               "Centered Square", $CellContext`CenteredTriangularNumbers -> 
               "Centered Triangular", $CellContext`CentralTrinomialNumbers -> 
               "Central Trinomial", $CellContext`ColumnConvexNumbers -> 
               "Column Convex", $CellContext`ChessNumbers -> 
               "Chess", $CellContext`ConstantNumbers -> 
               "Constant", $CellContext`CubicNumbers -> 
               "Cubic", $CellContext`DelannoyNumbers -> 
               "Delannoy", $CellContext`MDivisorSigma -> 
               "DivisorSigma", $CellContext`MEulerE -> 
               "Euler E", $CellContext`MEulerPhi -> 
               "Euler Phi", $CellContext`EvenNumbers -> 
               "Even", $CellContext`MFibonacci -> 
               "Fibonacci", $CellContext`MFiniteGroupCount -> 
               "Finite Groups", $CellContext`HexagonalPyramidalNumbers -> 
               "Hexagonal Pyramidal", $CellContext`MIntegerExponent -> 
               "Integer Exponent", $CellContext`MLucasL -> 
               "Lucas", $CellContext`MMangoldtLambda -> 
               "Mangoldt Lambda", $CellContext`MotzkinNumbers -> 
               "Motzkin", $CellContext`NaturalNumbers -> 
               "Natural", $CellContext`MNorlundB -> 
               "Norlund", $CellContext`OctahedralNumbers -> 
               "Octahedral", $CellContext`OddNumbers -> 
               "Odd", $CellContext`PentatopeNumbers -> 
               "Pentatope", $CellContext`MPartitionsP -> 
               "Partitions", $CellContext`MPrime -> 
               "Prime", $CellContext`MPrimePi -> 
               "PrimePi", $CellContext`MPrimeNu -> 
               "PrimeNu", $CellContext`PronicNumbers -> 
               "Pronic", $CellContext`QuarticNumbers -> 
               "Quartic", $CellContext`MRamanujanTau -> 
               "Ramanujan Tau", $CellContext`RhombicDodecahedralNumbers -> 
               "Rhombic Dodecahedral", $CellContext`Rule50Numbers -> 
               "Rule 50", $CellContext`Rule94Numbers -> 
               "Rule 94", $CellContext`MSubfactorial -> 
               "Subfactorial", $CellContext`SquareNumbers -> 
               "Square", $CellContext`SquarePyramidalNumbers -> 
               "Square Pyramidal", $CellContext`SquareTriangularNumbers -> 
               "Square Triangular", $CellContext`StackPolyominosNumbers -> 
               "Stack Polyominos", $CellContext`StarNumbers -> 
               "Star", $CellContext`TriangularNumbers -> 
               "Triangulars", $CellContext`TribonacciNumbers -> 
               "Tribonacci", $CellContext`TetrahedralNumbers -> 
               "Tetrahedral", $CellContext`TetranacciNumbers -> 
               "Tetranacci", $CellContext`TriangleCountingNumbers -> 
               "Triangle Counting", $CellContext`TritriangularNumbers -> 
               "Tritriangular", $CellContext`TruncatedTetrahedralNumbers -> 
               "Truncated Tetrahedral", $CellContext`MPartitionsQ -> 
               "Unrestricted Partitions"}, MenuStyle -> Small], 
             "                    ", 
             SetterBar[
              Dynamic[$CellContext`d$$], {
              Flatten -> Tooltip[
                "\!\(\*StyleBox[\"#\",FontSize->9,FontWeight->\"Plain\",\
FontSlant->\"Italic\"]\)", "Pitches from successive cardinalities.", 
                 TooltipDelay -> 0.5], Differences -> 
               Tooltip[
                "\!\(\*StyleBox[\"\[CapitalDelta]\",FontSize->9,FontWeight->\"\
Plain\"]\)", "Pitches from successive differences.", TooltipDelay -> 0.5]}]}], 
           Row[{""}], 
           Row[{""}], 
           Row[{"BASE M      ", 
             Manipulator[
              Dynamic[$CellContext`mB$$], {2, 36, 1}, Appearance -> 
              "Labeled"]}], 
           Row[{"OFFSET      ", 
             Manipulator[
              Dynamic[$CellContext`mI$$], {1, 36, 1}, Appearance -> 
              "Labeled"]}], 
           Row[{""}], 
           Row[{""}], 
           Row[{"FINE 1      ", 
             Manipulator[
              Dynamic[$CellContext`fT1$$], {-24, 24, 1}, Appearance -> 
              "Labeled"]}], 
           Row[{"FINE 2      ", 
             Manipulator[
              Dynamic[$CellContext`fT2$$], {-24, 24, 1}, Appearance -> 
              "Labeled"]}], 
           Row[{"FINE 3      ", 
             Manipulator[
              Dynamic[$CellContext`fT3$$], {-24, 24, 1}, Appearance -> 
              "Labeled"]}], 
           Row[{""}], 
           Row[{"LENGTH    ", 
             Manipulator[
              Dynamic[$CellContext`ln$$], {1, 253, 1}, Appearance -> 
              "Labeled"]}], 
           Row[{"QUAVER    ", 
             Manipulator[
              Dynamic[$CellContext`s$$], {1, 64, 1}, Appearance -> 
              "Labeled"]}]}]]], Manipulate`Dump`ThisIsNotAControl}}, 
     Typeset`size$$ = {250., {83.634033203125, 89.365966796875}}, 
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
     False}, 
     DynamicBox[Manipulate`ManipulateBoxes[
      1, StandardForm, "Variables" :> {}, "ControllerVariables" :> {}, 
       "OtherVariables" :> {
        Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
         Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
         Typeset`initDone$$, Typeset`skipInitDone$$}, 
       "Body" :> ($CellContext`Harmonize[
           Pattern[$CellContext`exp$, 
            Blank[]]] := 
         With[{$CellContext`n1$ = 
            Take[$CellContext`exp$, {1}], $CellContext`n2$ = 
            Take[$CellContext`exp$, {2}], $CellContext`n3$ = 
            Take[$CellContext`exp$, {3}]}, 
           If[
            Or[
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ + 3], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ + 7], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               3, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               3, $CellContext`n3$ == $CellContext`n1$ + 3], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               3, $CellContext`n3$ == $CellContext`n1$ + 7], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               7, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               7, $CellContext`n3$ == $CellContext`n1$ + 3], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               7, $CellContext`n3$ == $CellContext`n1$ + 7], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ + 4], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               4, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               4, $CellContext`n3$ == $CellContext`n1$ + 4], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               4, $CellContext`n3$ == $CellContext`n1$ + 7], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               7, $CellContext`n3$ == $CellContext`n1$ + 4], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ - 3], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ + 5], 
             
             And[$CellContext`n2$ == $CellContext`n1$ - 
               3, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ - 
               3, $CellContext`n3$ == $CellContext`n1$ - 3], 
             
             And[$CellContext`n2$ == $CellContext`n1$ - 
               3, $CellContext`n3$ == $CellContext`n1$ + 5], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               5, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               5, $CellContext`n3$ == $CellContext`n1$ - 3], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               5, $CellContext`n3$ == $CellContext`n1$ + 5], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ - 4], 
             
             And[$CellContext`n2$ == $CellContext`n1$ - 
               4, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ - 
               4, $CellContext`n3$ == $CellContext`n1$ - 4], 
             
             And[$CellContext`n2$ == $CellContext`n1$ - 
               4, $CellContext`n3$ == $CellContext`n1$ + 5], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               5, $CellContext`n3$ == $CellContext`n1$ - 4], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               0, $CellContext`n3$ == $CellContext`n1$ + 9], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               5, $CellContext`n3$ == $CellContext`n1$ + 9], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               9, $CellContext`n3$ == $CellContext`n1$ + 0], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               9, $CellContext`n3$ == $CellContext`n1$ + 5], 
             
             And[$CellContext`n2$ == $CellContext`n1$ + 
               9, $CellContext`n3$ == $CellContext`n1$ + 9]], 
            
            Flatten[{$CellContext`n1$ + $CellContext`fT1$$, $CellContext`n2$ + \
$CellContext`fT2$$, $CellContext`n3$ + $CellContext`fT3$$}], 
            If[
             
             Or[$CellContext`n2$ == $CellContext`n1$ + 
               3, $CellContext`n2$ == $CellContext`n1$ - 3], 
             Flatten[{$CellContext`n1$, $CellContext`n2$}], 
             If[
              
              Or[$CellContext`n2$ == $CellContext`n1$ + 
                4, $CellContext`n2$ == $CellContext`n1$ - 4], 
              Flatten[{$CellContext`n1$, $CellContext`n2$}], 
              If[
               
               Or[$CellContext`n2$ == $CellContext`n1$ + 
                 5, $CellContext`n2$ == $CellContext`n1$ - 5], 
               Flatten[{$CellContext`n1$, $CellContext`n2$}], 
               If[
                
                Or[$CellContext`n2$ == $CellContext`n1$ + 
                  7, $CellContext`n2$ == $CellContext`n1$ - 7], 
                Flatten[{$CellContext`n1$, $CellContext`n2$}], 
                If[
                 
                 Or[$CellContext`n2$ == $CellContext`n1$ + 
                   8, $CellContext`n2$ == $CellContext`n1$ - 8], 
                 Flatten[{$CellContext`n1$, $CellContext`n2$}], 
                 If[
                  
                  Or[$CellContext`n2$ == $CellContext`n1$ + 
                    9, $CellContext`n2$ == $CellContext`n1$ - 9], 
                  
                  Flatten[{$CellContext`n1$ + $CellContext`fT1$$, \
$CellContext`n2$ + $CellContext`fT2$$}], 
                  
                  Flatten[{$CellContext`n1$ + $CellContext`fT1$$}]]]]]]]]]; \
$CellContext`Mono[
           Pattern[$CellContext`exp$, 
            Blank[]]] := With[{$CellContext`arb$ = $CellContext`exp$}, 
           Map[Take[$CellContext`arb$, {#}]& , 
            Mod[
             $CellContext`d$$[
              $CellContext`F$$[$CellContext`ln$$]], $CellContext`mB$$, \
$CellContext`mI$$]]]; $CellContext`Poly[
           Pattern[$CellContext`exp$, 
            Blank[]]] := $CellContext`MovingWindow[$CellContext`Harmonize, 
           $CellContext`Mono[$CellContext`m$$], 3, 3]; 
        Column[{$CellContext`g$$ = Sound[
             Map[SoundNote[#, (Mod[
                   
                   First[#], $CellContext`mB$$/$CellContext`s$$, \
$CellContext`mI$$]/$CellContext`b$$) $CellContext`r$$ + \
$CellContext`s$$/$CellContext`b$$, "Piano"]& , 
              $CellContext`V$$[$CellContext`m$$]]], 
           Row[{"          ", 
             Button[
             "\!\(\*StyleBox[\"EXPORT\",FontSize->10,FontWeight->\"Plain\"]\)\
", 
              Export[
               StringJoin[
                ToString[
                 StringJoin[
                  ToString[$CellContext`F$$], "_", 
                  ToString[$CellContext`mB$$], "-", 
                  ToString[$CellContext`mI$$]]], "_", 
                ToString[
                 Total[$CellContext`m$$]], ".mid"], $CellContext`g$$], 
              ImageMargins -> 10, ImageSize -> 75, FrameMargins -> 5]}]}]), 
       "Specifications" :> {
         Panel[
          Column[{
            Row[{"STOKE      ", 
              SetterBar[
               Dynamic[$CellContext`b$$], {
               1 -> Tooltip["wn", "Whole Notes", TooltipDelay -> 0.5], 2 -> 
                Tooltip["hn", "Half Notes", TooltipDelay -> 0.5], 4 -> 
                Tooltip["qn", "Quarter Notes", TooltipDelay -> 1], 8 -> 
                Tooltip["en", "Eighth Notes", TooltipDelay -> 0.5], 17 -> 
                Tooltip["sn", "Sixteenth Notes", TooltipDelay -> 0.5], 32 -> 
                Tooltip["tn", "Thirty-Second Notes", TooltipDelay -> 0.5]}], 
              "                  ", 
              SetterBar[
               Dynamic[$CellContext`r$$], {
               0.25 -> Tooltip[
                 "\!\(\*StyleBox[\"Y\",FontWeight->\"Plain\"]\)", 
                  "Enable Serialized Durations", TooltipDelay -> 0.5], 0 -> 
                Tooltip[
                 "\!\(\*StyleBox[\"N\",FontWeight->\"Plain\"]\)", 
                  "Disable Serialized Durations", TooltipDelay -> 0.5]}]}], 
            Row[{""}], 
            Row[{"MODE       ", 
              PopupMenu[
               
               Dynamic[$CellContext`m$$], {{0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 
                 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 
                 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 
                 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8,
                  10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 
                 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 
                 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 
                 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8,
                  10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 
                 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 
                 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 
                 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8,
                  10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 0, 2, 3, 5, 
                 7, 8, 10, 0, 2, 3, 5, 7, 8, 10, 12} -> 
                "Aeolian", {0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 
                 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
                 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9,
                  10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 
                 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 
                 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
                 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9,
                  10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 
                 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 
                 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
                 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9,
                  10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 
                 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 
                 3, 5, 7, 9, 10, 12} -> 
                "Dorian", {0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 
                 4, 7, 9, 0, 2, 4, 7, 9, 0, 2, 4, 7, 9, 12} -> 
                "Gong", {0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 
                 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 
                 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 
                 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 
                 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 
                 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 
                 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9,
                  11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 
                 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 
                 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 
                 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9,
                  11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 
                 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 4, 5, 7, 9, 11, 0, 2, 
                 4, 5, 7, 9, 11, 12} -> 
                "Ionian", {0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 
                 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 
                 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 
                 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 
                 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 
                 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 
                 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 
                 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 
                 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 
                 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 
                 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 
                 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 
                 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 10, 0, 3, 5, 8, 
                 10, 0, 3, 5, 8, 10, 12} -> 
                "Jue", {0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 
                 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 
                 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 
                 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 
                 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 
                 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 
                 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9,
                  11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 
                 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 
                 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 
                 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9,
                  11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 
                 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 4, 6, 7, 9, 11, 0, 2, 
                 4, 6, 7, 9, 11, 12} -> 
                "Lydian", {0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 
                 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 
                 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9,
                  10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 
                 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 
                 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 
                 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9,
                  10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 
                 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 
                 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 
                 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9,
                  10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 
                 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 4, 5, 7, 9, 10, 0, 2, 
                 4, 5, 7, 9, 10, 12} -> 
                "Mixolydian", {0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 
                 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 
                 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 
                 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 
                 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 
                 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8,
                  10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 
                 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 
                 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 
                 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8,
                  10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 
                 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 
                 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 0, 1, 3, 5, 7, 8, 10, 
                 0, 1, 3, 5, 7, 8, 10, 12} -> 
                "Phrygian", {0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 
                 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 
                 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 
                 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 
                 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 
                 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 
                 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 
                 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 
                 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 
                 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 
                 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 
                 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 
                 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 7, 10, 0, 2, 5, 
                 7, 10, 0, 2, 5, 7, 10, 12} -> 
                "Shang", {0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 
                 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 
                 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 
                 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 
                 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 
                 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 
                 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 
                 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 
                 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 
                 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 
                 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 
                 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 
                 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 10, 0, 3, 5, 7, 
                 10, 0, 3, 5, 7, 10, 12} -> 
                "Yu                                   ", {0, 2, 5, 7, 9, 0, 2,
                  5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 5, 7, 9, 0, 2, 
                 5, 7, 9, 12} -> "Zhi"}, MenuStyle -> Small], 
              "                    ", 
              SetterBar[
               
               Dynamic[$CellContext`V$$], {$CellContext`Mono -> 
                Tooltip[
                 "\[CapitalMu]", "Monophonic", TooltipDelay -> 
                  0.5], $CellContext`Poly -> 
                Tooltip[
                 "\[CapitalRho]", "Polyphonic", TooltipDelay -> 0.5]}]}], 
            Row[{""}], 
            Row[{"SERIES      ", 
              PopupMenu[
               
               Dynamic[$CellContext`F$$], {$CellContext`BaguenaudierNumbers -> 
                "Baguenaudier", $CellContext`MBellB -> 
                "Bell", $CellContext`MBernoulliB -> 
                "Bernoulli", $CellContext`BracketingsNumbers -> 
                "Bracketing", $CellContext`MCarmichaelLambda -> 
                "Carmichael Lambda", $CellContext`CenteredCubicNumbers -> 
                "Centered Cubic", $CellContext`CenteredPentagonalNumbers -> 
                "Centered Pentagonal", $CellContext`CenteredSquareNumbers -> 
                "Centered Square", $CellContext`CenteredTriangularNumbers -> 
                "Centered Triangular", $CellContext`CentralTrinomialNumbers -> 
                "Central Trinomial", $CellContext`ColumnConvexNumbers -> 
                "Column Convex", $CellContext`ChessNumbers -> 
                "Chess", $CellContext`ConstantNumbers -> 
                "Constant", $CellContext`CubicNumbers -> 
                "Cubic", $CellContext`DelannoyNumbers -> 
                "Delannoy", $CellContext`MDivisorSigma -> 
                "DivisorSigma", $CellContext`MEulerE -> 
                "Euler E", $CellContext`MEulerPhi -> 
                "Euler Phi", $CellContext`EvenNumbers -> 
                "Even", $CellContext`MFibonacci -> 
                "Fibonacci", $CellContext`MFiniteGroupCount -> 
                "Finite Groups", $CellContext`HexagonalPyramidalNumbers -> 
                "Hexagonal Pyramidal", $CellContext`MIntegerExponent -> 
                "Integer Exponent", $CellContext`MLucasL -> 
                "Lucas", $CellContext`MMangoldtLambda -> 
                "Mangoldt Lambda", $CellContext`MotzkinNumbers -> 
                "Motzkin", $CellContext`NaturalNumbers -> 
                "Natural", $CellContext`MNorlundB -> 
                "Norlund", $CellContext`OctahedralNumbers -> 
                "Octahedral", $CellContext`OddNumbers -> 
                "Odd", $CellContext`PentatopeNumbers -> 
                "Pentatope", $CellContext`MPartitionsP -> 
                "Partitions", $CellContext`MPrime -> 
                "Prime", $CellContext`MPrimePi -> 
                "PrimePi", $CellContext`MPrimeNu -> 
                "PrimeNu", $CellContext`PronicNumbers -> 
                "Pronic", $CellContext`QuarticNumbers -> 
                "Quartic", $CellContext`MRamanujanTau -> 
                "Ramanujan Tau", $CellContext`RhombicDodecahedralNumbers -> 
                "Rhombic Dodecahedral", $CellContext`Rule50Numbers -> 
                "Rule 50", $CellContext`Rule94Numbers -> 
                "Rule 94", $CellContext`MSubfactorial -> 
                "Subfactorial", $CellContext`SquareNumbers -> 
                "Square", $CellContext`SquarePyramidalNumbers -> 
                "Square Pyramidal", $CellContext`SquareTriangularNumbers -> 
                "Square Triangular", $CellContext`StackPolyominosNumbers -> 
                "Stack Polyominos", $CellContext`StarNumbers -> 
                "Star", $CellContext`TriangularNumbers -> 
                "Triangulars", $CellContext`TribonacciNumbers -> 
                "Tribonacci", $CellContext`TetrahedralNumbers -> 
                "Tetrahedral", $CellContext`TetranacciNumbers -> 
                "Tetranacci", $CellContext`TriangleCountingNumbers -> 
                "Triangle Counting", $CellContext`TritriangularNumbers -> 
                "Tritriangular", $CellContext`TruncatedTetrahedralNumbers -> 
                "Truncated Tetrahedral", $CellContext`MPartitionsQ -> 
                "Unrestricted Partitions"}, MenuStyle -> Small], 
              "                    ", 
              SetterBar[
               Dynamic[$CellContext`d$$], {
               Flatten -> 
                Tooltip[
                 "\!\(\*StyleBox[\"#\",FontSize->9,FontWeight->\"Plain\",\
FontSlant->\"Italic\"]\)", "Pitches from successive cardinalities.", 
                  TooltipDelay -> 0.5], Differences -> 
                Tooltip[
                 "\!\(\*StyleBox[\"\[CapitalDelta]\",FontSize->9,FontWeight->\
\"Plain\"]\)", "Pitches from successive differences.", TooltipDelay -> 
                  0.5]}]}], 
            Row[{""}], 
            Row[{""}], 
            Row[{"BASE M      ", 
              Manipulator[
               Dynamic[$CellContext`mB$$], {2, 36, 1}, Appearance -> 
               "Labeled"]}], 
            Row[{"OFFSET      ", 
              Manipulator[
               Dynamic[$CellContext`mI$$], {1, 36, 1}, Appearance -> 
               "Labeled"]}], 
            Row[{""}], 
            Row[{""}], 
            Row[{"FINE 1      ", 
              Manipulator[
               Dynamic[$CellContext`fT1$$], {-24, 24, 1}, Appearance -> 
               "Labeled"]}], 
            Row[{"FINE 2      ", 
              Manipulator[
               Dynamic[$CellContext`fT2$$], {-24, 24, 1}, Appearance -> 
               "Labeled"]}], 
            Row[{"FINE 3      ", 
              Manipulator[
               Dynamic[$CellContext`fT3$$], {-24, 24, 1}, Appearance -> 
               "Labeled"]}], 
            Row[{""}], 
            Row[{"LENGTH    ", 
              Manipulator[
               Dynamic[$CellContext`ln$$], {1, 253, 1}, Appearance -> 
               "Labeled"]}], 
            Row[{"QUAVER    ", 
              Manipulator[
               Dynamic[$CellContext`s$$], {1, 64, 1}, Appearance -> 
               "Labeled"]}]}]]}, 
       "Options" :> {ControlPlacement -> {Left, Right}}, 
       "DefaultOptions" :> {}],
      ImageSizeCache->{619., {214., 219.}},
      SingleEvaluation->True],
     Deinitialization:>None,
     DynamicModuleValues:>{},
     Initialization:>({$CellContext`Harmonize[
          Pattern[$CellContext`exp$, 
           Blank[]]] := 
        With[{$CellContext`n1$ = 
           Take[$CellContext`exp$, {1}], $CellContext`n2$ = 
           Take[$CellContext`exp$, {2}], $CellContext`n3$ = 
           Take[$CellContext`exp$, {3}]}, 
          If[
           Or[
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ + 3], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ + 7], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              3, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              3, $CellContext`n3$ == $CellContext`n1$ + 3], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              3, $CellContext`n3$ == $CellContext`n1$ + 7], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              7, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              7, $CellContext`n3$ == $CellContext`n1$ + 3], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              7, $CellContext`n3$ == $CellContext`n1$ + 7], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ + 4], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              4, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              4, $CellContext`n3$ == $CellContext`n1$ + 4], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              4, $CellContext`n3$ == $CellContext`n1$ + 7], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              7, $CellContext`n3$ == $CellContext`n1$ + 4], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ - 3], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ + 5], 
            And[$CellContext`n2$ == $CellContext`n1$ - 
              3, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ - 
              3, $CellContext`n3$ == $CellContext`n1$ - 3], 
            
            And[$CellContext`n2$ == $CellContext`n1$ - 
              3, $CellContext`n3$ == $CellContext`n1$ + 5], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              5, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              5, $CellContext`n3$ == $CellContext`n1$ - 3], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              5, $CellContext`n3$ == $CellContext`n1$ + 5], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ - 4], 
            
            And[$CellContext`n2$ == $CellContext`n1$ - 
              4, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ - 
              4, $CellContext`n3$ == $CellContext`n1$ - 4], 
            
            And[$CellContext`n2$ == $CellContext`n1$ - 
              4, $CellContext`n3$ == $CellContext`n1$ + 5], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              5, $CellContext`n3$ == $CellContext`n1$ - 4], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              0, $CellContext`n3$ == $CellContext`n1$ + 9], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              5, $CellContext`n3$ == $CellContext`n1$ + 9], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              9, $CellContext`n3$ == $CellContext`n1$ + 0], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              9, $CellContext`n3$ == $CellContext`n1$ + 5], 
            
            And[$CellContext`n2$ == $CellContext`n1$ + 
              9, $CellContext`n3$ == $CellContext`n1$ + 9]], 
           
           Flatten[{$CellContext`n1$ + FE`fT1$$50, $CellContext`n2$ + 
             FE`fT2$$50, $CellContext`n3$ + FE`fT3$$50}], 
           If[
            
            Or[$CellContext`n2$ == $CellContext`n1$ + 
              3, $CellContext`n2$ == $CellContext`n1$ - 3], 
            Flatten[{$CellContext`n1$, $CellContext`n2$}], 
            If[
             
             Or[$CellContext`n2$ == $CellContext`n1$ + 
               4, $CellContext`n2$ == $CellContext`n1$ - 4], 
             Flatten[{$CellContext`n1$, $CellContext`n2$}], 
             If[
              
              Or[$CellContext`n2$ == $CellContext`n1$ + 
                5, $CellContext`n2$ == $CellContext`n1$ - 5], 
              Flatten[{$CellContext`n1$, $CellContext`n2$}], 
              If[
               
               Or[$CellContext`n2$ == $CellContext`n1$ + 
                 7, $CellContext`n2$ == $CellContext`n1$ - 7], 
               Flatten[{$CellContext`n1$, $CellContext`n2$}], 
               If[
                
                Or[$CellContext`n2$ == $CellContext`n1$ + 
                  8, $CellContext`n2$ == $CellContext`n1$ - 8], 
                Flatten[{$CellContext`n1$, $CellContext`n2$}], 
                If[
                 
                 Or[$CellContext`n2$ == $CellContext`n1$ + 
                   9, $CellContext`n2$ == $CellContext`n1$ - 9], 
                 
                 Flatten[{$CellContext`n1$ + FE`fT1$$50, $CellContext`n2$ + 
                   FE`fT2$$50}], 
                 Flatten[{$CellContext`n1$ + FE`fT1$$50}]]]]]]]]], 
        Attributes[$CellContext`exp$] = {Temporary}, 
        Attributes[$CellContext`n1$] = {Temporary}, 
        Attributes[$CellContext`n2$] = {Temporary}, 
        Attributes[$CellContext`n3$] = {Temporary}, FE`fT1$$50 = -12, 
        FE`fT2$$50 = 0, FE`fT3$$50 = 12, $CellContext`Mono[
          Pattern[$CellContext`exp$, 
           Blank[]]] := With[{$CellContext`arb$ = $CellContext`exp$}, 
          Map[Take[$CellContext`arb$, {#}]& , 
           Mod[
            FE`d$$50[
             FE`F$$50[FE`ln$$50]], FE`mB$$50, FE`mI$$50]]], 
        Attributes[$CellContext`arb$] = {Temporary}, FE`d$$50 = Differences, 
        FE`F$$50 = $CellContext`SquareNumbers, $CellContext`SquareNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x + 1))/(
            1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], FE`ln$$50 = 100, 
        FE`mB$$50 = 11, FE`mI$$50 = 1, $CellContext`Poly[
          Pattern[$CellContext`exp$, 
           Blank[]]] := $CellContext`MovingWindow[$CellContext`Harmonize, 
          $CellContext`Mono[FE`m$$50], 3, 3], $CellContext`MovingWindow[
          Pattern[$CellContext`f, 
           Blank[]], 
          Pattern[$CellContext`exp, 
           Blank[]], 
          Pattern[$CellContext`n, 
           Blank[]], 
          Pattern[$CellContext`o, 
           Blank[]]] := 
        Module[{$CellContext`len = 
           Length[$CellContext`exp], $CellContext`end}, $CellContext`end = 
           Min[$CellContext`n, $CellContext`len] - 1; Table[
            Apply[$CellContext`f, {
              Part[$CellContext`exp, 
               
               Span[$CellContext`i, $CellContext`i + $CellContext`end]]}], \
{$CellContext`i, 1, $CellContext`len - $CellContext`end, $CellContext`o}]], 
        TagSet[$CellContext`MovingWindow, 
         MessageName[$CellContext`MovingWindow, "usage"], 
         "MovingWindow[f, exp, n, o]\ngives a moving window of f over exp by \
n groups and o offset"], 
        FE`m$$50 = {0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7,
          9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9,
          10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 
         10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10,
          0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0,
          2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2,
          3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3,
          5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5,
          7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7,
          9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9,
          10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 
         10, 0, 2, 3, 5, 7, 9, 10, 0, 2, 3, 5, 7, 9, 10, 
         12}, $CellContext`BaguenaudierNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          Series[
          1/((1 - 2 $CellContext`x) (1 - $CellContext`x^2)), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MBellB[
          Pattern[$CellContext`exp, 
           Blank[]]] := BellB[
          Range[$CellContext`exp]], $CellContext`MBernoulliB[
          Pattern[$CellContext`exp, 
           Blank[]]] := Round[
          BernoulliB[
           Range[$CellContext`exp]]], $CellContext`BracketingsNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(1/4) ($CellContext`x - 
            Sqrt[$CellContext`x^2 - 6 $CellContext`x + 1] + 
            1), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`MCarmichaelLambda[
          Pattern[$CellContext`exp, 
           Blank[]]] := CarmichaelLambda[
          Range[$CellContext`exp]], $CellContext`CenteredCubicNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x^3 + 5 $CellContext`x^2 + 
             5 $CellContext`x + 1))/(1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`CenteredPentagonalNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x^2 + 3 $CellContext`x + 1)/(
            1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`CenteredSquareNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x^2 + 2 $CellContext`x + 1)/(
            1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`CenteredTriangularNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          Series[($CellContext`x^2 + $CellContext`x + 1)/(
            1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`CentralTrinomialNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          Series[
          1/Sqrt[($CellContext`x + 1) (1 - 
             3 $CellContext`x)], {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`ColumnConvexNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x (
              1 - $CellContext`x)^3)/((-4) $CellContext`x^3 + 
           7 $CellContext`x^2 - 5 $CellContext`x + 
           1), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`ChessNumbers[
         
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(4 $CellContext`x^5 - 8 $CellContext`x^4 + 
            12 $CellContext`x^2 + 5 $CellContext`x + 1)/(
            1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`ConstantNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          Series[
          1/(1 - $CellContext`x), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`CubicNumbers[
         
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x^2 + 4 $CellContext`x + 1))/(
            1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`DelannoyNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          Series[
          1/Sqrt[$CellContext`x^2 - 6 $CellContext`x + 1], {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MDivisorSigma[
          Pattern[$CellContext`exp, 
           Blank[]]] := DivisorSigma[0, 
          Range[$CellContext`exp]], $CellContext`MEulerE[
          Pattern[$CellContext`exp, 
           Blank[]]] := EulerE[
          Range[$CellContext`exp]], $CellContext`MEulerPhi[
          Pattern[$CellContext`exp, 
           Blank[]]] := EulerPhi[
          Range[$CellContext`exp]], $CellContext`EvenNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(2 $CellContext`x)/(1 - $CellContext`x)^2, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MFibonacci[
          Pattern[$CellContext`exp, 
           Blank[]]] := Fibonacci[
          Range[$CellContext`exp]], $CellContext`MFiniteGroupCount[
          Pattern[$CellContext`exp, 
           Blank[]]] := FiniteGroupCount[
          Range[$CellContext`exp]], $CellContext`HexagonalPyramidalNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x (3 $CellContext`x + 1))/(
            1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`MIntegerExponent[
          Pattern[$CellContext`exp, 
           Blank[]]] := IntegerExponent[
          Range[$CellContext`exp], 2], $CellContext`MLucasL[
          Pattern[$CellContext`exp, 
           Blank[]]] := LucasL[
          Range[$CellContext`exp]], $CellContext`MMangoldtLambda[
          Pattern[$CellContext`exp, 
           Blank[]]] := Round[
          MangoldtLambda[
           Range[$CellContext`exp]]], $CellContext`MotzkinNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(-$CellContext`x + 1 - 
            Sqrt[(-3) $CellContext`x^2 - 2 $CellContext`x + 1])/(
           2 $CellContext`x^2), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`NaturalNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[$CellContext`x/(1 - $CellContext`x)^2, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MNorlundB[
          Pattern[$CellContext`exp, 
           Blank[]]] := Round[
          NorlundB[
           Range[$CellContext`exp], 1]], $CellContext`OctahedralNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x + 1)^2)/(
            1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`OddNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x (1 + $CellContext`x))/(
            1 - $CellContext`x)^2, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`PentatopeNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[$CellContext`x/(1 - $CellContext`x)^5, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MPartitionsP[
         
          Pattern[$CellContext`exp, 
           Blank[]]] := PartitionsP[
          Range[$CellContext`exp]], $CellContext`MPrime[
          Pattern[$CellContext`exp, 
           Blank[]]] := Prime[
          Range[$CellContext`exp]], $CellContext`MPrimePi[
          Pattern[$CellContext`exp, 
           Blank[]]] := PrimePi[
          Range[$CellContext`exp]], $CellContext`MPrimeNu[
          Pattern[$CellContext`exp, 
           Blank[]]] := PrimeNu[
          Range[$CellContext`exp]], $CellContext`PronicNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(2 $CellContext`x)/(1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`QuarticNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(($CellContext`x ($CellContext`x + 1)) ($CellContext`x^2 + 
             10 $CellContext`x + 1))/(1 - $CellContext`x)^5, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MRamanujanTau[
          Pattern[$CellContext`exp, 
           Blank[]]] := RamanujanTau[
          Range[$CellContext`exp]], $CellContext`RhombicDodecahedralNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x^3 + 11 $CellContext`x^2 + 
             11 $CellContext`x + 1))/(1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`Rule50Numbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          Series[
          1/(($CellContext`x - 1) (4 $CellContext`x - 1)), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`Rule94Numbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[((2 $CellContext`x + 1) (16 $CellContext`x^4 - 
             5 $CellContext`x - 
             1))/(((($CellContext`x - 1) ($CellContext`x + 1)) (
             4 $CellContext`x - 1)) (4 $CellContext`x + 1)), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MSubfactorial[
          Pattern[$CellContext`exp, 
           Blank[]]] := Subfactorial[
          Range[$CellContext`exp]], $CellContext`SquarePyramidalNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x + 1))/(
            1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`SquareTriangularNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x + 1))/((
            1 - $CellContext`x) ($CellContext`x^2 - 34 $CellContext`x + 
            1)), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`StackPolyominosNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(1 - $CellContext`x^2)/((-$CellContext`x^2 - $CellContext`x + 
            1) (-$CellContext`x^2 + $CellContext`x + 1)), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`StarNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x ($CellContext`x^2 + 10 $CellContext`x + 1))/(
            1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`TriangularNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[$CellContext`x/(1 - $CellContext`x)^3, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`TribonacciNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[$CellContext`x/(-$CellContext`x^3 - $CellContext`x^2 - \
$CellContext`x + 
           1), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`TetrahedralNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[$CellContext`x/(1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`TetranacciNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[$CellContext`x/(-$CellContext`x^4 - $CellContext`x^3 - \
$CellContext`x^2 - $CellContext`x + 
           1), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`TriangleCountingNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[$CellContext`x^4/((1 - $CellContext`x)^3 (
            1 - $CellContext`x^2)), {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`TritriangularNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[(3 $CellContext`x)/(1 - $CellContext`x)^5, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], \
$CellContext`TruncatedTetrahedralNumbers[
          Pattern[$CellContext`exp, 
           Blank[]]] := CoefficientList[
          
          Series[($CellContext`x (10 $CellContext`x^2 + 12 $CellContext`x + 
             1))/(1 - $CellContext`x)^4, {$CellContext`x, 
            0, $CellContext`exp}], $CellContext`x], $CellContext`MPartitionsQ[
         
          Pattern[$CellContext`exp, 
           Blank[]]] := PartitionsQ[
          Range[$CellContext`exp]]}; Typeset`initDone$$ = True),
     SynchronousInitialization->True,
     UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
     UnsavedVariables:>{Typeset`initDone$$},
     UntrackedVariables:>{Typeset`size$$}], "Manipulate",
    Deployed->True,
    StripOnInput->False],
   Manipulate`InterpretManipulate[1]],
  DynamicModuleValues:>{}]], "Output",ExpressionUUID->"8555985b-0a29-4641-\
8075-a5ef02937fcf"]
}, Open  ]]
},
WindowSize->{1201, 996},
Visible->True,
ScrollingOptions->{"VerticalScrollRange"->Fit},
ShowCellBracket->Automatic,
Deployed->True,
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1488, 33, 61597, 1312, 2945, "Input",ExpressionUUID->"658d531f-1b5b-471b-ad84-f98883b145c1",
 CellOpen->False,
 InitializationCell->True],
Cell[CellGroupData[{
Cell[63110, 1349, 41539, 906, 3071, "Input",ExpressionUUID->"4e5252f8-2ed5-42ad-8cff-f7f0846843c6",
 CellOpen->False,
 InitializationCell->True],
Cell[104652, 2257, 71490, 1356, 452, "Output",ExpressionUUID->"8555985b-0a29-4641-8075-a5ef02937fcf"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature HvpoIyP1iDKN9Bwd6UKTW@q3 *)