anchor.diff:          else
               [| Format.UInt16
                  byte (value >>> 8)
  -               byte ((value <<< 8) >>> 8) |]
  +               byte (value &&& 0x00FFus) |]
   
       [<CompiledName("PackUInt")>]
       let packUInt32 value =
  
positive.code:                 if value < -(1L <<< 31) then
                      [| Format.Int64
                         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) |]
                  else
                      value |> int32 |> packInt
              else
  
negative.code:             if value < (1UL <<< 16) then
                  [| Format.UInt16
                     byte (value >>> 8)
                     byte (value &&& 0x00FFUL) |]
              elif value < (1UL <<< 32) then
                  [| Format.UInt32
                     byte (value >>> 24)
                     byte ((value &&& 0x00FF0000UL) >>> 16)
                     byte ((value &&& 0x0000FF00UL) >>> 8)
                     byte (value &&& 0x000000FFUL) |]
              else
                  [| Format.UInt64
                     byte (value >>> 56)
                     byte ((value &&& 0x00FF000000000000UL) >>> 48)
                     byte ((value &&& 0x0000FF0000000000UL) >>> 40)
                     byte ((value &&& 0x000000FF00000000UL) >>> 32)
                     byte ((value &&& 0x00000000FF000000UL) >>> 24)
                     byte ((value &&& 0x0000000000FF0000UL) >>> 16)
                     byte ((value &&& 0x000000000000FF00UL) >>> 8)
                     byte (value &&& 0x00000000000000FFUL) |]
  
      [<CompiledName("PackSByte")>]
      let packSByte value =
  