(while(writeb:roundup:-(avg:drain(or(readb)q)10).5)(prn))