t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t t
} bit-array>integer ] unit-test
-{ 49 } [ 49 <bit-array> dup set-bits [ ] count-by ] unit-test
+{ 49 } [ 49 <bit-array> dup set-bits [ ] count ] unit-test
{ 1 } [ ?{ f t f t } byte-length ] unit-test