let  _Generation_Module_Next ce_module =
  match (ce_module.modTyp, 
         ce_module.declar) 
  with
    ((_,liste_param), 
     Var(liste_var)::Assign(liste_ass)::_) -> 
       "\tpublic void next("^(_Liste_Parametre_Module liste_param)^")\n\t{\n"
       ^(_Traitement_Var_Next liste_var)
       ^(_Initialisation_Objet liste_var "next")
       ^(_Traitement_assign_next liste_ass 0)^"\n\t}\n\n"
  | ((_,liste_param), 
     Var(liste_var)::_) -> 
       "\tpublic void next("^(_Liste_Parametre_Module liste_param)^")\n\t{\n"
       ^(_Traitement_Var_Next liste_var)
       ^(_Initialisation_Objet liste_var "next")
       ^"\n\t}\n\n"
  | _ -> ""