function result=lti(name)
[X,t,f] = wavread(name);
chunks = floor(length(X)/64);
result=zeros(1,chunks);
for i=0:chunks-1
 for j=1:64
  result(i+1) = result(i+1) + abs(X(i*64+j));
 endfor
endfor
return
endfunction
