sig
  type stag
  val string_of_stag : Transitioning.Format.stag -> string
  val stag_of_string : string -> Transitioning.Format.stag
  type formatter_stag_functions = {
    mark_open_stag : Transitioning.Format.stag -> string;
    mark_close_stag : Transitioning.Format.stag -> string;
    print_open_stag : Transitioning.Format.stag -> unit;
    print_close_stag : Transitioning.Format.stag -> unit;
  }
  val pp_set_formatter_stag_functions :
    Format.formatter -> Transitioning.Format.formatter_stag_functions -> unit
  val pp_get_formatter_stag_functions :
    Format.formatter -> unit -> Transitioning.Format.formatter_stag_functions
  val pp_open_stag : Format.formatter -> Transitioning.Format.stag -> unit
  val pp_close_stag : Format.formatter -> unit -> unit
  val pp_print_option :
    ?none:(Format.formatter -> unit -> unit) ->
    (Format.formatter -> '-> unit) -> Format.formatter -> 'a option -> unit
end