CD23 secret on academic homepage

(* the waveform generates the background of the page *)

data = ToExpression /@
   StringSplit[
     Import["http://mi.eng.cam.ac.uk/~mh521/js/data.js", "Text"],
     ","][[3 ;; -3]];
Export["cd23.wav",
 ListPlay[data, SampleRate -> 1500]]