static int parseQuality(Lisp l) {
  if (l.isLeaf())
    ret isInteger(l.head) || possibleGlobalID(l.head) ? 0 : -1;
  int n = 0;
  for (Lisp x : l)
    n += parseQuality(x);
  ret n;
}