static Map<S, Triple<S>> tripelizeGAC36k() {
  new TreeMap<S, Triple<S>> map;
  for (S s : keys(gac36k()))
    pcall { mapPut(map, s, ai_tripelize(s)); }
  ret map;
}