GrepPos => sub{
    my @list = @input;
    my $pos =  grep { $_ >= 0 } @list;
    @list[$pos..$#list, 0..$pos-1] = sort {$a<=>$b} @list;
    Compare(\@list,\@output) or die "@list" if DO_CHECK;
  },