static OBJECT ZZChild(OBJECT link)
{
  OBJECT y;
  for( y = pred(link, PARENT);  type(y) == LINK;  y = pred(y, PARENT) );
  return y;
}

#define Child(y, link) ((y) = ZZChild(link))