let
free (n : node) : bool =
Hashtbl
.length (n.inb) == 0