let components graph = 
    let module C = Components.Make(Gin
    C.scc_array graph