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