static <A, B> Map<A, B> intersectMapWithSetByKey(Map<A, B> map, Set<A> set) {
  Map<A, B> m2 = similarEmptyMap(map);
  for (A a, B b : map) {
    if (contains(set, a))
      m2.put(a, b);
  }
  ret m2;
}