if(~exist('s'))
disp('Need to record some speech to array s first');
end

% Create the digital filter
h=[1, -0.9375];
y=filter(h, 1, s);
% Listen to it acting on the speech
soundsc(y);

% Split the speech into frames and filter each one continuously
w=240;
hst=[];
n=floor(length(s)/w);
for k=1:n
  seg=s(1+(k-1)*w:k*w);
  [segf, hst]=filter(h, 1, seg, hst);
  outsp2(1+(k-1)*w:k*w)=segf;
end
% Listen to that
soundsc(outsp);

