let
get_pos env n =
try
Hashtbl
.find env.dfsp n
with
Not_found
->
0