if (*S=='#')                                     
   {                          /* ignore weights if any */
    while ((*S!='(') && (*S!=']')) S++;
    if (*S==']') goto FIN;
    goto NEWCLUSTER;
   }