var x:array[0..8] of byte;
    n,i:byte;
    use:array[0..8] of boolean;

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


procedure back(k:byte);
var i:byte;
begin
for i:=1 to n do
if not use[i] then
begin
x[k]:=i;
use[i]:=true;
if k=n then afisare
       else back(k+1);
use[i]:=false;
end;
end;

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