(drain(readb)10)(while:prt:readc)