anchor.diff:      let private FLAG_BOUNDARY_NODE:byte = 2uy
       let private FLAG_ENDS_ON_BOUNDARY:byte = 4uy
   
  -    let private putArrayWithLength (pb:PageBuilder) (ba:byte[]) =
  -        if null = ba then
  -            pb.PutByte(FLAG_TOMBSTONE)
  -            pb.PutVarint(0L)
  -        else
  -            pb.PutByte(0uy)
  -            pb.PutVarint(int64 ba.Length)
  -            pb.PutArray(ba)
  -
  -    let private putStreamWithLength (pb:PageBuilder) (ba:Stream) vlen =
  -        if null = ba then
  -            pb.PutByte(FLAG_TOMBSTONE)
  -            pb.PutVarint(0L)
  -        else
  -            pb.PutByte(0uy)
  -            pb.PutVarint(int64 vlen)
  -            pb.PutStream(ba, int vlen)
  -
  +    // TODO this could move inside Create
       let private writeOverflow (pageManager:IPages) token startingNextPageNumber startingBoundaryPageNumber (pb:PageBuilder) (fs:Stream) (ba:Stream) =
           let len = (int ba.Length)
           let pageSize = pb.PageSize
  
positive.code:                 i <- i + 1
          if i>len then result else (xlen - ylen)
  
  type private PageBuilder(pgsz:int) =
      let mutable cur = 0
      let buf:byte[] = Array.zeroCreate pgsz
  
negative.code:                  *)
                  let available = pb.Available - sizeof<int32> // for the lastInt32
                  if (available >= neededForBothInline) then
                      putKeyWithLength k
                      if null = v then
                          pb.PutByte(FLAG_TOMBSTONE)
                          pb.PutVarint(0L)
                      else
                          pb.PutByte(0uy)
                          pb.PutVarint(int64 vlen)
                          pb.PutStream(v, int vlen)
                  else
                      if (available >= neededForKeyInlineValueOverflow) then
                          putKeyWithLength k
                      else
                          let keyOverflowFirstPage = nextPageNumber
                          let kRange = writeOverflow pageManager token nextPageNumber boundaryPageNumber pbOverflow fs (new MemoryStream(k))
  