sub elide_japhy {
  my ($s, $e) = @_;
  return $s == $e ?
    $s : 
    ("$s $e" =~ /^(\d*)\d* \1(\d*)$/ and "$s-$2");
}