program p1;
var st:array[1..100]  of integer;
    n,k,i:integer;
    as,ev:boolean;
begin
assign(input,'permutari.in') ; reset(input);
assign(output,'permutari.out'); rewrite(output);
readln(n);
k:=1;
st[k]:=0;
while k>0 do begin
        repeat
           as:=false;
           if st[k]<n then begin as:=true; st[k]:=st[k]+1; end;
           if as then begin
              ev:=true;
              for i:=1 to k-1 do if st[k]=st[i] then ev:=false;
              end;
        until not as or (as and ev);
        if as then
          if k=n then begin for i:=1 to n do write(st[i],' ');
                    writeln;
                    end
            else begin
                 k:=k+1;
                 st[k]:=0;
                 end
          else k:=k-1;
        end;

close(OUTPUT);
end.