var a:array[1..10] of longint;
    ap:array[1..10] of boolean;
    n:longint;
    f,g:text;

procedure back(lv:longint);
 var i:longint;
 begin
  if lv=n+1 then begin
   for i:=1 to n do
    write(g,a[i],' ');
   writeln(g);
  end
  else
   for i:=1 to n do
    if ap[i]=false then begin
     a[lv]:=i;
     ap[i]:=true;
     back(lv+1);
     ap[i]:=false;
    end;
 end;

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