sub elide_japhy {
  $_[0] == $_[1] ?
    shift :
    ("@_" =~ /^(\d*)\d* \1(\d*)$/ and "$_[0]-$2");
}