var x:array[0..1000] of integer;
    n:integer;

function valid(k:integer):boolean;
var i:integer;
begin
valid:=true;
for i:=1 to k-1 do
if x[k]=x[i] then
begin
valid:=false;
exit;
end;
end;


procedure afisare;
var i:integer;
begin
for i:=1 to n do
write(x[i],' ');
writeln;
end;

procedure back(t:integer);
var i:integer;
begin
for i:=1 to n do
begin
x[t]:=i;
if valid(t) then
begin
if t=n then afisare
else back(t+1);
end;
end;
end;

begin
assign(input,'permutari.in');reset(input);
assign(output,'permutari.out');rewrite(output);
readln(n);
back(1);
end.