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