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