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