anchor.diff:                      let ars, vs = appendValue newValue sequencials values
                       _unpack bs.[1..] ars vs
                   else
  -                    values
  +                    List.rev values
           _unpack bs [] []
positive.code:                     Byte6 = (if bs.Length >= 7 then bs.[6] else 0uy),
                      Byte7 = (if bs.Length >= 8 then bs.[7] else 0uy))
          d.Value
  
      let seq_prepend source element =
          seq {
              yield element
              yield! source
          }
  
      let seq_append source element =
          seq {
              yield! source
              yield element
          }
  
  module Packer =
      [<CompiledName("PackBool")>]
  
negative.code:         | MapStore of int * Value * Map<Value, Value>
      [<CompiledName("Unpack")>]
      let unpack (bs: byte[]) =
          let appendValue (newValue: Value) (sequencials: Sequencials list) (values: Value list) =
              let mutable nv, ars, vs, doLoop = newValue, sequencials, values, true
              while doLoop do
                  match ars with
  