anchor.diff:      let predicate = FSharpFunc<_,_,_>.Adapt predicate
       
       let mutable index = 0
  -    let mutable allMatch = false
  +    let mutable allMatch = true
       while index < len && allMatch do
           allMatch <- predicate.Invoke (resizeArray1.[index], resizeArray2.[index])
           index <- index + 1
  
positive.code: 
      trueResults, falseResults
  
  (* Functions below this point still need to be cleaned up. *)
  
  //
  
negative.code: 
      while index < count && Option.isNone result do
          result <- picker resizeArray.[index]
          index <- index + 1
  
      match result with
      | Some result ->
  