(whilet l(drain(-(readb)48)1)(writeb:+(int(" `cfilosv"l.0))len.l))