function wavekitHaar(f)

[h, g]=wavecoef('Haar');
w = fwt1(f,h,g)

end;