a = {SoundNote[{"Eb"}, 0.25], SoundNote[{"G3"}, 0.25],
   SoundNote[{"C4"}, 0.25], SoundNote[{"G3"}, 0.25],
   SoundNote[{"Eb"}, 0.25], SoundNote["G3", 0.25],
   SoundNote["C4", 0.25], SoundNote[{"G3"}, 0.25],
   SoundNote[{"F"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"C4"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"F"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"C4"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"G"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"Eb"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"G"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"Eb"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"F"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"D"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"F"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"D"}, 0.25], SoundNote[{"Bb3"}, 0.25]};
b = {SoundNote[{"C4", "Eb"}, 0.25], SoundNote[{"G3"}, 0.25],
   SoundNote[{"C4", "Eb"}, 0.25], SoundNote[{"G3"}, 0.25],
   SoundNote[{"C4", "Eb"}, 0.25], SoundNote[{"G3"}, 0.25],
   SoundNote[{"C4", "Eb"}, 0.25], SoundNote[{"G3"}, 0.25],
   SoundNote[{"F", "C4"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"F", "C4"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"F", "C4"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"F", "C4"}, 0.25], SoundNote[{"Ab3"}, 0.25],
   SoundNote[{"G", "Eb"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"G", "Eb"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"G", "Eb"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"G", "Eb"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"F", "D"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"F", "D"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"F", "D"}, 0.25], SoundNote[{"Bb3"}, 0.25],
   SoundNote[{"F", "D"}, 0.25], SoundNote[{"Bb3"}, 0.25]};
c = {SoundNote[{"Eb", "Bb"}, {0, 0.5}], SoundNote[{"Bb"}, {.5, .75}],
   SoundNote[{"C5"}, {.75, 1.5}], SoundNote[{"Bb"}, {1.5, 1.75}],
   SoundNote[{"Eb"}, {1.75, 2}]};
d = {SoundNote[{"Eb", "Ab"}, {0, 0.5}],
   SoundNote[{"Ab"}, {0.5, .75}], SoundNote [{"G"}, {.75, 1.5}],
   SoundNote[{"F"}, {1.5, 1.75}], SoundNote[{"Eb"}, {1.75, 2}]};
S = Sound[{SoundNote[{"C2", "C3"}, {0, 2}],
   SoundNote[{"Ab2", "Ab3"}, {2, 4}],
   SoundNote[{"Eb", "Eb3"}, {4, 6}],
   SoundNote[{"Bb3", "Bb2"}, {6, 8}],
   SoundNote[{"C2", "C3"}, {8, 10}],
   SoundNote[{"Ab2", "Ab3"}, {10, 12}],
   SoundNote[{"Eb", "Eb3"}, {12, 14}],
   SoundNote[{"Bb3", "Bb2"}, {14, 16}],
   SoundNote[{"C2", "C3"}, {16, 18}],
   SoundNote[{"Ab2", "Ab3"}, {18, 20}],
   SoundNote[{"Eb", "Eb3"}, {20, 22}],
   SoundNote[{"Bb3", "Bb2"}, {22, 24}],
   SoundNote[{"C2", "C3"}, {24, 26}],
   SoundNote[{"Ab2", "Ab3"}, {26, 28}],
   SoundNote[{"Eb", "Eb3"}, {28, 30}],
   SoundNote[{"Bb3", "Bb2"}, {30, 32}],
   SoundNote[{"C", "C3"}, {32, 34}],
   SoundNote[{"Ab2", "Ab3"}, {34, 36}],
   SoundNote[{"Eb3", "Eb2"}, {36, 38}],
   SoundNote[{"D", "D3"}, {38, 40}], a, a, b, b, c, c, c, d}];

Export["sylvester_burley.midi", S, "Midi"]