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