keys = [ 52 52 59 59 61 61 59 59 57 57 56 56 54 54 56 52];      %Treble clef
dur = [1 1 1 1 1 1 1 1 1 1 1 1 1 .75 .25 2];
dur = dur*0.25;
treble=[];
for i=1:length(keys);
    treble=[treble note(keys(i),dur(i),piano)];
end
soundsc(treble,8000);
clear treble;clear i;clear keys;clear dur