struct ccons * cons(p, q) struct ccons *p, *q;
{
  struct ccons *r = NEWZ(struct ccons);
  r->car = p;
  r->cdr = q;
  return r;
}
