anchor.diff:              "Groonga database does not exist specified path: " + config.DBPath |> printfn "%s"
               exit 1
   
  -        let prompt = Path.GetFileNameWithoutExtension config.DBPath |> sprintf "grnline.fs(%s)> "
  +        let prompt_default = Path.GetFileNameWithoutExtension config.DBPath |> sprintf "grnline.fs(%s)> "
  +        let mutable prompt = prompt_default
           let mutable inputs: string list = []
           let mutable continueLooping = true
           while continueLooping do
  
positive.code:             let result = start_groonga config inputs
              if result = "" then
                  inputs <- List.append inputs ["\n"]
              if not <| (result = "") then
                  inputs <- []
  
      with
         | :? System.ArgumentException -> usage |> printfn "Invalid argument(s) specified. See usage: %s"
  
negative.code:         inputs |> List.map (fun s -> writer.Write s) |> ignore
          writer.Close()
      let stdout = p.StandardOutput.ReadToEnd()
      let prompt = if stdout = "" then
                      ""
                   else
                      "-> " + stdout
      if config.Pretty then
          prompt |> pretty_print |> printf "%s"
      else
          prompt |> printf "%s"
      p.Close()
      stdout
  
  