let
has_work_left (graph : graph) : bool =
done_count graph < (
Hashtbl
.length graph)