let piece_of_listcouleur ma_listeint = 
        
        (** Suppose que la liste a exactement 4 entiers comme élément : d h g b. *)

        {b = (List.nth ma_listeint 3); g = (List.nth ma_listeint 2); h = (List.nth ma_listeint 1); d = (List.nth ma_listeint 0)}