benchSized :: String -> Int -> Benchmark
benchSized tag bytes = v `seq` bgroup tag [
  bench "Hu-Tucker" $ whnf (show . huTucker) v
  ]
  where
    v = sampleVec bytes
benchSized :: String -> Int -> Benchmark
benchSized tag bytes = v `seq` bgroup tag [
  bench "Hu-Tucker" $ whnf (show . huTucker) v
  ]
  where
    v = sampleVec bytes
benchSized tag bytes = v `seq` bgroup tag [
  bench "Hu-Tucker" $ whnf (show . huTucker) v
  ]
  where
    v = sampleVec bytes