sig
  val leaf :
    ?style:Mlpost.Tree.node_style ->
    ?fill:Mlpost.Color.t -> Mlpost.Picture.t -> Mlpost.Tree.t
  val node :
    ?style:Mlpost.Tree.node_style ->
    ?fill:Mlpost.Color.t ->
    Mlpost.Picture.t -> Mlpost.Tree.t list -> Mlpost.Tree.t
  val bin :
    ?style:Mlpost.Tree.node_style ->
    ?fill:Mlpost.Color.t ->
    Mlpost.Picture.t -> Mlpost.Tree.t -> Mlpost.Tree.t -> Mlpost.Tree.t
end