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