let weaklycomponents graph = 
    let module C = Components.Make(UndGin
    C.scc_array (undirect graph)