static void unemitHeads(S... heads) {
  for (S head : heads)
    for (LispStatement s : cloneList(lispStatementsByHead(head)))
      unemit(s.globalID);
}