sig
  type t
  val message_of_strings : (unit -> string) -> Messaging.RelayMessage.t
  val strings_of_message : Messaging.RelayMessage.t -> string list
  val pp_print_message : Format.formatter -> Messaging.RelayMessage.t -> unit
end