function eval_harmonics(name)

base = exp(1);
ke = 10;

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

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


wavrite(y, fs, nbits,