sig
  type t = T of string * Biocaml_msg.Tree.t list
  val leaf : string -> Biocaml_msg.Tree.t
  val add_child :
    Biocaml_msg.Tree.t -> Biocaml_msg.Tree.t -> Biocaml_msg.Tree.t
  val to_string : Biocaml_msg.Tree.t -> string
end