function indexList = binpack(songList, mediaLength)
% trivial attempt, but should be fast
% trying to add some songs
%
[s j]=sort(-songList);
m=length(j);
s1=cumsum(-s);
n=max(find(s1<mediaLength));
nn=min(find((s1(m)-s1-s(m))<(mediaLength-s1(n))))+1;
indexList=j([1:n nn:m]);