let rec _Instanciation_Objet liste_element =
match liste_element with
[] -> ""
| (identifiant, sonType)::liste_restante ->
match sonType with
Objet(_) ->
"\t\tthis."^identifiant^" = "^identifiant^";\n"
^_Instanciation_Objet liste_restante
| Constructeur(Construct(nom, _)) ->
"\t\tthis."^identifiant^" = new "^nom^"(this.$nom + \"."^identifiant^"\");\n"
^_Instanciation_Objet liste_restante
| _ ->
_Instanciation_Objet liste_restante