let rec _Initialisation_Objet liste_element fonction =
match liste_element with
[] -> ""
| (identifiant, sonType)::liste_restante ->
(match sonType with
Constructeur(Construct(_, Ensemble(liste))) ->
"\t\tthis."^identifiant^"."^fonction^"("
^_Traitement_liste_constr liste^");\n"
^(_Initialisation_Objet liste_restante fonction)
| _ ->
""^(_Initialisation_Objet liste_restante fonction))