static L<Lisp> sortByArgumentHygiene(L<Lisp> l) {
  new IdentityHashMap<Lisp, Int> scores;
  for (Lisp x : l)
    scores.put(x, lisp_roundBracketHygieneScore(x));
  ret sortByDescScore(l, scores);
}