anchor.diff:  
       /// A pickler/unpickler pair (PU) for uint32s of the supplied endianness
       let private uint32PUE endianness =
  -        FinalPU
  +        PU
               {
               Pickle = fun (i32, s) -> pickleHelper (PickleConvertors.convFromUInt32 endianness) i32 s
               Unpickle = fun st -> unpickleHelper (PickleConvertors.convToUInt32 endianness) st
  
positive.code: module BinaryPickler =
      let rec private runUnpickle state x =
          match x with
          |FinalPU {Unpickle = g; Pickle = _} -> g state
          |RecursivePU y -> runUnpickle state (y())
  
      let rec private runPickle (a, st) x =
          match x with
          |FinalPU {Unpickle = _; Pickle = g} -> g (a, st)
          |RecursivePU y -> runPickle (a,st) (y())
  
  
  
negative.code: 
      /// A pickler/unpickler pair (PU) for int16s of the supplied endianness
      let private int16PUE endianness =
          PU
              {
              Pickle = fun (i16, s) -> pickleHelper (PickleConvertors.convFromInt16 endianness) i16 s
              Unpickle = fun st -> unpickleHelper (PickleConvertors.convToInt16 endianness) st
  