let p=Printf.printf;;for i=0to 511do
p"%04o is -"i;for j=0to 8do
p"%c"[|'-';"rwxrwxrwx".[j]|].(i lsr(8-j)mod 2)done;p"
"done