(until:for i 49(if(< 47(= b(readb))58)b 49)writeb.b --.b)