Program p1_submultimi_back;
var fi,fo:text;
    n:byte;
    st:array[0..25] of byte;

Procedure tipar(n:byte);
var i:byte;
begin
    for i:=1 to n do write(fo,st[i],' ');
    writeln(fo);
end;

Procedure back(k:byte);
var i:byte;
begin
    for i:=st[k-1]+1 to n do begin
                             st[k]:=i;
                             tipar(k);
                             back(k+1);
                             end;
end;

begin
    assign(fi,'submultimi.in'); reset(fi);
    assign(fo,'submultimi.out'); rewrite(fo);
    read(fi,n);  st[0]:=0;
    back(1);
    close(fi); close(fo);
end.