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