open
Unix
;;
let
equal_node
n1
n2
=
n1
.
st_ino
=
n2
.
st_ino
&&
n1
.
st_dev
=
n2
.
st_dev
;;