var perm : array[0..10] of integer;
    use : array[0..10] of boolean;
    i,j,n,poz,aux : integer;
    f,g : text;
procedure back(k : integer);
var i : integer;
begin
  if k>n then
  begin
    for i:=1 to n do write(g,perm[i],' ');
    writeln(g);
  end
  else
    for i:=1 to n do
      if not use[i] then
      begin
        perm[k]:=i;
        use[i]:=true;
        back(k+1);
        use[i]:=false;
      end;
end;

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