program aaaaa;
type vec=array[1..10] of integer;
var f,g:text;
    a:vec;
    n,i,j:integer;
function valid(k:integer):boolean;
var t:boolean;
    i:integer;
begin
t:=true;
for i:=1 to k-1 do
if a[k]=a[i] then t:=false;
valid:=t;
end;
procedure tipar(k:integer);
var i:integer;
begin
for i:=1 to k do
write(g,a[i],' ');
writeln(g);
end;
procedure back(k:integer);
var i:integer;
begin
for i:=1 to n do begin
a[k]:=i;
if valid(k) then if k=n then tipar(k)
                        else back(k+1);
end;
end;
begin
assign(f,'permutari.in');assign(g,'permutari.out');
reset(f);rewrite(g);
readln(f,n);
back(1);
close(f);close(g);end.