(loop(if(setq c(read-char)n(digit-char-p c))(dotimes(i n)(princ(- n i)))(princ c)))