program permuta;
var x,s: array[1..20] of integer;
    n:integer;

procedure sol;
var i:integer;
begin
  for i:=1 to n do
   write(x[i],' ');
  writeln;
end;

procedure p(k:integer);
var i:integer;
begin
  if k=n+1 then sol
  else
  for i:=1 to n do
  if s[i]=0 then
  begin
    x[k]:=i;
    s[i]:=1;
    p(k+1);
    s[i]:=0;
  end;
end;

begin
  assign(input,'permutari.in');
  reset(input);
  assign(output,'permutari.out');
  rewrite(output);
  readln(n);
  p(1);
  close(input);
  close(output);
end.