anchor.diff:  namespace BioFSharp.Algorithm
   
  -///The naive search algorithm.
  +///A collections of naive string matching algorithms
   module Naive =
   
  -    ///find
  +
  +    ///finds all matches of a query pattern in a source
       let findAll (pattern : array<'a>) (s : array<'a>) =
           let rec loop (sPos:int) (patternPos:int) (matchCount:int) (resultList : int list) =
               if sPos < s.Length then
  
positive.code:         if s.Length > 0 then loop 0 0 0 [] else []
  
  
      let findFrom (startPos : int) (pattern : array<'a>) (s : array<'a>) =
          let rec loop (sPos:int) (patternPos:int) (matchCount:int) =
              if sPos < s.Length then
  
negative.code:         prefixTable
      
  
      ///finds all matches of a query pattern in a source using a given prefix table
      let findAll (prefixTable : int []) (pattern : array<'a>) (s : array<'a>) =
          let rec loop matchStart patternPosition resultList =
              if (matchStart + patternPosition) < s.Length then
  