sig   val ops_to_trace_event_format :     B0.Outcome.t -> B0.Outcome.Op.t list -> B0_json.G.t end