static O recursivelyUnpackSingleElementList(O o) {
  while ping (o instanceof L && l((L) o) == 1) o = first((L) o);
  ret o;
}