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:             member inline x.DCapacity       = NativePtr.ofNativeInt<int>    (60n + x.ptr)
              member inline x.DCapacityId     = NativePtr.ofNativeInt<int>    (64n + x.ptr)
  
              static member inline (+) (ptr : headerptr, index : int) = nodeptr(ptr.ptr + nativeint (sizeof<Header> * index))
              static member Null = headerptr(0n)
  
              new(p) = { ptr = p }
          end
  
      let inline (!) (r : 'a) = (^a : (member Value : 'b) (r))
      let inline (:=) (r : 'a) (v : 'b) = (^a : (member set_Value : 'b -> unit) (r, v))
  
  
      [<AllowNullLiteral>]
      type VirtualNode(ptr : nodeptr, index : int) =
  
negative.code: 
      let moreTest () =
  
          let s = Store(Memory.hglobal 0L)
          let r = System.Random()
          let allocations = System.Collections.Generic.List()
  
  