| # int2bytes(i) ≤ i→n(j), i < 0 ⊦ i >> 8 * j = bytes2int(firstn(# int2bytes(i), mklist(i2b(~1), (i→n(j) - # int2bytes(i)) + # int2bytes(i)) + int2bytes(i))), j = 0 |
n ≤ m ⊦ (m - n) + n = m
# int2bytes(i) ≤ i→n(j), # int2bytes(i) ≤ i→n(j), i < 0 ⊦ i >> 8 * j = bytes2int(firstn(# int2bytes(i), mklist(i2b(~1), i→n(j)) + int2bytes(i))), j = 0
Used terms: # int2bytes(i), i→n(j)