anchor.diff:                      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")>]
  
positive.code:         | MapStore of int * Value * Map<Value, Value>
      [<CompiledName("Unpack")>]
      let unpack (bs: byte[]) =
          let appendValue (newValue: Value) (sequencials: Sequencials list) (values: seq<Value>) =
              let mutable nv, ars, vs, doLoop = newValue, sequencials, values, true
              while doLoop do
                  match ars with
  
negative.code:                     let ars, vs = appendValue newValue sequencials values
                      _unpack bs.[1..] ars vs
                  else
                      List.rev values
          _unpack bs [] []