let rec creer_liste_random ~gen = function
                | 0        -> [];
                | n        -> (gen() ) :: (creer_liste_random gen (n-1))