`val frontend : Frontend.frontend`
`type output_format =`

1. `| Text`
2. `| Xhtml`
3. `| Levels`
4. `| Json`

`val string_of_format : output_format -> string`
`val format_of_string : string -> output_format`
`type transition_data = {`

1. `config : Ben.Types.expr Ben.Core.StringMap.t;`
2. `monitor_data : (Ben.Package.source Ben.Package.t * (string * (string * Ben.Types.status)) list) list list;`
3. `sources : (Ben.Package.source, Ben.Package.source Ben.Package.t) Ben.Package.Map.t;`
4. `binaries : Ben.Package.binary Ben.Package.t Ben.Modules.PAMap.t;`
5. `rounds : Ben.Package.source Ben.Package.Name.t list list;`
6. `dep_graph : (Ben.Package.source, Ben.Package.source Ben.Package.Set.t) Ben.Package.Map.t;`
7. `all : int;`
8. `bad : int;`
9. `packages : Ben.Package.source Ben_frontends.Data.S.t;`

`}`
`val compute_transition_data : Ben.Modules.Marshallable.t -> Ben.Types.expr Ben.Core.StringMap.t -> transition_data`
`val print_html_monitor : Ben.Template.t -> transition_data -> [< Html_types.div_content_fun Table ] Tyxml.Html.elt option -> Tyxml.Html.doc`
`val print_monitor : output_format -> Stdlib.Format.formatter -> transition_data -> unit`
`val baseurl : string Stdlib.ref`
`val a_link : string -> string Tyxml.Html.wrap -> [> `A of [> `PCDATA ] ] Tyxml.Html.elt`
`val generated_on_text : unit -> [> `A of [> `PCDATA ] | `PCDATA ] Tyxml.Html.elt list`
`val check_media_dir : string -> unit`