waveFile='whatMovies.wav';
au=myAudioRead(waveFile);
% Filter parameters
a = [1];
b = [1, -1];
y = filter(b, a, au.signal);
% Plot the result
time = (1:length(au.signal))/au.fs;
subplot(2,1,1);
plot(time, au.signal); title('Original signal x[n]');
subplot(2,1,2);
plot(time, y); title('Output signal y[n]');
au.signal=y;
myAudioWrite(au, 'hpf01.wav');	% Save the output signal