piano();
keys=[40 42 44 45 47 49 51 52]
scale=[]
for i=1:length(keys);
    scale=[scale note(keys(i),1,piano)];
end
sound(scale,8000);
clear scale;clear i;clear keys;