sclass LatestAppearance<A> {
  Set<A> lastSet;
  new Map<A, Long> latestAppearance;

  L<A> recordAndSort(Set<A> set) {
    for (A a : setMinusSet(set, lastSet))
      latestAppearance.put(a, sysNow());
    lastSet = set;
    ret sortedByMapLookupDesc(set, latestAppearance);
  }
}