program permutari;
var t:array[1..8]of byte;
s:array[1..8]of boolean;
n,i,j:longint;
procedure solutie;
var i:integer;
begin
for i:=1 to n do write(t[i],' ');writeln();
end;
procedure back(x:integer);
var  i:integer;
begin
if x=n+1 then solutie else
begin
for i:=1 to n do
begin
if s[i] then
begin
t[x]:=i; s[i]:=false; back(x+1); s[i]:=true;
end;
end;
end;
end;
begin
assign(input,'permutari.in');reset(input);
assign(output,'permutari.out');rewrite(output);
readln(n);
for i:=1 to n do s[i]:=true;
back(1);
close(input);close(output);
end.