var n:byte;
f:text;
v:array[1..8] of byte;
procedure back(k:longint);
var i,j:longint;
g:boolean;
begin
if k=n then begin
            for i:=1 to n do write(f,v[i],' ');
            writeln(f);
            end
else
begin
for i:=1 to n do
    begin
    g:=true;
    for j:=1 to k do
        if v[j]=i then begin
                       g:=false;
                       break;
                       end;
        if g then begin
                  v[k+1]:=i;
                  back(k+1);
                  end;
    end;
end;
end;

begin
assign(f,'permutari.in');reset(f);
readln(f,n);
close(f);
assign(f,'permutari.out');rewrite(f);
back(0);
close(f);
end.