var Viz:array[1..9] of longint;
    n,i : longint;

procedure backtrack( k : longint );
     var i,j,aux : longint;
     begin
          if k=n then begin
                           for i:=1 to n do write(Viz[i],' ');
                           writeln;
                       end
                 else begin
                            for i:=1 to n do begin
                                                  aux:=1;
                                                  for j:=1 to k do
                                                     if Viz[j]=i then aux:=0;
                                                     if aux=1 then begin
                                                                     Viz[k+1]:=i;
                                                                     backtrack(k+1);
                                                                   end;
                                             end;
                     end;
    end;

begin
assign(input,'permutari.in'); reset(input);
assign(output,'permutari.out'); rewrite(output);
readln(n);
for i:=1 to n do viz[i]:=0;
backtrack(0);
close(input);
close(output);
end.