getInts = do
  x <- getLine
  let y = (map$toInt)$words x 
  return y

getStr = do
  x <- getLine
  let y = words x 
  return y  

main :: IO ()
main = do
  [xn, yn, x, y] <- getInts
  xs <- getInts
  ys <- getInts
  print $ if (maximum $ xs ++ [x]) >= (minimum $ ys ++ [y]) then "War" else "No War"