S= Sound[{
   SoundNote[{"C4","E4"},.3,"Xylophone"],
   SoundNote[{"D4","F4"},.3,"Xylophone"],
   SoundNote[{"E4","G4"},.3,"Xylophone"],
   SoundNote[{"F4","A4"},.5,"Xylophone"],
   SoundNote[{"G4","B4"},.5,"Xylophone"],
   SoundNote[{"A4","C5"},.7,"Xylophone"],
   SoundNote[{"B4","D5"},.6,"Xylophone"],
   SoundNote[{"G4","B4"},.3,"Xylophone"],
   SoundNote[{"A4","C5"},.5,"Xylophone"],
   SoundNote[{"G4","B4"},.5,"Xylophone"],
   SoundNote[{"F4","A4"},.5,"Xylophone"]}]
Export["dan_mark.midi", S, "Midi"]