($a=CFI x 3^sprintf'%9b',$_)=~y/rwx/-/c,printf"%.4o is -$a
",$_ for 0..511