pull a
do i=0 to 2**a-1
say translate(right(x2b(d2x(i)),a),.#,01)
end