| # bits0 ≤ # bits1, bits0.first ⊦ bits1 = [], bits2 + bits1 = [], bits1 = lastn(# bits1, fillsgn(# bits1, bits2 + bitsand(bits1, bits0))), bits0 = [], mklist(¬ true, # bits1) ≠ bits1 |
mklist(false, # bits1) = bits1, # bits0 ≤ # bits1, bits0.first ⊦ bits1 = [], bits2 + bits1 = [], bits1 = lastn(# bits1, fillsgn(# bits1, bits2 + bitsand(bits1, bits0))), bits0 = []