map{$_=sprintf' is %010b',$a=$_;y/0/-/,s/1/(w,x,r)[$-[0]%3]/eg,printf"%04o$_
",$a}0..511