anchor.diff:      let tryFind (f : 'T -> bool) (bra : BlockResizeArray<_>) = bra.TryFind f
   
       ///Returns the first element for which the given function returns true. 
  -    let find (f : 'T -> bool) (bra : BlockResizeArray<_>) = bra.Find
  +    let find (f : 'T -> bool) (bra : BlockResizeArray<_>) = bra.Find f
   
       ///Creates an array from the given block resize array.
  -    let toArray (bra : BlockResizeArray<_>) = bra.ToArray 
  +    let toArray (bra : BlockResizeArray<_>) = bra.ToArray () 
       
       ///Adds element to the block resize array.
       let add x (bra : BlockResizeArray<_>) = bra.Add x           
  
positive.code:     member this.TryFind f =
          let mutable c = None
          let mutable i = 0
          while(c.IsNone && i < active) do
              c <- Array.tryFind f arrays.[i]
              i <- i + 1
          c
  
negative.code:     static member ZeroCreate initCount =
          let bra = new BlockResizeArray<_>()
          let blockSize = 1 <<< bra.Shift
          let blocksCount =  initCount / blockSize
          if blocksCount <> 0
          then          
              let l = blocksCount + 1
              let newArr = Array.init l (fun _ -> Array.zeroCreate<_> blockSize)
              bra.SetArrays newArr
          bra.setCount initCount
  