!7

p-experiment {
  for (Pair<S> p : katzeLog_pairsCloseInTime()) {
    S a = p.a, b = p.b;
    if (eq(a, b)) continue;
    S s = longestCommonSubstring(a, b);
    if (empty(s)) continue;
    int percent = ratioToIntPercent(l(s), max(l(a), l(b)));
    printToBuf(percent + "%: " + p.a + " -> " + p.b);
  }
  printLines(sortedByFirstInt(bufLines()));
}