Program submultimi;
var v:array[0..16] of byte;
    f,q:text;
    n:byte;
function valid(k:byte):boolean;
var i:byte;
begin
        valid:=true;
        for i:=1 to k-1 do if v[i]>=v[k] then valid:=false;
end;
procedure tpar(n:byte);
var i:byte;
begin
        for i:=1 to n do write(q,v[i],' ');

        writeln(q);
end;

procedure back(k:byte);
var i:byte;
begin
        if k<=n then
        begin
                for i:=1 to n do begin v[k]:=i; if valid(k)=true then begin tpar(k);back(k+1); end; end;
        end;
end;
begin
assign(f,'submultimi.in');
reset(f);
assign(q,'submultimi.out');
rewrite(q);
readln(f,n);
back(1);
close(f);
close(q);
end.