sub edges2vertices {
    sort keys %{ { map { $_ => undef } map @$_, @_ } }
  }