program back;
uses crt;
var x,viz:array[1..100] of integer;
    n,k,t:integer;
f1,f2:textfile;
procedure back(k:byte);
var i:byte;
begin
        if k>n then
                  begin for i:=1 to k-1 do write(f2,x[i],' ');
                  writeln(f2);
                  inc(t);
                  end
                  else for i:=1 to n do if viz[i]=0 then begin
                                                         viz[i]:=1;
                                                         x[k]:=i;
                                                         back(k+1);
                                                         viz[i]:=0;
                                                         end;
end;

begin
        assign(f1,'permutari.in');
        reset(f1);
        assign(f2,'permutari.out');
        rewrite(f2);
        readln(f1,n);
        back(1);
        end.