azerazreeazrzearaezraz

let printGlouton (coul, c, liste) =
    let rec print_list = function
        | [] -> print_string "\n"
        | e::l -> print_string (e^" ; ");
            print_list l in
    let rec print_couleur = function
        | [] -> print_string "\n"
        | (s,c)::l -> print_string ("("^s^",");
            print_int c;print_string ") ; ";
            print_couleur l
    in
    print_string "coloration : \n";
    print_couleur coul;
    print_string "nombre de couleur max : "; print_int c;
    print_string "\n ordre des sommets colore :\n";
    print_list liste;;