(#0=dotimes(x 512)(format #t"~4,'0O is -"x)(#0#(i 9)(display(if(logbit?(- 8 i)x)(string-ref"rwxrwxrwx"i)'-)))(print))