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:                         ars <- (MapStore(newCount, Value.Nil, newMap))::xs
                          doLoop <- false
                  | _ ->
                      vs <- Utility.seq_append vs nv
                      doLoop <- false
              ars, vs
          let rec _unpack (bs: byte[]) (sequencials: Sequencials list) (values: seq<Value>) =
              if bs.Length = 0 then values
              else
                  let header = bs.[0]
  
negative.code:                     let ars, vs = appendValue newValue sequencials values
                      _unpack bs.[1..] ars vs
                  else
                      List.rev values
          _unpack bs [] []