#include<bits/stdc++.h>

#define debug(x) cerr << #x << ": " << x << '\n'
#define debugArray(x,n) for(long long hoge = 0; (hoge) < (n); ++ (hoge)) cerr << #x << "[" << hoge << "]: " << x[hoge] << '\n'
using namespace std;

typedef long long ll;
typedef unsigned long long ull;
typedef vector<ll> vll;
const ll INF = LLONG_MAX/2;
const ll MOD = 1e9+7;

struct FordFulkerson {
    typedef long long flow_type;
    struct edge {
        int src, dst;
        flow_type capacity, flow;
        size_t rev;
    };
    int n;
    vector<vector<edge>> adj;
    FordFulkerson(int n) : n(n), adj(n) { }
    void add_edge(int src, int dst, flow_type capacity) {
        adj[src].push_back({src, dst, capacity, 0, adj[dst].size()});
        adj[dst].push_back({dst, src, 0, 0, adj[src].size()-1});
    }
    flow_type max_flow(int s, int t) {
        vector<bool> visited(n);
        function<flow_type(int,flow_type)> augment = [&](int u, flow_type cur) {
            if (u == t) return cur;
            visited[u] = true;
            for (auto &e: adj[u]) {
                if (!visited[e.dst] && e.capacity > e.flow) {
                    flow_type f = augment(e.dst, min(e.capacity - e.flow, cur));
                    if (f > 0) {
                        e.flow += f;
                        adj[e.dst][e.rev].flow -= f;
                        return f;
                    }
                }
            }
            return flow_type(0);
        };
        for (int u = 0; u < n; ++u)
            for (auto &e: adj[u]) e.flow = 0;

        flow_type flow = 0;
        while (1) {
            fill(visited.begin(),visited.end(), false);
            flow_type f = augment(s, INF);
            if (f == 0) break;
            flow += f;
        }
        return flow;
    }
};


signed main(){
  cin.tie(0);
  ios::sync_with_stdio(false);
  ll W;cin>>W;
  ll N;cin>>N;
  vll J(N);
  for(ll i=0;i<N;i++)cin>>J[i];
  ll M;cin>>M;
  vll C(M);
  for(ll j=0;j<M;j++)cin>>C[j];
  FordFulkerson g(N+M+2);
  ll src=N+M,dst=N+M+1;
  for(ll i=0;i<N;i++){
    g.add_edge(src,i,J[i]);
  }
  for(ll j=0;j<M;j++){
    g.add_edge(N+j,dst,C[j]);
    ll Q;cin>>Q;
    bool ng[N]={};
    for(ll q=0;q<Q;q++){
      ll x;cin>>x;x--;
      ng[x]=true;
    }
    for(ll i=0;i<N;i++)if(!ng[i]){
      g.add_edge(i,N+j,INF);
    }
  }
  cout<<(g.max_flow(src,dst)>=W? "SHIROBAKO":"BANSAKUTSUKITA")<<endl;
  return 0;
}