sig
  val clear : unit -> unit
  val node : int -> string -> unit
  val node_l : int -> int -> unit
  val node_r : int -> int -> unit
  val leaf : int -> string -> string -> unit
  val leaf_t : int -> string -> int -> unit
  val line : int -> int -> unit
  val ce : int -> int -> unit
  val ok : int -> int -> unit
  val skip : int -> int -> unit
  val entry : int -> unit
  val render : hk:bool -> quote:string -> string
  val save : unit -> unit
  val restore : unit -> unit
end