loop{c=getc
putc c>47?$*[48,0]=c>?9?c:$*[c]:c}