(#1=dotimes(n 512)(format t"~&~4,'0O is "n)(#1#(i 10)(princ(elt"xrw-"(if(logbitp(- 9 i)n)(mod i 3)3)))))