pull a do i=0 to 2**a-1 say translate(right(x2b(d2x(i)),a),.#,01) end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page