program permutariex;

var
f:text;
n,k,i:byte;
ams,ev:boolean;
a:array[1..10] of byte;

begin
assign(f,'permutari.in');
reset(f);
read(f,n);
close(f);
k:=1;
a[k]:=0;
assign(f,'permutari.out');
rewrite(f);
while k>0 do
          begin
           repeat
           if a[k]<n then
                        begin
                         a[k]:=a[k]+1;
                         ams:=true;
                        end
                       else ams:=false;
           if ams then begin
                         ev:=true;
                         for i:=1 to k-1 do if a[i]=a[k] then ev:=false;
                       end;
           until ((ams=false) or (ams and ev));
           if ams
                then if k=n then
                            begin
                            for i:=1 to n do write(f,a[i],' ');
                            writeln(f);
                            end
                     else
                        begin
                        k:=k+1;
                        a[k]:=0;
                        end
               else k:=k-1;
           end;
close(f);
end.