anchor.diff:    Targets: string list
     References: string list
     SearchOptions: SearchOptions
  +  StackTrace: bool
     Help: bool
   }
   
   [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
   module Args =
  -  let empty = { Query = None; Targets = []; References = []; SearchOptions = SearchOptions.defaultOptions; Help = false }
  +  let empty = { Query = None; Targets = []; References = []; SearchOptions = SearchOptions.defaultOptions; StackTrace = false; Help = false }
   
     let (|Status|_|) (name: string) (str: string) =
       if str.StartsWith(name) then
  
positive.code:     | Status "--similarity" v :: rest -> parse { arg with SearchOptions = { arg.SearchOptions with SimilaritySearching = boolToOptionStatus v } } rest
      | (KeyValue "--target" t | KeyValue "-t" t) :: rest -> parse { arg with Targets = t :: arg.Targets } rest
      | (KeyValue "--reference" r | KeyValue "-r" r) :: rest -> parse { arg with References = r :: arg.References } rest
      | ("--help" | "-h") :: rest -> parse { arg with Help = true } rest
      | query :: rest ->
        let q =
  
negative.code:   let StrictQueryVariable = { Get = (fun x -> x.StrictQueryVariable ); Set = (fun value x -> { x with StrictQueryVariable = value }) }
    let SimilaritySearching = { Get = (fun x -> x.SimilaritySearching ); Set = (fun value x -> { x with SimilaritySearching = value }) }
  
    let rec loop (client: FSharpApiSearchClient) arg =
      printf "> "
      match Console.ReadLine().TrimEnd(';') with
      | "#q" -> arg
      | OptionSetting "#strict" StrictQueryVariable arg.SearchOptions newOpt -> loop client { arg with SearchOptions = newOpt }
      | OptionSetting "#similarity" SimilaritySearching arg.SearchOptions newOpt -> loop client { arg with SearchOptions = newOpt }
      | query ->
        try
          searchAndShowResult client query arg.SearchOptions
        with ex ->
          if arg.StackTrace then
            printfn "%A" ex
          else
            printfn "%s" ex.Message
        loop client arg
  
  let helpMessage = """usage: FSharpApiSearch.Console.exe <query> <options>
  
  