anchor.diff:      ///Builds a new block resize array whose elements are the results of applying the given function to each of the elements of the array.
       member this.Map (f : 'T -> 'U) =
           let result = new BlockResizeArray<'U>()
  -        let arr = Array.zeroCreate<_> arrays.Length
  -        for i = 0 to active - 1 do
  -            arr.[i] <- Array.map f arrays.[i]
  +        let arr = Array.zeroCreate<_> active
  +        if active > 1
  +        then
  +            for i = 0 to active - 2 do
  +                arr.[i] <- Array.map f arrays.[i]
  +        let a = arrays.[active - 1]
  +        let top = countTop count
  +        for i in 0..top do
  +            arr.[active - 1].[i] <- f a.[i]
           result.SetArrays arr
           result.setCount count
           result.SetActive active
  
positive.code:     let mutable cap = blockSize * arrays.Length
      let mutable nextAllocate = cap
      let mutable active = 1
      
      interface IEnumerable<'T> with
          member this.GetEnumerator () =
              let e = 
  
negative.code: 
      ///Applies the given function to each element of the block resize array.
      member this.Iter f =
          if active > 1
          then
              for i = 0 to active - 2 do
                  Array.iter f arrays.[i]
          let a = arrays.[active - 1]
          let top = countTop count
          for i in 0..top do
              f a.[i] 
  
  module BlockeResizeArray = 
  
  