anchor.diff:          (Guid.NewGuid(), blockList, unused)
   
   
  +// used for testing purposes
   type SimplePageManager(_pageSize) =
       let pageSize = _pageSize
   
  -    let WASTE_PAGES_AFTER_EACH_BLOCK = 3 // TODO remove.  testing only.
  -    let PAGES_PER_BLOCK = 10 // TODO not hard-coded.  and 10 is way too low.
  +    let WASTE_PAGES_AFTER_EACH_BLOCK = 3
  +    let PAGES_PER_BLOCK = 10
   
       let critSectionNextPage = obj()
       let mutable nextPage = 1
  
positive.code:     let fsMine = io.OpenForWriting()
  
      let HEADER_SIZE_IN_BYTES = 4096
  
      let WASTE_PAGES_AFTER_EACH_BLOCK = 0 // TODO remove.  testing only.
  
      let readHeader() =
          let read() =
  
negative.code:             if specificSize > 0 then
                  if List.isEmpty freeBlocks || specificSize > (List.head freeBlocks).CountPages then
                      let newBlk = PageBlock(nextPage, nextPage+specificSize-1) 
                      nextPage <- nextPage + specificSize
                      //printfn "newBlk: %A" newBlk
                      newBlk
                  else
  