SFiles = Sound[{SoundNote["A2", .19, SoundVolume -> .6],
   SoundNote["C3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["F3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["F3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .55],
   SoundNote["E3", .19, SoundVolume -> .50],
   SoundNote["F3", .19, SoundVolume -> .45],
   SoundNote["E3", .19, SoundVolume -> .40],
   SoundNote["E3", .19, SoundVolume -> .35],
   SoundNote["A4", .60, SoundVolume -> 1],
   SoundNote["A4", .60, SoundVolume -> .7],
   SoundNote["A4", .60, SoundVolume -> .4], SoundNote["A3", .6],
   SoundNote["E4", .6], SoundNote["D4", .6], SoundNote["E4", .6],
   SoundNote["G4", .6], SoundNote["E4", 2.4],
   SoundNote["A2", .19, SoundVolume -> .6],
   SoundNote["C3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["F3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .55],
   SoundNote["E3", .19, SoundVolume -> .50],
   SoundNote["F3", .19, SoundVolume -> .45],
   SoundNote["E3", .19, SoundVolume -> .40],
   SoundNote["E3", .19, SoundVolume -> .35], SoundNote["A3", .6],
   SoundNote["E4", .6], SoundNote["D4", .6], SoundNote["E4", .6],
   SoundNote["A4", .6], SoundNote["E4", 2.4],
   SoundNote["A2", .19, SoundVolume -> .6],
   SoundNote["C3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["F3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .55],
   SoundNote["E3", .19, SoundVolume -> .50],
   SoundNote["F3", .19, SoundVolume -> .45],
   SoundNote["E3", .19, SoundVolume -> .40],
   SoundNote["E3", .19, SoundVolume -> .35], SoundNote["C5", .6],
   SoundNote["B4", .6], SoundNote["A4", .6], SoundNote["G4", .6],
   SoundNote["A4", .6], SoundNote["E4", 2.4],
   SoundNote["A2", .19, SoundVolume -> .6],
   SoundNote["C3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["F3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .55],
   SoundNote["E3", .19, SoundVolume -> .50],
   SoundNote["F3", .19, SoundVolume -> .45],
   SoundNote["E3", .19, SoundVolume -> .40],
   SoundNote["E3", .19, SoundVolume -> .35], SoundNote["C5", .6],
   SoundNote["B4", .6], SoundNote["A4", .6], SoundNote["G4", .6],
   SoundNote["B4", .6], SoundNote["E4", 2.4] 1,
   SoundNote["A2", .19, SoundVolume -> .6],
   SoundNote["C3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["F3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .55],
   SoundNote["E3", .19, SoundVolume -> .50],
   SoundNote["F3", .19, SoundVolume -> .45],
   SoundNote["E3", .19, SoundVolume -> .40],
   SoundNote["E3", .19, SoundVolume -> .35], SoundNote["A3", .6],
   SoundNote["E4", .6], SoundNote["D4", .6], SoundNote["E4", .6],
   SoundNote["G4", .6], SoundNote["E4", 2.4],
   SoundNote["A2", .19, SoundVolume -> .6],
   SoundNote["C3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .6],
   SoundNote["F3", .19, SoundVolume -> .6],
   SoundNote["E3", .19, SoundVolume -> .55],
   SoundNote["E3", .19, SoundVolume -> .50],
   SoundNote["F3", .19, SoundVolume -> .45],
   SoundNote["E3", .19, SoundVolume -> .40],
   SoundNote["E3", .19, SoundVolume -> .35], SoundNote["A4", .6],
   SoundNote["E4", 2.4], SoundNote["A2", 2.4]  1}]
Export["david_robinson.midi", XFiles, "Midi"]