var     a:array[1..20] of integer;
        n:integer;
        f1,f2:text;

procedure perm(k:integer);
var     i,j:integer;
        b:boolean;
begin
  if k>n then
    begin
      for i:=1 to n do
        write(f2,a[i],' ');
        writeln(f2);
    end
  else for i:=1 to n do
    begin
      b:=true;
      for j:=1 to k do
        if a[j]=i then
          begin
            b:=false;
            break;
          end;
      if b then
        begin
          a[k]:=i;
          perm(k+1);
        end;
    end;
end;

begin
  assign(f1,'permutari.in');
  assign(f2,'permutari.out');
  rewrite(f2);
  reset(f1);
  read(f1,n);

  perm(1);

  close(f2);
end.