program perm;
var be,ki:text;
    n:byte;
    v:array[1..8] of byte;
    t:array[1..8] of boolean;

procedure kiir;inline;
var i:byte;
begin
 for i:=1 to n do
    write(ki,v[i],' ');
 writeln(ki);
end;

procedure permutal(k:byte);
var i:byte;
begin
  if k = n+1 then kiir
     else
    for i:=1 to n do
       if not(t[i]) then
         begin
           v[k]:=i;
           t[i]:=true;
           permutal(k+1);
           t[i]:=false;
         end;
end;

begin
 assign(be,'permutari.in');
 assign(ki,'permutari.out');
 reset(be);
 rewrite(ki);
 readln(be,n);
 permutal(1);
 close(ki);
end.