text: void ProdWord_bla ( gtL, gtRes, lnL )
      int *gtL, *gtRes;
      int lnL;
  {
      while ( 1 < lnL )
      {
          *gtRes++ = *gtL++;
          --lnL;
      }
      if ( 0 < lnL )
          if ( gtL[0] == gtL[1] )
              *gtRes++ = 0;
  }
  