instrument = "ElectricGuitar";
i1 = {SoundNote["B2", {0, 0.56}, instrument],
   SoundNote["D", {0.28, 0.56}, instrument],
   SoundNote["B3", {0.56, 1.12} , instrument],
   SoundNote["B2", {0.84, 1.12}, instrument],
   SoundNote["A3", {1.12, 1.26} , instrument],
   SoundNote["B3", {1.26, 1.40}, instrument],
   SoundNote["D", {1.40, 1.68} , instrument],
   SoundNote["B3", {1.68, 2.24}, instrument],
   SoundNote["F#2", {1.96, 2.24} , instrument]};

i2 = {SoundNote["G2", {0, 0.56}, instrument],
   SoundNote[{"D", "A"}, {0.28, 0.56}, instrument],
   SoundNote["B3", {0.56, 1.12} , instrument],
   SoundNote["G2", {0.84, 1.12}, instrument],
   SoundNote[{"A3", "A"}, {1.12, 1.26} , instrument],
   SoundNote["B3", {1.26, 1.40}, instrument],
   SoundNote["D", {1.40, 1.68} , instrument],
   SoundNote["B3", {1.68, 2.24}, instrument],
   SoundNote["F#2", {1.96, 2.24} , instrument]};

	a = {SoundNote["D", 0.14, instrument],
   SoundNote["F#3", 0.14, instrument],
   SoundNote["B", 0.14, instrument],
   SoundNote["F#3", 0.14, instrument]};
b = {SoundNote["D", 0.14, instrument],
   SoundNote["G#3", 0.14, instrument],
   SoundNote["B", 0.14, instrument],
   SoundNote["G#3", 0.14, instrument]};	
c =  {SoundNote["G", 0.14, instrument],
   SoundNote["B3", 0.14, instrument],
   SoundNote["E", 0.14, instrument],
   SoundNote["B3", 0.14, instrument]};
d =  {SoundNote["E", 0.14, instrument],
   SoundNote["A3", 0.14, instrument],
   SoundNote["C#", 0.14, instrument],
   SoundNote["A3", 0.14, instrument]};
e =  {SoundNote["D5", 0.14, instrument],
   SoundNote["F#", 0.14, instrument],
   SoundNote["B", 0.14, instrument],
   SoundNote["F#", 0.14, instrument]};
f1 =  {SoundNote["D5", 0.14, instrument],
   SoundNote["G#", 0.14, instrument],
   SoundNote["B", 0.14, instrument],
   SoundNote["G#", 0.14, instrument]};
g =  {SoundNote["G5", 0.14, instrument],
   SoundNote["B", 0.14, instrument],
   SoundNote["E5", 0.14, instrument],
   SoundNote["B", 0.14, instrument]};
h =  {SoundNote["E5", 0.14, instrument],
   SoundNote["A", 0.14, instrument],
   SoundNote["C#5", 0.14, instrument],
   SoundNote["A", 0.14, instrument]};
a4 = {a, a, a, a};
b4 = {b, b, b, b};
c4 = {c, c, c, c};
d4 = {d, d, d, d};
e4 = {e, e, e, e};
f4 = {f1, f1, f1, f1};
g4 = {g, g, g, g};
h4 = {h, h, h, h};
seq1 = {e4, f4, g4, h4};

S = Sound[{i1, i2, i1, i2, a4, b4, c4, d4, seq1, seq1, seq1}]
Export["karim_atiyeh.midi", S, "Midi"]