import Data.List

solve :: Int -> Int -> Int -> Int -> String
solve x y xn y1 = if x < y1 && xn < y && xn < y1
                  then "No War"
                  else "War"

main :: IO ()
main = do
  [n, m, x, y] <- map read . words <$> getLine
  xs <- map read . words <$> getLine
  ys <- map read . words <$> getLine
  putStrLn $ solve x y (last $ sort xs) (head $ sort ys)