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