g[x_]:=20 Cos[5 x] Sin[x/5]; 
S=Sound[Table[SoundNote[{Round[g[n],3],Round[g[n],3]-3},0.06/Sin[n/5],"Piano"],{n,0.5,15.4,0.1}]];
Export["evelyn_park.midi", S, "Midi"]