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: 
      let lldb = new LLDatabase(fldbPath)
  
      let remainderOpt = results.TryGetResult(<@ Remainder @>)
      let remainderArgs = 
          match remainderOpt with
          | Some(remainder) -> remainder.Split([| '\r'; '\n'; ' '; '\t' |], StringSplitOptions.RemoveEmptyEntries)
          | _ -> [||]
  
      loadAllPlugins(iPluginManager, otw, remainderArgs)
  
      match results.TryGetSubCommand() with
      | Some(Import ia) -> runImportAction(iPluginManager, otw, lldb, remainderArgs)(ia)
      | Some(List_Supported_Games) -> runListSupportedGamesAction(iPluginManager, otw)
      | Some(List_Games lga) -> runListGamesAction(otw, lldb)(lga)
      | Some(List_Lessons lla) -> runListLessonsAction(otw, lldb)(lla)
      | Some(Delete_Game dga) -> runDeleteGameAction(otw, lldb)(dga)
      | Some(Delete_Lessons dla) -> runDeleteLessonsAction(otw, lldb)(dla)
      | Some(Dump_Text dta) -> runDumpTextAction(otw, lldb)(dta)
      | _ -> failwith "unrecognized subcommand"
  
      0
  