| # bits = m * 8 + n0, n ≤ m + 1, # bits ≤ 8 * n, n0 < 8 ⊦ n = 0, bits = [], fix(n, bits2bytes(bits)) = bits2bytes(mklist(bits.first, n * 8 - # bits) + bits), n0 = 0 |
# bits = m * 8 + n0, n ≤ m + 1, m * 8 + n0 ≤ 8 * n, n0 < 8 ⊦ n = 0, bits = [], fix(n, bits2bytes(bits)) = bits2bytes(mklist(bits.first, n * 8 - m * 8 + n0) + bits), n0 = 0