0 1 511{dup -9 3 0{bitshift 8 mod =only dup}for( is )-9 1 0{exch print 2 copy
bitshift 1 and exch 3 mod 3 add mul(-rwx)exch 1 getinterval}for =}for