// #include<bits/stdc++.h>
#include <iostream>
#include <cstdio>
#include <algorithm>
#include <cmath>
#include <vector>
#include <set>
#include <map>
#include <unordered_set>
#include <unordered_map>
#include <queue>
#include <string>
#include <cstring>
#include <random>
#include <bitset>
// #include <ext/pb_ds/assoc_container.hpp>
// #include <ext/pb_ds/tree_policy.hpp>
// using namespace __gnu_pbds;
// template<class T> using oset =tree<T, null_type, less<T>, rb_tree_tag,tree_order_statistics_node_update> ;
using namespace std;
// #pragma GCC optimize("Ofast")
// #pragma GCC target("avx,avx2,fma")
// #pragma GCC optimization ("unroll-loops")
typedef long long ll ;
typedef pair<int,int> pii;
typedef pair<ll,ll> pll;
#define CS custom_hash
#define vt vector
#define F first
#define S second
#define pb push_back
#define em emplace_back
#define stoi stoll
#define all(v) (v).begin(),(v).end()
#define mems(x, y) memset(x, y, sizeof(x))
#define sz(x) (int)(x).size()
#define ar array
#define endl "\n"
#define PI acos(-1)
#define umap unordered_map
#define gmap gp_hash_table
#define ld long double
#define seb(n) __builtin_popcountll(n)
#define LB lower_bound
#define UB upper_bound
// debugger credits: https://c...content-available-to-author-only...s.com/blog/entry/68809
void __print(int x) {cerr << x;}
void __print(long x) {cerr << x;}
void __print(long long x) {cerr << x;}
void __print(unsigned x) {cerr << x;}
void __print(unsigned long x) {cerr << x;}
void __print(unsigned long long x) {cerr << x;}
void __print(float x) {cerr << x;}
void __print(double x) {cerr << x;}
void __print(long double x) {cerr << x;}
void __print(char x) {cerr << '\'' << x << '\'';}
void __print(const char *x) {cerr << '\"' << x << '\"';}
void __print(const string &x) {cerr << '\"' << x << '\"';}
void __print(bool x) {cerr << (x ? "true" : "false");}
template<typename T, typename V>
void __print(const pair<T, V> &x) {cerr << '{'; __print(x.first); cerr << ','; __print(x.second); cerr << '}';}
template<typename T>
void __print(const T &x) {int f = 0; cerr << '{'; for (auto &i: x) cerr << (f++ ? "," : ""), __print(i); cerr << "}";}
void _print() {cerr << "]\n";}
template <typename T, typename... V>
void _print(T t, V... v) {__print(t); if (sizeof...(v)) cerr << ", "; _print(v...);}
template <typename T, typename V>
void mdebug(map<T,vector<V>>m){
for(auto x:m){
cerr << x.first << " : [ " ;
for(auto c:x.second)
cerr << c << " ";
cerr << "]"<<'\n' ;
}
}
#ifndef ONLINE_JUDGE
#define debug(x...) cerr << "[" << #x << "] = ["; _print(x)
#else
#define debug(x...)
#endif
//#pragma GCC optimize "trapv"
//template credits :William Lin(tmwilliamlin168)
#define F_OR(i, a, b, s) for (int i = (a); ((s) > 0 ? i < (b) : i > (b)); i += (s))
#define F_OR1(e) F_OR(i, 0, e, 1)
#define F_OR2(i, e) F_OR(i, 0, e, 1)
#define F_OR3(i, b, e) F_OR(i, b, e, 1)
#define F_OR4(i, b, e, s) F_OR(i, b, e, s)
#define GET5(a, b, c, d, e, ...) e
#define F_ORC(...) GET5(__VA_ARGS__, F_OR4, F_OR3, F_OR2, F_OR1)
#define FOR(...) F_ORC(__VA_ARGS__)(__VA_ARGS__)
#define EACH(x, a) for (auto& x: a)
template<class T> bool umin(T& a, const T& b) {
return b<a?a=b, 1:0;
}
template<class T> bool umax(T& a, const T& b) {
return a<b?a=b, 1:0;
}
template<class A> void read(vt<A>& v);
template<class A, size_t S> void read(ar<A, S>& a);
template<class T> void read(T& x) {
cin >> x;
}
void read(double& d) {
string t;
read(t);
d=stod(t);
}
void read(long double& d) {
string t;
read(t);
d=stold(t);
}
template<class H, class... T> void read(H& h, T&... t) {
read(h);
read(t...);
}
template<class A> void read(vt<A>& x) {
EACH(a, x)
read(a);
}
template<class A, size_t S> void read(array<A, S>& x) {
EACH(a, x)
read(a);
}
string to_string(char c) {
return string(1, c);
}
string to_string(bool b) {
return b?"true":"false";
}
string to_string(const char* s) {
return string(s);
}
string to_string(string s) {
return s;
}
string to_string(vt<bool> v) {
string res;
FOR(sz(v))
res+=char('0'+v[i]);
return res;
}
template<size_t S> string to_string(bitset<S> b) {
string res;
FOR(S)
res+=char('0'+b[i]);
return res;
}
template<class T> string to_string(T v) {
bool f=1;
string res;
EACH(x, v) {
if(!f)
res+=' ';
f=0;
res+=to_string(x);
}
return res;
}
template<class A> void pff(A x) {
cout << to_string(x);
}
template<class H, class... T> void pff(const H& h, const T&... t) {
pff(h);
pff(t...);
}
void print() {
pff("\n");
}
template<class H, class... T> void print(const H& h, const T&... t) {
pff(h);
if(sizeof...(t))
pff(' ');
print(t...);
}
struct PH{
size_t operator()(const pair<int,int>&x)const{
size_t ans=0;
for(int i=0;i<x.first;i++)
ans+=x.second;
return ans;
}
};
// struct custom_hash {
// static uint64_t splitmix64(uint64_t x) {
// // http://x...content-available-to-author-only...i.it/splitmix64.c
// x += 0x9e3779b97f4a7c15;
// x = (x ^ (x >> 30)) * 0xbf58476d1ce4e5b9;
// x = (x ^ (x >> 27)) * 0x94d049bb133111eb;
// return x ^ (x >> 31);
// }
// size_t operator()(uint64_t x) const {
// static const uint64_t FIXED_RANDOM = chrono::steady_clock::now().time_since_epoch().count();
// return splitmix64(x + FIXED_RANDOM);
// }
// };
// void DBG() {
// cerr << "]" << endl;
// }
// template<class H, class... T> void DBG(H h, T... t) {
// cerr << to_string(h);
// if(sizeof...(t))
// cerr << ", ";
// DBG(t...);
// }
// // #ifdef _DEBUG
// #define dbg(...) cerr << "LINE(" << __LINE__ << ") -> [" << #__VA_ARGS__ << "]: [", DBG(__VA_ARGS__)
// // #else
// // #define dbg(...) 0
// // #endif
template<class T> void offset(ll o, T& x) {
x+=o;
}
template<class T> void offset(ll o, vt<T>& x) {
EACH(a, x)
offset(o, a);
}
template<class T, size_t S> void offset(ll o, ar<T, S>& x) {
EACH(a, x)
offset(o, a);
}
template<class T> void fk(T a) {
print(a) ;
exit(0) ;
}
#define pf(n) return print(n)
#define int ll
long const M=1e9+7;
const ll INF =1e18;
// order_of_key (k) : Number of items strictly smaller than k .
// find_by_order(k) : K-th element in a set (counting from zero).
//Syntax to create a min heap for priority queue
// priority_queue <T, vector<T>, greater<T>>pq ;
//make sure to clear the adjacency list for every test case
// check mxN size
//check if numbers are big use powl,sqrtl,builtin_popcountll()......
const int mxN=2e5+10,di[4]={1,0,-1,0},dj[4]={0,-1,0,1};
int n,m ,a[mxN],b[mxN],c[mxN],d[mxN],p;
vt<ar<int,2>>adj[mxN] ;
int k;
vt<int>dp[20] ;
void dijktras(int s){
priority_queue<ar<int,2>,vector<ar<int,2>>,greater<ar<int,2>>> pq ;
pq.push({0,s}) ;
memset(d,0x3f,sizeof(d)) ;d[s]=0 ;
while(pq.size()){
ar<int,2> u= pq.top() ;
pq.pop() ;
if(u[0]>d[u[1]])
continue ;
for(ar<int,2> v:adj[u[1]]){
if(u[0]+v[0]<d[v[1]]){
d[v[1]]=u[0]+v[0] ;
pq.push({d[v[1]],v[1]}) ;
}
}
}
}
int find(int P,vt<int>e){
EACH(x,e){
if(x<1)
return 1e18 ;
}
if(P==p+1)
return 0 ;
int mn=1e18 ;
FOR(i,k){
e[i]-- ;
umin(mn,dp[P][i]+find(P+1,e)) ;
e[i]++ ;
}
return mn ;
}
void solve(){
read(n,m) ;
FOR(m){
int x,y,z ;read(x,y,z) ;
adj[x].pb({z,y}) ;
adj[y].pb({z,x}) ;
}
read(k) ;
FOR(i,k){
read(a[i],b[i]) ;
}
read(p) ;
FOR(i,1,p+1)
read(c[i]) ;
FOR(i,k){
dijktras(a[i]) ;
FOR(j,1,p+1)
dp[j].pb(d[c[j]]);
}
vt<int>f ;
FOR(k)
f.pb(b[i]) ;
int ans = find(1,f) ;
print(ans==1e18?-1:ans) ;
FOR(i,20)
dp[i].clear() ;
FOR(i,0,n+2)
adj[i].clear() ;
mems(a,0) ;
mems(b,0) ;
mems(c,0) ;
}
signed main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
//cout << setprecision(20) << fixed ;
int T=1;
read(T);
FOR(_,T){
// pff("Case #", _+1, ": ");
solve();
}
return 0;
}
Ly8gI2luY2x1ZGU8Yml0cy9zdGRjKysuaD4KI2luY2x1ZGUgPGlvc3RyZWFtPgojaW5jbHVkZSA8Y3N0ZGlvPgojaW5jbHVkZSA8YWxnb3JpdGhtPgojaW5jbHVkZSA8Y21hdGg+CiNpbmNsdWRlIDx2ZWN0b3I+CiNpbmNsdWRlIDxzZXQ+CiNpbmNsdWRlIDxtYXA+CiNpbmNsdWRlIDx1bm9yZGVyZWRfc2V0PgojaW5jbHVkZSA8dW5vcmRlcmVkX21hcD4KI2luY2x1ZGUgPHF1ZXVlPgojaW5jbHVkZSA8c3RyaW5nPgojaW5jbHVkZSA8Y3N0cmluZz4KI2luY2x1ZGUgPHJhbmRvbT4KI2luY2x1ZGUgPGJpdHNldD4KLy8gI2luY2x1ZGUgPGV4dC9wYl9kcy9hc3NvY19jb250YWluZXIuaHBwPgovLyAjaW5jbHVkZSA8ZXh0L3BiX2RzL3RyZWVfcG9saWN5LmhwcD4KLy8gdXNpbmcgbmFtZXNwYWNlIF9fZ251X3BiZHM7Ci8vIHRlbXBsYXRlPGNsYXNzIFQ+IHVzaW5nIG9zZXQgPXRyZWU8VCwgbnVsbF90eXBlLCBsZXNzPFQ+LCByYl90cmVlX3RhZyx0cmVlX29yZGVyX3N0YXRpc3RpY3Nfbm9kZV91cGRhdGU+IDsKdXNpbmcgbmFtZXNwYWNlIHN0ZDsKLy8gI3ByYWdtYSBHQ0Mgb3B0aW1pemUoIk9mYXN0IikKLy8gI3ByYWdtYSBHQ0MgdGFyZ2V0KCJhdngsYXZ4MixmbWEiKQovLyAjcHJhZ21hIEdDQyBvcHRpbWl6YXRpb24gKCJ1bnJvbGwtbG9vcHMiKQp0eXBlZGVmIGxvbmcgbG9uZyBsbCA7CnR5cGVkZWYgcGFpcjxpbnQsaW50PiBwaWk7CnR5cGVkZWYgcGFpcjxsbCxsbD4gcGxsOwojZGVmaW5lIENTIGN1c3RvbV9oYXNoCiNkZWZpbmUgdnQgdmVjdG9yIAojZGVmaW5lIEYgZmlyc3QKI2RlZmluZSBTIHNlY29uZAojZGVmaW5lIHBiIHB1c2hfYmFjawojZGVmaW5lIGVtIGVtcGxhY2VfYmFjawojZGVmaW5lIHN0b2kgc3RvbGwKI2RlZmluZSBhbGwodikgKHYpLmJlZ2luKCksKHYpLmVuZCgpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKI2RlZmluZSBtZW1zKHgsIHkpIG1lbXNldCh4LCB5LCBzaXplb2YoeCkpCiNkZWZpbmUgc3ooeCkgKGludCkoeCkuc2l6ZSgpCiNkZWZpbmUgYXIgYXJyYXkKI2RlZmluZSBlbmRsICJcbiIgCiNkZWZpbmUgUEkgYWNvcygtMSkgCiNkZWZpbmUgdW1hcCB1bm9yZGVyZWRfbWFwCiNkZWZpbmUgZ21hcCBncF9oYXNoX3RhYmxlCiNkZWZpbmUgbGQgbG9uZyBkb3VibGUgCiNkZWZpbmUgc2ViKG4pIF9fYnVpbHRpbl9wb3Bjb3VudGxsKG4pIAojZGVmaW5lIExCIGxvd2VyX2JvdW5kICAKI2RlZmluZSBVQiB1cHBlcl9ib3VuZCAKLy8gZGVidWdnZXIgY3JlZGl0czogaHR0cHM6Ly9jLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5zLmNvbS9ibG9nL2VudHJ5LzY4ODA5IAp2b2lkIF9fcHJpbnQoaW50IHgpIHtjZXJyIDw8IHg7fQp2b2lkIF9fcHJpbnQobG9uZyB4KSB7Y2VyciA8PCB4O30Kdm9pZCBfX3ByaW50KGxvbmcgbG9uZyB4KSB7Y2VyciA8PCB4O30Kdm9pZCBfX3ByaW50KHVuc2lnbmVkIHgpIHtjZXJyIDw8IHg7fQp2b2lkIF9fcHJpbnQodW5zaWduZWQgbG9uZyB4KSB7Y2VyciA8PCB4O30Kdm9pZCBfX3ByaW50KHVuc2lnbmVkIGxvbmcgbG9uZyB4KSB7Y2VyciA8PCB4O30Kdm9pZCBfX3ByaW50KGZsb2F0IHgpIHtjZXJyIDw8IHg7fQp2b2lkIF9fcHJpbnQoZG91YmxlIHgpIHtjZXJyIDw8IHg7fQp2b2lkIF9fcHJpbnQobG9uZyBkb3VibGUgeCkge2NlcnIgPDwgeDt9CnZvaWQgX19wcmludChjaGFyIHgpIHtjZXJyIDw8ICdcJycgPDwgeCA8PCAnXCcnO30Kdm9pZCBfX3ByaW50KGNvbnN0IGNoYXIgKngpIHtjZXJyIDw8ICdcIicgPDwgeCA8PCAnXCInO30Kdm9pZCBfX3ByaW50KGNvbnN0IHN0cmluZyAmeCkge2NlcnIgPDwgJ1wiJyA8PCB4IDw8ICdcIic7fQp2b2lkIF9fcHJpbnQoYm9vbCB4KSB7Y2VyciA8PCAoeCA/ICJ0cnVlIiA6ICJmYWxzZSIpO30KdGVtcGxhdGU8dHlwZW5hbWUgVCwgdHlwZW5hbWUgVj4Kdm9pZCBfX3ByaW50KGNvbnN0IHBhaXI8VCwgVj4gJngpIHtjZXJyIDw8ICd7JzsgX19wcmludCh4LmZpcnN0KTsgY2VyciA8PCAnLCc7IF9fcHJpbnQoeC5zZWNvbmQpOyBjZXJyIDw8ICd9Jzt9CnRlbXBsYXRlPHR5cGVuYW1lIFQ+CnZvaWQgX19wcmludChjb25zdCBUICZ4KSB7aW50IGYgPSAwOyBjZXJyIDw8ICd7JzsgZm9yIChhdXRvICZpOiB4KSBjZXJyIDw8IChmKysgPyAiLCIgOiAiIiksIF9fcHJpbnQoaSk7IGNlcnIgPDwgIn0iO30Kdm9pZCBfcHJpbnQoKSB7Y2VyciA8PCAiXVxuIjt9CnRlbXBsYXRlIDx0eXBlbmFtZSBULCB0eXBlbmFtZS4uLiBWPgp2b2lkIF9wcmludChUIHQsIFYuLi4gdikge19fcHJpbnQodCk7IGlmIChzaXplb2YuLi4odikpIGNlcnIgPDwgIiwgIjsgX3ByaW50KHYuLi4pO30KdGVtcGxhdGUgPHR5cGVuYW1lIFQsIHR5cGVuYW1lIFY+CnZvaWQgbWRlYnVnKG1hcDxULHZlY3RvcjxWPj5tKXsKICBmb3IoYXV0byB4Om0pewogICAgY2VyciA8PCB4LmZpcnN0IDw8ICIgOiBbICIgOwogICAgZm9yKGF1dG8gYzp4LnNlY29uZCkKICAgICAgY2VyciA8PCBjIDw8ICIgIjsKICAgIGNlcnIgPDwgIl0iPDwnXG4nIDsKICB9Cn0KI2lmbmRlZiBPTkxJTkVfSlVER0UKI2RlZmluZSBkZWJ1Zyh4Li4uKSBjZXJyIDw8ICJbIiA8PCAjeCA8PCAiXSA9IFsiOyBfcHJpbnQoeCkKI2Vsc2UKI2RlZmluZSBkZWJ1Zyh4Li4uKQojZW5kaWYKLy8jcHJhZ21hIEdDQyBvcHRpbWl6ZSAidHJhcHYiCi8vdGVtcGxhdGUgY3JlZGl0cyA6V2lsbGlhbSBMaW4odG13aWxsaWFtbGluMTY4KQojZGVmaW5lIEZfT1IoaSwgYSwgYiwgcykgZm9yIChpbnQgaSA9IChhKTsgKChzKSA+IDAgPyBpIDwgKGIpIDogaSA+IChiKSk7IGkgKz0gKHMpKQojZGVmaW5lIEZfT1IxKGUpIEZfT1IoaSwgMCwgZSwgMSkKI2RlZmluZSBGX09SMihpLCBlKSBGX09SKGksIDAsIGUsIDEpCiNkZWZpbmUgRl9PUjMoaSwgYiwgZSkgRl9PUihpLCBiLCBlLCAxKQojZGVmaW5lIEZfT1I0KGksIGIsIGUsIHMpIEZfT1IoaSwgYiwgZSwgcykKI2RlZmluZSBHRVQ1KGEsIGIsIGMsIGQsIGUsIC4uLikgZQojZGVmaW5lIEZfT1JDKC4uLikgR0VUNShfX1ZBX0FSR1NfXywgRl9PUjQsIEZfT1IzLCBGX09SMiwgRl9PUjEpCiNkZWZpbmUgRk9SKC4uLikgRl9PUkMoX19WQV9BUkdTX18pKF9fVkFfQVJHU19fKQojZGVmaW5lIEVBQ0goeCwgYSkgZm9yIChhdXRvJiB4OiBhKQp0ZW1wbGF0ZTxjbGFzcyBUPiBib29sIHVtaW4oVCYgYSwgY29uc3QgVCYgYikgewoJcmV0dXJuIGI8YT9hPWIsIDE6MDsKfQp0ZW1wbGF0ZTxjbGFzcyBUPiBib29sIHVtYXgoVCYgYSwgY29uc3QgVCYgYikgeyAKCXJldHVybiBhPGI/YT1iLCAxOjA7Cn0KdGVtcGxhdGU8Y2xhc3MgQT4gdm9pZCByZWFkKHZ0PEE+JiB2KTsKdGVtcGxhdGU8Y2xhc3MgQSwgc2l6ZV90IFM+IHZvaWQgcmVhZChhcjxBLCBTPiYgYSk7CnRlbXBsYXRlPGNsYXNzIFQ+IHZvaWQgcmVhZChUJiB4KSB7CgljaW4gPj4geDsKfQp2b2lkIHJlYWQoZG91YmxlJiBkKSB7CglzdHJpbmcgdDsKCXJlYWQodCk7CglkPXN0b2QodCk7Cn0Kdm9pZCByZWFkKGxvbmcgZG91YmxlJiBkKSB7CglzdHJpbmcgdDsKCXJlYWQodCk7CglkPXN0b2xkKHQpOwp9CnRlbXBsYXRlPGNsYXNzIEgsIGNsYXNzLi4uIFQ+IHZvaWQgcmVhZChIJiBoLCBUJi4uLiB0KSB7CglyZWFkKGgpOwoJcmVhZCh0Li4uKTsKfQp0ZW1wbGF0ZTxjbGFzcyBBPiB2b2lkIHJlYWQodnQ8QT4mIHgpIHsKCUVBQ0goYSwgeCkKCQlyZWFkKGEpOwp9CnRlbXBsYXRlPGNsYXNzIEEsIHNpemVfdCBTPiB2b2lkIHJlYWQoYXJyYXk8QSwgUz4mIHgpIHsKCUVBQ0goYSwgeCkKCQlyZWFkKGEpOwp9CnN0cmluZyB0b19zdHJpbmcoY2hhciBjKSB7CglyZXR1cm4gc3RyaW5nKDEsIGMpOwp9CnN0cmluZyB0b19zdHJpbmcoYm9vbCBiKSB7CglyZXR1cm4gYj8idHJ1ZSI6ImZhbHNlIjsKfQpzdHJpbmcgdG9fc3RyaW5nKGNvbnN0IGNoYXIqIHMpIHsKCXJldHVybiBzdHJpbmcocyk7Cn0Kc3RyaW5nIHRvX3N0cmluZyhzdHJpbmcgcykgewoJcmV0dXJuIHM7Cn0Kc3RyaW5nIHRvX3N0cmluZyh2dDxib29sPiB2KSB7CglzdHJpbmcgcmVzOwoJRk9SKHN6KHYpKQoJCXJlcys9Y2hhcignMCcrdltpXSk7CglyZXR1cm4gcmVzOwp9Cgp0ZW1wbGF0ZTxzaXplX3QgUz4gc3RyaW5nIHRvX3N0cmluZyhiaXRzZXQ8Uz4gYikgewoJc3RyaW5nIHJlczsKCUZPUihTKQoJCXJlcys9Y2hhcignMCcrYltpXSk7CglyZXR1cm4gcmVzOwp9CnRlbXBsYXRlPGNsYXNzIFQ+IHN0cmluZyB0b19zdHJpbmcoVCB2KSB7CiAgICBib29sIGY9MTsKICAgIHN0cmluZyByZXM7CiAgICBFQUNIKHgsIHYpIHsKCQlpZighZikKCQkJcmVzKz0nICc7CgkJZj0wOwoJCXJlcys9dG9fc3RyaW5nKHgpOwoJfQogICAgcmV0dXJuIHJlczsKfQoKdGVtcGxhdGU8Y2xhc3MgQT4gdm9pZCBwZmYoQSB4KSB7Cgljb3V0IDw8IHRvX3N0cmluZyh4KTsKfQp0ZW1wbGF0ZTxjbGFzcyBILCBjbGFzcy4uLiBUPiB2b2lkIHBmZihjb25zdCBIJiBoLCBjb25zdCBUJi4uLiB0KSB7IAoJcGZmKGgpOwoJcGZmKHQuLi4pOwp9CnZvaWQgcHJpbnQoKSB7CglwZmYoIlxuIik7Cn0KdGVtcGxhdGU8Y2xhc3MgSCwgY2xhc3MuLi4gVD4gdm9pZCBwcmludChjb25zdCBIJiBoLCBjb25zdCBUJi4uLiB0KSB7IAoJcGZmKGgpOwoJaWYoc2l6ZW9mLi4uKHQpKQoJCXBmZignICcpOwoJcHJpbnQodC4uLik7Cn0Kc3RydWN0IFBIewogIHNpemVfdCBvcGVyYXRvcigpKGNvbnN0IHBhaXI8aW50LGludD4meCljb25zdHsKICAgIHNpemVfdCBhbnM9MDsKICAgIGZvcihpbnQgaT0wO2k8eC5maXJzdDtpKyspCiAgICAgIGFucys9eC5zZWNvbmQ7CiAgICByZXR1cm4gYW5zOwogIH0KfTsKLy8gc3RydWN0IGN1c3RvbV9oYXNoIHsKLy8gICBzdGF0aWMgdWludDY0X3Qgc3BsaXRtaXg2NCh1aW50NjRfdCB4KSB7Ci8vICAgICAvLyBodHRwOi8veC4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uaS5pdC9zcGxpdG1peDY0LmMKLy8gICAgIHggKz0gMHg5ZTM3NzliOTdmNGE3YzE1OwovLyAgICAgeCA9ICh4IF4gKHggPj4gMzApKSAqIDB4YmY1ODQ3NmQxY2U0ZTViOTsKLy8gICAgIHggPSAoeCBeICh4ID4+IDI3KSkgKiAweDk0ZDA0OWJiMTMzMTExZWI7Ci8vICAgICByZXR1cm4geCBeICh4ID4+IDMxKTsKLy8gICB9Ci8vICAgc2l6ZV90IG9wZXJhdG9yKCkodWludDY0X3QgeCkgY29uc3QgewovLyAgICAgc3RhdGljIGNvbnN0IHVpbnQ2NF90IEZJWEVEX1JBTkRPTSA9IGNocm9ubzo6c3RlYWR5X2Nsb2NrOjpub3coKS50aW1lX3NpbmNlX2Vwb2NoKCkuY291bnQoKTsKLy8gICAgIHJldHVybiBzcGxpdG1peDY0KHggKyBGSVhFRF9SQU5ET00pOwovLyAgIH0KLy8gfTsKLy8gdm9pZCBEQkcoKSB7Ci8vIAljZXJyIDw8ICJdIiA8PCBlbmRsOwovLyB9Ci8vIHRlbXBsYXRlPGNsYXNzIEgsIGNsYXNzLi4uIFQ+IHZvaWQgREJHKEggaCwgVC4uLiB0KSB7Ci8vIAljZXJyIDw8IHRvX3N0cmluZyhoKTsKLy8gCWlmKHNpemVvZi4uLih0KSkKLy8gCQljZXJyIDw8ICIsICI7Ci8vIAlEQkcodC4uLik7Ci8vIH0KLy8gLy8gI2lmZGVmIF9ERUJVRwovLyAjZGVmaW5lIGRiZyguLi4pIGNlcnIgPDwgIkxJTkUoIiA8PCBfX0xJTkVfXyA8PCAiKSAtPiBbIiA8PCAjX19WQV9BUkdTX18gPDwgIl06IFsiLCBEQkcoX19WQV9BUkdTX18pCi8vIC8vICNlbHNlCi8vIC8vICNkZWZpbmUgZGJnKC4uLikgMAovLyAvLyAjZW5kaWYKCnRlbXBsYXRlPGNsYXNzIFQ+IHZvaWQgb2Zmc2V0KGxsIG8sIFQmIHgpIHsKCXgrPW87Cn0KdGVtcGxhdGU8Y2xhc3MgVD4gdm9pZCBvZmZzZXQobGwgbywgdnQ8VD4mIHgpIHsKCUVBQ0goYSwgeCkKCQlvZmZzZXQobywgYSk7Cn0KdGVtcGxhdGU8Y2xhc3MgVCwgc2l6ZV90IFM+IHZvaWQgb2Zmc2V0KGxsIG8sIGFyPFQsIFM+JiB4KSB7CglFQUNIKGEsIHgpCgkJb2Zmc2V0KG8sIGEpOwp9CnRlbXBsYXRlPGNsYXNzIFQ+IHZvaWQgZmsoVCBhKSB7IAogIHByaW50KGEpIDsKICBleGl0KDApIDsKfQojZGVmaW5lIHBmKG4pIHJldHVybiBwcmludChuKQojZGVmaW5lIGludCBsbCAKbG9uZyBjb25zdCBNPTFlOSs3Owpjb25zdCBsbCBJTkYgPTFlMTg7Ci8vIG9yZGVyX29mX2tleSAoaykgOiBOdW1iZXIgb2YgaXRlbXMgc3RyaWN0bHkgc21hbGxlciB0aGFuIGsgLgovLyBmaW5kX2J5X29yZGVyKGspIDogSy10aCBlbGVtZW50IGluIGEgc2V0IChjb3VudGluZyBmcm9tIHplcm8pLgovL1N5bnRheCB0byBjcmVhdGUgYSBtaW4gaGVhcCBmb3IgcHJpb3JpdHkgcXVldWUKLy8gcHJpb3JpdHlfcXVldWUgPFQsIHZlY3RvcjxUPiwgZ3JlYXRlcjxUPj5wcSA7CgovL21ha2Ugc3VyZSB0byBjbGVhciB0aGUgYWRqYWNlbmN5IGxpc3QgZm9yIGV2ZXJ5IHRlc3QgY2FzZSAKLy8gY2hlY2sgbXhOIHNpemUgCi8vY2hlY2sgaWYgbnVtYmVycyBhcmUgYmlnIHVzZSBwb3dsLHNxcnRsLGJ1aWx0aW5fcG9wY291bnRsbCgpLi4uLi4uIApjb25zdCBpbnQgbXhOPTJlNSsxMCxkaVs0XT17MSwwLC0xLDB9LGRqWzRdPXswLC0xLDAsMX07CmludCBuLG0gLGFbbXhOXSxiW214Tl0sY1tteE5dLGRbbXhOXSxwOwp2dDxhcjxpbnQsMj4+YWRqW214Tl0gOwppbnQgazsKdnQ8aW50PmRwWzIwXSA7CnZvaWQgZGlqa3RyYXMoaW50IHMpewogIHByaW9yaXR5X3F1ZXVlPGFyPGludCwyPix2ZWN0b3I8YXI8aW50LDI+PixncmVhdGVyPGFyPGludCwyPj4+IHBxIDsKICBwcS5wdXNoKHswLHN9KSA7CiAgbWVtc2V0KGQsMHgzZixzaXplb2YoZCkpIDtkW3NdPTAgOwogIHdoaWxlKHBxLnNpemUoKSl7CiAgICBhcjxpbnQsMj4gdT0gcHEudG9wKCkgOwogICAgcHEucG9wKCkgOwogICAgaWYodVswXT5kW3VbMV1dKQogICAgICBjb250aW51ZSA7CiAgICBmb3IoYXI8aW50LDI+IHY6YWRqW3VbMV1dKXsKICAgICAgaWYodVswXSt2WzBdPGRbdlsxXV0pewogICAgICAgIGRbdlsxXV09dVswXSt2WzBdIDsKICAgICAgICBwcS5wdXNoKHtkW3ZbMV1dLHZbMV19KSA7CiAgICAgIH0KICAgIH0KICB9Cn0KaW50IGZpbmQoaW50IFAsdnQ8aW50PmUpewoJCglFQUNIKHgsZSl7CgkJaWYoeDwxKQoJCQlyZXR1cm4gMWUxOCA7Cgl9CmlmKFA9PXArMSkKCQlyZXR1cm4gMCA7CglpbnQgbW49MWUxOCA7CglGT1IoaSxrKXsKCQllW2ldLS0gOwoJCXVtaW4obW4sZHBbUF1baV0rZmluZChQKzEsZSkpIDsKCQllW2ldKysgOwoJfQoJcmV0dXJuIG1uICA7Cgp9CnZvaWQgc29sdmUoKXsJCQoJcmVhZChuLG0pIDsKCUZPUihtKXsKCQlpbnQgeCx5LHogO3JlYWQoeCx5LHopIDsKCQlhZGpbeF0ucGIoe3oseX0pIDsKCQlhZGpbeV0ucGIoe3oseH0pIDsKCX0KCXJlYWQoaykgOwoJRk9SKGksayl7CgkJcmVhZChhW2ldLGJbaV0pIDsKCQkKCX0KCXJlYWQocCkgOwoJRk9SKGksMSxwKzEpCgkJcmVhZChjW2ldKSA7CglGT1IoaSxrKXsKCQlkaWprdHJhcyhhW2ldKSA7CgkJRk9SKGosMSxwKzEpCgkJCWRwW2pdLnBiKGRbY1tqXV0pOwoJfQoKCXZ0PGludD5mIDsKCUZPUihrKQoJCWYucGIoYltpXSkgOwoJaW50IGFucyA9IGZpbmQoMSxmKSA7CglwcmludChhbnM9PTFlMTg/LTE6YW5zKSA7CglGT1IoaSwyMCkKCSAgZHBbaV0uY2xlYXIoKSA7CglGT1IoaSwwLG4rMikKCQlhZGpbaV0uY2xlYXIoKSA7CgltZW1zKGEsMCkgOwoJbWVtcyhiLDApIDsKCW1lbXMoYywwKSA7CgkKfQpzaWduZWQgbWFpbigpIHsKICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKGZhbHNlKTsKICBjaW4udGllKE5VTEwpOwogIC8vY291dCA8PCBzZXRwcmVjaXNpb24oMjApIDw8IGZpeGVkIDsKICBpbnQgVD0xOwoJcmVhZChUKTsKCUZPUihfLFQpewoJCS8vIHBmZigiQ2FzZSAjIiwgXysxLCAiOiAiKTsKCQlzb2x2ZSgpOwoJfQoJcmV0dXJuIDA7Cn0=