data=AudioData[Import["busy.mp3","Sound"]];

Dimensions[data]

sample=data[[1,500000;;1000000]];

ListPlay[sample,SampleRate->44100]

samplet=Table[sample[[i]]Sin[π i/50000],{i,1,Dimensions[sample][[1]]}];

ListPlay[samplet,SampleRate->44100]

samplet=Table[sample[[i]]+Sin[2π i/50000]Sin[220  2π i/50000],{i,1,Dimensions[sample][[1]]}];

ListPlay[samplet,SampleRate->44100]

Histogram[{data[[1,8024832-500000;;8024832]],data[[2,8024832-500000;;8024832]]}]