Program P1;
var n,k : longint;
    s : array[1..30] of longint;
    f,g : text;

Procedure back(k : longint);
var j,i : integer;
    ok : boolean;
begin
 if k=n then
          begin
          for i:=1 to n do
          write(g,s[i],' ');
          writeln(g);
          end
           else
             begin
               for i:=1 to n do
                begin
                 ok:=true;
                   for j:=1 to k do
                   if s[j]=i then
                   begin
                   ok:=false;
                   break
                   end;
                  if ok then
                  begin
                  s[k+1]:=i;
                  back(k+1);
                  end;
                 end;
              end;
          end;


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