sig   type file = string   type source_provenance =       File of Timings.file     | Pack of string     | Startup     | Toplevel   type compiler_pass =       All     | Parsing of Timings.file     | Preprocessing of Timings.file     | Typing of Timings.file     | Transl of Timings.file     | Generate of Timings.file     | Assemble of Timings.source_provenance     | Clambda of Timings.source_provenance     | Cmm of Timings.source_provenance     | Compile_phrases of Timings.source_provenance     | Selection of Timings.source_provenance     | Comballoc of Timings.source_provenance     | CSE of Timings.source_provenance     | Liveness of Timings.source_provenance     | Deadcode of Timings.source_provenance     | Spill of Timings.source_provenance     | Split of Timings.source_provenance     | Regalloc of Timings.source_provenance     | Linearize of Timings.source_provenance     | Scheduling of Timings.source_provenance     | Emit of Timings.source_provenance     | Flambda_pass of string * Timings.source_provenance   val reset : unit -> unit   val get : Timings.compiler_pass -> float option   val time : Timings.compiler_pass -> ('a -> 'b) -> 'a -> 'b   val accumulate_time : Timings.compiler_pass -> ('a -> 'b) -> 'a -> 'b   val print : Format.formatter -> unit end