yading@10: function step1(song)
yading@10: 
yading@12: [x,fs,bits] = wavread(song);
yading@12: x = resample(x,44100,fs);
yading@10: y = extractMelody(x,hamming(2025),4096,'baby.txt');
yading@12: wavwrite(y,44100,'melody.wav');