anchor.diff:              cards
               |> Array.groupBy(fun c -> (c.LessonID, c.Key))
   
  -        let sampleSize = vc.GetResult(<@ DumpTextArgs.SampleSize @>)
  +        let sampleSize = vc.GetResult(<@ DumpTextArgs.Sample_Size @>)
           if sampleSize = 0 then
               cards
           else
  
positive.code: let runListLessonsAction(otw: TextWriter, db: LLDatabase)(vc: ParseResults<ListLessonsArgs>) = 
      let allowedGameIds = 
          db.Games
          |> Array.filter(makeGameRegexFilter(vc.GetResult(<@ ListLessonsArgs.GameRegex @>)))
          |> Array.map(fun t -> t.ID)
  
      let checkGameFilterForLesson(l: LessonRecord) = 
          allowedGameIds |> Array.contains(l.GameID)
  
      let lessonFilter = makeLessonRegexFilter(vc.GetResult(<@ ListLessonsArgs.FilterRegex @>))
  
      db.Lessons
      |> Array.filter checkGameFilterForLesson
  
negative.code:         Console.WriteLine(parser.PrintUsage())
          results
      else
          match results.TryGetResult(<@ Command_File @>) with
          | Some(commandFile) ->
              let commands = File.ReadAllText(commandFile)
              let newArgs = commands.Split([| '\n'; '\r'; ' ' |], StringSplitOptions.RemoveEmptyEntries)
  