var     x:array[0..20] of byte;
        a:array[0..20,0..20] of byte;
        sem:boolean;
        n,k,i,j,i2:longint;
        f,g:text;
begin
        assign(f,'permutari.in');
        assign(g,'permutari.out');
        reset(f);
        rewrite(g);
        readln(f,n);
        k:=1;
        while k>0 do begin
                if x[k]<n then begin
                        x[k]:=x[k]+1;
                        sem:=true;
                        for i:=1 to k-1 do
                                if x[i]=x[k] then sem:=false;
                        if sem then begin
                                if k=n then begin
                                        for i:=1 to n do
                                                write(g,x[i],' ');
                                        writeln(g);
                                end
                                else begin
                                        inc(k);
                                        x[k]:=0;
                                end;
                        end;
                end
                        else dec(k);
        end;
        close(g);
end.