/* 1 1 logarithm of 1 plus argument, log1p(x) == log(1+x)
*/
double nf_log1p(const Node *n, const Cell *c)
{
  return log1p( eval_tree( Right(n), c) );
}