static Lisp findHead(Collection<Lisp> l, S head) {
  for (Lisp lisp : l)
    if (lisp.is(head))
      ret lisp;
  null;
}