Problem: Your friend Salem is Warawreh's brother and only loves math and geometry problems. He has solved plenty of such problems, but according to Warawreh, in order to graduate from university he has to solve more graph problems. Since Salem is not good with graphs he asked your help with the following problem.

<image>

You are given a complete directed graph with n vertices without self-loops. In other words, you have n vertices and each pair of vertices u and v (u ≠ v) has both directed edges (u, v) and (v, u).

Every directed edge of the graph is labeled with a single character: either 'a' or 'b' (edges (u, v) and (v, u) may have different labels).

You are also given an integer m > 0. You should find a path of length m such that the string obtained by writing out edges' labels when going along the path is a palindrome. The length of the path is the number of edges in it.

You can visit the same vertex and the same directed edge any number of times.

Input

The first line contains a single integer t (1 ≤ t ≤ 500) — the number of test cases.

The first line of each test case contains two integers n and m (2 ≤ n ≤ 1000; 1 ≤ m ≤ 10^{5}) — the number of vertices in the graph and desirable length of the palindrome.

Each of the next n lines contains n characters. The j-th character of the i-th line describes the character on the edge that is going from node i to node j.

Every character is either 'a' or 'b' if i ≠ j, or '*' if i = j, since the graph doesn't contain self-loops.

It's guaranteed that the sum of n over test cases doesn't exceed 1000 and the sum of m doesn't exceed 10^5.

Output

For each test case, if it is possible to find such path, print "YES" and the path itself as a sequence of m + 1 integers: indices of vertices in the path in the appropriate order. If there are several valid paths, print any of them.

Otherwise, (if there is no answer) print "NO".

Example

Input


5
3 1
*ba
b*b
ab*
3 3
*ba
b*b
ab*
3 4
*ba
b*b
ab*
4 6
*aaa
b*ba
ab*a
bba*
2 6
*a
b*


Output


YES
1 2
YES
2 1 3 2
YES
1 3 1 3 1
YES
1 2 1 3 4 1 4
NO

Note

The graph from the first three test cases is shown below:

<image>

In the first test case, the answer sequence is [1,2] which means that the path is:

$$$1 \xrightarrow{b} 2$$$

So the string that is obtained by the given path is b.

In the second test case, the answer sequence is [2,1,3,2] which means that the path is:

$$$2 \xrightarrow{b} 1 \xrightarrow{a} 3 \xrightarrow{b} 2$$$

So the string that is obtained by the given path is bab.

In the third test case, the answer sequence is [1,3,1,3,1] which means that the path is:

$$$1 \xrightarrow{a} 3 \xrightarrow{a} 1 \xrightarrow{a} 3 \xrightarrow{a} 1$$$

So the string that is obtained by the given path is aaaa.

The string obtained in the fourth test case is abaaba.

Solution (in CPP):

Solution:
//#pragma GCC optimize("Ofast")
//#pragma GCC target("avx,avx2,fma,sse,sse2,sse3,sse4") /* q,n <= 200000 */
//#pragma GCC optimization ("O3")
//#pragma GCC optimization ("unroll-loops")
#include<bits/stdc++.h>
using namespace std ;
/*
#include<ext/pb_ds/assoc_container.hpp>
#include<ext/pb_ds/tree_policy.hpp>
using namespace __gnu_pbds;
typedef tree<int, null_type, less<int>, rb_tree_tag, tree_order_statistics_node_update > ordered_set;
#define index(a) order_of_key(a)
#define _value(a) find_by_order(a)
 */
