program permutari;
var n,s:byte;
    x:array[1..100] of byte;
    fo:text;
procedure tipar(n:byte);
var i:byte;
begin
for i:=1 to n do write(fo,x[i],' ');
writeln(fo);
end;

function valid(k:byte):boolean;
var i:byte;
    b:boolean;
begin
b:=true;
for i:=1 to k-1 do if x[k]=x[i] then begin
                                     b:=false;
                                     break
                                     end;

if b then valid:=true
     else valid:=false;
end;

procedure back(k:byte);
var i:byte;
begin
if k=n+1 then tipar(k-1)
         else
         for i:=1 to n do begin
                          x[k]:=i;
                          if valid(k) then back(k+1);
                          end;
end;

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