T[x_] := Module[{}, y = x + RandomInteger[7] - 3; y];
s = NestList[T, 6, 100];
S = Sound[SoundNote[#, 1, RandomChoice[{"Flute"}]] & /@ s, 20]
Export["ovul_sezer.midi",S,"MIDI"]