clear all 
close all
pkg load signal
[x, fs] = audioread('butter.wav');
sound(x, fs);
new_fs = fs/5;
display(new_fs);
r = fs/new_fs;
y = downsample(x, r);
audiowrite('down.wav', y, new_fs);
spectrogram(x,fs,5,30);
title('original');
spectrogram(y,fs,5,30);
title('dowsampled');
sound(y, new_fs);