anchor.diff:      {Path:string;
        DBPath:string;
        DBEncoding:string;
  -     Pritty:bool}
  +     Pretty: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}
  +    let pretty = results.GetResult (<@ Pretty @>, defaultValue = false)
  +    let config: Config = {Path=path; DBPath=db_path; DBEncoding=db_encoding; Pretty=pretty}
       config
   
   let convertLineToUTF8 (line: string) =
  
positive.code:             | Groonga_Path _ -> "specify groonga.exe path."
              | DB_Path _ -> "specify Groonga database path."
              | Encoding _ -> "Specify encoding such as UTF-8."
              | Pritty _ -> "Output pritty printed."
  
  // build the argument parser
  let parser = ArgumentParser.Create<CLIArguments>()
  
negative.code:     | Groonga_Path of string
      | DB_Path of string
      | Encoding of string
      | Pretty of bool
  with
      interface IArgParserTemplate with
          member s.Usage =
  