let _Generation_Module_Intitule ce_module =
match
ce_module.modTyp,
ce_module.declar
with
(nomM, _), Var(liste_variable)::_ ->
"public class "^nomM^" {\n\n\tprivate String $nom;\n\n"
^_Generation_Module_Intitule_Element liste_variable
^"\t"^nomM^" EX;\n\n"
| _ , _ -> raise Declaration_non_valide