sig
  val err : ?pos:Biocaml_internal_utils.Pos.t -> string -> string
  val warn : ?pos:Biocaml_internal_utils.Pos.t -> string -> string
  val bug : ?pos:Biocaml_internal_utils.Pos.t -> string -> string
  val print_err : ?pos:Biocaml_internal_utils.Pos.t -> string -> unit
  val print_warn : ?pos:Biocaml_internal_utils.Pos.t -> string -> unit
  val print_bug : ?pos:Biocaml_internal_utils.Pos.t -> string -> unit
  val max_array_length_error : string
  module Tree :
    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
end