          7 (.put bb (byte (get {nil 0 :eov 0} b b)))))
      (.array bb))))
 
-(defn- merge-bytes
+(defn- concat-bytes
   ^bytes [xs]
   (let [l (long (transduce (map alength) + xs))
         bb (ByteBuffer/allocate l)]

        (fn [[k t vs]]
          [(encode-typed-value :int k)
           (encode-typed-value t vs n-sample)]))
       merge-bytes
       (ByteBuffer/wrap)))

(defn- write-variant

                     (fn [[k t v]]
                       [(encode-typed-value :int k)
                        (encode-typed-value t v)]))
                    concat-bytes)
               (byte-array 0))
        l-shared (+ 24
                    (alength id) (alength refseq) (alength altseq)
