let done_count (graph : graph) : int = 
  let count_step _ x acc = acc + (if not_done x then 0 else 1) in
    Hashtbl.fold count_step graph 0