sig
  val run_main :
    ?argv:string array ->
    ?override_configuration:Configuration.t ->
    ?additional_commands:((unit, string) Unix_io.Deferred_result.t
                          Cmdliner.Term.t * Cmdliner.Term.info)
                         list ->
    unit -> [ `Never_returns ]
end