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