program permutari;
type vector=array [1..8] of byte;
var v:vector;
 n:byte;
 f,g:text;
function validare(k:byte):boolean;
 var i:byte;
 begin
 validare:=true;
 for i:=1 to k-1 do if v[i]=v[k] then validare:=false;
 end;
procedure afisare;
 var i:byte;
 begin
 for i:=1 to n do write (g,v[i],' ');
 writeln(g);
 end;
procedure back(k:byte);
 var i:byte;
 begin
 for i:=1 to n do begin
  v[k]:=i;
  if validare(k) then if k=n then afisare
   else back(k+1);
  end;
  end;
begin
assign (f,'permutari.in');
reset(f);
assign (g,'permutari.out');
rewrite(g);
read(f,n);
if (n>=1) and (n<=8) then
back(1);
close(f);
close(g);
end.