S = Sound[{
   SoundNote["E5", .25], SoundNote["D#5", .25],
   SoundNote["E5", .25], SoundNote["D#5", .25], SoundNote["E5", .25],
   SoundNote["B4", .25], SoundNote["D5", .25], SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .25],
   SoundNote["C4", .25], SoundNote["E4", .25], SoundNote["A4", .25],
   SoundNote["B4", .25], SoundNote["E2", .25],  SoundNote["E3", .25],
   SoundNote["G#3", .25],
   SoundNote["E4", .25], SoundNote["G#4", .25], SoundNote["B4", .25],
   SoundNote["C5", .25], SoundNote["A2", .25],  SoundNote["E3", .25],
   SoundNote["A3", .5], SoundNote["E4", .25], SoundNote["E5", .25],
   SoundNote["D#5", .25],  SoundNote["E5", .25],
   SoundNote["D#5", .25], SoundNote["E5", .25], SoundNote["B4", .25],
   SoundNote["D5", .25], SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .25],
   SoundNote["C4", .25], SoundNote["E4", .25], SoundNote["A4", .25],
   SoundNote["B4", .25], SoundNote["E2", .25],  SoundNote["E3", .25],
   SoundNote["G#3", .25],
   SoundNote["E4", .25], SoundNote["C5", .25], SoundNote["B4", .25],
   SoundNote["A4", .25], SoundNote["A2", .25],  SoundNote["E3", .25],
   SoundNote["A3", .25], 
   SoundNote["E5", .25], SoundNote["D#5", .25], SoundNote["E5", .25],
   SoundNote["D#5", .25], SoundNote["E5", .25], SoundNote["B4", .25],
   SoundNote["D5", .25], SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .25],
   SoundNote["C4", .25], SoundNote["E4", .25], SoundNote["A4", .25],
   SoundNote["B4", .25],
   SoundNote["E2", .25],  SoundNote["E3", .25], SoundNote["G#3", .25],
   SoundNote["E4", .25], SoundNote["G#4", .25], SoundNote["B4", .25],
   SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .5],
   SoundNote["E4", .25], SoundNote["E5", .25],
   SoundNote["D#5", .25],  SoundNote["E5", .25],
   SoundNote["D#5", .25], SoundNote["E5", .25], SoundNote["B4", .25],
   SoundNote["D5", .25], SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25],
   SoundNote["A3", .25],
   SoundNote["C4", .25], SoundNote["E4", .25], SoundNote["A4", .25],
   SoundNote["B4", .25],
   SoundNote["E2", .25],  SoundNote["E3", .25], SoundNote["G#3", .25],
   SoundNote["E4", .25], SoundNote["C5", .25], SoundNote["B4", .25],
   SoundNote["A4", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .25],
   SoundNote["B4", .25],  SoundNote["C5", .25],
   SoundNote["D5", .25],  SoundNote["E5", .25],
   SoundNote["C3", .25],  SoundNote["G3", .25], SoundNote["C4", .25],
   SoundNote["G4", .25],  SoundNote["F5", .25],
   SoundNote["E5", .25],  SoundNote["D5", .25],
   SoundNote["G2", .25],  SoundNote["G3", .25], SoundNote["B3", .25],
   SoundNote["F4", .25],  SoundNote["E5", .25],
   SoundNote["D5", .25], SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .25],
   SoundNote["E4", .25], SoundNote["D5", .25],
   SoundNote["C5", .25],  SoundNote["B4", .25],
   SoundNote["E2", .25],  SoundNote["E3", .25],
   SoundNote["E4", .25],  SoundNote["E4", .25],
   SoundNote["E5", .25],  SoundNote["E4", .25],
   SoundNote["E5", .25],  SoundNote["E5", .25], SoundNote["E6", .25],
   SoundNote["D#5", .25], SoundNote["E5", .25], SoundNote["D#5", .25],
   SoundNote["E5", .25], SoundNote["D#5", .25], SoundNote["E5", .25],
   SoundNote["D#5", .25], SoundNote["E5", .25], SoundNote["B4", .25],
   SoundNote["D5", .25], SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25],
   SoundNote["A3", .25], SoundNote["C4", .25], SoundNote["E4", .25], 
   SoundNote["A4", .25], SoundNote["B4", .25],
   SoundNote["E2", .25],  SoundNote["E3", .25], SoundNote["G#3", .25],
   SoundNote["E4", .25], SoundNote["G#4", .25], SoundNote["B4", .25],
   SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .5],
   SoundNote["E4", .25], SoundNote["E5", .25],
   SoundNote["D#5", .25],  SoundNote["E5", .25],
   SoundNote["D#5", .25], SoundNote["E5", .25], SoundNote["B4", .25],
   SoundNote["D5", .25], SoundNote["C5", .25],
   SoundNote["A2", .25],  SoundNote["E3", .25], SoundNote["A3", .25],
   SoundNote["C4", .25], SoundNote["E4", .25], SoundNote["A4", .25],
   SoundNote["B4", .25], SoundNote["E2", .25],  SoundNote["E3", .25],
   SoundNote["G#3", .25],
   SoundNote["E4", .25], SoundNote["C5", .25], SoundNote["B4", .25],
   SoundNote["A4", .25],
   SoundNote["A2", 1],  SoundNote["E3", 1],  SoundNote["A3", 1]
   }]

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