anchor.diff:    let ShowXmlDocument = { Get = (fun x -> x.ShowXmlDocument); Set = (fun value x -> { x with ShowXmlDocument = value }) }
     let StackTrace = { Get = (fun x -> x.StackTrace); Set = (fun value x -> { x with StackTrace = value }) }
   
  +  let helpMessage = """
  +FSharpApiSearch.Console interactive mode directive:
  +  #strict [enable|disable]
  +      Enables or disables to strictly deal with variables of different name in the query.
  +  #similarity [enable|disable]
  +      Enables or disables the similarity searching.
  +  #ignore-argstyle [enable|disable]
  +      Enables of disables to ignore the difference of the argument style.
  +      The argument style refers to curried argument, multi argument and tuple argument.
  +  #xmldoc [enable|disable]
  +      Enables or disables to show xml document of API.
  +  #stacktrace [enable|disable]
  +      Enables or disables stacktrace output if an exception occurs.
  +  #help
  +      Print this message.
  +  #q
  +      Quit interactive mode.
  +
  +  If ommit the option value, print the current value of the option."""
  +
     let rec loop (client: FSharpApiSearchClient) arg =
       printf "> "
       match Console.ReadLine().TrimEnd(';') with
  
positive.code:       Enables or disables stacktrace output if an exception occurs.
        The default is disabled.
    --help, -h
        Print this message."""
  
  [<EntryPoint>]
  let main argv =
  
negative.code:       let client = createClient targets ApiLoader.databaseName
        printfn "Targets the following assemblies."
        client.TargetAssemblies |> List.iter (printfn "  %s")
        printfn "Input query, #help to print help or #q to quit."
        Interactive.loop client args |> ignore
      with
        ex -> showException args ex
  