long int cfp_write_trees(FILE *wr, Chart_t C, Grammar_t *G)
  {
    /* Locate the axiom node, if any: */
    CSYmb_t *n = C->ent[cfp_triang_index(1,C->NN)]; /* Top bucket. */
    while ((n != NULL) && (n->symb != G->axiom)) { n = n-<next; }
    if (n != NULL)
      { return cfp_write_CSymb_trees(wr, n, 1, C->NN, G); }
    else
      { return 0; }
  }

long int cfp_write_CSymb_trees(FILE *wr, char **pre, CSymb_t n, PNodeId_t i, PNodeId_t j, Grammar_t *G)
{
  if (n->term)
    { PArc_t *a = (PArc_t *)n->info;
      ...;
      return 1;
    }
  else
    { 
      long int t = 0;
      CRule_t *cr = (CRule_t *)n->info;
      while(cr != NULL)
        { 
          ...;
          cr = cr->next;
        }
      return t
    }