anchor.diff:      let config = 
           {
               DebugTools.TextScannerConfiguration.Path = vc.GetResult(<@ ScanForTextArgs.Path @>)
  -            DebugTools.TextScannerConfiguration.MinimumLength = vc.GetResult(<@ ScanForTextArgs.MinimumLength @>)
  -            DebugTools.TextScannerConfiguration.MaximumLength = vc.GetResult(<@ ScanForTextArgs.MaximumLength @>)
  -            DebugTools.TextScannerConfiguration.DictionaryFile = vc.GetResult(<@ ScanForTextArgs.DictionaryFile @>)
  +            DebugTools.TextScannerConfiguration.MinimumLength = vc.GetResult(<@ ScanForTextArgs.Minimum_Length @>)
  +            DebugTools.TextScannerConfiguration.MaximumLength = vc.GetResult(<@ ScanForTextArgs.Maximum_Length @>)
  +            DebugTools.TextScannerConfiguration.DictionaryFile = vc.GetResult(<@ ScanForTextArgs.Dictionary_File @>)
           }
       let scanner = new DebugTools.StringScanner(config)
       let results = scanner.Scan()
  
positive.code:         l.GameID = id
  
      let lessonFilter = 
          let f1 = makeLessonRegexFilter(vc.GetResult(<@ DeleteLessonsArgs.FilterRegex @>))
          let f2 = makeLessonNameFilter(vc.GetResult(<@ DeleteLessonsArgs.LessonName @>))
          fun (l: LessonRecord) -> f1(l) || f2(l)
  
      let deleteLesson(l: LessonRecord) = 
  
negative.code:             cards
              |> Array.groupBy(fun c -> (c.LessonID, c.Key))
  
          let sampleSize = vc.GetResult(<@ DumpTextArgs.Sample_Size @>)
          if sampleSize = 0 then
              cards
          else
  