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