var st:array[1..30] of integer;
    viz:array[1..30] of boolean;
    N:integer;

Procedure back( k : integer);
var i:integer;
begin
    if k > N then begin
        for i:=1 to k-1 do
                write(st[i],' ');
        writeln;
          end
else
   for i:=1 to N do
       if not viz[i] then
         begin
            viz[i]:=true;
            st[k]:=i;
           back(k+1);
           viz[i]:=false;
       end;
end;

begin
   readln(n);
  back(1);
readln;
end.