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