+
+ /* Si me lo piden, aplico ZG. */
+ if (zflag)
+ {
+ size_t len;
+ char buff[2];
+ ZG zg;
+ zg_init(&zg);
+ for (j = 0; j < i; ++j)
+ if ((len = zg_group(&zg, buff, mtf[j]))) fwrite(buff, 1, len, fp_out);
+ }
+ else
+ {
+ for(j=0; j<i; j++)
+ fputc(mtf[j], fp_out);
+ }