anchor.diff:  
           let forany (f : 'a -> bool) (a : 'a[]) =
               forany' f 0 a
  +
  +        let foldi (folder : int -> 'State -> 'T -> 'State) (state : 'State) (array : 'T[]) =
  +            ((0, state), array) ||> Array.fold (fun (i, state) x ->
  +                (i + 1), folder i state x
  +            ) |> snd
       
       module Disposable =
   
  
positive.code:                     r <- true
              e.Dispose()
              r
  
          open System.Collections
          open System.Collections.Generic
  
negative.code:         let partition (f : 'a -> bool) (source : list<'a>) = 
              partitionAcc f source (System.Collections.Generic.List()) (System.Collections.Generic.List())
  
          let foldi (folder : int -> 'State -> 'T -> 'State) (state : 'State) (list : 'T list) =
              ((0, state), list) ||> List.fold (fun (i, state) x ->
                  (i + 1), folder i state x
              ) |> snd
  
      module Array =
          let rec private forany' (f : 'a -> bool) (index : int) (a : 'a[]) =
              if index >= a.Length then false
  