function ex1

[Y fs nbits] = wavread('ex1.wav') ;
len = size(Y,1)   ;
plot(Y) ; pause(0.1) ;
wavplay(Y,fs) ;

% de-scramble Y!