Help for this page
@;="";$x=0,@;=map{$_.$x,$_.($x^=1)}@;for 1..pop;\@;
[map{sprintf"%0$_[0]b",$_^$_/2}0..2**$_[0]-1]