function demoparties(n,cho)

% fonction d'application de affiche_parties : affiche les parties de
% l'ensemble {1,2,...,n}

if nargin<=1||isempty(cho)
    cho=0;
end
A=parties(num2cell(1:n),cho);
affiche_parties(A);

function affiche_parties(A)
for i=1:length(A)
    if isempty(A{i})
        disp('vide');
    else
        disp(A{i});
    end
end