anchor.diff:      | Groonga_Path of string
       | DB_Path of string
       | Encoding of string
  -    | Pritty of bool
  +    | Pretty of bool
   with
       interface IArgParserTemplate with
           member s.Usage =
  
positive.code:     {Path:string;
       DBPath:string;
       DBEncoding:string;
       Pritty:bool}
  
  let parseArgv argv =
      let results = parser.Parse(argv)
      let path = results.GetResult(<@ Groonga_Path @>)
      let db_path = results.GetResult (<@ DB_Path @>)
      let db_encoding = results.GetResult (<@ Encoding @>, defaultValue = "UTF-8")
      let pritty = results.GetResult (<@ Pritty @>, defaultValue = false)
      let config: Config = {Path=path; DBPath=db_path; DBEncoding=db_encoding; Pritty=pritty}
      config
  
  let convertLineToUTF8 (line: string) =
  
negative.code:         inputs |> List.map (fun s -> writer.Write s) |> ignore
          writer.Close()
      let stdout = p.StandardOutput.ReadToEnd()
      if config.Pretty then
          stdout |> pretty_print |> printfn "-> %s"
      else
          stdout |> printfn "-> %s"
      p.Close()
  