val run :
?ppf:Stdlib.Format.formatter ->root:string ->auto_repair:bool ->always:bool ->heads:string list option->unit ->unit Lwt.t
val term_internal : (unit -> unit)Cmdliner.Term.t
val term : unit Cmdliner.Term.t * Cmdliner.Term.info
val handle_result :
?ppf:Stdlib.Format.formatter ->?name:string ->([< `Fixed of int| `No_error ],
[< `Cannot_fix of string| `Corrupted of int ])Stdlib.result->
unit