(while(read-char)=> c(dotimes,(or(digit->integer c)1)(display c)))