                  type (->> (BlockPrefix$BlockType/values)
                         (map gen/return)
                         gen/one-of)]
-    (let [out (DurableAccumulator.)
+    (let [out (AccumulatorOutput.)
           p   (BlockPrefix. n type)
           _   (.encode p out)
           in  (->> out .contents DurableInput/from)]

(defspec test-prefixed-vlq-roundtrip iterations
  (prop/for-all [n gen-pos-int
                 bits (gen/choose 0 6)]
    (let [out (DurableAccumulator.)
          _   (Util/writePrefixedVLQ 0 bits n out)
          in  (->> out .contents DurableInput/from)]
      (try

    Util
    BlockPrefix
    BlockPrefix$BlockType
    AccumulatorOutput
    ChunkSort]))

(set! *warn-on-reflection* true)
