character c;do1;if(char(9+0**fget(c))/=c)c="0";1 n=fput(c);end