program permutari;
var A : array [1..8] of 1..8;
    f,g : text;
    n : integer;
procedure writep(p:integer);
var i : integer;
begin
for i := 1 to p do
write(g,A[i],' ');
writeln(g);
end;


function valid(p:integer):boolean;
var i,j : integer;
    ok : boolean;
begin
ok := true;
for i := 1 to p do
for j := 1 to p do
if (A[i]=A[j]) and (i<>j) then begin
                               ok := false;
                               break;
                               end;
valid := ok;
end;



procedure back(p:integer);
var pval : integer;
begin
for pval := 1 to n do begin
A[p] := pval;
if valid(p) then if p=n then writep(p)
                        else back(p+1);
end;
end;

begin
assign(f,'permutari.in');
reset(f);
read(f,n);
assign(g,'permutari.out');
rewrite(g);
back(1);
close(f);
close(g);
end.