let node (id,_) _ =
        match id with
        |Graph.Dot_ast.String s -> int_of_string s
        |-> assert false