function y=imajor, y=[2,2,1,2,2,2,1]
% imajor - Return intervals major scale in semitones 
%
% imajor :: unit -> [[7]->natural].
