case_vector_slice :: IO ()
case_vector_slice = do
  let v = P.fromList [1,3,7,15,31,63]
  12 @=? popCountSlice (vectorToInternal v) 2 3
case_vector_slice :: IO ()
case_vector_slice = do
  let v = P.fromList [1,3,7,15,31,63]
  12 @=? popCountSlice (vectorToInternal v) 2 3
case_vector_slice = do
  let v = P.fromList [1,3,7,15,31,63]
  12 @=? popCountSlice (vectorToInternal v) 2 3