DGraphTreeLayout.MakeFromDotModel
module Tree : Sig.G with type V.label = DGraphModel.DotG.V.t and type E.label = unit
module TreeManipulation : sig ... end
val from_model : Tree.t -> Tree.V.t -> DGraphModel.dotg_model -> XDot.Make(Tree).graph_layout