Discipulus => sub{
	my @list = @input;
	my @neg = sort {$a<=>$b} grep { $_ < 0 } @list;
	my @pos = sort {$a<=>$b} grep { $_ >= 0} @list;
	@list = (@pos,@neg);
	Compare(\@list,\@output) or die "@list" if DO_CHECK;
},
Discipulus2 => sub{
	my @list = sort {$a<=>$b} @input;
	push @list, shift @list until $list[0] >= 0;
	Compare(\@list,\@output) or die "@list" if DO_CHECK;
},