anchor.diff:              if current > 0L then
                   let result = downloader task
                   countingTimer.Start()
  -                counter := !counter + NaiveSearch.countMatches result maxTemplateLength countingBound matchBound templateLengths prefix
  +                counter := !counter + countMatchesDetailed result maxTemplateLength countingBound matchBound templateLengths prefix matches
                   countingTimer.Lap(label)
   
               if (read > 0) then
  +                index <- index + 1
                   current <- current + (int64) read
  +
  +                if index = 50 then
  +                    printfn "I am %A and I've already read %A bytes!" label current
  +                    index <- 0
   
                   countingBound <- read
                   matchBound <- read
  
positive.code: //        AhoCorasickGpu.close
      testAlgorithmAsync gpuAhoCorasickOptimizedInitializer gpuAhoCorasickOptimizedUploader gpuAhoCorasickOptimizedDownloader AhoCorasickOptimized.label gpuAhoCorasickOptimized
          AhoCorasickOptimized.close
      testAlgorithm cpuAhoCorasickInitializer cpuAhoCorasickGetter AhoCorasickCpu.label cpuMatchesAhoCorasick
  
      Substrings.verifyResults !cpuMatches !cpuMatchesHashed NaiveHashingSearch.label
      Substrings.verifyResults !cpuMatches !gpuMatches NaiveSearchGpu.label
  
negative.code:         let mutable read = 0
          let mutable highBound = 0
  
          let matches = Array.zeroCreate 256
  
          let mutable current = 0L
  
          let handle = Raw.CreateFile(index)
  