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;
  },

##</code><code>##

               Rate        Eily  Discipulus Discipulus3          vr
Eily        21060/s          --        -55%        -61%        -65%
Discipulus  47134/s        124%          --        -13%        -22%
GrepPos     54377/s        158%         15%          --        -10%
vr          60414/s        187%         28%         11%          --