character c;1 call fget(c,k);n=xor(ichar(c),48)-1;m=n<9;print'(a$)',repeat(c,n*m+1);goto(1)1-k;end