var n,i,j:longint;
    t:text;
    x:array[0..10] of longint;
    ok:boolean;

procedure perm(poz:longint);
var ok:boolean;
    i:longint;
begin
if poz<n then
for i:=1 to n do
  begin
    ok:=true;
    for j:=0 to poz-1 do
      begin
        if x[j]=i then
          begin
            ok:=false;
            break;
          end;
      end;

      if ok=true then
        begin
          x[poz]:=i;
          perm(poz+1);
        end;
  end
else
begin for i:=0 to n-1 do write(t,x[i]); writeln; end;

end;
begin
assign(t,'permutari.in'); reset(t); close(t);
readln(t,n);
assign(t,'permutari.out'); rewrite(t);
perm(0);
close(t);
end.