offsets :: P.Vector Word16
offsets
  = P.fromListN (P.length bitmaps)
  $ fmap (\(w,o) -> o - (classOffsets P.! popCount w))
  $ sortBy (on compare fst)
  $ Prelude.zip (P.toList bitmaps) [0..]
offsets :: P.Vector Word16
offsets
  = P.fromListN (P.length bitmaps)
  $ fmap (\(w,o) -> o - (classOffsets P.! popCount w))
  $ sortBy (on compare fst)
  $ Prelude.zip (P.toList bitmaps) [0..]
offsets
  = P.fromListN (P.length bitmaps)
  $ fmap (\(w,o) -> o - (classOffsets P.! popCount w))
  $ sortBy (on compare fst)
  $ Prelude.zip (P.toList bitmaps) [0..]