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