program backcrack;
type tomb=array[1..100] of integer;
var k,jo,van,n,a:integer;v:tomb;
procedure kovetkezo(k:integer;var van:integer);
begin
        if v[k]<n then
        begin
                van:=1;
                v[k]:=v[k]+1;
        end
        else
                van:=0;
end;
procedure ellenoriz(k:integer;var jo:integer);
var i:integer;
begin
        jo:=1;i:=1;
        while(i<>k) and (jo=1) do
                if v[k]=v[i] then
                        jo:=0
                else
                        i:=i+1;
end;
function megoldas(k:integer):integer;
var i:integer;
begin
        if k=n then
                i:=1
        else
                i:=0;
        megoldas:=i;
end;
procedure kiir(n:integer;v:tomb);
var i:integer;
begin
        writeln;
        for i:=1 to n do
                write(v[i],' ');
end;
BEGIN
        readln(n);
        k:=1;
        v[k]:=0;
        while k>0 do
        begin
                repeat
                        kovetkezo(k,van);
                        if van=1 then
                                ellenoriz(k,jo);
                until ((van=1) and (jo=1)) or (van=0);
                if van=0 then
                        k:=k-1
                else
                        if megoldas(k)=1 then
                                kiir(k,v)
                        else
                        begin
                                k:=k+1;
                                v[k]:=0;
                        end;
        end;
readln;
end.