let rec _Traitement_toString liste_var =
  match liste_var with
    [] -> ""
  | (id, t)::liste_restante -> 
      let traitement_restant = _Traitement_toString liste_restante
      in
      match t with
        Boolean -> 
          "\t\t$tate += \""
          ^id^" = \";\n\t\tif (this."
          ^id^")\n\t\t\t$tate += \" Vrai\\n\";\n\t\telse\n\t\t\t$tate += \" Faux\\n\";\n\n"
          ^traitement_restant
      | Constructeur(Construct(_,_)) -> 
          "\t\t$tate += this."
          ^id^".toString();\n\n"
          ^traitement_restant
      | Enum(_) -> "\t\t$tate += \""
          ^id^" = \" + "^id^";\n"
          ^traitement_restant
      | _ -> raise Cas_impossible