character c;1 call fget(c,k);if(c>"@")print'(i0" "$)',ichar(c);goto(1)1-k;end