$k=<>;
print $y=2**$k-1,$";
for$i(0..$k){
	for$j(0..2**$i-1){
		$x=2**($k-$i)*($j*2+1),$";
		if($x<$y){
			print $x,$";
		}
	}
}