`type profile`
`val f : ?standalone:bool -> ?wrap_with_fun:[ `Iife | `Anonymous | `Named of string ] -> ?profile:profile -> ?linkall:bool -> ?source_map:Source_map.t -> Pretty_print.t -> Parse_bytecode.Debug.t -> Code.program -> Source_map.t option`
`val f' : ?standalone:bool -> ?wrap_with_fun:[ `Iife | `Anonymous | `Named of string ] -> ?profile:profile -> ?linkall:bool -> Pretty_print.t -> Parse_bytecode.Debug.t -> Code.program -> unit`
`val from_string : prims:string array -> debug:Instruct.debug_event list array -> string -> Pretty_print.t -> unit`
`val configure : Pretty_print.t -> unit`
`val profiles : (int * profile) list`
`val profile : int -> profile option`