case_all_one_bits :: IO ()
case_all_one_bits = do
  let v = P.replicate 16 (-1)
  forM_ [0..1024] $ \i -> do
    assertEqual ("for index " ++ show i) i
      (popCountBitSlice (vectorToInternal v) 0 i)
case_all_one_bits :: IO ()
case_all_one_bits = do
  let v = P.replicate 16 (-1)
  forM_ [0..1024] $ \i -> do
    assertEqual ("for index " ++ show i) i
      (popCountBitSlice (vectorToInternal v) 0 i)
case_all_one_bits = do
  let v = P.replicate 16 (-1)
  forM_ [0..1024] $ \i -> do
    assertEqual ("for index " ++ show i) i
      (popCountBitSlice (vectorToInternal v) 0 i)