sig
  type cluster = string
  class model :
    (Register.Service.TP.vertex, Register.Service.TP.edge, cluster)
    Dgraph.XDot.graph_layout ->
    Register.Service.TP.t ->
    [Register.Service.TP.vertex, Register.Service.TP.edge, cluster]
    abstract_model
  val from_graph :
    ?cmd:string -> ?tmp_name:string -> Register.Service.TP.t -> model
end