var a:array[1..100]of byte;
    n:byte; f:text;
procedure afis;
var i:byte; b:boolean;
begin
 b:=false;
 for i:=1 to n do
  if a[i]>0 then begin b:=true; write(f,i,' '); end;
 if b then writeln(f);
end;

procedure gen_bin(p:byte);
begin
 if p>n then afis
  else begin
   a[p]:=0; gen_bin(p+1);
   a[p]:=1; gen_bin(p+1);
  end;
end;

begin
 assign(f,'submultimi,in');
 reset(f);
 readln(f,n);
 close(f);
 assign(f,'submultimi,out');
 rewrite(f);
 gen_bin(1);
 close(f);
end.