sub ba2bi2 {
	my @ba = reverse (@_, (0) x (4 - ( @_%4 || 4 ) ) );
	my $result = Math::BigInt->new(0);
	$result *= 4294967296
	, $result += $_
		for map{
				unpack 'N'
				, pack 'C4'
				, @ba[4*$_ .. 4*$_+3]
			} 0 .. ($#ba/4);
	return $result;
}