var s,a:array[1..100] of longint;
n,i,k,j:longint;
begin
assign(input,'submultimi.in');reset(input);
assign(output,'submultimi.out');rewrite(output);
read(n);
for i:=1 to n do
a[i]:=i;
k:=1;
s[k]:=0;
repeat
while s[k]<n do begin
        s[k]:=s[k]+1;
        for j:=1 to k do
        write(a[s[j]],' ');
        writeln;
        inc(k);
        s[k]:=s[k-1];
end;
dec(k);
until k=0;
close(output);
end.