sub make_sort_sub {
    my @subs = @_;

	return sub {
		foreach my $sub ( @subs )
			{
			my $result = $sub->($a, $b);
			return $result if $result;
			}
		};
    }