function I=order(X)
% order - return sort order of given
%
% order :: [[N]] -> [[N]->[N]].
% order :: [[N,M]] -> [[N,M]->[N]].

[Y,I]=sort(X);
