let umake graph _ = 
        let t = Tree.createTree graph;
        in let tree = Tree.depth_tree t
        in GrbGraphType.nonlocalchanges := true;
    Tree.remove_cycles tree