@;="";$x=0,@;=map{$_.$x,$_.($x^=1)}@;for 1..pop;\@;

##</code><code>##

[map{sprintf"%0$_[0]b",$_^$_/2}0..2**$_[0]-1]