anchor.diff:  //                    pBucket <-- index + 1
   //
   //            member x.FindEntry(key : Guid, hashCode : int) =
  -//                let pBucket = x.Buckets ++ hashCode % x.Capacity
  +//                let pBucket = buckets ++ hashCode % x.Capacity
   //                let ei = !!pBucket - 1
   //
   //                if ei < 0 then 
   //                    -1
   //                else
  -//                    let pEntry = x.Entries + ei
  +//                    let pEntry = entries + ei
   //                    if !!pEntry.HashCode = hashCode && !!pEntry.Key = key then
   //                        ei
   //                    else
  
positive.code: //                                id
  //                            else
  //                                let n = !!pEntry.Next
  //                                search n (x.Entries + n)
  //
  //                        let n = !!pEntry.Next
  //                        search n (x.Entries + n)
  //
  //            member x.Delete(key : Guid) =
  //                let hashCode = key.GetHashCode() &&& 0x7FFFFFFF
  
negative.code:     let inline (!!) (ptr : nativeptr<'a>) = NativePtr.read ptr
      let inline (<--) (ptr : nativeptr<'a>) c = NativePtr.write ptr c
  
  
      let magic = Guid("CFD123CA-17BC-437A-9EFC-6EECE27188FF")
  
      [<Literal>]
      let Red = 0
  
      [<Literal>]
      let Black = 1
  
  