r:= RandomChoice[{2, 4, 6}]; 
g[x_] := RandomChoice[{0.2, 0.6, 0.9} -> {x, {x[[1]]}, {x[[1]], x[[2]]}}];
accord := Module[{}, r1 = r; {{2 + r1, 4 + r1, 6 + r1}, {2, 4, 6}}];
scale = {2 + r, 4 + r, 6 + r};
s := g[RandomChoice[accord]] + RandomChoice[scale];
A = Table[{s,Random[Integer,4] + 8}, {35}];
sn[{a_, t_}] := SoundNote[s, t];
S = Sound[{"Violin", sn /@ A}, 12];
Export["koning_shen.midi",S, "Midi"]