o={-,r}{-,w}{-,x}
eval set -- $o$o$o
for m;{ printf "%04o is -$m
" $[i++];}