import Control.Monad
import Data.List

readWords = map read . words <$> getLine

main = do
    [_, _, x, y] <- readWords :: IO [Int]
    xs <- readWords
    ys <- readWords
    putStrLn (if maximum (x:xs) < minimum (y:ys) then "No War" else "War")