anchor.diff:                      if skipEmptyStrings options then
                           for i = 0 to len - 1 do
                               // Is the current character a separator?
  -                            if Array.BinarySearch (sortedSeperators, str.[i]) <> -1 then
  +                            if Array.BinarySearch (sortedSeparators, str.[i]) >= 0 then
                                   // Apply the function to the current substring unless it's empty.
                                   if length > 0 then
                                       state <- folder.Invoke (state, substringIndex, Substring (str, offset, length))
  
positive.code:                     if skipEmptyStrings options then
                          for i = 0 to len - 1 do
                              // Is the current character a separator?
                              if Array.BinarySearch (sortedSeperators, str.[i]) <> -1 then
                                  // Apply the function to the current substring unless it's empty.
                                  if length > 0 then
                                      action <| Substring (str, offset, length)
  
negative.code:                 | separator ->
                      /// A sorted copy of the separator array. Used with Array.BinarySearch
                      /// to quickly determine if a given character is a separator.
                      let sortedSeparators = Array.sort separator
  
                      // The offset and length of the current substring.
                      let mutable offset = 0
  