#include<bits/stdc++.h>
using namespace std;
#define ll long long
const int N=1005;
int a[N];
int len,b[N],cnt[N];
int f[N][N],pre[N][N];
bool check(int mid){
	for(int i=0;i<=len;i++){
		for(int j=0;j<=mid;j++){
			f[i][j]=pre[i][j]=0;
		}
	}
	f[0][0]=1;
	for(int i=0;i<len;i++){
		for(int j=0;j<=mid;j++){
			if(!f[i][j]) continue;
			for(int k=max(0,cnt[i+1]+j-mid);k<=min(j,cnt[i+1]);k++){
				if(0<=j-2*k+cnt[i+1]&&j-2*k+cnt[i+1]<=mid){
					f[i+1][j-2*k+cnt[i+1]]=1;
					pre[i+1][j-2*k+cnt[i+1]]=j;
				}
			}
		}
	}
	return f[len][0];
}
vector<int> ans[N];
void getans(int i,int j,int sz){
	if(i==1){
		for(int k=1;k<=cnt[1];k++) ans[k].push_back(b[1]);
		return;
	}
	getans(i-1,pre[i][j],sz);
	int x=(pre[i][j]+cnt[i]-j)/2;
	int y=cnt[i]-x;
	for(int k=1;k<=sz;k++){
		if(ans[k].size()%2==1){
			if(x>0){
				x--;
				ans[k].push_back(b[i]);
			}
		}
		else{
			if(y>0){
				y--;
				ans[k].push_back(b[i]);
			}
		}
	}
}
void solve(){
	int n;cin>>n;
	for(int i=1;i<=n;i++){
		cin>>a[i];
	}
	for(int i=1;i<=n;i++) cnt[i]=0;
	for(int i=1;i<=n;i++) ans[i].clear();
	for(int i=1;i<=n;i++) for(int j=1;j<=n;j++) f[i][j]=0;
	if(n%2==1){
		cout<<-1<<'\n';
		return;
	}
	sort(a+1,a+n+1);
	len=1;b[1]=a[1];
	for(int i=2;i<=n;i++) if(a[i]!=a[i-1]) b[++len]=a[i];
	for(int i=1;i<=n;i++) a[i]=lower_bound(b+1,b+len+1,a[i])-b;
	int maxcnt=0;
	for(int i=1;i<=n;i++){
		cnt[a[i]]++;
		maxcnt=max(maxcnt,cnt[a[i]]);
	}
	if(maxcnt*2>n){
		cout<<-1<<'\n';
		return;
	}
	int h=1,t=n/2;
	while(h<t){
		int mid=(h+t)/2;
		if(check(mid)) t=mid;
		else h=mid+1;
	}
	cout<<h<<'\n';
	check(h);
	getans(n,0,h);
	for(int i=1;i<=h;i++){
		cout<<ans[i].size()<<' ';
		for(int j:ans[i]) cout<<j<<' ';
		cout<<'\n';
	}
	
}
int main(){
	//freopen("in.in","r",stdin);
	//freopen("out.out","w",stdout);
	ios::sync_with_stdio(0);
	cin.tie(0);
	
	int t;cin>>t;
	while(t--) solve();
	return 0;	
} 

貌似有些神奇错误
多测时会多几个数字或有些集合大小为奇数
但单测时没有这种情况
貌似清空了