var
  n, e : byte;
  i, j : longint;
  fi, fo : text;
begin
  assign (fi, 'submultimi.in'); reset (fi);
  assign (fo, 'submultimi.out'); rewrite (fo);
  read (fi, n);
  for i := 1 to 1 shl n-1 do
    begin
      j := i; e := 1;
      while j > 0 do
        begin
          if j and 1 = 1 then
            write (fo, e, ' ');
          j := j shr 1; inc (e);
        end;
      writeln (fo);
    end;
  close (fi); close (fo);
end.