S=Sound[{SoundNote[{"C", "E"}], SoundNote[{"D", "F"}], SoundNote[{"E", "G"}], SoundNote[{"D", "B"}], SoundNote[{"E", "C5"}, 1.5], SoundNote["G", 0.5], SoundNote["C", 1.5] }]
Export["jack_sun.midi",S, "Midi"]