REBOL[]for i 0 255 1[a: 0 prin for j 0 7 1[a: a + to-integer i /(2 ** j)// 2]]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page