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