let rec _Traitement_liste_constr liste =
match liste with
[] -> ""
| cet_element::liste_restante ->
let resultat = _Traitement_expr cet_element "" "constr" 0
in
if not (liste_restante = [])
then
resultat
^", "
^_Traitement_liste_constr liste_restante
else
resultat