type vector=array[1..12] of integer;

var a:vector;
n:integer;
f1,f2:text;

procedure init(var a:vector);
var i:integer;
begin
  for i:=1 to n do a[i]:=i;
end;

procedure sw(var x,y:integer);
var t:integer;
begin
  t:=x;
  x:=y;
  y:=t;
end;

procedure afis(a:vector);
var i:integer;
begin
  for i:=1 to n do write(f2,a[i],' '); writeln(f2);
end;

procedure perm(a:vector; k:integer);
var i:integer;
begin
  if k>=n then afis(a)
  else
  for i:=k to n do
  begin
     sw(a[i],a[k]);
     perm(a, k+1);
  end;
end;

begin
  assign(f1, 'permutari.in');
  reset(f1);
  readln(f1,n);
  close(f1);
  assign(f2, 'permutari.out');
  rewrite(f2);
  init(a);
  perm(a,1);
  close(f2);
end.