eily => sub {
    my @list = -50..50;
    @list = sort { ~$b <=> ~$a } @list;
    Compare(\@list,[0..50,-50..-1]) or die "@list" if DO_CHECK;
  }