let command_line_args =
     ("-cf", Arg.String (fun s -> configuration_file := s; group#read !configuration_file),
      "Sets the name of the configuration file,\n     which is loaded immediately when this option is read.\n     It's created if it doesn't exists.")
  :: ("-woh",Arg.Unit (fun () -> group#write ~with_help:false !configuration_file),
        "save the configuration file immediately, WithOut Help")
  :: ("-wh",Arg.Unit (fun () -> group#write ~with_help:true !configuration_file),
        "save the configuration file immediately, With Help")
  :: group#command_line_args "."