Problem: James Bond has a new plan for catching his enemy. There are some cities and directed roads between them, such that it is possible to travel between any two cities using these roads. When the enemy appears in some city, Bond knows her next destination but has no idea which path she will choose to move there. 

The city a is called interesting, if for each city b, there is exactly one simple path from a to b. By a simple path, we understand a sequence of distinct cities, such that for every two neighboring cities, there exists a directed road from the first to the second city. 

Bond's enemy is the mistress of escapes, so only the chase started in an interesting city gives the possibility of catching her. James wants to arrange his people in such cities. However, if there are not enough interesting cities, the whole action doesn't make sense since Bond's people may wait too long for the enemy.

You are responsible for finding all the interesting cities or saying that there is not enough of them. By not enough, James means strictly less than 20\% of all cities. 

Input

The first line contains one integer t (1 ≤ t ≤ 2 000) — the number of test cases. Each test case is described as follows:

The first line contains two integers n and m (1 ≤ n ≤ 10^5, 0 ≤ m ≤ 2 ⋅ 10^5) — the number of cities and roads between them. Each of the following m lines contains two integers u, v (u ≠ v; 1 ≤ u, v ≤ n), which denote that there is a directed road from u to v.

You can assume that between each ordered pair of cities there is at most one road. The sum of n over all test cases doesn't exceed 10^5, and the sum of m doesn't exceed 2 ⋅ 10^5.

Output

If strictly less than 20\% of all cities are interesting, print -1. Otherwise, let k be the number of interesting cities. Print k distinct integers in increasing order — the indices of interesting cities.

Example

Input


4
3 3
1 2
2 3
3 1
3 6
1 2
2 1
2 3
3 2
1 3
3 1
7 10
1 2
2 3
3 1
1 4
4 5
5 1
4 6
6 7
7 4
6 1
6 8
1 2
2 3
3 4
4 5
5 6
6 1
6 2
5 1


Output


1 2 3 
-1
1 2 3 5 
-1

Note

In all drawings, if a city is colored green, then it is interesting; otherwise, it is colored red.

In the first sample, each city is interesting. 

<image>

In the second sample, no city is interesting. 

<image>

In the third sample, cities 1, 2, 3 and 5 are interesting. 

<image>

In the last sample, only the city 1 is interesting. It is strictly less than 20\% of all cities, so the answer is -1. 

<image>

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
#pragma GCC optimize("Ofast")
#pragma GCC optimize("unroll-loops")
using namespace std;
mt19937 rng(chrono::steady_clock::now().time_since_epoch().count());
template <class T>
inline bool setmin(T &a, T b) {
  if (a > b) return a = b, 1;
  return 0;
}
template <class T>
inline bool setmax(T &a, T b) {
  if (a < b) return a = b, 1;
  return 0;
}
template <class T>
inline T fast(T a, T b, T mod) {
  long long res = 1;
  while (b) {
    if (b & 1) res = (res * a) % mod;
    a = (a * a) % mod;
    b >>= 1;
  }
  return res;
}
template <class T>
istream &operator>>(istream &os, vector<T> &container) {
  for (auto &u : container) os >> u;
  return os;
}
template <class T>
ostream &operator<<(ostream &os, const vector<T> &container) {
  for (auto &u : container) os << u << " ";
  return os;
}
template <class T>
inline T gcd(T a, T b) {
  while (b) swap(a %= b, b);
  return a;
}
const long long INF = 1e9 + 7;
const long long mod = 998244353;
const long long BIG_INF = 1e18 + 7;
const long long N = 1e6 + 7;
const long long T = 1 << 20;
const long double inf = 1e18;
long long m, n, k, q;
vector<int> ans, odw, preorder, good, skok;
int cnt;
vector<vector<int> > G(N);
void dodaj(pair<pair<int, int>, pair<int, int> > &akt, pair<int, int> syn,
           int v) {
  if (syn.first >= preorder[v]) return;
  if (syn.first < akt.first.first) {
    akt.second = akt.first;
    akt.first = syn;
  } else if (syn.first < akt.second.first) {
    akt.second = syn;
  }
}
pair<pair<int, int>, pair<int, int> > polacz(
    pair<pair<int, int>, pair<int, int> > akt,
    pair<pair<int, int>, pair<int, int> > syn, int v) {
  dodaj(akt, syn.first, v);
  dodaj(akt, syn.second, v);
  return akt;
}
void dfs3(int v) {
  odw[v] = 1;
  if (!good[v] and skok[v]) good[v] = good[skok[v]];
  for (auto &u : G[v])
    if (!odw[u]) dfs3(u);
}
pair<pair<int, int>, pair<int, int> > dfs2(int v) {
  preorder[v] = cnt++;
  odw[v] = 1;
  pair<pair<int, int>, pair<int, int> > ret = {{INF, 0}, {INF, 0}};
  for (auto &u : G[v])
    if (odw[u] == 0)
      ret = polacz(ret, dfs2(u), v);
    else
      dodaj(ret, {preorder[u], u}, v);
  if (ret.second.second == 0 and ret.first.first != INF)
    skok[v] = ret.first.second;
  return ret;
}
void finish(int v) {
  if (v == 0) return;
  cnt = 0;
  fill((odw).begin(), (odw).end(), 0);
  dfs2(v);
  fill((odw).begin(), (odw).end(), 0);
  fill((good).begin(), (good).end(), 0);
  good[v] = 1;
  dfs3(v);
  int ile = accumulate(good.begin(), good.end(), 0);
  if (ile * 5 < n) {
    cout << -1 << '\n';
    return;
  }
  for (int i = 1; i <= n; i++)
    if (good[i]) cout << i << ' ';
  cout << '\n';
}
int dfs(int v) {
  odw[v] = 1;
  bool ret = 1;
  for (auto &u : G[v]) {
    if (odw[u] == 2)
      return false;
    else if (odw[u] == 0)
      ret &= dfs(u);
  }
  odw[v] = 2;
  return ret;
}
int Find(int v) {
  fill((odw).begin(), (odw).end(), 0);
  return v * dfs(v);
}
void solve() {
  cin >> n >> m;
  odw.resize(n + 1);
  preorder.resize(n + 1);
  good.resize(n + 1);
  skok.resize(n + 1);
  fill((skok).begin(), (skok).end(), 0);
  ans.clear();
  for (int i = 1; i <= n; i++) G[i].clear();
  for (int i = 0; i < (m); i++) {
    int a, b;
    cin >> a >> b;
    G[a].push_back(b);
  }
  bool ok = 0;
  for (int i = 0; i < (100); i++) {
    int v = Find(uniform_int_distribution<long long>(1, n)(rng));
    if (v) {
      ok = 1;
      finish(v);
      break;
    }
  }
  if (!ok) cout << -1 << '\n';
}
signed main() {
  ios::sync_with_stdio(0);
  cin.tie(0);
  cin >> q;
  for (int i = 0; i < (q); i++) {
    solve();
  }
}