some_sub( [ sort { $_ * sort_sub } @original ] ) for 0, 1, -1;
print '-';