in
go2 0 w' bs n v
| otherwise
- = error "FIXME"
+ = let next8 ∷ Word8
+ next8 = B.toBits (B.take (8 ∷ Int) bs)
+ in
+ if next8 ≡ 0xFF then
+ error "FIXME"
+ else
+ error "FIXME"
go2 ∷ Word32 → WordsData → bs → Int → New v Int32
→ (# WordsData, bs, Int, New v Int32 #)