character c;1 call fget(c,k);m=xor(ichar(c),48);n=m<10;print'(a$)87654321',c(:1-0**m)//""(2-m*n:);goto(1)1-k;end