Scc.Make
module A : ARG
module A = A
val sccs : graph:A.t -> nodes:A.node list -> A.node list A.Node_tbl.t