let couleur_random ~c () = ((Random.int c) + 1 : couleur)