sig
  val set_display_message : (string -> unit) -> unit
  val set_error_message : (string -> unit) -> unit
  val set_warning_message : (string -> unit) -> unit
  val display_message : string -> unit
  val error_message : string -> unit
  val warning_message : string -> unit
  val get_display_message : unit -> string -> unit
  val get_error_message : unit -> string -> unit
  val get_warning_message : unit -> string -> unit
end