swl => sub {
        my @list = @input;
        use List::MoreUtils 0.428;
        @list = sort {$a<=>$b} @list;
        my $i = List::MoreUtils::bsearchidx {$_ <=> 0} @list;
        push @list, splice @list, 0, $i-1;
        Compare(\@list,\@output) or die "@list" if DO_CHECK;
    }