function y=major(i)
% major - Return degrees of major scale in semitones relative to tonic
%
% major :: unit -> [[7]->natural].
% major :: [[N]->natural] -> [[N]->natural].

y=[0,2,4,5,7,9,11];
if nargin>0, y=y(i); end
