/* 1 2 cell(\\"c\\",r) == value of cell from column c row r
*/
double nf_cell(const Node *n, const Cell *c)
{
  Cell x;  Node *r = Right(n);

  if( cell_parse_col( r, &x, c)) return 0;

  x.row = eval_tree( r->next, c);

  if( check_cell( &x)) return 0;

  SS *cp = &ss[x.row][x.col];

  return eval_cell( cp, &x);
}