static Pair<Double, Map<S, Triple<S>>> scoreTripelizer(O guesser, Map<S, Triple<S>> examples) {
  int ok = 0, total = 0;
  Map<S, Triple<S>> errors = litorderedmap();
  for (S key, Triple<S> value : examples) {
    total++;
    Triple<S> t = cast pcallF(guesser, key);
    if (tripleEqic(value, t)) ok++;
    else errors.put(key, t);
    
  }
  ret pair(total == 0 ? 1 : ok/(double) total, errors);
}

Began life as a copy of #1011034