samer@4: function I=order(X)
samer@4: % order - return sort order of given
samer@4: %
samer@4: % order :: [[N]] -> [[N]->[N]].
samer@37: % order :: [[N,M]] -> [[N,M]->[N]].
samer@4: 
samer@4: [Y,I]=sort(X);