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;
}