Message tree for more complex messages.
module Tree:
sig
type t =
|
T of string * t list
string * t list
(*
(msg,sub_msgs)
sub_msgs
msg
*)
val leaf : string -> t
string -> t
val add_child : t -> t -> t
t -> t -> t
add_child t x
x
t
val to_string : t -> string
t -> string
end