END{while(i<512){for(p=9;p--;)v=v (int(i/2^p)%2?substr("xwr",p%3+1,1):"-");printf"%04o is -%s\n",i++,v;v=_}}