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 = Biocaml_msg.Tree.t = T of string * t list
      val leaf : string -> t
      val add_child : t -> t -> t
      val to_string : t -> string
    end
end