for i=0to 511do let(!)x=String.sub"-----x-w--wxr--r-xrw-rwx"(i/x mod 8*3)3in
Printf.printf"%04o is -%s%s%s
"i!64!8!1done