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