(* Play a piece of music backwards with Mathematica      *) 
(* Oliver Knill, Harvard University, Math21b, Fall, 2004 *) 

a=Import["scherzo.wav"]; 
type=a[[1,2]]; n=Length[a[[1,1,1]]]; 

song={
   Table[a[[1,1,1,n-k]]/2,{k,0,n-1}],
   Table[a[[1,1,2,n-k]]/2,{k,0,n-1}]
};

c=Sound[SampledSoundList[song,type]];
Export["scherzo_reversed.wav",c,"WAV"]
