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