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

#define	Parent(y, link) ((y) = ZZParent(link))