let
connected_components graph =
let
module
C
=
Graph
.
Components
.
Make
(
UG
)
in
C
.scc_list graph