solver::[Int]->[Int]->Bool
solver as bs = (maximum as) < (minimum bs)

main::IO()
main=do
  nmxy<-getLine
  let n:m:x:y:[]= map read (words nmxy) ::[Int]
  xsc<-getLine
  ysc<-getLine
  let xs = map read (words xsc) ::[Int]
  let ys = map read (words ysc) ::[Int]
  putStr (if (solver (x:xs) (y:ys)) then "No War\n" else "War\n")
