for i=0to 511for j=-3to 0?and(i*8^j,7),"";next:?" is ";:for j=-9to 0?mid$("rwx---",3+mod(j,3)+3*!and(i,2^-j),1);next:?next