program permutari;
var st:array[1..30] of integer;
   n:integer;
   fi,fo:text;
procedure tipar;
var i:integer;
begin
for i:=1 to n do write(fo,st[i],' ');writeln(fo);
end;
function valid(k:integer):boolean;
var i:integer;
    t:boolean;
begin
t:=true;
for i:=1 to k-1 do if st[k]=st[i] then t:=false;
valid:=t;
end;
procedure back(k:integer);
var i:integer;
begin
if k=n+1 then tipar
        else begin
        for i:=1 to n do begin st[k]:=i;
        if valid(k) then back(k+1);
           end;   end;
end;
begin
assign(fi,'permutari.in');reset(fi);read(fi,n);
assign(fo,'permutari.out');rewrite(fo);
back(1);close(fi);close(fo);
end.