var s:array[1..100] of integer;
    n,i,j:integer;
    o,d:text;
procedure print;
var i:integer;
  begin
    for i:=1 to n do write(o,s[i],' ');
    writeln(o,'');
  end;
function valid(x:integer):boolean;
var i:integer;
  begin
    valid:=true;
    for i:=1 to x-1 do
      if s[i]=s[x] then begin valid:=false; break; end;
  end;
procedure perm(p:integer);
var i:integer;
  begin
    if p>n then print
           else for i:=1 to n do
                  begin
                    s[p]:=i;
                    if valid(p) then perm(p+1);
                  end;
  end;
begin
assign(d,'permutari.in');assign(o,'permutari.out');
reset(d);rewrite(o);
readln(d,n);
perm(1);
close(o);close(d);
end.