import sequtils,strutils
type E=tuple[dst,cap,rev:int]
proc r:any=stdin.readLine.parseInt
proc R:any=stdin.readLine.split.map(parseInt)
var
 w=r()
 n=r()
 J=R()
 m=r()
 C=R()
 F=newSeqWith(n+m+2,newSeq[E]())
 src=n+m
 dst=n+m+1
proc a(src,dst,cap:int)=
 F[src]&=(dst,cap,F[dst].len)
 F[dst]&=(src,0,F[src].len-1)
for i,j in J:a src,i,j
for i,c in C:a n+i,dst,c
for c in n..<n+m:
 let
  qx=R()
  q=qx[0]
  X=qx[1..^1].mapit:it-1
  OK=toSeq(0..<n).filterIt(it notin X)
 for j in OK:a j,c,1e10.int
proc FF():int=
 var U:seq[bool]
 proc dfs(src,dst,f:int):int=
  if src==dst:return f
  U[src]=true
  for i,e in F[src]:
   if U[e.dst] or e.cap<=0:continue
   let d=dfs(e.dst,dst,f.min(e.cap))
   if d>0:(F[src][i].cap-=d;F[e.dst][e.rev].cap+=d;return d)
 while true:
  U=newSeq[bool](F.len)
  let f=dfs(src,dst,1e10.int)
  if f==0:return
  result+=f
if FF()<w:echo"BANSAKUTSUKITA"
else:echo"SHIROBAKO"