anchor.diff:      /// A pickler/unpickler pair for UTF-32 strings in big endian byte order
       let pickleUtf32BE =
           pickleEncoding (Encoding.UTF32 {Endianness = BigEndian; ByteOrderMark = false})
  -
  -    /// A pickler/unpickler pair for decimals
  -    let pickleDecimal =
  -        let intAToDecimal (a : int[]) = System.Decimal a
  -        wrap (intAToDecimal, System.Decimal.GetBits) (repeatA pickleInt 4)
   
       /// Uses the supplied pickler to unpickle the supplied byte array into some type 'a 
       let unpickle pickler array =
  
positive.code: 
      /// A pickler/unpickler pair for UTF-8 strings with byte order mark
      let pickleUTF8BOM =
          pickleEncoding (Encoding.UTF8 {EmitIdentifier = false})
  
      /// A pickler/unpickler pair for unicode strings in little endian byte order
      let pickleUnicodeLE =
  
negative.code:             result, {st with Position = pos + sizeof<int64>}
          }
  
      /// A pickler/unpickler pair for float32s of the supplied endianness
      let private pickleFloat32E endianness =
          {
          Pickle = fun (f32, s) -> {s with Raw = (PickleConvertors.convFromFloat32 endianness f32) @ s.Raw}
          Unpickle = fun st ->
              let pos = st.Position
              let result = PickleConvertors.convToFloat32 pos endianness (st.Raw)
              result, {st with Position = pos + sizeof<float32>}
          }
  
      /// A pickler/unpickler pair for floats of the supplied endianness
      let private pickleFloatE endianness =
          {
          Pickle = fun (f64, s) -> {s with Raw = (PickleConvertors.convFromFloat64 endianness f64) @ s.Raw}
          Unpickle = fun st ->
              let pos = st.Position
              let result = PickleConvertors.convToFloat64 pos endianness (st.Raw)
              result, {st with Position = pos + sizeof<float>}
          }
  
      /// A pickler/unpickler pair for decimals of the supplied endianness
      let private pickleDecimalE endianness =
          let intAToDecimal (a : int[]) = System.Decimal a
          wrap (intAToDecimal, System.Decimal.GetBits) (repeatA (pickleInt32E endianness) 4)
  
      /// A pickler/unpickler pair for int16s in the Endianness of the current platform
      let pickleInt16 = pickleInt16E (ByteOrder.systemEndianness)
  
  