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

y=[0,3,5,7,10];
if nargin>0, y=y(i); end
