toBin(n, p = 0) {
	n += n < 0
	Loop, % Abs(p) + (!p * StrLen(Abs(n)) << 2)
		b := (n < 0) ^ 1 & Abs(n) // (1 << A_Index - 1) . b
	Return, b
}

toInt(b, s = 0) {
	Loop, Parse, b
		n += A_LoopField * 1 << StrLen(b) - A_Index
	Return, n - (1 << StrLen(b)) * s
}