anchor.diff:  //
   //                    true
   //                else
  -//                    false
  -
  -        end
  -
  -
  +//
       let test() =
  -        let s = Store()
  +        let s = Store(Memory.hglobal 0L)
           
           let data = Array.init 200 byte
           let e = s.Alloc(data.LongLength)
  
positive.code:     let inline (!!) (ptr : nativeptr<'a>) = NativePtr.read ptr
      let inline (<--) (ptr : nativeptr<'a>) c = NativePtr.write ptr c
  
      [<Literal>]
      let Red = 0
      [<Literal>]
      let Black = 1
  
  
negative.code: //                pEntry.Key <-- key
  //                pEntry.HashCode <-- hashCode
  //
  //                let index = (pEntry.ptr - entries.ptr) / nativeint sizeof<Entry> |> int
  //                let pBucket = buckets ++ hashCode % x.Capacity
  //                let ei = !!pBucket - 1
  //
  //                if ei < 0 then
  