function res=simu_melange(n)
    x=1:1:n
    y=x;
    while (x(1)<n) 
        x=permu_cartes(x);
        y=[y ; x]
    end
    res=[y ; permu_cartes(x)];
endfunction