type id = | Ident of string| Number of string| String of string| Html of string
type attr = (id * id option) listtype compass_pt = | N| Ne| E| Se| S| Sw| W| Nw
type node_id = id * port optiontype subgraph = | SubgraphId of id| SubgraphDef of id option * stmt list
type file = {strict : bool;digraph : bool;id : id option;stmts : stmt list;
}