anchor.diff:              exit 1
   
           let prompt = Path.GetFileNameWithoutExtension config.DBPath |> sprintf "grnline.fs(%s)> "
  +        let mutable inputs: string list = []
           let mutable continueLooping = true
           while continueLooping do
               prompt |> printf "%s"
               let tr = System.Console.In
   
               let line = tr.ReadLine()
  +            inputs <- List.append inputs [line]
               if line.Equals <| "quit" then
                   printf "Bye!"
                   exit 0
  -            start_groonga config line
  +
  +            let result = start_groonga config inputs
  +            if result.Equals <| "" then
  +                inputs <- List.append inputs ["\n"]
  +            if not <| result.Equals("") then
  +                inputs <- []
   
       with
          | :? System.ArgumentException -> usage |> printfn "Invalid argument(s) specified. See usage: %s"
  
positive.code:     else
          stdout |> printfn "-> %s"
      p.Close()
  
  [<EntryPoint>]
  let main argv =
  
negative.code:     let p = Process.Start(psInfo)
      if encoding.Equals <| Encoding.UTF8 then
          let utf8Writer = new StreamWriter(p.StandardInput.BaseStream, Encoding.UTF8)
          inputs |> List.map (fun s -> convertLineToUTF8 s |> utf8Writer.Write) |> ignore
          utf8Writer.Close()
      else
          let writer = new StreamWriter(p.StandardInput.BaseStream)
          inputs |> List.map (fun s -> writer.Write s) |> ignore
          writer.Close()
      let stdout = p.StandardOutput.ReadToEnd()
      if config.Pritty then
  