parseLine :: IO [Int]
parseLine = map read . words <$> getLine

main = do
  [n, m, x, y] <- parseLine
  xs <- parseLine
  ys <- parseLine

  if (maximum (x:xs)) < (minimum (y:ys))
    then putStrLn "No War"
    else putStrLn "War"
