[ XTreeSub i;
  if (noun==0)
  {   objectloop(i) if (i ofclass Object && parent(i)==0) XObj(i);
  }
  else XObj(noun,1);
];