/* 1 -1 number of cells defined
*/

#define COUNT_COUNT i[0]

static void rf_count_callback( Data *d)
{
  ++d->COUNT_COUNT;
}

double rf_count(const Node *n, const Cell *c)
{
  Data d;  d.COUNT_COUNT = 0;

  ss_traverse_list( Right(n), c, rf_count_callback, &d);

  return d.COUNT_COUNT;
}