var f,g:text;
    x:array[1..10] of longint;
    lat:array[1..10] of boolean;
    n:longint;

procedure kiir;
var q:longint;
begin
 for q:=1 to n do write(g,x[q],' ');
 writeln(g);
end;

function jo(lep:longint):boolean;
begin
 if lat[x[lep]] then jo:=false
 else jo:=true;
end;

procedure back(l:longint);
var i:longint;
begin
 for i:=1 to n do begin
    x[l]:=i;
    if jo(l) then begin
     lat[i]:=true;
     if l=n then kiir
            else back(l+1);
   lat[i]:=false;
   end;
 end;
end;

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

 back(1);

 close(g);

end.