var x:array[1..10] of byte;
    n:byte;
    f:text;

procedure back(lep:byte);
var i,j:byte;
    ok:boolean;
begin
 for i:=1 to n do begin
  x[lep]:=i;
  ok:=true;
  for j:=1 to lep-1 do
   if x[j]=x[lep] then ok:=false;
  if ok=true then if lep=n then begin
                            for j:=1 to n do
                             write(f,x[j],' ');
                            writeln(f);
                           end
                  else back(lep+1);
 end;
end;

begin
assign(f,'permutari.in');
reset(f);
read(f,n);
close(f);

assign(f,'permutari.out');
rewrite(f);

back(1);

close(f);
end.