main = do
  [n, m, _X, _Y] <- map read . words <$> getLine :: IO [Int]
  x <- map read . words <$> getLine :: IO [Int]
  y <- map read . words <$> getLine :: IO [Int]
  putStrLn $ if maximum (_X:x) < minimum (_Y:y) then "No War" else "War"