(whilet c(readc)(prt(readc)c))