#define PIE acos(-1)
#define rl(i,n)        for(int i=0;i<n;i++)
#define ll             long long int
#define ld             long double
#define pb             push_back
#define all(v)         v.begin(),v.end()
#define sz(a)          (int)((a).size())
#define IOS            ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0)
#define edl             "\n"
#define lll __uint128_t
#define bit_count(n) bitcount(n)
using namespace std;
inline ll __gcd(ll a,ll b);
void pdash(int n=1);int bitcount(ll u);
ll power(ll x,ll y);ll power(ll x,ll y,ll z);
ll modInverse(ll n,ll p);ll nCrF(ll n,ll r,ll p);
vector<int > cordinate_compression(vector<int>& v);   // return access vector so that we can keep track of real entity;
void make_uniquee(vector<int>& vec);        // notice the strange fn_name
mt19937_64 rng(chrono::high_resolution_clock::now().time_since_epoch().count());
ll myrand(ll mod=1000000009);
void custome_random_shuffle(vector<int>& vec){shuffle(all(vec),rng);return;}
void svec(vector<int>& vec);void smap(vector<int,int>& mp);void sset(set<int >& st);
///////////////////////////////////////////////////////////////////////////////////////////////////////////
void solve()
{
    int n,m;cin>>n>>m;
    vector<string >vec(n+1);
    string str;
    for(int i=1;i<=n;i++)
    {
        cin>>str;
        str="#"+str;
        vec[i]=str;
    }

    for(int i=1;i<=n;i++)
    {
        for(int j=1;j<=n;j++)if(i^j and vec[i][j]==vec[j][i])
        {
            cout<<"YES\n";
            cout<<i<<" ";
            for(int k=0;k<m;k++)if(k%2==0)cout<<j<<" ";else cout<<i<<" ";cout<<edl;
            return;
        }
    }
    if(n==2){
        if(vec[1][2]!=vec[2][1] and m%2==0){cout<<"NO\n";return;}
        cout<<"YES\n";
        cout<<"2 ";
        for(int j=1;j<=m;j++){if(j%2)cout<<"1 ";else cout<<"2 ";}cout<<edl;
        return;
    }
    cout<<"YES\n";
    if(vec[1][2]==vec[2][3] and vec[2][3]==vec[3][1]){
        cout<<"1 ";
        for(int j=1;j<=m;j++){
            if(j%3==0){cout<<"1 ";}else if(j%3==1)cout<<"2 ";else cout<<"3 ";
        }cout<<edl;
        return;
    }
    map<int,int>mp;
    set<int >st;st.insert(1);st.insert(2);st.insert(3);
    st.erase(6);
    st.erase(7);
    for(int i=0;i<3;i++)
    if(vec[i+1][(i+1)%3+1]==vec[(i+1)][(i+2)%3+1])
    {
        if(vec[i+1][(i+1)%3+1]=='a'){mp[3]=i+1;st.erase(i+1);}
        if(vec[i+1][(i+1)%3+1]=='b'){mp[2]=i+1;st.erase(i+1);}
    }
    mp[1]=(*st.begin());st.clear();

    switch (m%4) {
        case 0:
            cout<<mp[1]<<" ";
            for(int i=1;i<=m/4;i++){cout<<mp[2]<<" "<<mp[1]<<" ";}
            for(int i=1;i<=m/4;i++){cout<<mp[3]<<" "<<mp[1]<<" ";}
            cout<<edl;
                   break;
        case 1:
          cout<<mp[3]<<" ";
            for(int i=1;i<=m/4;i++){cout<<mp[2]<<" "<<mp[3]<<" ";}
            cout<<mp[1]<<" ";
            for(int i=1;i<=m/4;i++){cout<<mp[3]<<" "<<mp[1]<<" ";}
            cout<<edl;
                   break;
        case 2:
            cout<<mp[3]<<" ";
            for(int i=1;i<=m/4;i++){cout<<mp[2]<<" "<<mp[3]<<" ";}
            cout<<mp[1]<<" "<<mp[2]<<" ";
            for(int i=1;i<=m/4;i++){cout<<mp[1]<<" "<<mp[2]<<" ";}
            cout<<edl;

                   break;
        case 3:
            cout<<mp[3]<<" ";
            for(int i=1;i<=m/4+1;i++){cout<<mp[2]<<" "<<mp[3]<<" ";}
            cout<<mp[1]<<" ";
            for(int i=1;i<=m/4;i++){cout<<mp[3]<<" "<<mp[1]<<" ";}
            cout<<edl;

                   break;
    }



}


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
int main(){
        IOS;  //comment it when in interactive
        int t=1;
        cin>>t;
    while(t--){
        solve();}
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


/*
                                        * do smth instead of nothing and stay organized
*/



inline ll __gcd(ll a,ll b){if(a==0||b==0){return a+b;}ll tempa,tempb;while(1){if(a%b==0)return b;else{tempa=a;tempb=b;a=tempb;b=tempa%tempb;}}}
void pdash(int n){for(int i=0;i<n;i++){for(int j=0;j<30;j++){cout<<"-";}cout<<edl;}}
ll power(ll x,ll y){ll result =1;while(y>0){if(y&1){result=(result*x);}y=y>>1;x=(x*x);}return result;}
ll power(ll x,ll y,ll z){ll result =1;x=x%z;while(y>0){if(y&1){result=(result*x)%z;}y=y>>1;x=(x*x)%z;}return result;}
ll modInverse(ll n,ll p){return power(n, p-2, p);}
ll nCrF(ll n,ll r,ll p){if(r==0)return 1;vector<ll>f(n+1);f[0]=1;for(ll i=1;i<=n;i++)f[i]=f[i-1]*i%p;
    return (f[n]*modInverse(f[r],p)%p*modInverse(f[n-r],p)%p)%p;}
vector<int > cordinate_compression(vector<int>& v){vector<int >p=v;make_uniquee(p);rl(i,sz(v))v[i]=(int)(lower_bound(all(p),v[i])-p.begin());return p;}
ll myrand(ll mod) {return rng()%mod;}
void make_uniquee(vector<int>& vec){sort(all(vec));vec.erase(unique(all(vec)),vec.end());}
int bitcount(ll u){int cnt=0;while(u){u=u&(u-1);cnt++;}return cnt;}
void svec(vector<int>& vec)
{cout<<"{\n";rl(i,sz(vec))cout<<"["<<i<<"]  = "<<vec[i]<<edl;cout<<"}\n";}
void sset(set<int>& st){cout<<"{\n";for(auto& j: st){cout<<j<<edl;}cout<<"}\n";}
void smap(map<int,int>& mp){cout<<"{\n";for(auto& j: mp)cout<<"["<<j.first<<"]  = "<<j.second<<edl;cout<<"}\n";}