S=Sound[{SoundNote[{"G#", "B"}, 0.5, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "E"}, 1, "Violin"],
  SoundNote[{"G#", "B"}, 0.5, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "E"}, 1, "Violin"],
  SoundNote[{"G#3", "E"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"F#", "A"}, 1, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"G#", "B"}, 1, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 1, "Violin"],
  SoundNote[{"G#", "B"}, 0.5, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "E"}, 1, "Violin"],
  SoundNote[{"G#", "B"}, 0.5, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "E"}, 1, "Violin"],
  SoundNote[{"G#3", "E"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 1, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "E"}, 1, "Violin"],
  SoundNote[{"G#2", "E3"}, 0.5, "Violin"],
  SoundNote[{"E3", "G#3"}, 0.5, "Violin"],
  SoundNote[{"B2", "F#3"}, 1, "Violin"],
  SoundNote[{"E3", "G#3"}, 0.5, "Violin"],
  SoundNote[{"F#3", "A3"}, 0.5, "Violin"],
  SoundNote[{"G#3", "B3"}, 1, "Violin"],
  SoundNote[{"A3", "C#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "B3"}, 0.5, "Violin"],
  SoundNote[{"F#3", "A3"}, 1, "Violin"],
  SoundNote[{"E3", "G#3"}, 0.5, "Violin"],
  SoundNote[{"F#3", "A3"}, 0.5, "Violin"],
  SoundNote[{"B2", "F#3"}, 1, "Violin"],
  SoundNote[{"G#2", "E3"}, 0.5, "Violin"],
  SoundNote[{"E3", "G#3"}, 0.5, "Violin"],
  SoundNote[{"B2", "F#3"}, 1, "Violin"],
  SoundNote[{"E3", "G#3"}, 0.5, "Violin"],
  SoundNote[{"F#3", "A3"}, 0.5, "Violin"],
  SoundNote[{"G#3", "B3"}, 1, "Violin"],
  SoundNote[{"A3", "C#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "B3"}, 0.5, "Violin"],
  SoundNote[{"F#3", "A3"}, 1, "Violin"],
  SoundNote[{"E3", "G#3"}, 0.5, "Violin"],
  SoundNote[{"F#3", "A3"}, 0.5, "Violin"],
  SoundNote[{"B2", "F#3"}, 1, "Violin"],
  SoundNote[{"G#", "B"}, 0.5, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "E"}, 1, "Violin"],
  SoundNote[{"G#3", "B3"}, 0.5, "Violin"],
  SoundNote[{"F#3", "A3"}, 0.5, "Violin"],
  SoundNote[{"E3", "G#3"}, 1, "Violin"],
  SoundNote[{"E3", "G#3"}, 0.5, "Violin"],
  SoundNote[{"B2", "F#3"}, 0.5, "Violin"],
  SoundNote[{"G#2", "E3"}, 1, "Violin"],
  SoundNote[{"G#3", "E"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 1, "Violin"],
  SoundNote[{"F#", "A"}, 0.5, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 1, "Violin"],
  SoundNote[{"E", "G#"}, 0.5, "Violin"],
  SoundNote[{"B3", "F#"}, 0.5, "Violin"],
  SoundNote[{"G#3", "E"}, 1, "Violin"]}]

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