val to_event : string -> perf_map:Magic_trace_lib.Import.Perf_map.t option -> Magic_trace_lib.Import.Event.t