let rec _Generation_Module_Constructeur_Element liste_element =
  match liste_element with
    [] -> ""
  | (identifiant, sonType)
    ::liste_restante -> 
      match sonType with
        Boolean -> 
          "\t\tthis."^identifiant^" = false;\n"
          ^_Generation_Module_Constructeur_Element liste_restante
      | Constructeur(Construct(_)) -> 
          "\t\tthis."^identifiant^" = null;\n"
          ^_Generation_Module_Constructeur_Element liste_restante
      | Enum (_) -> 
          "\t\tthis."^identifiant^" = \"\";\n"
          ^_Generation_Module_Constructeur_Element liste_restante
      | _ -> 
          raise Cas_impossible