Problem: There is a mysterious planet called Yaen, whose space is 2-dimensional. There are many beautiful stones on the planet, and the Yaen people love to collect them. They bring the stones back home and make nice mobile arts of them to decorate their 2-dimensional living rooms.

In their 2-dimensional world, a mobile is defined recursively as follows:

* a stone hung by a string, or
* a rod of length 1 with two sub-mobiles at both ends; the rod is hung by a string at the center of gravity of sub-mobiles. When the weights of the sub-mobiles are n and m, and their distances from the center of gravity are a and b respectively, the equation n × a = m × b holds.


<image>


For example, if you got three stones with weights 1, 1, and 2, here are some possible mobiles and their widths:

<image>

Given the weights of stones and the width of the room, your task is to design the widest possible mobile satisfying both of the following conditions.

* It uses all the stones.
* Its width is less than the width of the room.



You should ignore the widths of stones.

In some cases two sub-mobiles hung from both ends of a rod might overlap (see the figure on the below). Such mobiles are acceptable. The width of the example is (1/3) + 1 + (1/4).


<image>



Input

The first line of the input gives the number of datasets. Then the specified number of datasets follow. A dataset has the following format.


r
s
w1
.
.
.
ws


r is a decimal fraction representing the width of the room, which satisfies 0 < r < 10. s is the number of the stones. You may assume 1 ≤ s ≤ 6. wi is the weight of the i-th stone, which is an integer. You may assume 1 ≤ wi ≤ 1000.

You can assume that no mobiles whose widths are between r - 0.00001 and r + 0.00001 can be made of given stones.

Output

For each dataset in the input, one line containing a decimal fraction should be output. The decimal fraction should give the width of the widest possible mobile as defined above. An output line should not contain extra characters such as spaces.

In case there is no mobile which satisfies the requirement, answer -1 instead.

The answer should not have an error greater than 0.00000001. You may output any number of digits after the decimal point, provided that the above accuracy condition is satisfied.

Example

Input

5
1.3
3
1
2
1
1.4
3
1
2
1
2.0
3
1
2
1
1.59
4
2
1
1
3
1.7143
4
1
2
3
5


Output

-1
1.3333333333333335
1.6666666666666667
1.5833333333333335
1.7142857142857142

Solution (in CPP):

Solution:
#include <iostream>
#include <cstdio>
#include <vector>
#include <complex>
#include <algorithm>
#include <set>
#include <map>
#include <queue>
#include <string>
#include <cstring>
#include <stack>
#include <cmath>
#include <iomanip>
#include <sstream>
#include <cassert>

using namespace std;

typedef long long ll;
typedef ll li;
typedef pair<ll,ll> PI;
#define EPS (1e-10L)
#define rep(i,n) for(ll i=0;i<(int)(n);++i)
#define REP(i,m,n) for(ll i=m; i<=(int)(n); ++i)
#define F first
#define S second
#define mp(a,b) make_pair(a,b)
#define pb(a) push_back(a)
#define SZ(a) (int)((a).size())
#define ALL(a) a.begin(),a.end()
#define FOR(it,a) for(__typeof(a.begin())it=a.begin();it!=a.end();++it)
ll dx[]={0,1,0,-1,1,1,-1,-1};
ll dy[]={1,0,-1,0,-1,1,1,-1};

int w[10];
typedef pair<double,double> PD;
typedef vector<PD> mo;
vector<pair<double, double> > memo[1<<6];
bool vis[1<<6];
double r;
int s;
mo rec(int have){
  if(vis[have]) return memo[have];
  //cout << have << endl;
  vis[have] = true;
  if(__builtin_popcount(have)==1){
    mo &ret=memo[have];
    ret.clear();
    ret.pb(PD(0,0));
    return ret;
  }

  mo &ret=memo[have];
  ret.clear();
  int sub=(have-1)&have;
  while(sub){
    mo a = rec(sub);
    mo b = rec(have^sub);
    int wa=0,wb=0;
    rep(i,s){
      if((sub>>i)&1) wa += w[i];
      if((have>>i)&1) wb += w[i];
    }
    wb -= wa;
    double la = wb*1./(wa+wb);
    double lb = wa*1./(wa+wb);
    FOR(ita,a)FOR(itb,b){
      ret.pb(mp(max(lb+itb->F,ita->S-la),
                max(la+ita->F,itb->S-lb)));
      ret.pb(mp(max(lb+itb->S,ita->S-la),
                max(la+ita->F,itb->F-lb)));
      ret.pb(mp(max(lb+itb->F,ita->F-la),
                max(la+ita->S,itb->S-lb)));
      ret.pb(mp(max(lb+itb->S,ita->F-la),
                max(la+ita->S,itb->F-lb)));
    }
    sub=(sub-1)&have;
  }
  
  FOR(it,ret) if(it->F < it->S) swap(it->F,it->S);
  sort(ALL(ret));
  ret.erase(unique(ALL(ret)),ret.end());
  return ret;
}

void solve(){
  cin >> r >> s;
  rep(i,s) cin >> w[i];
  memset(vis,0,sizeof(vis));

  vector<pair<double,double> > ans = rec((1<<s)-1);
  //cout << SZ(ans) << endl;
  double out = -1;
  FOR(it,ans)
    if(it->F+it->S<r)
      out = max(out,it->F+it->S);

  printf("%.9f\n",out);
}

int main(){
  int t;
  cin >> t;
  rep(i,t) solve();
}