var
 f:text;
 n:integer;
 v:array[1..8] of integer;

procedure kiir(l:integer);
var
 i:integer;
begin
 for i:=1 to l do
  write(f, v[i], ' ');
 writeln(f);
end;

function jo(l:integer):boolean;
var
 ok:boolean;
 i:integer;
begin
 ok:=true;
 i:=1;
 while ok and (i<l) do
  begin
   if v[i]=v[l] then ok:=false;
   i:=i+1
  end;
 jo:=ok;
end;

procedure back(l:integer);
var
 i:integer;
begin
 for i:=1 to n do
  begin
   v[l]:=i;
   if jo(l) then if l=n then kiir(l)
                        else back(l+1);
  end;
end;

begin
 assign(f, 'permutari.in');
 reset(f);
 readln(f, n);
 close(f);
 assign(f, 'permutari.out');
 rewrite(f);
 back(1);
 close(f);
end.