character c;1 call fget(c,k);print'(a1$)',and(ichar(c),-5);goto(1)k+1;end