a = {SoundNote["F", 0.125], SoundNote["F", 0.125],
  SoundNote["C5", 0.125], SoundNote["C5", 0.125],
  SoundNote["F5", 0.125], SoundNote["F5", 0.125],
  SoundNote["C5", 0.125], SoundNote["C5", 0.125]}


b2 = {SoundNote[{"F"}, 0.1], SoundNote[{"F"}, 0.1],
  SoundNote[{"C5"}, 0.1], SoundNote[{"D5"}, 0.1],
  SoundNote[{"C5"}, 0.1], SoundNote[{"D5"}, 0.1],
  SoundNote[{"F5"}, 0.1], SoundNote[{"F5"}, 0.1],
  SoundNote[{"C5"}, 0.1], SoundNote[{"C5"}, 0.1]}

c = {SoundNote["F+2", 1.5`], SoundNote["C+2", 0.5`],
  SoundNote["Bb+1", 1.5`]}

S = Sound[{a, a, a, a, b2, b2, b2, b2, c, c}]
Export["michael_pershan.midi", S, "Midi"]