sig
  val ( <-> ) : Dotgraph.record -> Dotgraph.record -> Dotgraph.record
  val ( <|> ) : Dotgraph.record -> Dotgraph.record -> Dotgraph.record
  val link :
    ?anchor:string ->
    ?attr:Dotgraph.attr list -> Dotgraph.node -> Dotgraph.link
  val label :
    ?port:string -> ?link:Dotgraph.link list -> string -> Dotgraph.record
end