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