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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page