($n,$m)=glob<>;
for(1..2**$n){
	print join($",$a..$a+2**$m-1),$/;
	$a+=2**$m;
}