import Control.Applicative
import Data.List

main :: IO ()
main = solve <$> f <*> f <*> f >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> [Int] -> [Int] -> String
solve [n, m, x, y] xs ys
  | mx < my = "No War"
  | otherwise = "War"
  where
    mx = maximum (x:xs)
    my = minimum (y:ys)
