r := RandomChoice[{1, 7, 10}]
g[x_] := RandomChoice[{0.5, 0.3,
     0.2} -> {x, {x[[1]]}, {x[[1]], x[[2]]}}];
accord := Module[{}, r1 = r; {{1 + r1, 5 + r1, 9 + r1}, {1, 5, 9}}];
scale = {r, 5, 9 + r};
s := g[RandomChoice[accord]] - RandomChoice[scale]
A = Table[{s, Random[Integer, 3] + 1}, {40}];
sn[{a_, t_}] := SoundNote[s, t];
S = Sound[{"Piano", sn /@ A}, 12]
Export["june_wu.midi",S, "Midi"]