program permutari;
var f,g:text;
    sel:array[1..8] of boolean;
    sol:array[1..8] of integer;
    n:integer;

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

procedure back(k:integer);
var i:integer;
begin
if k>n then scriere
else
  for i:=1 to n do
    if not sel[i] then begin
      sol[k]:=i;
      sel[i]:=true;
      back(k+1);
      sel[i]:=false;
      end;
end;

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