a = {SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"A3"}, 0.4], SoundNote[{"A2"}, 0.4], SoundNote[{"A3"}, 0.4], SoundNote[{"A2"}, 0.4], SoundNote[{"F3"}, 0.4], SoundNote[{"F2"}, 0.4], SoundNote[{"F3"}, 0.4], SoundNote[{"F2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"F3"}, 0.4], SoundNote[{"F2"}, 0.4], SoundNote[{"G2"}, 0.8], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4]}; b = {SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"A3"}, 0.4], SoundNote[{"A2"}, 0.4], SoundNote[{"A3"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"F3"}, 0.4], SoundNote[{"F2"}, 0.4], SoundNote[{"F2"}, 0.8], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"G2"}, 0.8], SoundNote[{"G2"}, 0.8], SoundNote[{"F3"}, 0.8], SoundNote[{"E3"}, 0.4], SoundNote[{"D3"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"G2"}, 0.4], SoundNote[{"A3"}, 0.4], SoundNote[{"A2"}, 0.4], SoundNote[{"A3"}, 0.4], SoundNote[{"G3"}, 0.4], SoundNote[{"F3"}, 0.4], SoundNote[{"F2"}, 0.4], SoundNote[{"F2"}, 0.8], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"C3"}, 0.4], SoundNote[{"C2"}, 0.4], SoundNote[{"G2"}, 0.8], SoundNote[{"G2"}, 0.8], SoundNote[{"F2"}, 0.8], SoundNote[{"E3"}, 0.4], SoundNote[{"D3"}, 0.4], SoundNote[{"C3"}, 0.4]}; S = Sound[{SoundNote[{"C5", "G4", "E4", "C4"}, {0, .8}], SoundNote[{"C5", "G4", "E4", "C4"}, {.8, 1.6}], SoundNote[{"G4", "D4", "B3"}, {1.6, 2.4}], SoundNote[{"G4", "D4", "B3"}, {2.4, 3.2}], SoundNote[{"A4", "E4", "C4"}, {3.2, 4.0}], SoundNote[{"A4", "E4", "C4"}, {4.0, 4.4}], SoundNote[{"G4"}, {4.4, 4.8}], SoundNote[{"A4", "F4", "C4"}, {4.8, 5.2}], SoundNote[{"E4"}, {5.2, 5.6}], SoundNote[{"A4", "F4", "D4"}, {5.6, 6.4}], SoundNote[{"G4", "E4", "C4"}, {6.4, 7.2}], SoundNote[{"G4", "E4", "C4"}, {7.2, 8.0}], SoundNote[{"G4", "D4", "B3"}, {8.0, 8.8}], SoundNote[{"G4", "D4", "B3"}, {8.8, 9.6}], SoundNote[{"A4", "F4"}, {9.6, 10.4}], SoundNote[{"G4", "E4"}, {10.4, 10.8}], SoundNote[{"F4", "D4"}, {10.8, 11.2}], SoundNote[{"G4", "E4", "C4"}, {11.2, 12.0}], SoundNote[{"G4"}, {12.2, 12.6}], SoundNote[{"G4"}, {12.6, 12.8}], SoundNote[{"G4"}, {12.8, 13.2}], SoundNote[{"E4", "C4"}, {12.8, 13.6}], SoundNote[{"G4"}, {13.2, 13.4}], SoundNote[{"A4"}, {13.4, 14.0}], SoundNote[{"C4"}, {13.6, 14.0}], SoundNote[{"E4"}, {14.0, 14.2}], SoundNote[{"C4", "G3"}, {14.0, 14.4}], SoundNote[{"G4"}, {14.4, 14.8}], SoundNote[{"G4"}, {14.8, 15.2}], SoundNote[{"B3", "D4"}, {14.4, 15.2}], SoundNote[{"G4", "D4"}, {15.2, 16.0}], SoundNote[{"C5"}, {15.2, 15.6}], SoundNote[{"D5"}, {15.6, 16.0}], SoundNote[{"E5"}, {16.0, 16.2}], SoundNote[{"C5", "A4", "E4"}, {16.0, 16.8}], SoundNote[{"E5"}, {16.2, 16.6}], SoundNote[{"C5", "A4"}, {17.2, 17.6}], SoundNote[{"E5"}, {16.6, 17.6}], SoundNote[{"B4", "G4"}, {17.6, 18.0}], SoundNote[{"D5"}, {17.6, 18.0}], SoundNote[{"A4", "E4"}, {18.0, 18.8}], SoundNote[{"D5"}, {18.0, 18.4}], SoundNote[{"C5"}, {18.4, 18.8}], SoundNote[{"C4"}, {18.8, 19.6}], SoundNote[{"A4", "F4", "D4"}, {18.8, 19.2}], SoundNote[{"A4", "F4", "D4"}, {19.2, 19.6}], SoundNote[{"E5"}, {19.6, 19.8}], SoundNote[{"G4", "E4"}, {19.6, 20.4}], SoundNote[{"E5"}, {19.8, 20.4}], SoundNote[{"F5"}, {20.4, 20.8}], SoundNote[{"E5"}, {20.8, 21.0}], SoundNote[{"C5", "G4"}, {20.4, 21.2}], SoundNote[{"E5"}, {21.0, 21.6}], SoundNote[{"D5"}, {21.6, 22.0}], SoundNote[{"B4", "G4"}, {21.2, 22.0}], SoundNote[{"E5"}, {22.4, 22.6}], SoundNote[{"D5"}, {22.6, 22.8}], SoundNote[{"B4", "G4"}, {22.0, 22.8}], SoundNote[{"D5"}, {22.8, 23.2}], SoundNote[{"C5"}, {23.2, 25.2}], SoundNote[{"G4"}, {25.8, 26.0}], SoundNote[{"A4", "F4"}, {22.8, 23.6}], SoundNote[{"G4", "C4"}, {23.6, 24.0}], SoundNote[{"C4", "F4"}, {24.0, 24.4}], SoundNote[{"G4", "F4", "C4"}, {24.4, 25.2}], SoundNote[{"G4", "F4", "C4"}, {25.2, 25.4}], SoundNote[{"G4"}, {26.0, 26.4}], SoundNote[{"E4", "C4"}, {26.0, 26.8}], SoundNote[{"G4"}, {26.4, 26.6}], SoundNote[{"A4"}, {26.6, 27.2}], SoundNote[{"C4"}, {26.8, 27.2}], SoundNote[{"E4"}, {27.2, 27.4}], SoundNote[{"C4", "G3"}, {27.2, 27.6}], SoundNote[{"G4"}, {27.6, 28.0}], SoundNote[{"G4"}, {28.0, 28.4}], SoundNote[{"B3", "D4"}, {27.6, 28.4}], SoundNote[{"G4", "D4"}, {28.4, 30.2}], SoundNote[{"C5"}, {28.4, 28.8}], SoundNote[{"D5"}, {28.8, 29.2}], SoundNote[{"E5"}, {29.2, 29.4}], SoundNote[{"C5", "A4", "E4"}, {29.6, 30.4}], SoundNote[{"E5"}, {29.4, 29.8}], SoundNote[{"C5", "A4"}, {30.4, 30.8}], SoundNote[{"E5"}, {29.8, 30.8}], SoundNote[{"B4", "G4"}, {30.8, 31.2}], SoundNote[{"D5"}, {30.8, 31.2}], SoundNote[{"A4", "E4"}, {31.2, 32.0}], SoundNote[{"D5"}, {31.2, 31.6}], SoundNote[{"C5"}, {31.6, 32.0}], SoundNote[{"C4"}, {32.0, 32.8}], SoundNote[{"A4", "F4", "D4"}, {32.0, 32.4}], SoundNote[{"A4", "F4", "D4"}, {32.4, 32.8}], SoundNote[{"E5"}, {32.8, 33.0}], SoundNote[{"G4", "E4"}, {33.0, 33.8}], SoundNote[{"E5"}, {33.0, 33.6}], SoundNote[{"F5"}, {33.6, 34.0}], SoundNote[{"E5"}, {34.0, 34.2}], SoundNote[{"C5", "G4"}, {33.6, 34.4}], SoundNote[{"E5"}, {34.2, 34.8}], SoundNote[{"D5"}, {34.8, 35.2}], SoundNote[{"B4", "G4"}, {34.4, 35.2}], SoundNote[{"E5"}, {35.6, 35.8}], SoundNote[{"D5"}, {35.8, 36.0}], SoundNote[{"B4", "G4"}, {35.2, 36.0}], SoundNote[{"D5"}, {36.0, 36.4}], SoundNote[{"C5"}, {36.4, 38.4}], SoundNote[{"A4", "F4"}, {36.0, 36.8}], SoundNote[{"G4", "C4"}, {36.8, 37.2}], SoundNote[{"C4", "F4"}, {37.2, 37.6}], SoundNote[{"G4", "F4", "C4"}, {37.6, 38.4}], SoundNote[{"G4", "F4", "C4"}, {38.4, 38.6}], a, b}] Export["thomas_benson.midi",S,"Midi"]