(whilet c(readc)(pr:+(readc)c))