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