(for i 0 511(pr(cut(coerce(+ 4096 i)'string 8)1)" is -")(on a(cut(coerce(+ 512 i)'string 2)1)(pr:if(is #\1 a)("rwxrwxrwx"index)"-"))(prn))