Nonsense Music

x = Import["http://infolab.stanford.edu/~yangc/musicir/e043.wav",
   "Data"];
data = First[x];
p = 1/22050;
r = Table[
   If[RandomReal[] < p, RandomInteger[Length@data], 1], {i,
    3 Length@data}];
datar = Map[data[[Mod[#, Length@data] + 1]] &, FoldList[Plus, 1, r]];
ListPlay[datar, SampleRate -> 22050]