0to:511 do:[:i|(((i+4096 radix:8)copyFrom:4),' is -',((0to:8)collect:[:x|{$-.'rwx'at: x\\3+1}at:(i bitShift:-8+x)\\2+1]))displayNl]!
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page