i = "Bass";
a = {SoundNote[{"C3", "E3"}, 0.25, i], SoundNote["G3", 0.25, i],
    SoundNote["E3", 0.3, i], SoundNote[{"F2", "A2"}, 0.25, i],
    SoundNote["C3", 0.25, i], SoundNote["A2", 0.3, i],
    SoundNote[{"C2", "E2"}, 0.25, i], SoundNote["G2", 0.25, i],
    SoundNote["E2", 0.3, i], SoundNote[{"F2", "A2"}, 0.25, i],
    SoundNote["C3", 0.25, i], SoundNote["A2", 0.3, i]};
b = {SoundNote[{"C3", "E3"}, 0.25, i], SoundNote["E3", 0.25, i],
    SoundNote["G3", 0.3, i]};
c = {SoundNote[{"C3", "E3"}, 0.25, i], SoundNote["G3", 0.25, i],
    SoundNote["E3", 0.3, i], SoundNote[{"F2", "A2"}, 0.25, i],
    SoundNote["C3", 0.25, i], SoundNote["A2", 0.3, i],
    SoundNote[{"C2", "E2"}, 0.25, i], SoundNote["G2", 0.25, i],
    SoundNote["E2", 0.3, i], SoundNote[{"C2", "E2"}, 0.3, i]};
s = Sound[{a, a, a, b, b, a, a, a, b, b, c}]
Export["dan_cahoon.midi", s, "Midi"]