anchor.diff:              ok
   
           let rec searchInParentPage k (ptrs:uint32[]) (keys:byte[][]) (i:uint32) :uint32 =
  -            let cmp = ByteComparer.Compare (k, keys.[int i])
  +            let cmp = ByteComparer.Compare k (keys.[int i])
               if cmp>0 then
                   searchInParentPage k ptrs keys (i+1u)
               else
  
positive.code:         r
  
      member this.Compare(len, other) =
          ByteComparer.CompareWithin(buf, cur, len, other)
  
      // page type could just be a property
      member this.PageType =
          buf.[0]
  
  
negative.code:             else
                  let mid = (max + min) / 2
                  let kmid = keys.[mid]
                  let cmp = ByteComparer.Compare kmid k
                  if 0 = cmp then mid
                  else if cmp<0  then search k (mid+1) max sop mid ge
                  else search k min (mid-1) sop le mid
  