let rec x m n=if(n==0)then""else(x(m/8)(n-1))^[|"---";"--x";"-w-";"-wx";"r--";"r-x";"rw-";"rwx"|].(m mod 8);;for i=0to 511do Printf.printf"%04o is -%s\n"i(x i 3)done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).