sig
  type t = Mlpost.Box.t
  type arrow_style = Directed | Undirected
  type edge_style = Straight | Curve | Square | HalfSquare
  val leaf : Mlpost.Box.t -> Mlpost.Tree.t
  val node :
    ?ls:Mlpost.Num.t ->
    ?cs:Mlpost.Num.t ->
    ?arrow_style:Mlpost.Tree.arrow_style ->
    ?edge_style:Mlpost.Tree.edge_style ->
    ?stroke:Mlpost.Color.t ->
    ?pen:Mlpost.Pen.t -> Mlpost.Box.t -> Mlpost.Tree.t list -> Mlpost.Tree.t
  val bin :
    ?ls:Mlpost.Num.t ->
    ?cs:Mlpost.Num.t ->
    ?arrow_style:Mlpost.Tree.arrow_style ->
    ?edge_style:Mlpost.Tree.edge_style ->
    ?stroke:Mlpost.Color.t ->
    ?pen:Mlpost.Pen.t ->
    Mlpost.Box.t -> Mlpost.Tree.t -> Mlpost.Tree.t -> Mlpost.Tree.t
end