let connected_components graph =
    let module C = Graph.Components.Make(UGin
    C.scc_list graph