minor byt cleanup
=+ n-take=(sub wid.b n)
[n-take (end [bloq n-take] dat.b)]
--
-++ byt
- =/ bl ~(. blop 3)
- |%
- ++ cat cat:bl:byt
- ++ flip flip:bl:byt
- ++ take take:bl:byt
- ++ drop drop:bl:byt
- --
+++ byt ~(. blop 3)
::
++ bit
=/ bl ~(. blop 0)
