let _Generation_Module_to_String ce_module =
match ce_module.declar with
[] -> raise Declaration_non_valide
| Var(liste_var)::_ ->
"\tpublic String toString()\n\t{\n\t\tString $tate = \"\\n\";\n"
^(_Traitement_toString liste_var)
^"\t\treturn $tate;\n\t}\n"
| _ -> raise Declaration_non_valide