let creer_instance_random ?(m = 1) ?(n = 2) ?(c = 4) () =        
        {
                ci = c;
                ni = n;
                mi = m;
                pi = creer_liste_random ~gen:(piece_random ~c:c) (n * m);
        }