let
components graph =
let
module
C
=
Components
.
Make
(
G
)
in
C
.scc_array graph