for(i,4096,4607,write((i .."")toBase(8)slice(1)," is ",for(k,0,9,"-xrw"slice(t:=(i>>9-k&1)*(k%3+1),t+1)print)"
"))