var n,i:integer;
sol:array[1..10] of integer;
a:array[1..100] of integer;
ok:boolean;
        procedure back (k:integer);
        begin
        if k=n+1 then begin
        ok:=false;
        for i:=1 to n do begin
        if sol[i]=1 then begin
        write(a[i]);
        ok:=true;
        end;
        end;
        if ok=true then
        writeln
        end
        else begin
        sol[k]:=-1;
        while sol[k]<1 do begin
        inc(sol[k]);
        back(k+1)
        end
        end
        end;
begin
assign(input,'submultimi.in');reset(input);
assign(output,'submultimi.out');rewrite(output);
read(n);
for i:=1 to n do
a[i]:=i;
back(1);
close(output);
end.