var s:array[1..10] of longint;
    n:longint;
procedure back(l:longint);
    var i,j:longint;
       ok:boolean;
    begin
      if n=l then
                 begin
                   for i:=1 to l do write(s[i],' ');
                   writeln;
                 end
             else
                begin
                   for i:=1 to n do
                     begin
                       ok:=true; j:=1;
                       while(j<=l)and(ok) do
                              begin
                                if s[j]=i then ok:=false;
                                inc(j);
                              end;
                       if ok then
                          begin
                            s[l+1]:=i;
                            back(l+1);
                          end;
                     end;
                end;
    end;
begin
assign(input,'permutari.in'); reset(input);
assign(output,'permutari.out'); rewrite(output);
readln(n);
back(0);
close(input); close(output);
end.