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