let rec _Traitement_Var_Next liste_var =
  match liste_var with
    [] -> ""
  | (id, Constructeur(Construct(_, _)))::liste_restante -> 
      "\t\tthis."^id^".save();\n"
      ^_Traitement_Var_Next liste_restante
  | _::liste_restante -> 
      _Traitement_Var_Next liste_restante