anchor.diff:                                      flatten
               elif length <= 65535 then Array.append
                                           [| Format.Map16
  -                                           byte ((length &&& 0xFF00) >>> 8)
  +                                           byte (length >>> 8)
                                              byte (length &&& 0x00FF) |]
                                           flatten
               else Array.append
                       [| Format.Map32
  -                       byte ((length &&& 0xFF000000) >>> 24)
  +                       byte (length >>> 24)
                          byte ((length &&& 0x00FF0000) >>> 16)
                          byte ((length &&& 0x0000FF00) >>> 8)
                          byte (length &&& 0x000000FF) |]
  
positive.code:             if value < (1UL <<< 16) then
                  [| Format.UInt16
                     byte (value >>> 8)
                     byte ((value <<< 8) >>> 8) |]
              elif value < (1UL <<< 32) then
                  [| Format.UInt32
                     byte (value >>> 24)
                     byte (((value >>> 16) <<< 24) >>> 24)
                     byte (((value >>> 8) <<< 24) >>> 24)
                     byte ((value <<< 24) >>> 24) |]
              else
                  [| Format.UInt64
                     byte (value >>> 56)
                     byte (((value >>> 48) <<< 56) >>> 56)
                     byte (((value >>> 40) <<< 56) >>> 56)
                     byte (((value >>> 32) <<< 56) >>> 56)
                     byte (((value >>> 24) <<< 56) >>> 56)
                     byte (((value >>> 16) <<< 56) >>> 56)
                     byte (((value >>> 8) <<< 56) >>> 56)
                     byte ((value <<< 56) >>> 56) |]
  
      [<CompiledName("PackSByte")>]
      let packSByte value =
  
negative.code:             if value < -(1 <<< 15) then
                  [| Format.Int32
                     byte (value >>> 24)
                     byte ((value &&& 0x00FF0000) >>> 16)
                     byte ((value &&& 0x0000FF00) >>> 8)
                     byte (value &&& 0x000000FF) |]
              elif value < -(1 <<< 7) then
                  [| Format.Int16
                     byte (value >>> 8)
                     byte (value &&& 0x00FF) |]
              else
                  [| Format.Int8
                     byte value |]
  