anchor.diff:              pb.PutInt32(overflowFirstPage)
               newRange
   
  -        let writeLeaves leavesFirstPage leavesBoundaryPage :int*int*System.Collections.Generic.List<int32 * byte[]> =
  +        let writeLeaves leavesFirstPage leavesBoundaryPage :int*int*((int32*byte[]) list) =
               // 2 for the page type and flags
               // 4 for the prev page
               // 2 for the stored count
  
positive.code: 
  
                      // this is the body of the folder function
                      maybeFlush st |> initParent |> addKeyToParent
  
                  // this is the body of writeParentNodes
                  // children is in reverse order.  so List.head children is actually the very last child.
  
negative.code:                     let neededForOverflow = neededEitherWay + sizeof<int32>
                      let couldBeRoot = (st.nextGeneration.Length = 0)
  
                      let maybeFlushParent st = 
                          let available = calcAvailable (st.sofar) couldBeRoot
                          let fitsInline = (available >= neededForInline)
                          let wouldFitInlineOnNextPage = ((pageSize - PARENT_PAGE_OVERHEAD) >= neededForInline)
  