uses crt;
var f:text; n,m,i,j,t:longint; b,c:array[1..100000000]of longint;
procedure print;
var i,j,d:longint;
begin
d:=0;
for i:=1 to n do
begin
j:=1;
while (b[j]<>i)and(j<=n) do inc(j);
if j=n+1 then d:=1;
end;
if d=0 then
begin
inc(m);
for i:=1 to n do
c[m]:=c[m]*10+b[i];
end;
end;
function dequy(a:longint):longint;
var i:longint;
begin
if a=n+1 then print else
for i:=1 to n Do
begin
b[a]:=i;
dequy(a+1);
end;
end;
begin
clrscr;
assign(f,'hoanvi.inp');reset(f);
readln(f,n);
close(f);
assign(f,'hoanvi.out');rewrite(f);
dequy(1);
writeln;
for i:=1 to m do
for j:=1 to i-1 do
if c[i]<c[j] then
begin
t:=c[i]; c[i]:=c[j]; c[j]:=t;
end;
for i:=1 to m do writeln(f,c[i],' ');
close(f);
end.
