let rec _Generation_Module_Intitule_Element liste_element =
match liste_element with
[] -> ""
| (identifiant, sonType)::liste_restante -> match sonType with
Boolean -> "\tpublic boolean "^identifiant^";\n"
^_Generation_Module_Intitule_Element liste_restante
| Constructeur(Construct(t, _)) -> "\tpublic "^t^" "^identifiant^";\n"
^_Generation_Module_Intitule_Element liste_restante
| Enum (_) -> "\tpublic String "^identifiant^";\n"
^_Generation_Module_Intitule_Element liste_restante
| _ -> raise Cas_impossible