var a:array[1..30] of integer;
    viz:array[1..30] of byte;
    n:integer;

    Procedure back(k:integer);
      var i:integer;
       begin
        if k>n then
                    begin
                     for i:=1 to k-1 do
                      write(a[i],' ');
                     writeln;
                    end
               else
                    for i:=1 to n do
                      if viz[i]=0 then
                                       begin
                                        viz[i]:=1;
                                        a[k]:=i;
                                        back(k+1);
                                        viz[i]:=0;
                                        end;
       end;

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

  back(1);

close(input);
close(output);
{Totusi este trist in lume}
end.