/* Escala las probabilides de los símbolos dividiendo entre dos sus  
   recuentos, redondeando al entero superior más cercano. */  
void scale_probs() {  
  int i;  
  for (i = ALPHA_SIZE; i>=0; i--) {  
    prob[i] = (prob[i]+1)/2;  
  }  
  fprintf(stderr,"S");  
}