function eval_harmonics(name)

base = exp(1);
ke = 2;

[x, fs, nbits] = wavread(name);

y = (1 - base.^(-ke*abs(x))) .* sign(x);

yname = sprintf('out.wav', name);
wavwrite(y*0.8, fs, nbits, yname);