#!/usr/bin/env perl

my $k = <>; chomp $k;
my @res;

sub dfs {
  my ($l, $r) = @_;
  return unless $l <= $r;
  my $m = int(($l + $r) / 2);
  push @res, $m;
  dfs($l, $m - 1);
  dfs($m + 1, $r);
}

push @res, 1;
dfs(2, (2**$k) - 1);
print join(' ', @res);