type t
= Mlpost.Box.t
val leaf : Mlpost.Box.t -> Mlpost.Box.t
val node : ?ls:float -> ?cs:float -> ?arrow_style:arrow_style -> ?edge_style:edge_style -> ?stroke:Mlpost__.Types.color -> ?brush:Mlpost__.Types.brush -> ?pen:Mlpost__.Types.pen -> ?sep:float -> ?valign:[< `Bot | `Bottom | `Bottomleft | `Bottomright | `Center | `Custom of Mlpost.Box.t -> Mlpost.Point.t | `East | `Left | `Lowerleft | `Lowerright | `Lowleft | `Lowright | `North | `Northeast | `Northwest | `Right | `South | `Southeast | `Southwest | `Top | `Topleft | `Topright | `Upleft | `Upperleft | `Upperright | `Upright | `West Center ] -> ?halign:[< `Bot | `Bottom | `Bottomleft | `Bottomright | `Center | `Custom of Mlpost.Box.t -> Mlpost.Point.t | `East | `Left | `Lowerleft | `Lowerright | `Lowleft | `Lowright | `North | `Northeast | `Northwest | `Right | `South | `Southeast | `Southwest | `Top | `Topleft | `Topright | `Upleft | `Upperleft | `Upperright | `Upright | `West Center North ] -> Mlpost.Box.t -> Mlpost.Box.t list -> Mlpost.Box.t
val bin : ?ls:float -> ?cs:float -> ?arrow_style:arrow_style -> ?edge_style:edge_style -> ?stroke:Mlpost__.Types.color -> ?brush:Mlpost__.Types.brush -> ?pen:Mlpost__.Types.pen -> ?sep:float -> Mlpost.Box.t -> Mlpost.Box.t -> Mlpost.Box.t -> Mlpost.Box.t
val to_box : 'a -> 'a
val draw : ?debug:bool -> Mlpost.Box.t -> Mlpost__.Types.commandpic