let rec _Liste_Parametre_Module liste_parametre =
  match liste_parametre with
    [] -> ""
  | (identifiant, sonT)::liste_restante -> 
      let reste = _Liste_Parametre_Module liste_restante
      in
      match sonT with
        Boolean -> 
          if reste = "" 
          then 
            "boolean "^identifiant
          else 
            "boolean "^identifiant^", "
            ^reste
      | Constructeur(Construct(_)) -> 
          raise Cas_impossible
      | Objet o -> 
          if reste = "" 
          then 
            o^" "^identifiant
          else  
            o^" "^identifiant^", "
            ^reste
      | Enum (_) -> 
          if reste = "" 
          then 
            "String "^identifiant
          else 
            "String "^identifiant^", "
            ^reste
      | _ -> raise Cas_impossible